fresnelx:array[1..300] of double =(
 0.0000000000000000E+000,
 2.0000000000000000E-002,
 4.0000000000000001E-002,
 5.9999999999999998E-002,
 8.0000000000000002E-002,
 1.0000000000000001E-001,
 1.2000000000000000E-001,
 1.4000000000000001E-001,
 1.6000000000000000E-001,
 1.7999999999999999E-001,
 2.0000000000000001E-001,
 2.2000000000000000E-001,
 2.3999999999999999E-001,
 2.6000000000000001E-001,
 2.8000000000000003E-001,
 2.9999999999999999E-001,
 3.2000000000000001E-001,
 3.4000000000000002E-001,
 3.5999999999999999E-001,
 3.8000000000000000E-001,
 4.0000000000000002E-001,
 4.1999999999999998E-001,
 4.4000000000000000E-001,
 4.6000000000000002E-001,
 4.7999999999999998E-001,
 5.0000000000000000E-001,
 5.2000000000000002E-001,
 5.4000000000000004E-001,
 5.6000000000000005E-001,
 5.7999999999999996E-001,
 5.9999999999999998E-001,
 6.2000000000000000E-001,
 6.4000000000000001E-001,
 6.6000000000000003E-001,
 6.8000000000000005E-001,
 6.9999999999999996E-001,
 7.1999999999999997E-001,
 7.3999999999999999E-001,
 7.6000000000000001E-001,
 7.8000000000000003E-001,
 8.0000000000000004E-001,
 8.1999999999999995E-001,
 8.3999999999999997E-001,
 8.5999999999999999E-001,
 8.8000000000000000E-001,
 9.0000000000000002E-001,
 9.2000000000000004E-001,
 9.3999999999999995E-001,
 9.5999999999999996E-001,
 9.7999999999999998E-001,
 1.0000000000000000E+000,
 1.0200000000000000E+000,
 1.0400000000000000E+000,
 1.0600000000000001E+000,
 1.0800000000000001E+000,
 1.1000000000000001E+000,
 1.1200000000000001E+000,
 1.1399999999999999E+000,
 1.1599999999999999E+000,
 1.1799999999999999E+000,
 1.2000000000000000E+000,
 1.2200000000000000E+000,
 1.2400000000000000E+000,
 1.2600000000000000E+000,
 1.2800000000000000E+000,
 1.3000000000000000E+000,
 1.3200000000000001E+000,
 1.3400000000000001E+000,
 1.3600000000000001E+000,
 1.3799999999999999E+000,
 1.3999999999999999E+000,
 1.4199999999999999E+000,
 1.4399999999999999E+000,
 1.4600000000000000E+000,
 1.4800000000000000E+000,
 1.5000000000000000E+000,
 1.5200000000000000E+000,
 1.5400000000000000E+000,
 1.5600000000000001E+000,
 1.5800000000000001E+000,
 1.6000000000000001E+000,
 1.6200000000000001E+000,
 1.6399999999999999E+000,
 1.6599999999999999E+000,
 1.6799999999999999E+000,
 1.7000000000000000E+000,
 1.7200000000000000E+000,
 1.7400000000000000E+000,
 1.7600000000000000E+000,
 1.7800000000000000E+000,
 1.8000000000000000E+000,
 1.8200000000000001E+000,
 1.8400000000000001E+000,
 1.8600000000000001E+000,
 1.8799999999999999E+000,
 1.8999999999999999E+000,
 1.9199999999999999E+000,
 1.9399999999999999E+000,
 1.9600000000000000E+000,
 1.9800000000000000E+000,
 2.0000000000000000E+000,
 2.0200000000000000E+000,
 2.0400000000000000E+000,
 2.0600000000000001E+000,
 2.0800000000000001E+000,
 2.1000000000000001E+000,
 2.1200000000000001E+000,
 2.1400000000000001E+000,
 2.1600000000000001E+000,
 2.1800000000000002E+000,
 2.2000000000000002E+000,
 2.2200000000000002E+000,
 2.2400000000000002E+000,
 2.2599999999999998E+000,
 2.2799999999999998E+000,
 2.2999999999999998E+000,
 2.3199999999999998E+000,
 2.3399999999999999E+000,
 2.3599999999999999E+000,
 2.3799999999999999E+000,
 2.3999999999999999E+000,
 2.4199999999999999E+000,
 2.4399999999999999E+000,
 2.4600000000000000E+000,
 2.4800000000000000E+000,
 2.5000000000000000E+000,
 2.5200000000000000E+000,
 2.5400000000000000E+000,
 2.5600000000000001E+000,
 2.5800000000000001E+000,
 2.6000000000000001E+000,
 2.6200000000000001E+000,
 2.6400000000000001E+000,
 2.6600000000000001E+000,
 2.6800000000000002E+000,
 2.7000000000000002E+000,
 2.7200000000000002E+000,
 2.7400000000000002E+000,
 2.7599999999999998E+000,
 2.7799999999999998E+000,
 2.7999999999999998E+000,
 2.8199999999999998E+000,
 2.8399999999999999E+000,
 2.8599999999999999E+000,
 2.8799999999999999E+000,
 2.8999999999999999E+000,
 2.9199999999999999E+000,
 2.9399999999999999E+000,
 2.9600000000000000E+000,
 2.9800000000000000E+000,
 3.0000000000000000E+000,
 3.0200000000000000E+000,
 3.0400000000000000E+000,
 3.0600000000000001E+000,
 3.0800000000000001E+000,
 3.1000000000000001E+000,
 3.1200000000000001E+000,
 3.1400000000000001E+000,
 3.1600000000000001E+000,
 3.1800000000000002E+000,
 3.2000000000000002E+000,
 3.2200000000000002E+000,
 3.2400000000000002E+000,
 3.2599999999999998E+000,
 3.2799999999999998E+000,
 3.2999999999999998E+000,
 3.3199999999999998E+000,
 3.3399999999999999E+000,
 3.3599999999999999E+000,
 3.3799999999999999E+000,
 3.3999999999999999E+000,
 3.4199999999999999E+000,
 3.4399999999999999E+000,
 3.4600000000000000E+000,
 3.4800000000000000E+000,
 3.5000000000000000E+000,
 3.5200000000000000E+000,
 3.5400000000000000E+000,
 3.5600000000000001E+000,
 3.5800000000000001E+000,
 3.6000000000000001E+000,
 3.6200000000000001E+000,
 3.6400000000000001E+000,
 3.6600000000000001E+000,
 3.6800000000000002E+000,
 3.7000000000000002E+000,
 3.7200000000000002E+000,
 3.7400000000000002E+000,
 3.7599999999999998E+000,
 3.7799999999999998E+000,
 3.7999999999999998E+000,
 3.8199999999999998E+000,
 3.8399999999999999E+000,
 3.8599999999999999E+000,
 3.8799999999999999E+000,
 3.8999999999999999E+000,
 3.9199999999999999E+000,
 3.9399999999999999E+000,
 3.9600000000000000E+000,
 3.9800000000000000E+000,
 4.0000000000000000E+000,
 4.0199999999999996E+000,
 4.0400000000000000E+000,
 4.0599999999999996E+000,
 4.0800000000000001E+000,
 4.0999999999999996E+000,
 4.1200000000000001E+000,
 4.1399999999999997E+000,
 4.1600000000000001E+000,
 4.1799999999999997E+000,
 4.2000000000000002E+000,
 4.2199999999999998E+000,
 4.2400000000000002E+000,
 4.2599999999999998E+000,
 4.2800000000000002E+000,
 4.2999999999999998E+000,
 4.3200000000000003E+000,
 4.3399999999999999E+000,
 4.3600000000000003E+000,
 4.3799999999999999E+000,
 4.4000000000000004E+000,
 4.4199999999999999E+000,
 4.4400000000000004E+000,
 4.4600000000000000E+000,
 4.4800000000000004E+000,
 4.5000000000000000E+000,
 4.5199999999999996E+000,
 4.5400000000000000E+000,
 4.5599999999999996E+000,
 4.5800000000000001E+000,
 4.5999999999999996E+000,
 4.6200000000000001E+000,
 4.6399999999999997E+000,
 4.6600000000000001E+000,
 4.6799999999999997E+000,
 4.7000000000000002E+000,
 4.7199999999999998E+000,
 4.7400000000000002E+000,
 4.7599999999999998E+000,
 4.7800000000000002E+000,
 4.7999999999999998E+000,
 4.8200000000000003E+000,
 4.8399999999999999E+000,
 4.8600000000000003E+000,
 4.8799999999999999E+000,
 4.9000000000000004E+000,
 4.9199999999999999E+000,
 4.9400000000000004E+000,
 4.9600000000000000E+000,
 4.9800000000000004E+000,
 5.0000000000000000E+000,
 5.0199999999999996E+000,
 5.0400000000000000E+000,
 5.0599999999999996E+000,
 5.0800000000000001E+000,
 5.0999999999999996E+000,
 5.1200000000000001E+000,
 5.1399999999999997E+000,
 5.1600000000000001E+000,
 5.1799999999999997E+000,
 5.2000000000000002E+000,
 5.2199999999999998E+000,
 5.2400000000000002E+000,
 5.2599999999999998E+000,
 5.2800000000000002E+000,
 5.2999999999999998E+000,
 5.3200000000000003E+000,
 5.3399999999999999E+000,
 5.3600000000000003E+000,
 5.3799999999999999E+000,
 5.4000000000000004E+000,
 5.4199999999999999E+000,
 5.4400000000000004E+000,
 5.4600000000000000E+000,
 5.4800000000000004E+000,
 5.5000000000000000E+000,
 5.5199999999999996E+000,
 5.5400000000000000E+000,
 5.5599999999999996E+000,
 5.5800000000000001E+000,
 5.5999999999999996E+000,
 5.6200000000000001E+000,
 5.6399999999999997E+000,
 5.6600000000000001E+000,
 5.6799999999999997E+000,
 5.7000000000000002E+000,
 5.7199999999999998E+000,
 5.7400000000000002E+000,
 5.7599999999999998E+000,
 5.7800000000000002E+000,
 5.7999999999999998E+000,
 5.8200000000000003E+000,
 5.8399999999999999E+000,
 5.8600000000000003E+000,
 5.8799999999999999E+000,
 5.9000000000000004E+000,
 5.9199999999999999E+000,
 5.9400000000000004E+000,
 5.9600000000000000E+000,
 5.9800000000000004E+000);
fresnely:array[1..300] of double =(
 7.0710678118654757E-001,
 7.2139045459864037E-001,
 7.3595752875954812E-001,
 7.5080816124026351E-001,
 7.6594204391336429E-001,
 7.8135837031140987E-001,
 7.9705580183656433E-001,
 8.1303243275568304E-001,
 8.2928575465149834E-001,
 8.4581261906983518E-001,
 8.6260920010419329E-001,
 8.7967095563011477E-001,
 8.9699258762959977E-001,
 9.1456800240679115E-001,
 9.3239026967509764E-001,
 9.5045158121413376E-001,
 9.6874320961500893E-001,
 9.8725546639841455E-001,
 1.0059776602318640E+000,
 1.0248980553584499E+000,
 1.0440038302332062E+000,
 1.0632810369921484E+000,
 1.0827145613160098E+000,
 1.1022880839683649E+000,
 1.1219840427981347E+000,
 1.1417835974478896E+000,
 1.1616665948925151E+000,
 1.1816115387710062E+000,
 1.2015955595327481E+000,
 1.2215943897412913E+000,
 1.2415823413596720E+000,
 1.2615322878515540E+000,
 1.2814156506548977E+000,
 1.3012023908054351E+000,
 1.3208610055855854E+000,
 1.3403585323731708E+000,
 1.3596605581366437E+000,
 1.3787312376729559E+000,
 1.3975333185292118E+000,
 1.4160281762596858E+000,
 1.4341758581718094E+000,
 1.4519351378353686E+000,
 1.4692635814352766E+000,
 1.4861176250059052E+000,
 1.5024526657734836E+000,
 1.5182231665902490E+000,
 1.5333827758171168E+000,
 1.5478844626937793E+000,
 1.5616806695960626E+000,
 1.5747234827035601E+000,
 1.5869648213074068E+000,
 1.5983566475134916E+000,
 1.6088511977119699E+000,
 1.6184012356692317E+000,
 1.6269603311852348E+000,
 1.6344831625748548E+000,
 1.6409258468022818E+000,
 1.6462462966999818E+000,
 1.6504046086868926E+000,
 1.6533634807076534E+000,
 1.6550886628621986E+000,
 1.6555494423455903E+000,
 1.6547191631261724E+000,
 1.6525757834340236E+000,
 1.6491024704210433E+000,
 1.6442882357369104E+000,
 1.6381286101077108E+000,
 1.6306263594825208E+000,
 1.6217922416966670E+000,
 1.6116458030701548E+000,
 1.6002162125136248E+000,
 1.5875431289025146E+000,
 1.5736775959406992E+000,
 1.5586829554677271E+000,
 1.5426357643867956E+000,
 1.5256266975630064E+000,
 1.5077614099354606E+000,
 1.4891613240465333E+000,
 1.4699642970475064E+000,
 1.4503251092697285E+000,
 1.4304157021864512E+000,
 1.4104250762872170E+000,
 1.3905587447491499E+000,
 1.3710376245137341E+000,
 1.3520962344077747E+000,
 1.3339800758489313E+000,
 1.3169420773718563E+000,
 1.3012380272204946E+000,
 1.2871209691286924E+000,
 1.2748346263185883E+000,
 1.2646060257130831E+000,
 1.2566376192460373E+000,
 1.2510993188253727E+000,
 1.2481209588521536E+000,
 1.2477857452360499E+000,
 1.2501252238526932E+000,
 1.2551161996042324E+000,
 1.2626798687970266E+000,
 1.2726832146324276E+000,
 1.2849425037817999E+000,
 1.2992285408038047E+000,
 1.3152732215674605E+000,
 1.3327768823235502E+000,
 1.3514159643462897E+000,
 1.3708505946311569E+000,
 1.3907317804216814E+000,
 1.4107080318260390E+000,
 1.4304313196561209E+000,
 1.4495623603949666E+000,
 1.4677752736231686E+000,
 1.4847616917955877E+000,
 1.5002344185273111E+000,
 1.5139307345934916E+000,
 1.5256154439332112E+000,
 1.5350837394164218E+000,
 1.5421639556096634E+000,
 1.5467202555461561E+000,
 1.5486552868343206E+000,
 1.5479128202955781E+000,
 1.5444803677233734E+000,
 1.5383917528462232E+000,
 1.5297295844787864E+000,
 1.5186275439178241E+000,
 1.5052723640874714E+000,
 1.4899053162240048E+000,
 1.4728229606666583E+000,
 1.4543768360421572E+000,
 1.4349716728479474E+000,
 1.4150616330329517E+000,
 1.3951440064609750E+000,
 1.3757497776755485E+000,
 1.3574305511420124E+000,
 1.3407415296427632E+000,
 1.3262206358520925E+000,
 1.3143644367482794E+000,
 1.3056022458933494E+000,
 1.3002704864333754E+000,
 1.2985899176969509E+000,
 1.3006484270513790E+000,
 1.3063916473823045E+000,
 1.3156226897773664E+000,
 1.3280110092464759E+000,
 1.3431091683582803E+000,
 1.3603753557269833E+000,
 1.3791991341462173E+000,
 1.3989280218175222E+000,
 1.4188930135772260E+000,
 1.4384318031090617E+000,
 1.4569091029027910E+000,
 1.4737339613261331E+000,
 1.4883742996526743E+000,
 1.5003690625271262E+000,
 1.5093384175248690E+000,
 1.5149923991583649E+000,
 1.5171383050107785E+000,
 1.5156870344164510E+000,
 1.5106584208822054E+000,
 1.5021854597123023E+000,
 1.4905171505368446E+000,
 1.4760194717723794E+000,
 1.4591737609919209E+000,
 1.4405715130642145E+000,
 1.4209043492007738E+000,
 1.4009477267225610E+000,
 1.3815369689322006E+000,
 1.3635345525391449E+000,
 1.3477884770864390E+000,
 1.3350830401836205E+000,
 1.3260853586171959E+000,
 1.3212930678947910E+000,
 1.3209900848211429E+000,
 1.3252173328295609E+000,
 1.3337635012743427E+000,
 1.3461775435881325E+000,
 1.3618007697872596E+000,
 1.3798133051220305E+000,
 1.3992882566220302E+000,
 1.4192472500000377E+000,
 1.4387125343507547E+000,
 1.4567528208457792E+000,
 1.4725217883726431E+000,
 1.4852894243122274E+000,
 1.4944670261680835E+000,
 1.4996268799105430E+000,
 1.5005174985245129E+000,
 1.4970749865788733E+000,
 1.4894306593071156E+000,
 1.4779145342736246E+000,
 1.4630537323706569E+000,
 1.4455641975630558E+000,
 1.4263335259117598E+000,
 1.4063922338711115E+000,
 1.3868707772150997E+000,
 1.3689404535055827E+000,
 1.3537384240079868E+000,
 1.3422806540124443E+000,
 1.3353711221806730E+000,
 1.3335198095155425E+000,
 1.3368836838862721E+000,
 1.3452424918479213E+000,
 1.3580146528247090E+000,
 1.3743101264102102E+000,
 1.3930100495615647E+000,
 1.4128596764530281E+000,
 1.4325620437650541E+000,
 1.4508633799402628E+000,
 1.4666255715803671E+000,
 1.4788844953983402E+000,
 1.4868951471292327E+000,
 1.4901653064285523E+000,
 1.4884793496727775E+000,
 1.4819131140491624E+000,
 1.4708396748958765E+000,
 1.4559246748834569E+000,
 1.4381085422411277E+000,
 1.4185717705733338E+000,
 1.3986788113748398E+000,
 1.3798967826675279E+000,
 1.3636880388882422E+000,
 1.3513813356420608E+000,
 1.3440343906227872E+000,
 1.3423086184050212E+000,
 1.3463805461615195E+000,
 1.3559102014139319E+000,
 1.3700745088966890E+000,
 1.3876581604465101E+000,
 1.4071823913791206E+000,
 1.4270480543162318E+000,
 1.4456729863876367E+000,
 1.4616111989638865E+000,
 1.4736488732466069E+000,
 1.4808772340750738E+000,
 1.4827446769015873E+000,
 1.4790906427520567E+000,
 1.4701624807970133E+000,
 1.4566145469102874E+000,
 1.4394864796805242E+000,
 1.4201554467815327E+000,
 1.4002559162142183E+000,
 1.3815615018650227E+000,
 1.3658283401966711E+000,
 1.3546093822277512E+000,
 1.3490626194486242E+000,
 1.3497883602644323E+000,
 1.3567332997262322E+000,
 1.3691869602118436E+000,
 1.3858722168076067E+000,
 1.4051072623745484E+000,
 1.4250029681272605E+000,
 1.4436607978464535E+000,
 1.4593473620898512E+000,
 1.4706345821225550E+000,
 1.4765038865041236E+000,
 1.4764173454079006E+000,
 1.4703590432095235E+000,
 1.4588478155452078E+000,
 1.4429190459934318E+000,
 1.4240695854193102E+000,
 1.4041573215252510E+000,
 1.3852475878365380E+000,
 1.3694052586928791E+000,
 1.3584460701317678E+000,
 1.3536814846021143E+000,
 1.3557094507697982E+000,
 1.3643054129023751E+000,
 1.3784460237275848E+000,
 1.3964597111266184E+000,
 1.4162635654157372E+000,
 1.4356319022001085E+000,
 1.4524498676671858E+000,
 1.4649246198335368E+000,
 1.4717446649201171E+000,
 1.4721886022125605E+000,
 1.4661875847928221E+000,
 1.4543435923670969E+000,
 1.4379007508634358E+000,
 1.4186616629482067E+000,
 1.3988376587162106E+000,
 1.3808248439824751E+000,
 1.3669112599575495E+000,
 1.3589459552775505E+000,
 1.3580311470334716E+000,
 1.3643157759767754E+000,
 1.3769536074720858E+000,
 1.3942408859383584E+000,
 1.4138924010509564E+000,
 1.4333822194672661E+000,
 1.4502780377007687E+000,
 1.4625233945742204E+000,
 1.4686495617156263E+000,
 1.4679164082355041E+000,
 1.4603870734919193E+000,
 1.4469383829930778E+000,
 1.4292020405669950E+000,
 1.4094249390955602E+000,
 1.3902355081642315E+000,
 1.3743135114951401E+000,
 1.3639885432130261E+000,
 1.3608338622063132E+000,
 1.3653563776669728E+000);