//Heliocentric longitude of Saturn
EXPORT Lsaturn(x)
BEGIN
LOCAL L0:=0;
L0:=L0+0.87401354029;
L0:=L0+0.11107659780*COS(3.96205090194+213.29909543800*x);
L0:=L0+0.01414150958*COS(4.58581515873+7.11354700080*x);
L0:=L0+0.00398379386*COS(0.52112025957+206.18554843720*x);
L0:=L0+0.00350769223*COS(3.30329903015+426.59819087600*x);
L0:=L0+0.00206816296*COS(0.24658366938+103.09277421860*x);
L0:=L0+0.00079271288*COS(3.84007078530+220.41264243880*x);
L0:=L0+0.00023990338*COS(4.66976934860+110.20632121940*x);
L0:=L0+0.00016573583*COS(0.43719123541+419.48464387520*x);
L0:=L0+0.00014906995*COS(5.76903283845+316.39186965660*x);
L0:=L0+0.00015820300*COS(0.93808953760+632.78373931320*x);
L0:=L0+0.00014609562*COS(1.56518573691+3.93215326310*x);
L0:=L0+0.00013160308*COS(4.44891180176+14.22709400160*x);
L0:=L0+0.00015053509*COS(2.71670027883+639.89728631400*x);
L0:=L0+0.00013005305*COS(5.98119067061+11.04570026390*x);
L0:=L0+0.00010725066*COS(3.12939596466+202.25339517410*x);
L0:=L0+0.00005863207*COS(0.23657028777+529.69096509460*x);
L0:=L0+0.00005227771*COS(4.20783162380+3.18139373770*x);
L0:=L0+0.00006126308*COS(1.76328499656+277.03499374140*x);
L0:=L0+0.00005019658*COS(3.17787919533+433.71173787680*x);
L0:=L0+0.00004592541*COS(0.61976424374+199.07200143640*x);
L0:=L0+0.00004005862*COS(2.24479893937+63.73589830340*x);
L0:=L0+0.00002953815*COS(0.98280385206+95.97922721780*x);
L0:=L0+0.00003873696*COS(3.22282692566+138.51749687070*x);
L0:=L0+0.00002461172*COS(2.03163631205+735.87651353180*x);
L0:=L0+0.00003269490*COS(0.77491895787+949.17560896980*x);
L0:=L0+0.00001758143*COS(3.26580514774+522.57741809380*x);
L0:=L0+0.00001640183*COS(5.50504966218+846.08283475120*x);
L0:=L0+0.00001391336*COS(4.02331978116+323.50541665740*x);
L0:=L0+0.00001580641*COS(4.37266314120+309.27832265580*x);
L0:=L0+0.00001123515*COS(2.83726793572+415.55249061210*x);
L0:=L0+0.00001017258*COS(3.71698151814+227.52618943960*x);
L0:=L0+0.00000848643*COS(3.19149825839+209.36694217490*x);
L0:=L0+0.00001087237*COS(4.18343232481+2.44768055480*x);
L0:=L0+0.00000956752*COS(0.50740889886+1265.56747862640*x);
L0:=L0+0.00000789205*COS(5.00745123149+0.96320784650*x);
L0:=L0+0.00000686965*COS(1.74714407827+1052.26838318840*x);
L0:=L0+0.00000654470*COS(1.59889331515+0.04818410980*x);
L0:=L0+0.00000748811*COS(2.14398149298+853.19638175200*x);
L0:=L0+0.00000633980*COS(2.29889903023+412.37109687440*x);
L0:=L0+0.00000743584*COS(5.25276954625+224.34479570190*x);
L0:=L0+0.00000852677*COS(3.42141350697+175.16605980020*x);
L0:=L0+0.00000579857*COS(3.09259007048+74.78159856730*x);
L0:=L0+0.00000624904*COS(0.97046831256+210.11770170030*x);
L0:=L0+0.00000529861*COS(4.44938897119+117.31986822020*x);
L0:=L0+0.00000542643*COS(1.51824320514+9.56122755560*x);
L0:=L0+0.00000474279*COS(5.47527185987+742.99006053260*x);
L0:=L0+0.00000448542*COS(1.28990416161+127.47179660680*x);
L0:=L0+0.00000546358*COS(2.12678554211+350.33211960040*x);
L0:=L0+0.00000478054*COS(2.96488054338+137.03302416240*x);
L0:=L0+0.00000354944*COS(3.01286483030+838.96928775040*x);
L0:=L0+0.00000451827*COS(1.04436664241+490.33408917940*x);
L0:=L0+0.00000347413*COS(1.53928227764+340.77089204480*x);
L0:=L0+0.00000343475*COS(0.24604039134+0.52126486180*x);
L0:=L0+0.00000309001*COS(3.49486734909+216.48048917570*x);
L0:=L0+0.00000322185*COS(0.96137456104+203.73786788240*x);
L0:=L0+0.00000372308*COS(2.27819108625+217.23124870110*x);
L0:=L0+0.00000321543*COS(2.57182354537+647.01083331480*x);
L0:=L0+0.00000330196*COS(0.24715617844+1581.95934828300*x);
L0:=L0+0.00000249116*COS(1.47010534421+1368.66025284500*x);
L0:=L0+0.00000286688*COS(2.37043745859+351.81659230870*x);
L0:=L0+0.00000220225*COS(4.20422424873+200.76892246580*x);
L0:=L0+0.00000277775*COS(0.40020408926+211.81462272970*x);
L0:=L0+0.00000204500*COS(6.01082206600+265.98929347750*x);
L0:=L0+0.00000207663*COS(0.48349820488+1162.47470440780*x);
L0:=L0+0.00000208655*COS(1.34516255304+625.67019231240*x);
L0:=L0+0.00000182454*COS(5.49122292426+2.92076130680*x);
L0:=L0+0.00000226609*COS(4.91003163138+12.53017297220*x);
L0:=L0+0.00000207659*COS(1.28302218900+39.35687591520*x);
L0:=L0+0.00000173914*COS(1.86305806814+0.75075952540*x);
L0:=L0+0.00000184690*COS(3.50344404958+149.56319713460*x);
L0:=L0+0.00000183511*COS(0.97254952728+4.19278569400*x);
L0:=L0+0.00000146068*COS(6.23102544071+195.13984817330*x);
L0:=L0+0.00000164541*COS(0.44005517520+5.41662597140*x);
L0:=L0+0.00000147526*COS(1.53529320509+5.62907429250*x);
L0:=L0+0.00000139666*COS(4.29450260069+21.34064100240*x);
L0:=L0+0.00000131283*COS(4.06828961903+10.29494073850*x);
L0:=L0+0.00000117283*COS(2.67920400584+1155.36115740700*x);
L0:=L0+0.00000149299*COS(5.73594349789+52.69019803950*x);
L0:=L0+0.00000122373*COS(1.97588777199+4.66586644600*x);
L0:=L0+0.00000113747*COS(5.59427544714+1059.38193018920*x);
L0:=L0+0.00000102702*COS(1.19748124058+1685.05212250160*x);
L0:=L0+0.00000118156*COS(5.34072933900+554.06998748280*x);
L0:=L0+0.00000109275*COS(3.43812715686+536.80451209540*x);
L0:=L0+0.00000110399*COS(0.16604024090+1.48447270830*x);
L0:=L0+0.00000124969*COS(6.27737805832+1898.35121793960*x);
L0:=L0+0.00000089949*COS(5.80392934702+114.13847448250*x);
L0:=L0+0.00000103956*COS(2.19210363069+88.86568021700*x);
L0:=L0+0.00000112437*COS(1.10502663534+191.20769491020*x);
L0:=L0+0.00000106570*COS(4.01156608514+956.28915597060*x);
L0:=L0+0.00000091430*COS(1.87521577510+38.13303563780*x);
L0:=L0+0.00000083791*COS(5.48810655641+0.11187458460*x);
L0:=L0+0.00000083461*COS(2.28972767279+628.85158605010*x);
L0:=L0+0.00000096987*COS(4.53666595763+302.16477565500*x);
L0:=L0+0.00000100631*COS(4.96513666539+269.92144674060*x);
L0:=L0+0.00000075491*COS(2.18045274099+728.76296653100*x);
L0:=L0+0.00000096330*COS(2.83319189210+275.55052103310*x);
L0:=L0+0.00000082363*COS(3.05469876064+440.82528487760*x);
L0:=L0+0.00000073888*COS(5.08914205084+1375.77379984580*x);
L0:=L0+0.00000071633*COS(5.10940743430+65.22037101170*x);
L0:=L0+0.00000070409*COS(4.86846451411+0.21244832110*x);
L0:=L0+0.00000069760*COS(3.71029022489+14.97785352700*x);
L0:=L0+0.00000088772*COS(3.86334563977+278.51946644970*x);
L0:=L0+0.00000068090*COS(0.73415460990+1478.86657406440*x);
L0:=L0+0.00000066501*COS(0.02677580336+70.84944530420*x);
L0:=L0+0.00000065682*COS(2.02165559602+142.44965013380*x);
L0:=L0+0.00000075765*COS(1.61410487792+284.14854074220*x);
L0:=L0+0.00000063153*COS(3.49493353034+479.28838891550*x);
L0:=L0+0.00000062539*COS(2.58713611532+422.66603761290*x);
L0:=L0+0.00000069313*COS(3.43979731402+515.46387109300*x);
L0:=L0+0.00000079021*COS(4.45154941586+35.42472265210*x);
L0:=L0+0.00000063664*COS(3.31749528708+62.25142559510*x);
L0:=L0+0.00000052939*COS(5.51392725227+0.26063243090*x);
L0:=L0+0.00000053011*COS(3.18480701697+8.07675484730*x);
L0:=L0+0.00000054492*COS(2.45674090515+22.09140052780*x);
L0:=L0+0.00000050514*COS(4.26749346978+99.16062095550*x);
L0:=L0+0.00000055170*COS(0.96797446150+942.06206196900*x);
L0:=L0+0.00000049288*COS(2.38641424063+1471.75302706360*x);
L0:=L0+0.00000047199*COS(2.02515248245+312.19908396260*x);
L0:=L0+0.00000061080*COS(1.50295092063+210.85141488320*x);
L0:=L0+0.00000045126*COS(0.93109376473+2001.44399215820*x);
L0:=L0+0.00000060556*COS(2.68715551585+388.46515523820*x);
L0:=L0+0.00000043452*COS(2.52602011714+288.08069400530*x);
L0:=L0+0.00000042544*COS(3.81793980322+330.61896365820*x);
L0:=L0+0.00000039915*COS(5.71378652900+408.43894361130*x);
L0:=L0+0.00000050145*COS(6.03164759907+2214.74308759620*x);
L0:=L0+0.00000045860*COS(0.54229721801+212.33588759150*x);
L0:=L0+0.00000054165*COS(0.78154835399+191.95845443560*x);
L0:=L0+0.00000047016*COS(4.59934671151+437.64389113990*x);
L0:=L0+0.00000042362*COS(1.90070070955+430.53034413910*x);
L0:=L0+0.00000039722*COS(1.63259419913+1066.49547719000*x);
L0:=L0+0.00000036345*COS(0.84756992711+213.34727954780*x);
L0:=L0+0.00000035468*COS(4.18603772925+215.74677599280*x);
L0:=L0+0.00000036344*COS(3.93295730315+213.25091132820*x);
L0:=L0+0.00000038005*COS(0.31313803095+423.41679713830*x);
L0:=L0+0.00000044746*COS(1.12488341174+6.15033915430*x);
L0:=L0+0.00000037902*COS(1.19795851115+2.70831298570*x);
L0:=L0+0.00000043402*COS(1.37363944007+563.63121503840*x);
L0:=L0+0.00000043764*COS(3.93043802956+525.49817940060*x);
L0:=L0+0.00000034825*COS(1.01566605408+203.00415469950*x);
L0:=L0+0.00000031755*COS(1.69273634405+0.16005869440*x);
L0:=L0+0.00000030880*COS(6.13525703832+417.03696332040*x);
L0:=L0+0.00000036388*COS(6.00586032647+18.15924726470*x);
L0:=L0+0.00000029032*COS(1.19660544505+404.50679034820*x);
L0:=L0+0.00000032812*COS(0.53649479713+107.02492748170*x);
L0:=L0+0.00000030433*COS(0.72335287989+222.86032299360*x);
L0:=L0+0.00000032644*COS(0.81204701486+1795.25844372100*x);
L0:=L0+0.00000037769*COS(3.69666903716+1272.68102562720*x);
L0:=L0+0.00000027679*COS(1.45663979401+7.16173111060*x);
L0:=L0+0.00000027187*COS(1.89731951902+1045.15483618760*x);
L0:=L0+0.00000037699*COS(4.51997049537+24.37902238820*x);
L0:=L0+0.00000034885*COS(4.46095761791+214.26230328450*x);
L0:=L0+0.00000032650*COS(0.66372395761+692.58748435350*x);
L0:=L0+0.00000030324*COS(5.30369950147+33.94024994380*x);
L0:=L0+0.00000027480*COS(6.22702216249+1.27202438720*x);
L0:=L0+0.00000026657*COS(4.56713198392+7.06536289100*x);
L0:=L0+0.00000031745*COS(5.49798599565+56.62235130260*x);
L0:=L0+0.00000028050*COS(5.64447420566+128.95626931510*x);
L0:=L0+0.00000024277*COS(3.93966553574+414.06801790380*x);
L0:=L0+0.00000032017*COS(5.22260660455+92.04707395470*x);
L0:=L0+0.00000026976*COS(0.06705123981+205.22234059070*x);
L0:=L0+0.00000022974*COS(3.65817751770+207.67002114550*x);
L0:=L0+0.00000031775*COS(5.59198119173+6069.77675455340*x);
L0:=L0+0.00000023153*COS(2.10054506119+1788.14489672020*x);
L0:=L0+0.00000031025*COS(0.37190053329+703.63318461740*x);
L0:=L0+0.00000029376*COS(0.14742155778+131.40394986990*x);
L0:=L0+0.00000022562*COS(5.24009182383+212.77783057620*x);
L0:=L0+0.00000026185*COS(5.41311252822+140.00196957900*x);
L0:=L0+0.00000025673*COS(4.36038885283+32.24332891440*x);
L0:=L0+0.00000020392*COS(2.82413909260+429.77958461370*x);
L0:=L0+0.00000020659*COS(0.67091805084+2317.83586181480*x);
L0:=L0+0.00000024397*COS(3.08740396398+145.63104387150*x);
L0:=L0+0.00000023735*COS(2.54365387567+76.26607127560*x);
L0:=L0+0.00000020157*COS(5.06708675157+617.80588578620*x);
L0:=L0+0.00000023307*COS(3.97357729211+483.22054217860*x);
L0:=L0+0.00000022878*COS(6.10452832642+177.87437278590*x);
L0:=L0+0.00000022978*COS(3.20140795404+208.63322899200*x);
L0:=L0+0.00000020638*COS(5.22128727027+6.59228213900*x);
L0:=L0+0.00000021446*COS(0.72034565528+1258.45393162560*x);
L0:=L0+0.00000018034*COS(6.11382719947+210.37833413120*x);
L0:=L0+0.00000022380*COS(5.92299908546+173.94221952280*x);
L0:=L0+0.00000019128*COS(5.77772013766+213.82036029980*x);
L0:=L0+0.00000020871*COS(5.79126331864+2531.13495725280*x);
L0:=L0+0.00000019327*COS(1.64147367403+565.11568774670*x);
L0:=L0+0.00000016806*COS(3.27953583323+98.89998852460*x);
L0:=L0+0.00000020833*COS(2.01655935909+860.30992875280*x);
L0:=L0+0.00000017939*COS(3.14329498012+831.85574074960*x);
L0:=L0+0.00000015653*COS(3.10137669623+106.27416795630*x);
L0:=L0+0.00000018235*COS(5.22595172482+73.29712585900*x);
L0:=L0+0.00000019302*COS(5.93947114050+425.11371816770*x);
L0:=L0+0.00000014514*COS(2.75049388379+1.22384027740*x);
L0:=L0+0.00000014562*COS(5.18795088579+305.34616939270*x);
L0:=L0+0.00000014254*COS(3.88079504939+54.17467074780*x);
L0:=L0+0.00000014594*COS(3.25016810034+78.71375183040*x);
L0:=L0+0.00000013637*COS(2.55486219141+405.25754987360*x);
L0:=L0+0.00000013914*COS(1.72356993808+69.15252427480*x);
L0:=L0+0.00000013689*COS(2.37430586272+125.98732389850*x);
L0:=L0+0.00000013496*COS(0.82683590985+99.91138048090*x);
L0:=L0+0.00000018483*COS(0.73171264866+9999.98645077300*x);
L0:=L0+0.00000013542*COS(3.58584380924+234.63973644040*x);
L0:=L0+0.00000013741*COS(6.18458356845+245.54242435240*x);
L0:=L0+0.00000016944*COS(0.72200792996+2111.65031337760*x);
L0:=L0+0.00000017441*COS(0.23803796878+134.58534360760*x);
L0:=L0+0.00000014181*COS(4.51963935804+59.80374504030*x);
L0:=L0+0.00000013598*COS(2.53776983965+1.69692102940*x);
L0:=L0+0.00000012240*COS(2.11973445754+28.31117565130*x);
L0:=L0+0.00000011988*COS(1.62114832786+1361.54670584420*x);
L0:=L0+0.00000011974*COS(4.07378735120+280.96714700450*x);
L0:=L0+0.00000012758*COS(5.31146919749+344.70304530790*x);
L0:=L0+0.00000016051*COS(3.97093160336+355.74874557180*x);
L0:=L0+0.00000011427*COS(5.51123470805+192.69216761850*x);
L0:=L0+0.00000013133*COS(4.69168003518+767.36908292080*x);
L0:=L0+0.00000014746*COS(3.28998910617+1589.07289528380*x);
L0:=L0+0.00000011417*COS(1.81615681635+2104.53676637680*x);
L0:=L0+0.00000011626*COS(2.79410384978+362.86229257260*x);
L0:=L0+0.00000013234*COS(4.16642914717+225.82926841020*x);
L0:=L0+0.00000010599*COS(5.50554288376+199.28444975750*x);
L0:=L0+0.00000010558*COS(3.57501718639+1.43628859850*x);
L0:=L0+0.00000010485*COS(2.84462532686+85.82729883120*x);
L0:=L0+0.00000010296*COS(0.22225264071+198.32124191100*x);
L0:=L0+0.00000010552*COS(0.18716643576+217.49188113200*x);
L0:=L0+0.00000011853*COS(0.11584857323+7.63481186260*x);
L0:=L0+0.00000010248*COS(0.21904154170+144.14657116320*x);
L0:=L0+0.00000010403*COS(1.68776321208+31.01948863700*x);
L0:=L0+0.00000010313*COS(4.72132701805+216.21985674480*x);
L0:=L0+0.00000010719*COS(2.60869377832+339.28641933650*x);
L0:=L0+0.00000009636*COS(3.66746262954+212.54833591260*x);
L0:=L0+0.00000009631*COS(3.34275630477+223.59403617650*x);
L0:=L0+0.00000009684*COS(0.41556436593+2634.22773147140*x);
L0:=L0+0.00000009885*COS(4.01798130416+207.14875628370*x);
L0:=L0+0.00000013212*COS(6.00683506785+214.78356814630*x);
L0:=L0+0.00000011346*COS(2.61898383052+7.86430652620*x);
L0:=L0+0.00000009158*COS(5.39855118256+342.25536475310*x);
L0:=L0+0.00000011882*COS(4.00188476744+267.47376618580*x);
L0:=L0+0.00000012054*COS(3.59904816676+124.43341522100*x);
L0:=L0+0.00000008921*COS(4.22716773496+6.36278747540*x);
L0:=L0+0.00000010142*COS(3.60807025662+14.01464568050*x);
L0:=L0+0.00000009350*COS(0.72255756005+347.88443904560*x);
L0:=L0+0.00000010529*COS(2.36779614951+831.10498122420*x);
L0:=L0+0.00000008587*COS(4.48439552745+1692.16566950240*x);
L0:=L0+0.00000010142*COS(3.93620624488+207.88246946660*x);
L0:=L0+0.00000009147*COS(4.28032835242+312.45971639350*x);
L0:=L0+0.00000008088*COS(0.81225752596+264.50482076920*x);
L0:=L0+0.00000009241*COS(4.26402650779+20.60692781950*x);
L0:=L0+0.00000009614*COS(0.64291347187+218.92816973050*x);
L0:=L0+0.00000008537*COS(0.48756672382+1574.84580128220*x);
L0:=L0+0.00000007986*COS(4.71088791079+333.65734504400*x);
L0:=L0+0.00000008951*COS(0.90641577433+497.44763618020*x);
L0:=L0+0.00000007959*COS(2.73277594136+4.14460158420*x);
L0:=L0+0.00000009133*COS(5.08250578843+241.61027108930*x);
L0:=L0+0.00000009669*COS(1.60623316904+0.89377187730*x);
L0:=L0+0.00000008883*COS(5.55491009279+2847.52682690940*x);
L0:=L0+0.00000008926*COS(5.80857835271+329.72519178090*x);
L0:=L0+0.00000007226*COS(0.60164771281+206.23373254700*x);
L0:=L0+0.00000007655*COS(5.53676341721+116.42609634290*x);
L0:=L0+0.00000007118*COS(0.18747501525+209.10630974400*x);
L0:=L0+0.00000007507*COS(5.43555636173+621.73803904930*x);
L0:=L0+0.00000008885*COS(5.36210591059+343.21857259960*x);
L0:=L0+0.00000007056*COS(0.41911130648+756.32338265690*x);
L0:=L0+0.00000008124*COS(4.05571025939+237.67811782620*x);
L0:=L0+0.00000008964*COS(1.65023927130+210.33015002140*x);
L0:=L0+0.00000006961*COS(3.17855200943+543.02428721890*x);
L0:=L0+0.00000008916*COS(0.56503620503+2428.04218303420*x);
L0:=L0+0.00000006926*COS(3.66869171435+247.23934538180*x);
L0:=L0+0.00000008982*COS(4.25046722481+46.47042291600*x);
L0:=L0+0.00000007089*COS(5.14399672225+231.45834270270*x);
L0:=L0+0.00000007381*COS(1.25092810119+217.96496188400*x);
L0:=L0+0.00000007134*COS(2.83090354854+1148.24761040620*x);
L0:=L0+0.00000006353*COS(0.82582711056+31.49256938900*x);
L0:=L0+0.00000007558*COS(5.62617378543+518.64526483070*x);
L0:=L0+0.00000006383*COS(3.54809945181+244.31858407500*x);
L0:=L0+0.00000006914*COS(3.70012837706+206.13736432740*x);
L0:=L0+0.00000006286*COS(5.79144749096+179.35884549420*x);
L0:=L0+0.00000006639*COS(4.55197585824+120.35824960600*x);
L0:=L0+0.00000005823*COS(1.40737990571+214.04985496340*x);
L0:=L0+0.00000005850*COS(4.86725483749+320.32402291970*x);
L0:=L0+0.00000006213*COS(1.07959478499+251.43213107580*x);
L0:=L0+0.00000007730*COS(3.82244175824+380.12776796000*x);
L0:=L0+0.00000005716*COS(1.34909972549+1677.93857550080*x);
L0:=L0+0.00000006469*COS(1.34776801494+188.92007304980*x);
L0:=L0+0.00000005668*COS(2.28643368177+20.44686912510*x);
L0:=L0+0.00000006092*COS(3.62275289839+1169.58825140860*x);
L0:=L0+0.00000005711*COS(0.51687421521+148.07872442630*x);
L0:=L0+0.00000005804*COS(1.54831552984+2420.92863603340*x);
L0:=L0+0.00000005703*COS(5.05993483230+2.96894541660*x);
L0:=L0+0.00000005913*COS(1.66225477547+842.15068148810*x);
L0:=L0+0.00000007449*COS(1.36195943673+166.82867252200*x);
L0:=L0+0.00000006482*COS(1.94032041024+357.44566660120*x);
L0:=L0+0.00000006368*COS(2.44556930837+654.12438031560*x);
L0:=L0+0.00000006327*COS(0.40654591365+168.05251279940*x);
L0:=L0+0.00000005573*COS(2.69383455663+750.10360753340*x);
L0:=L0+0.00000007216*COS(2.22547711392+488.84961647110*x);
L0:=L0+0.00000006701*COS(6.03737590382+160.60889739850*x);
L0:=L0+0.00000006938*COS(5.78362034410+700.66423920080*x);
L0:=L0+0.00000006701*COS(3.14738404371+491.81856188770*x);
L0:=L0+0.00000005684*COS(2.59531540359+1.64453140270*x);
L0:=L0+0.00000004900*COS(2.03902856851+0.80314915210*x);
L0:=L0+0.00000005147*COS(4.10182033298+196.62432088160*x);
L0:=L0+0.00000004985*COS(2.96765983996+258.87574647670*x);
L0:=L0+0.00000005911*COS(1.81507526918+252.65597135320*x);
L0:=L0+0.00000006056*COS(3.33431010543+182.27960680100*x);
L0:=L0+0.00000006195*COS(5.01900871714+273.10284047830*x);
L0:=L0+0.00000006316*COS(5.49053160191+206.70681329900*x);
L0:=L0+0.00000005529*COS(3.31498938717+1905.46476494040*x);
L0:=L0+0.00000005102*COS(3.98171453610+254.94359321360*x);
L0:=L0+0.00000004762*COS(2.24463685255+635.96513305090*x);
L0:=L0+0.00000005213*COS(0.53609344278+135.54855145410*x);
L0:=L0+0.00000004639*COS(0.04466373027+213.18722085340*x);
L0:=L0+0.00000005951*COS(0.54565487490+51.20572533120*x);
L0:=L0+0.00000004535*COS(0.16088614438+2950.61960112800*x);
L0:=L0+0.00000004639*COS(4.73769153591+213.41097002260*x);
L0:=L0+0.00000004716*COS(3.13636467789+28.57180808220*x);
L0:=L0+0.00000004748*COS(1.12156952989+6.21977512350*x);
L0:=L0+0.00000005735*COS(0.04425142145+348.84764689210*x);
L0:=L0+0.00000004334*COS(2.68814219154+81.75213321620*x);
L0:=L0+0.00000004538*COS(3.83676888638+487.36514376280*x);
L0:=L0+0.00000005582*COS(3.63486861028+248.72381809010*x);
L0:=L0+0.00000004106*COS(3.39164360376+50.40257617910*x);
L0:=L0+0.00000005657*COS(3.59967787362+282.45161971280*x);
L0:=L0+0.00000005145*COS(1.33329458239+173.68158709190*x);
L0:=L0+0.00000003898*COS(4.11804949361+213.51154375910*x);
L0:=L0+0.00000003898*COS(0.66430577257+213.08664711690*x);
L0:=L0+0.00000004418*COS(0.10784811796+905.88657979150*x);
L0:=L0+0.00000004935*COS(2.19060382431+189.72322220190*x);
L0:=L0+0.00000003799*COS(2.60752583205+546.95644048200*x);
L0:=L0+0.00000003960*COS(1.60339889010+218.71572140940*x);
L0:=L0+0.00000003740*COS(3.30724497407+274.06604832480*x);
L0:=L0+0.00000003778*COS(0.26606330942+636.71589257630*x);
L0:=L0+0.00000004657*COS(0.37532078548+2744.43405269080*x);
L0:=L0+0.00000003682*COS(5.11587898667+458.84151979040*x);
L0:=L0+0.00000004230*COS(5.18313062329+27.08733537390*x);
L0:=L0+0.00000005181*COS(3.75590784411+3127.31333126180*x);
L0:=L0+0.00000003904*COS(2.21738744557+358.93013930950*x);
L0:=L0+0.00000004784*COS(4.60666675927+72.07328558160*x);
L0:=L0+0.00000003552*COS(3.23789349146+543.91805909620*x);
L0:=L0+0.00000003502*COS(3.68869576093+41.64449777560*x);
L0:=L0+0.00000004803*COS(4.73553427126+240.38643081190*x);
L0:=L0+0.00000003768*COS(3.86077796242+2008.55753915900*x);
L0:=L0+0.00000003680*COS(5.36657425183+10.03430830760*x);
L0:=L0+0.00000004298*COS(3.15595944154+738.79727483860*x);
L0:=L0+0.00000003388*COS(0.73176365772+11.30633269480*x);
L0:=L0+0.00000003507*COS(2.62508475661+13.33332212430*x);
L0:=L0+0.00000003552*COS(0.28967392251+1891.23767093880*x);
L0:=L0+0.00000003604*COS(4.69324090480+295.05122865420*x);
L0:=L0+0.00000003621*COS(6.25264336426+129.91947716160*x);
L0:=L0+0.00000003334*COS(5.04221806054+153.49535039770*x);
L0:=L0+0.00000003837*COS(5.31732096284+3163.91869656600*x);
L0:=L0+0.00000003281*COS(5.59031570352+2.00573757010*x);
L0:=L0+0.00000004042*COS(2.37081308090+176.65053250850*x);
L0:=L0+0.00000003500*COS(2.54744268360+1464.63948006280*x);
L0:=L0+0.00000004144*COS(5.46982520458+6.90109867970*x);
L0:=L0+0.00000003691*COS(4.07518441665+969.62247809490*x);
L0:=L0+0.00000003947*COS(4.27108449197+181.80652604900*x);
L0:=L0+0.00000003867*COS(5.48643386310+37.87240320690*x);
L0:=L0+0.00000003339*COS(6.05372370584+9.40116886120*x);
L0:=L0+0.00000003484*COS(5.81097824751+13.49338081870*x);
L0:=L0+0.00000003033*COS(2.38897886651+221.37585028530*x);
L0:=L0+0.00000002990*COS(4.13995939326+66.70484372000*x);
L0:=L0+0.00000003746*COS(5.29902286106+561.18353448360*x);
L0:=L0+0.00000003233*COS(4.27743802321+593.42686339800*x);
L0:=L0+0.00000003170*COS(1.75400477770+235.39049596580*x);
L0:=L0+0.00000004114*COS(2.01006788412+601.76425067620*x);
L0:=L0+0.00000002937*COS(4.76351448561+213.55972786890*x);
L0:=L0+0.00000002932*COS(1.83671373509+501.37978944330*x);
L0:=L0+0.00000002937*COS(0.01884528825+213.03846300710*x);
L0:=L0+0.00000003268*COS(4.44653949711+60.76695288680*x);
L0:=L0+0.00000003608*COS(0.14307251176+552.58551477450*x);
L0:=L0+0.00000002947*COS(0.74753671556+17.52610781830*x);
L0:=L0+0.00000003979*COS(0.76931722276+424.15051032120*x);
L0:=L0+0.00000002803*COS(1.07518176128+1994.33044515740*x);
L0:=L0+0.00000002905*COS(1.27201007426+2737.32050569000*x);
L0:=L0+0.00000003610*COS(0.22394084000+121.25202148330*x);
L0:=L0+0.00000002846*COS(5.11748545179+205.66428357540*x);
L0:=L0+0.00000003156*COS(2.74955723696+494.26624244250*x);
L0:=L0+0.00000003576*COS(4.49826302447+167.08930495290*x);
L0:=L0+0.00000002746*COS(0.66908290712+7.00167241620*x);
L0:=L0+0.00000002780*COS(2.10066625279+894.84087952760*x);
L0:=L0+0.00000002875*COS(2.39009721774+151.04766984290*x);
L0:=L0+0.00000003020*COS(0.25475826890+40.84134862350*x);
L0:=L0+0.00000002731*COS(3.74814908509+429.04587143080*x);
L0:=L0+0.00000002793*COS(4.17938837230+292.01284726840*x);
L0:=L0+0.00000002706*COS(5.34438894925+327.43756992050*x);
L0:=L0+0.00000002965*COS(0.61653881148+643.82943957710*x);
L0:=L0+0.00000002616*COS(4.81901387560+681.54178408960*x);
L0:=L0+0.00000002548*COS(3.78162580820+1485.98012106520*x);
L0:=L0+0.00000003483*COS(5.76091147029+141.22580985640*x);
L0:=L0+0.00000003257*COS(0.75722680616+555.55446019110*x);
L0:=L0+0.00000002887*COS(6.15899159727+425.63498302950*x);
L0:=L0+0.00000002450*COS(1.29619859767+193.65537546500*x);
L0:=L0+0.00000003401*COS(2.48137843009+43.28902917830*x);
L0:=L0+0.00000003208*COS(0.66002842340+776.93031047640*x);
L0:=L0+0.00000002435*COS(4.58097103726+477.80391620720*x);
L0:=L0+0.00000002577*COS(1.41538858001+100.64509366380*x);
L0:=L0+0.00000002600*COS(3.73139519973+17.40848773930*x);
L0:=L0+0.00000002428*COS(1.04400815278+1279.79457262800*x);
L0:=L0+0.00000002569*COS(5.36004101928+7.22542158540*x);
L0:=L0+0.00000002844*COS(2.47228767650+280.00393915800*x);
L0:=L0+0.00000002847*COS(1.52706408796+17.26547538740*x);
L0:=L0+0.00000002461*COS(2.73899140465+172.24529849340*x);
L0:=L0+0.00000003228*COS(4.10258705369+618.55664531160*x);
L0:=L0+0.00000002288*COS(0.18365494079+426.64637498580*x);
L0:=L0+0.00000002952*COS(3.97748947007+650.94298657790*x);
L0:=L0+0.00000002653*COS(0.14255829255+162.89651925890*x);
L0:=L0+0.00000002291*COS(3.26940117011+426.55000676620*x);
L0:=L0+0.00000003118*COS(2.80941831445+2221.85663459700*x);
L0:=L0+0.00000002343*COS(4.24349768377+113.38771495710*x);
L0:=L0+0.00000002780*COS(4.36271946528+130.44074202340*x);
L0:=L0+0.00000002539*COS(5.58396427573+381.35160823740*x);
L0:=L0+0.00000002673*COS(2.74210116623+45.57665103870*x);
L0:=L0+0.00000003017*COS(3.72208070740+228.27694896500*x);
L0:=L0+0.00000002781*COS(0.36312756349+8.59801970910*x);
L0:=L0+0.00000002377*COS(4.49193242045+25.12978191360*x);
L0:=L0+0.00000002140*COS(5.43424670725+630.33605875840*x);
L0:=L0+0.00000002456*COS(1.71617205116+313.68355667090*x);
L0:=L0+0.00000002071*COS(2.40453395841+16.46232623530*x);
L0:=L0+0.00000002050*COS(6.19704773331+3267.01147078460*x);
L0:=L0+0.00000002764*COS(0.40107063007+219.44943459230*x);
L0:=L0+0.00000002307*COS(2.61462153778+26.82670294300*x);
L0:=L0+0.00000002650*COS(0.05892373791+5856.47765911540*x);
L0:=L0+0.00000001974*COS(2.15890150781+746.92221379570*x);
L0:=L0+0.00000001949*COS(3.13157993205+226.63241756230*x);
L0:=L0+0.00000002063*COS(0.75916097286+472.17484191470*x);
L0:=L0+0.00000002172*COS(1.41622302638+23.57587323610*x);
L0:=L0+0.00000002378*COS(3.45446288811+241.87090352020*x);
L0:=L0+0.00000002314*COS(2.92766120608+170.76082578510*x);
L0:=L0+0.00000002409*COS(1.55291842382+112.65400177420*x);
L0:=L0+0.00000002092*COS(4.33481587531+210.59078245230*x);
L0:=L0+0.00000001883*COS(4.75777119721+115.62294719080*x);
L0:=L0+0.00000001963*COS(5.63940648232+454.90936652730*x);
L0:=L0+0.00000001871*COS(2.14579836453+135.33610313300*x);
L0:=L0+0.00000002304*COS(0.11816226543+3060.82592234740*x);
L0:=L0+0.00000002221*COS(4.34506511014+556.51766803760*x);
L0:=L0+0.00000001867*COS(5.70943358261+19.12245511120*x);
L0:=L0+0.00000002269*COS(3.36100653157+696.51963761660*x);
L0:=L0+0.00000002127*COS(0.44754929310+216.00740842370*x);
L0:=L0+0.00000001807*COS(6.15427316170+5.84152261360*x);
L0:=L0+0.00000002213*COS(3.42223891884+533.62311835770*x);
L0:=L0+0.00000001866*COS(3.90535444843+220.36445832900*x);
L0:=L0+0.00000001767*COS(0.94232357739+213.45915413240*x);
L0:=L0+0.00000001767*COS(3.84003619647+213.13903674360*x);
L0:=L0+0.00000001910*COS(3.72504487558+104.05598206510*x);
L0:=L0+0.00000001750*COS(0.82378244287+220.46082654860*x);
L0:=L0+0.00000001838*COS(0.06310147657+436.15941843160*x);
L0:=L0+0.00000002146*COS(4.41415180481+184.09414790940*x);
L0:=L0+0.00000001730*COS(2.21039276178+416.30325013750*x);
L0:=L0+0.00000001715*COS(0.26601715797+103.14095832840*x);
L0:=L0+0.00000001710*COS(0.63515407580+181.05576652360*x);
L0:=L0+0.00000002307*COS(3.29544714308+569.04784100980*x);
L0:=L0+0.00000001906*COS(5.30639447218+405.99126305650*x);
L0:=L0+0.00000001863*COS(4.68613642432+286.59622129700*x);
L0:=L0+0.00000001873*COS(2.26516020863+1781.03134971940*x);
L0:=L0+0.00000002035*COS(3.85188859267+672.14061522840*x);
L0:=L0+0.00000002236*COS(3.01959133214+105.54045477340*x);
L0:=L0+0.00000001767*COS(1.45800271562+16.67477455640*x);
L0:=L0+0.00000001633*COS(0.16030477876+18.91000679010*x);
L0:=L0+0.00000002116*COS(2.90186702031+486.40193591630*x);
L0:=L0+0.00000002202*COS(3.88125957017+427.56139872250*x);
L0:=L0+0.00000001706*COS(3.35213628354+103.04459010880*x);
L0:=L0+0.00000001604*COS(2.48973273967+55.65914345610*x);
L0:=L0+0.00000001744*COS(1.83791106739+1044.40407666220*x);
L0:=L0+0.00000001569*COS(6.10089581118+106.01353552540*x);
L0:=L0+0.00000002081*COS(6.03810192844+916.93228005540*x);
L0:=L0+0.00000001799*COS(5.01592570405+731.94436026870*x);
L0:=L0+0.00000001737*COS(1.49651330833+25.86349509650*x);
L0:=L0+0.00000001695*COS(3.53314158403+627.36711334180*x);
L0:=L0+0.00000001543*COS(0.81384993001+2310.72231481400*x);
L0:=L0+0.00000001896*COS(3.38169845451+2324.94940881560*x);
L0:=L0+0.00000001926*COS(4.66519027283+353.30106501700*x);
L0:=L0+0.00000001765*COS(5.14740716994+107.28555991260*x);
L0:=L0+0.00000001556*COS(1.12431826916+230.82520325630*x);
L0:=L0+0.00000001843*COS(0.02435960281+102.12956637210*x);
L0:=L0+0.00000001501*COS(4.18415120927+194.17664032680*x);
L0:=L0+0.00000001528*COS(1.00328674046+3053.71237534660*x);
L0:=L0+0.00000001529*COS(5.58893570479+212.02707105080*x);
L0:=L0+0.00000001684*COS(5.08547245125+3480.31056622260*x);
L0:=L0+0.00000001461*COS(2.31020597821+721.64941953020*x);
L0:=L0+0.00000001480*COS(5.34331643017+418.52143602870*x);
L0:=L0+0.00000001601*COS(5.53623000915+391.17346822390*x);
L0:=L0+0.00000001893*COS(3.62340803433+204.70107572890*x);
L0:=L0+0.00000001529*COS(6.06535432009+77.96299230500*x);
L0:=L0+0.00000001529*COS(5.47660937625+214.57111982520*x);
L0:=L0+0.00000001552*COS(2.06693539836+36.64856292950*x);
L0:=L0+0.00000001453*COS(6.04709831442+165.60483224460*x);
L0:=L0+0.00000001393*COS(2.28253369060+403.02231763990*x);
L0:=L0+0.00000001444*COS(2.90650214018+447.93883187840*x);
L0:=L0+0.00000001924*COS(1.37028714759+468.24268865160*x);
L0:=L0+0.00000001426*COS(0.13255011458+2207.62954059540*x);
L0:=L0+0.00000001389*COS(2.21739183113+643.07868005170*x);
L0:=L0+0.00000001365*COS(1.63853880518+629.60234557550*x);
L0:=L0+0.00000001362*COS(3.35131049142+93.53154666300*x);
L0:=L0+0.00000001376*COS(5.36989538450+180.16199464630*x);
L0:=L0+0.00000001584*COS(0.85642767335+271.40591944890*x);
L0:=L0+0.00000001405*COS(5.69231057947+25.27279426550*x);
L0:=L0+0.00000001681*COS(5.30308110734+835.03713448730*x);
L0:=L0+0.00000001598*COS(3.04233449432+42.53826965290*x);
L0:=L0+0.00000001759*COS(3.59043066940+508.35032409220*x);
L0:=L0+0.00000001394*COS(4.55070863290+426.07692601420*x);
L0:=L0+0.00000001314*COS(1.81147178081+1382.88734684660*x);
L0:=L0+0.00000001281*COS(4.26508388040+123.53964334370*x);
L0:=L0+0.00000001742*COS(5.71133189432+22.89454967990*x);
L0:=L0+0.00000001483*COS(1.84687831602+289.56516671360*x);
L0:=L0+0.00000001257*COS(3.01131200921+409.92341631960*x);
L0:=L0+0.00000001285*COS(4.41168551011+558.00214074590*x);
L0:=L0+0.00000001355*COS(3.87115897452+1802.37199072180*x);
L0:=L0+0.00000001333*COS(0.08474224795+411.62033734900*x);
L0:=L0+0.00000001235*COS(4.08060394635+28.45418800320*x);
L0:=L0+0.00000001373*COS(5.06955106471+427.11945573780*x);
L0:=L0+0.00000001565*COS(2.32953532704+41.05379694460*x);
L0:=L0+0.00000001656*COS(6.06169130804+268.43697403230*x);
L0:=L0+0.00000001212*COS(3.05966957556+420.96911658350*x);
L0:=L0+0.00000001238*COS(5.25936700679+412.58354519550*x);
L0:=L0+0.00000001220*COS(3.92987038126+2.66012887590*x);
L0:=L0+0.00000001552*COS(1.48184004773+9786.68735533500*x);
L0:=L0+0.00000001240*COS(1.46716327302+291.26208774300*x);
L0:=L0+0.00000001133*COS(5.39046583617+423.67742956920*x);
L0:=L0+0.00000001319*COS(5.79905891015+1108.13997496560*x);
L0:=L0+0.00000001329*COS(0.92291650117+778.41478318470*x);
L0:=L0+0.00000001399*COS(2.55906860098+421.93232443000*x);
L0:=L0+0.00000001120*COS(3.86777259232+1033.35837639830*x);
L0:=L0+0.00000001164*COS(4.10048660918+685.47393735270*x);
L0:=L0+0.00000001321*COS(1.45843550806+1073.60902419080*x);
L0:=L0+0.00000001313*COS(0.11761534168+71.81265315070*x);
L0:=L0+0.00000001438*COS(2.57741975416+100.38446123290*x);
L0:=L0+0.00000001190*COS(5.63379509659+5.10780943070*x);
L0:=L0+0.00000001289*COS(5.20604565993+278.25883401880*x);
L0:=L0+0.00000001157*COS(5.00101860101+230.56457082540*x);
L0:=L0+0.00000001233*COS(2.70207317014+282.66406803390*x);
L0:=L0+0.00000001209*COS(4.02230498135+980.66817835880*x);
L0:=L0+0.00000001070*COS(5.17569455055+313.21047591890*x);
L0:=L0+0.00000001292*COS(4.30946655209+219.89137757700*x);
L0:=L0+0.00000001399*COS(2.58476795858+2538.24850425360*x);
L0:=L0+0.00000001038*COS(0.14212199680+820.05928096030*x);
L0:=L0+0.00000001245*COS(4.08278897130+525.75881183150*x);
L0:=L0+0.00000001254*COS(2.46275017735+457.61767951300*x);
L0:=L0+0.00000001021*COS(1.11239421009+69.36497259590*x);
L0:=L0+0.00000001009*COS(1.01709171385+143.93412284210*x);
L0:=L0+0.00000001075*COS(2.39196853318+48.75804477640*x);
L0:=L0+0.00000001180*COS(6.18938910429+3377.21779200400*x);
L0:=L0+0.00000000989*COS(5.94928603657+3583.40334044120*x);
L0:=L0+0.00000000972*COS(4.25434114756+397.39324334740*x);
L0:=L0+0.00000000983*COS(0.04442608551+140.96517742550*x);
L0:=L0+0.00000000972*COS(5.67683107883+422.40540518200*x);
L0:=L0+0.00000001298*COS(1.34524469231+875.83029900100*x);
L0:=L0+0.00000001190*COS(0.67933974618+699.70103135430*x);
L0:=L0+0.00000000950*COS(2.66964340700+92.30770638560*x);
L0:=L0+0.00000000933*COS(0.63000656580+406.95447090300*x);
L0:=L0+0.00000000959*COS(1.77556884452+67.66805156650*x);
L0:=L0+0.00000001185*COS(3.70140604185+285.63301345050*x);
L0:=L0+0.00000000956*COS(5.18928530992+319.31263096340*x);
L0:=L0+0.00000001014*COS(1.97449310063+2097.42321937600*x);
L0:=L0+0.00000001048*COS(3.69659410655+117.91056905120*x);
L0:=L0+0.00000001153*COS(2.53320305623+104.57724692690*x);
L0:=L0+0.00000001258*COS(2.51536062507+694.07195706180*x);
L0:=L0+0.00000000971*COS(5.19147635849+240.12579838100*x);
L0:=L0+0.00000000940*COS(3.94701776697+35.21227433100*x);
L0:=L0+0.00000001047*COS(6.12360979460+238.90195810360*x);
L0:=L0+0.00000001185*COS(5.28289734361+638.41281360570*x);
L0:=L0+0.00000000893*COS(0.95364488395+14.81779483260*x);
L0:=L0+0.00000001094*COS(3.93009679240+945.24345570670*x);
L0:=L0+0.00000000949*COS(3.46451925897+443.86366626340*x);
L0:=L0+0.00000001002*COS(3.18639902867+337.73251065900*x);
L0:=L0+0.00000001017*COS(2.87111101661+211.60217440860*x);
L0:=L0+0.00000000875*COS(0.58638080067+2.28762186040*x);
L0:=L0+0.00000000925*COS(1.54981519784+19.64371997300*x);
L0:=L0+0.00000001152*COS(1.68528608590+691.10301164520*x);
L0:=L0+0.00000000832*COS(2.64637256467+436.89313161450*x);
L0:=L0+0.00000000834*COS(3.88913521570+331.20966448920*x);
L0:=L0+0.00000000825*COS(2.15437872210+739.80866679490*x);
L0:=L0+0.00000000848*COS(3.18263239100+196.03362005060*x);
L0:=L0+0.00000001044*COS(3.87842686803+532.61172640140*x);
L0:=L0+0.00000000846*COS(5.38853773752+97.67614824720*x);
L0:=L0+0.00000001021*COS(2.93075488512+184.98791978670*x);
L0:=L0+0.00000000843*COS(6.12012061227+616.32141307790*x);
L0:=L0+0.00000000820*COS(1.01380400969+480.77286162380*x);
L0:=L0+0.00000000842*COS(3.56523575381+421.18156490460*x);
L0:=L0+0.00000001076*COS(3.28234305253+5.67725840230*x);
L0:=L0+0.00000000808*COS(2.78227865672+212.07525516060*x);
L0:=L0+0.00000000812*COS(0.94281737163+108.72184851110*x);
L0:=L0+0.00000000808*COS(2.21202653278+610.69233878540*x);
L0:=L0+0.00000000808*COS(2.00008111713+214.52293571540*x);
L0:=L0+0.00000000875*COS(2.14897461363+114.39910691340*x);
L0:=L0+0.00000000791*COS(2.35474255596+1.37259812370*x);
L0:=L0+0.00000000960*COS(0.25496742364+710.74673161820*x);
L0:=L0+0.00000001001*COS(2.34471240227+16.04163511000*x);
L0:=L0+0.00000000994*COS(0.63700664871+84.93352695390*x);
L0:=L0+0.00000000985*COS(2.63664920104+395.57870223900*x);
L0:=L0+0.00000000874*COS(2.59112594967+418.00017116690*x);
L0:=L0+0.00000000758*COS(0.58117487362+2627.11418447060*x);
L0:=L0+0.00000000894*COS(1.48976897396+760.25553592000*x);
L0:=L0+0.00000000768*COS(5.25095392845+305.08553696180*x);
L0:=L0+0.00000001020*COS(2.73153988233+268.95823889410*x);
L0:=L0+0.00000000903*COS(0.13224671457+238.42887735160*x);
L0:=L0+0.00000000750*COS(0.76128043194+724.83081326790*x);
L0:=L0+0.00000000903*COS(3.37105323370+526.50957135690*x);
L0:=L0+0.00000000930*COS(2.83622594110+2641.34127847220*x);
L0:=L0+0.00000000808*COS(5.23759255053+216.26804085460*x);
L0:=L0+0.00000000864*COS(1.22059443823+570.74476203920*x);
L0:=L0+0.00000000798*COS(3.72388187653+124.50285119020*x);
L0:=L0+0.00000000753*COS(0.72747041757+3370.10424500320*x);
L0:=L0+0.00000000844*COS(2.03251767810+511.53171782990*x);
L0:=L0+0.00000000827*COS(4.49936223096+444.75743814070*x);
L0:=L0+0.00000000848*COS(3.74330244183+2118.76386037840*x);
L0:=L0+0.00000000795*COS(0.27939057139+101.86893394120*x);
L0:=L0+0.00000000754*COS(5.68583497533+662.53120356300*x);
L0:=L0+0.00000000750*COS(4.78778128003+102.57150935680*x);
L0:=L0+0.00000000709*COS(1.64518562815+159.12442469020*x);
L0:=L0+0.00000000770*COS(4.02404991950+909.81873305460*x);
L0:=L0+0.00000000765*COS(1.62693133597+465.95506679120*x);
L0:=L0+0.00000000911*COS(5.04635658282+913.96333463880*x);
L0:=L0+0.00000000861*COS(2.78971410809+495.75071515080*x);
L0:=L0+0.00000000688*COS(1.10207467005+1.53686233500*x);
L0:=L0+0.00000000803*COS(4.33043919090+453.42489381900*x);
L0:=L0+0.00000000673*COS(0.03439333853+2524.02141025200*x);
L0:=L0+0.00000000856*COS(3.50639182375+439.12836384820*x);
L0:=L0+0.00000000684*COS(3.93906807606+337.80194662820*x);
L0:=L0+0.00000000716*COS(6.18909854987+310.71461125430*x);
L0:=L0+0.00000000922*COS(1.70634200320+125.18417474640*x);
L0:=L0+0.00000000885*COS(1.69955870744+6283.07584999140*x);
L0:=L0+0.00000000656*COS(1.28102954508+432.01481684740*x);
L0:=L0+0.00000000808*COS(1.64410808383+299.12639426920*x);
L0:=L0+0.00000000656*COS(1.49449164620+849.26422848890*x);
L0:=L0+0.00000000679*COS(4.02962984490+429.51895218280*x);
L0:=L0+0.00000000854*COS(3.04068731741+298.23262239190*x);
L0:=L0+0.00000000676*COS(2.17631477883+576.16138801060*x);
L0:=L0+0.00000000881*COS(5.47733557925+220.93390730060*x);
L0:=L0+0.00000000739*COS(5.85330901725+938.12990870590*x);
L0:=L0+0.00000000637*COS(2.96294462433+425.84743135060*x);
L0:=L0+0.00000000665*COS(1.62998758015+221.16340196420*x);
L0:=L0+0.00000000693*COS(3.53871697600+1182.92157353290*x);
L0:=L0+0.00000000659*COS(1.85319023888+72.33391801250*x);
L0:=L0+0.00000000631*COS(2.01234919422+58.10682401090*x);
L0:=L0+0.00000000806*COS(5.21763933753+428.08266358430*x);
L0:=L0+0.00000000804*COS(5.94281804567+26.02355379090*x);
L0:=L0+0.00000000679*COS(2.11784460940+256.42806592190*x);
L0:=L0+0.00000000692*COS(1.88791537515+214.99601646740*x);
L0:=L0+0.00000000731*COS(1.95762888351+19.01058052660*x);
L0:=L0+0.00000000786*COS(0.91252523635+518.38463239980*x);
L0:=L0+0.00000000684*COS(4.89288171806+3796.70243587920*x);
L0:=L0+0.00000000612*COS(2.08511492036+1038.04128918680*x);
L0:=L0+0.00000000598*COS(3.48814927085+219.66188291340*x);
L0:=L0+0.00000000828*COS(0.31689472200+25.60286266560*x);
L0:=L0+0.00000000773*COS(4.57524006328+624.91943278700*x);
L0:=L0+0.00000000775*COS(6.12920077021+432.22726516850*x);
L0:=L0+0.00000000820*COS(4.11320326130+141.48644228730*x);
L0:=L0+0.00000000588*COS(1.95775535412+211.86280683950*x);
L0:=L0+0.00000000661*COS(5.30100397707+103.61403908040*x);
L0:=L0+0.00000000588*COS(2.82460441973+214.73538403650*x);
L0:=L0+0.00000000651*COS(5.56732715834+393.46109008430*x);
L0:=L0+0.00000000564*COS(4.01666572198+850.01498801430*x);
L0:=L0+0.00000000657*COS(2.58166087726+526.98265210890*x);
L0:=L0+0.00000000722*COS(0.68494219480+953.10776223290*x);
L0:=L0+0.00000000592*COS(2.37190662490+205.43478891180*x);
L0:=L0+0.00000000738*COS(1.07981019512+239.16259053450*x);
L0:=L0+0.00000000590*COS(6.03587790219+188.02630117250*x);
L0:=L0+0.00000000559*COS(5.76010635813+430.79097657000*x);
L0:=L0+0.00000000535*COS(5.80499883199+100.17201291180*x);
L0:=L0+0.00000000611*COS(5.95439360100+3693.60966166060*x);
L0:=L0+0.00000000591*COS(4.22379888536+505.31194270640*x);
L0:=L0+0.00000000691*COS(2.96568305933+606.76018552230*x);
L0:=L0+0.00000000648*COS(2.33387623043+30.75885620610*x);
L0:=L0+0.00000000544*COS(2.21686115865+92.79783348010*x);
L0:=L0+0.00000000517*COS(2.68282421083+262.05714021440*x);
L0:=L0+0.00000000563*COS(1.69735688719+2413.81508903260*x);
L0:=L0+0.00000000569*COS(2.85075508949+227.31374111850*x);
L0:=L0+0.00000000531*COS(2.17713708433+263.02034806090*x);
L0:=L0+0.00000000504*COS(4.44947885193+343.73983746140*x);
L0:=L0+0.00000000578*COS(3.31462999801+33.72780162270*x);
L0:=L0+0.00000000619*COS(1.83409636127+867.42347575360*x);
L0:=L0+0.00000000546*COS(4.82201187196+1048.33622992530*x);
L0:=L0+0.00000000517*COS(1.42016110098+1246.65747183630*x);
L0:=L0+0.00000000681*COS(1.94124532036+25874.60404613620*x);
L0:=L0+0.00000000551*COS(5.70617358907+1119.18567522950*x);
L0:=L0+0.00000000523*COS(5.78878978812+366.79444583570*x);
L0:=L0+0.00000000486*COS(1.90063955671+1063.31408345230*x);
L0:=L0+0.00000000552*COS(3.64325031166+256.58812461630*x);
L0:=L0+0.00000000612*COS(2.39349965241+2854.64037391020*x);
L0:=L0+0.00000000495*COS(3.46833581240+597.35901666110*x);
L0:=L0+0.00000000622*COS(1.86539391351+524.01370669230*x);
L0:=L0+0.00000000480*COS(5.33557742428+29.20494752860*x);
L0:=L0+0.00000000492*COS(4.64109549618+384.05992122310*x);
L0:=L0+0.00000000520*COS(2.32171681836+2957.73314812880*x);
L0:=L0+0.00000000545*COS(0.53274778710+431.26405732200*x);
L0:=L0+0.00000000479*COS(2.13325177240+319.57326339430*x);
L0:=L0+0.00000000526*COS(4.17771910249+136.06981631590*x);
L0:=L0+0.00000000612*COS(4.56148986681+774.48262992160*x);
L0:=L0+0.00000000642*COS(3.25195912708+67.88049988760*x);
L0:=L0+0.00000000527*COS(4.00299045889+2435.15573003500*x);
L0:=L0+0.00000000524*COS(4.69817741494+336.83873878170*x);
L0:=L0+0.00000000495*COS(5.95703962647+765.88461021250*x);
L0:=L0+0.00000000463*COS(6.09780322600+54.33472944220*x);
L0:=L0+0.00000000538*COS(0.22116216124+450.97721326420*x);
L0:=L0+0.00000000465*COS(1.87487942848+958.57677783100*x);
L0:=L0+0.00000000500*COS(1.54084756342+572.22923474750*x);
L0:=L0+0.00000000528*COS(3.54764543325+233.90602325750*x);
L0:=L0+0.00000000451*COS(5.72664397006+3899.79521009780*x);
L0:=L0+0.00000000514*COS(5.00509609437+273.85360000370*x);
L0:=L0+0.00000000471*COS(2.96871670899+306.83064210100*x);
L0:=L0+0.00000000447*COS(1.87279400375+62.03897727400*x);
L0:=L0+0.00000000456*COS(5.45521998520+1171.87587326900*x);
L0:=L0+0.00000000499*COS(1.92821778530+217.44369702220*x);
L0:=L0+0.00000000548*COS(3.21873307934+824.74219374880*x);
L0:=L0+0.00000000579*COS(2.29424247924+810.65811209910*x);
L0:=L0+0.00000000550*COS(0.67875196590+315.16802937920*x);
L0:=L0+0.00000000556*COS(1.30277646899+133.10087089930*x);
L0:=L0+0.00000000449*COS(6.05954557724+141.69889060840*x);
L0:=L0+0.00000000447*COS(5.83737433218+823.99143422340*x);
L0:=L0+0.00000000517*COS(3.62832879827+934.94851496820*x);
L0:=L0+0.00000000482*COS(1.04855231956+1055.44977692610*x);
L0:=L0+0.00000000482*COS(4.07207792722+195.89060769870*x);
L0:=L0+0.00000000428*COS(0.65142455407+427.34895040140*x);
L0:=L0+0.00000000585*COS(5.48406138684+376.19561469690*x);
L0:=L0+0.00000000469*COS(3.87344294455+320.58465535060*x);
L0:=L0+0.00000000488*COS(2.83523964260+460.53844081980*x);
L0:=L0+0.00000000450*COS(4.30419652064+88.11492069160*x);
L0:=L0+0.00000000537*COS(0.85582040238+214.19286731530*x);
L0:=L0+0.00000000438*COS(1.32216133929+963.40270297140*x);
L0:=L0+0.00000000560*COS(2.50374228728+952.09637027660*x);
L0:=L0+0.00000000442*COS(2.80002649649+209.15449385380*x);
L0:=L0+0.00000000443*COS(4.31062007978+9992.87290377220*x);
L0:=L0+0.00000000469*COS(0.45235276525+464.73122651380*x);
L0:=L0+0.00000000488*COS(0.35817443686+36.90919536040*x);
L0:=L0+0.00000000418*COS(4.81080887468+775.23338944700*x);
L0:=L0+0.00000000417*COS(4.93943593579+306.09692891810*x);
L0:=L0+0.00000000483*COS(3.92847922420+39.61750834610*x);
L0:=L0+0.00000000467*COS(1.89153069484+30.05628079050*x);
L0:=L0+0.00000000410*COS(5.52148731635+118.07062774560*x);
L0:=L0+0.00000000406*COS(1.35991757653+945.99421523210*x);
L0:=L0+0.00000000446*COS(4.06656112480+380.38840039090*x);
L0:=L0+0.00000000466*COS(3.65954736664+988.53248488500*x);
L0:=L0+0.00000000418*COS(1.40185532806+313.94418910180*x);
L0:=L0+0.00000000481*COS(1.80873987903+43.12897048390*x);
L0:=L0+0.00000000437*COS(0.86746182155+170.97327410620*x);
L0:=L0+0.00000000483*COS(4.49894122772+46.20979048510*x);
L0:=L0+0.00000000398*COS(2.90977731924+131.54696222180*x);
L0:=L0+0.00000000529*COS(3.74604329884+699.17976649250*x);
L0:=L0+0.00000000396*COS(0.34033987778+2943.50605412720*x);
L0:=L0+0.00000000545*COS(2.97400965609+305.60680182360*x);
L0:=L0+0.00000000412*COS(3.81935995126+84.34282612290*x);
L0:=L0+0.00000000425*COS(2.60672101181+121.84272231430*x);
L0:=L0+0.00000000474*COS(2.41769418569+838.21852822500*x);
L0:=L0+0.00000000457*COS(1.27246488727+107.75864066460*x);
L0:=L0+0.00000000519*COS(3.12247974037+10213.28554621100*x);
L0:=L0+0.00000000495*COS(4.63705386984+301.41401612960*x);
L0:=L0+0.00000000537*COS(3.92653937147+212.40532356070*x);
L0:=L0+0.00000000385*COS(3.33476325050+806.72595883600*x);
L0:=L0+0.00000000477*COS(1.66001855277+175.42669223110*x);
L0:=L0+0.00000000378*COS(0.47722247042+200.55647414470*x);
L0:=L0+0.00000000459*COS(5.14821844812+960.22130923370*x);
L0:=L0+0.00000000401*COS(4.36420932544+739.05790726950*x);
L0:=L0+0.00000000467*COS(2.96423984091+170.01006625970*x);
L0:=L0+0.00000000457*COS(4.45829983338+33.13710079170*x);
L0:=L0+0.00000000476*COS(3.63257697985+20.49505323490*x);
L0:=L0+0.00000000462*COS(3.57494442856+71.60020482960*x);
L0:=L0+0.00000000376*COS(2.94770389653+6062.66320755260*x);
L0:=L0+0.00000000473*COS(5.32759318114+373.90799283650*x);
L0:=L0+0.00000000383*COS(1.84111991862+346.39996633730*x);
L0:=L0+0.00000000366*COS(2.05039240297+87.31177153950*x);
L0:=L0+0.00000000383*COS(2.00608370504+3274.12501778540*x);
L0:=L0+0.00000000374*COS(5.65444305031+540.73666535850*x);
L0:=L0+0.00000000410*COS(5.62629715297+58.31927233200*x);
L0:=L0+0.00000000441*COS(6.26992749567+378.90392768260*x);
L0:=L0+0.00000000451*COS(3.05920369737+898.77303279070*x);
L0:=L0+0.00000000371*COS(5.65787287655+89.75945209430*x);
L0:=L0+0.00000000367*COS(5.71998148487+96.87299909510*x);
L0:=L0+0.00000000410*COS(1.06290837961+1257.70317210020*x);
L0:=L0+0.00000000418*COS(2.03053179312+146.59425171800*x);
L0:=L0+0.00000000492*COS(0.89529424356+423.62924545940*x);
L0:=L0+0.00000000474*COS(2.43080822444+705.11765732570*x);
L0:=L0+0.00000000457*COS(3.42347802916+829.62050851590*x);
L0:=L0+0.00000000419*COS(0.32183412086+90.56260124640*x);
L0:=L0+0.00000000347*COS(3.60116807440+449.23210812500*x);
L0:=L0+0.00000000397*COS(2.29159647723+782.34693644780*x);
L0:=L0+0.00000000433*COS(3.40938468811+32.45577723550*x);
L0:=L0+0.00000000343*COS(4.30952656038+401.32539661050*x);
L0:=L0+0.00000000351*COS(0.42160026295+3686.49611465980*x);
L0:=L0+0.00000000360*COS(5.83204569879+491.55792945680*x);
L0:=L0+0.00000000389*COS(2.73429108352+36.17548217750*x);
L0:=L0+0.00000000434*COS(0.33664392528+55.13787859430*x);
L0:=L0+0.00000000346*COS(5.09191837323+392.65794093220*x);
L0:=L0+0.00000000336*COS(2.38696934868+295.19424100610*x);
L0:=L0+0.00000000336*COS(1.56832822829+233.74596456310*x);
L0:=L0+0.00000000400*COS(3.08774286568+745.91082183940*x);
L0:=L0+0.00000000468*COS(4.21298903633+832.58945393250*x);
L0:=L0+0.00000000400*COS(1.32415028336+551.10104206620*x);
L0:=L0+0.00000000344*COS(1.52193307438+754.83890994860*x);
L0:=L0+0.00000000433*COS(3.06696455642+885.43971066640*x);
L0:=L0+0.00000000346*COS(4.76971433870+4113.09430553580*x);
L0:=L0+0.00000000329*COS(3.31034285904+952.35700270750*x);
L0:=L0+0.00000000425*COS(2.90590905341+462.02291352810*x);
L0:=L0+0.00000000342*COS(5.87738962422+561.93429400900*x);
L0:=L0+0.00000000439*COS(0.20791179302+768.85355562910*x);
L0:=L0+0.00000000330*COS(2.08599193524+614.62449204850*x);
L0:=L0+0.00000000394*COS(3.59805431851+1261.63532536330*x);
L0:=L0+0.00000000369*COS(6.03075127328+199.80571461930*x);
L0:=L0+0.00000000375*COS(2.56075851331+732.69511979410*x);
L0:=L0+0.00000000408*COS(0.69233617038+328.24071907260*x);
L0:=L0+0.00000000331*COS(4.28333309370+541.53981451060*x);
L0:=L0+0.00000000323*COS(0.06694179304+433.75992198660*x);
L0:=L0+0.00000000431*COS(4.50603340920+2914.01423582380*x);
L0:=L0+0.00000000343*COS(2.18898146246+80.19822453870*x);
L0:=L0+0.00000000437*COS(5.34124436008+387.24131496080*x);
L0:=L0+0.00000000371*COS(4.82569229712+103.35340664950*x);
L0:=L0+0.00000000318*COS(3.75720880396+749.20983565610*x);
L0:=L0+0.00000000344*COS(0.70749566894+229.97386999440*x);
L0:=L0+0.00000000312*COS(6.02741985422+361.37781986430*x);
L0:=L0+0.00000000340*COS(0.64358874512+303.86169668440*x);
L0:=L0+0.00000000394*COS(0.49801994278+248.46318565920*x);
L0:=L0+0.00000000309*COS(5.83535487659+236.19364511790*x);
L0:=L0+0.00000000325*COS(2.65292455786+757.21715453420*x);
L0:=L0+0.00000000365*COS(0.56788400592+402.21916848780*x);
L0:=L0+0.00000000342*COS(3.83450185886+519.39602435610*x);
L0:=L0+0.00000000306*COS(0.35126074897+354.99798604640*x);
L0:=L0+0.00000000314*COS(5.42086935152+1151.42900414390*x);
L0:=L0+0.00000000384*COS(0.09367760642+201.51968199120*x);
L0:=L0+0.00000000307*COS(5.62165090342+426.48631629140*x);
L0:=L0+0.00000000301*COS(1.78550205039+1354.43315884340*x);
L0:=L0+0.00000000300*COS(5.23426324539+190.40454575810*x);
L0:=L0+0.00000000296*COS(3.15801280224+192.85222631290*x);
L0:=L0+0.00000000381*COS(1.98600461808+109.94568878850*x);
L0:=L0+0.00000000370*COS(5.57659190517+562.14674233010*x);
L0:=L0+0.00000000305*COS(2.73187068494+840.66620877980*x);
L0:=L0+0.00000000374*COS(3.73375594662+420.44785172170*x);
L0:=L0+0.00000000307*COS(4.03149340189+426.71006546060*x);
L0:=L0+0.00000000320*COS(1.42665180100+2730.20695868920*x);
L0:=L0+0.00000000392*COS(0.14343294900+206.39799675830*x);
L0:=L0+0.00000000288*COS(2.44787565138+623.22251175760*x);
L0:=L0+0.00000000344*COS(1.57825843162+6290.18939699220*x);
L0:=L0+0.00000000317*COS(1.84490263693+214.94362684070*x);
L0:=L0+0.00000000346*COS(2.16849893508+3171.03224356680*x);
L0:=L0+0.00000000286*COS(1.01623455966+315.64111013120*x);
L0:=L0+0.00000000361*COS(3.44807605339+259.76951835400*x);
L0:=L0+0.00000000280*COS(4.64272946177+254.14044406150*x);
L0:=L0+0.00000000285*COS(2.09430258387+335.14181775230*x);
L0:=L0+0.00000000281*COS(4.72136141979+317.14262918200*x);
L0:=L0+0.00000000289*COS(4.70265740009+29.74746424980*x);
L0:=L0+0.00000000290*COS(2.74360609522+551.03160609700*x);
L0:=L0+0.00000000300*COS(5.23308974173+1321.43907040360*x);
L0:=L0+0.00000000283*COS(1.21193797828+1699.27921650320*x);
L0:=L0+0.00000000280*COS(0.45877292284+38.60611638980*x);
L0:=L0+0.00000000273*COS(1.81952809851+1056.20053645150*x);
L0:=L0+0.00000000336*COS(5.63115066542+95.22846769240*x);
L0:=L0+0.00000000309*COS(3.33676739908+1193.96727379680*x);
L0:=L0+0.00000000288*COS(2.57603349418+1166.40685767090*x);
L0:=L0+0.00000000277*COS(3.35359995343+532.87235883230*x);
L0:=L0+0.00000000287*COS(0.37229115993+114.94162363460*x);
L0:=L0+0.00000000274*COS(4.21164027953+90.82323367730*x);
L0:=L0+0.00000000267*COS(5.61367132586+870.46185713940*x);
L0:=L0+0.00000000376*COS(6.14391456675+913.00012679230*x);
L0:=L0+0.00000000296*COS(5.75705165982+4010.00153131720*x);
L0:=L0+0.00000000304*COS(1.97982468634+495.96316347190*x);
L0:=L0+0.00000000308*COS(5.08911712262+481.73606947030*x);
L0:=L0+0.00000000265*COS(0.02893016561+172.45774681450*x);
L0:=L0+0.00000000291*COS(2.10106037916+619.29035849450*x);
L0:=L0+0.00000000273*COS(4.78343050572+771.30123618390*x);
L0:=L0+0.00000000358*COS(0.04093867464+637.44960575920*x);
L0:=L0+0.00000000272*COS(5.86505586319+332.17287233570*x);
L0:=L0+0.00000000266*COS(3.28626000731+560.71045373160*x);
L0:=L0+0.00000000312*COS(3.91213951915+1226.21060271120*x);
L0:=L0+0.00000000258*COS(3.41185135958+426.81063919710*x);
L0:=L0+0.00000000257*COS(1.06772454181+714.67888488130*x);
L0:=L0+0.00000000258*COS(6.24129294573+426.38574255490*x);
L0:=L0+0.00000000256*COS(0.75289096697+103.84353374400*x);
L0:=L0+0.00000000254*COS(3.21116652124+102.34201469320*x);
L0:=L0+0.00000000254*COS(6.14632777985+620.25356634100*x);
L0:=L0+0.00000000266*COS(2.54280196709+132.88842257820*x);
L0:=L0+0.00000000314*COS(0.31303204249+991.71387862270*x);
L0:=L0+0.00000000317*COS(2.93589163442+357.23321828010*x);
L0:=L0+0.00000000266*COS(6.12280636670+57.51612317990*x);
L0:=L0+0.00000000254*COS(2.99730079627+642.34496686880*x);
L0:=L0+0.00000000267*COS(5.54663413439+628.59095361920*x);
L0:=L0+0.00000000348*COS(1.33319249154+815.06334611420*x);
L0:=L0+0.00000000278*COS(5.59573741920+334.55111692130*x);
L0:=L0+0.00000000303*COS(3.22789148979+409.18970313670*x);
L0:=L0+0.00000000246*COS(3.90430259983+441.57604440300*x);
L0:=L0+0.00000000260*COS(3.86355293530+639.37602145220*x);
L0:=L0+0.00000000250*COS(0.07635434166+2840.41327990860*x);
L0:=L0+0.00000000246*COS(5.71009371698+476.31944349890*x);
L0:=L0+0.00000000301*COS(6.15272106984+559.69906177530*x);
L0:=L0+0.00000000268*COS(3.73809606804+658.05653357870*x);
L0:=L0+0.00000000316*COS(4.63035287047+745.27768239300*x);
L0:=L0+0.00000000311*COS(3.51827727424+2751.54759969160*x);
L0:=L0+0.00000000239*COS(0.51133317457+1041.22268292450*x);
L0:=L0+0.00000000238*COS(5.46347279420+4216.18707975440*x);
L0:=L0+0.00000000262*COS(3.20254407166+1251.34038462480*x);
L0:=L0+0.00000000238*COS(1.02679111743+1262.38608488870*x);
L0:=L0+0.00000000277*COS(3.32996713394+545.47196777370*x);
L0:=L0+0.00000000271*COS(0.49229846069+419.53282798500*x);
L0:=L0+0.00000000303*COS(3.77087511317+285.37238101960*x);
L0:=L0+0.00000000234*COS(3.64328189368+407.47573576480*x);
L0:=L0+0.00000000270*COS(3.93080966194+313.47110834980*x);
L0:=L0+0.00000000302*COS(3.15201610429+915.23535902600*x);
L0:=L0+0.00000000264*COS(0.46127639727+720.89866000480*x);
L0:=L0+0.00000000235*COS(1.74238582338+369.08206769610*x);
L0:=L0+0.00000000284*COS(5.20345848078+395.10562148700*x);
L0:=L0+0.00000000295*COS(5.03016292492+594.65070367540*x);
L0:=L0+0.00000000290*COS(1.94941528794+907.37105249980*x);
L0:=L0+0.00000000229*COS(0.11049722694+3259.89792378380*x);
L0:=L0+0.00000000304*COS(1.81516929363+49.72125262290*x);
L0:=L0+0.00000000268*COS(5.54944666204+12352.85260454480*x);
L0:=L0+0.00000000248*COS(4.39993603541+385.54439393140*x);
L0:=L0+0.00000000234*COS(1.63365119249+3590.51688744200*x);
L0:=L0+0.00000000317*COS(4.74907646809+420.00590873700*x);
L0:=L0+0.00000000228*COS(4.89094697746+1181.43710082460*x);
L0:=L0+0.00000000258*COS(2.41510535278+550.13783421970*x);
L0:=L0+0.00000000236*COS(4.10002766188+6467.92575796160*x);
L0:=L0+0.00000000249*COS(1.97767956861+589.49471013490*x);
L0:=L0+0.00000000226*COS(1.60308230318+316.27999507200*x);
L0:=L0+0.00000000286*COS(6.10513234736+484.70501488690*x);
L0:=L0+0.00000000299*COS(3.71741328977+1123.11782849260*x);
L0:=L0+0.00000000263*COS(1.85502475341+608.87779767700*x);
L0:=L0+0.00000000220*COS(0.94624116595+316.50374424120*x);
L0:=L0+0.00000000292*COS(3.12099513976+47.69426319340*x);
L0:=L0+0.00000000217*COS(4.93010394323+281.17959532560*x);
L0:=L0+0.00000000295*COS(3.18346450625+1050.99635880120*x);
L0:=L0+0.00000000248*COS(5.48523310249+638.93407846750*x);
L0:=L0+0.00000000276*COS(1.09325899753+544.50875992720*x);
L0:=L0+0.00000000279*COS(2.65446123759+134.11226285560*x);
L0:=L0+0.00000000247*COS(4.17284927352+950.13881681630*x);
L0:=L0+0.00000000212*COS(2.45582771491+1164.76232626820*x);
L0:=L0+0.00000000266*COS(2.30028827109+314.90739694830*x);
L0:=L0+0.00000000215*COS(3.55148746518+1097.09427470170*x);
L0:=L0+0.00000000223*COS(0.36862624591+81.89514556810*x);
L0:=L0+0.00000000283*COS(0.35013012349+1269.49963188950*x);
L0:=L0+0.00000000263*COS(0.58255768951+386.98068252990*x);
L0:=L0+0.00000000208*COS(4.61303945066+668.20846196530*x);
L0:=L0+0.00000000222*COS(4.51639912193+304.12232911530*x);
L0:=L0+0.00000000274*COS(0.63572336701+679.25416222920*x);
L0:=L0+0.00000000215*COS(0.74685271552+1008.97935401010*x);
L0:=L0+0.00000000268*COS(3.43326489941+598.84348936940*x);
L0:=L0+0.00000000271*COS(3.98364990268+453.68552624990*x);
L0:=L0+0.00000000215*COS(2.24139383226+661.23792731640*x);
L0:=L0+0.00000000264*COS(2.58516335032+2527.20280398970*x);
L0:=L0+0.00000000205*COS(1.94472028389+650.19222705250*x);
L0:=L0+0.00000000258*COS(1.50724315598+1759.83372106890*x);
L0:=L0+0.00000000272*COS(6.27135287672+990.22940591440*x);
L0:=L0+0.00000000201*COS(1.11891338895+97.41551581630*x);
L0:=L0+0.00000000236*COS(4.13547185065+348.63519857100*x);
L0:=L0+0.00000000201*COS(2.67485193508+1546.53462563090*x);
L0:=L0+0.00000000250*COS(5.44391862722+1254.52177836250*x);
L0:=L0+0.00000000203*COS(5.48660442144+557.03893289940*x);
L0:=L0+0.00000000250*COS(0.32142312427+25448.00585526019*x);
L0:=L0+0.00000000198*COS(0.91019549387+1310.39337013970*x);
L0:=L0+0.00000000200*COS(0.90438804926+47.06112374700*x);
L0:=L0+0.00000000194*COS(4.05730813129+426.85882330690*x);
L0:=L0+0.00000000197*COS(0.58292199999+156.67674413540*x);
L0:=L0+0.00000000197*COS(2.59384188520+639.84910220420*x);
L0:=L0+0.00000000201*COS(1.49980256114+827.92358748650*x);
L0:=L0+0.00000000197*COS(5.79126360809+639.94547042380*x);
L0:=L0+0.00000000266*COS(1.45514683392+109.24311337290*x);
L0:=L0+0.00000000239*COS(4.63640382863+868.71675200020*x);
L0:=L0+0.00000000194*COS(5.59582424111+426.33755844510*x);
L0:=L0+0.00000000247*COS(2.91348766248+689.61853893690*x);
L0:=L0+0.00000000205*COS(1.04616771894+448.68959140380*x);
L0:=L0+0.00000000232*COS(1.76503818816+354.26427286350*x);
L0:=L0+0.00000000224*COS(3.45391027762+1190.03512053370*x);
L0:=L0+0.00000000221*COS(6.27951545913+1596.18644228460*x);
L0:=L0+0.00000000237*COS(1.24961141369+882.94384600180*x);
L0:=L0+0.00000000206*COS(5.17010664247+253.45912050530*x);
L0:=L0+0.00000000203*COS(0.25518217825+4002.88798431640*x);
L0:=L0+0.00000000245*COS(3.94368773869+769.81676347560*x);
L0:=L0+0.00000000255*COS(6.11790751550+763.43692965770*x);
L0:=L0+0.00000000194*COS(2.83197251801+263.70167161710*x);
L0:=L0+0.00000000237*COS(2.14007373880+2700.71514038580*x);
L0:=L0+0.00000000203*COS(3.00078001542+1385.17496870700*x);
L0:=L0+0.00000000203*COS(3.88000057282+419.43645976540*x);
L0:=L0+0.00000000186*COS(4.79530535895+843.63515419640*x);
L0:=L0+0.00000000203*COS(0.16707173895+535.91074021810*x);
L0:=L0+0.00000000245*COS(0.76762638475+5643.17856367740*x);
L0:=L0+0.00000000183*COS(2.20151176434+35.16409022120*x);
L0:=L0+0.00000000242*COS(3.41613986919+864.24208201590*x);
L0:=L0+0.00000000249*COS(3.47840802421+1045.88854937050*x);
L0:=L0+0.00000000199*COS(4.70077509959+1276.61317889030*x);
L0:=L0+0.00000000189*COS(1.84247610390+434.67494572330*x);
L0:=L0+0.00000000192*COS(3.83148077309+666.72398925700*x);
L0:=L0+0.00000000201*COS(1.34290804373+1012.91150727320*x);
L0:=L0+0.00000000210*COS(5.12097279511+3494.53766022420*x);
L0:=L0+0.00000000192*COS(1.36630036429+904.40210708320*x);
L0:=L0+0.00000000195*COS(1.62629576534+364.34676528090*x);
L0:=L0+0.00000000179*COS(1.66502999050+244.79166482700*x);
L0:=L0+0.00000000186*COS(4.55663748319+347.41135829360*x);
L0:=L0+0.00000000201*COS(0.50219680740+36.38793049860*x);
L0:=L0+0.00000000179*COS(4.55153097409+97.46369992610*x);
L0:=L0+0.00000000200*COS(0.68398141887+2015.67108615980*x);
L0:=L0+0.00000000195*COS(2.20599546209+66.18357885820*x);
L0:=L0+0.00000000186*COS(4.48925201018+611.44309831080*x);
L0:=L0+0.00000000186*COS(3.13663606153+433.66355376700*x);
L0:=L0+0.00000000177*COS(3.62811326217+326.68681039510*x);
L0:=L0+0.00000000206*COS(0.38552475035+857.12853501510*x);
L0:=L0+0.00000000229*COS(1.22330638216+2906.90068882300*x);
L0:=L0+0.00000000213*COS(6.08436923028+271.61836777000*x);
L0:=L0+0.00000000174*COS(6.18833529233+3576.28979344040*x);
L0:=L0+0.00000000220*COS(2.89866380776+322.61164478010*x);
L0:=L0+0.00000000202*COS(2.43755817264+812.14258480740*x);
L0:=L0+0.00000000211*COS(4.27999470527+1127.26243007680*x);
L0:=L0+0.00000000188*COS(0.97173474238+1080.72257119160*x);
L0:=L0+0.00000000168*COS(0.65008064023+1493.09366806600*x);
L0:=L0+0.00000000208*COS(4.68942071563+5429.87946823940*x);
L0:=L0+0.00000000182*COS(0.76058628096+504.56118318100*x);
L0:=L0+0.00000000167*COS(6.22608046965+108.50940019000*x);
L0:=L0+0.00000000176*COS(2.08816807487+670.91677495100*x);
L0:=L0+0.00000000170*COS(1.55680702386+1670.82502850000*x);
L0:=L0+0.00000000187*COS(4.12687876136+9985.75935677140*x);
L0:=L0+0.00000000166*COS(1.58596354370+1379.70595310890*x);
L0:=L0+0.00000000170*COS(1.30946662341+837.69726336320*x);
L0:=L0+0.00000000166*COS(0.02413278965+224.60542813280*x);
L0:=L0+0.00000000204*COS(6.12072939658+9360.08916445900*x);
L0:=L0+0.00000000189*COS(0.28191962964+1175.80802653210*x);
L0:=L0+0.00000000184*COS(2.87461093640+398.14400287280*x);
L0:=L0+0.00000000172*COS(5.41410693088+2306.79016155090*x);
L0:=L0+0.00000000174*COS(0.94052578814+632.03297978780*x);
L0:=L0+0.00000000181*COS(2.20017945285+1049.08698945070*x);
L0:=L0+0.00000000176*COS(1.09857632660+531.97858695500*x);
L0:=L0+0.00000000201*COS(2.68411933635+795.68025857210*x);
L0:=L0+0.00000000197*COS(1.43444932583+347.36317418380*x);
L0:=L0+0.00000000200*COS(4.33954193534+1364.72809958190*x);
L0:=L0+0.00000000166*COS(2.83936872840+3553.91152213780*x);
L0:=L0+0.00000000160*COS(1.28778451384+962.50893109410*x);
L0:=L0+0.00000000206*COS(3.02518737424+1141.13406340540*x);
L0:=L0+0.00000000200*COS(5.54644533685+308.31511480930*x);
L0:=L0+0.00000000158*COS(4.75462437610+1534.73816584160*x);
L0:=L0+0.00000000156*COS(3.42359004405+241.75328344120*x);
L0:=L0+0.00000000182*COS(5.26192506263+968.13800538660*x);
L0:=L0+0.00000000168*COS(0.37055108740+10007.09999777380*x);
L0:=L0+0.00000000174*COS(4.61279044571+223.33340374560*x);
L0:=L0+0.00000000158*COS(4.23116519562+821.70381236300*x);
L0:=L0+0.00000000212*COS(5.98406058023+432.74853003030*x);
L0:=L0+0.00000000160*COS(4.08093018212+632.73555520340*x);
L0:=L0+0.00000000179*COS(5.74376301842+924.04582705620*x);
L0:=L0+0.00000000185*COS(3.01715709315+55.87159177720*x);
L0:=L0+0.00000000185*COS(0.75718598244+1286.90811962880*x);
L0:=L0+0.00000000170*COS(3.46903106526+1304.92435454160*x);
L0:=L0+0.00000000167*COS(3.19767851189+635.23141986800*x);
L0:=L0+0.00000000153*COS(3.83006208210+318.67949151700*x);
L0:=L0+0.00000000156*COS(1.61558494091+110.25450532920*x);
L0:=L0+0.00000000206*COS(1.62702696825+389.94962794650*x);
L0:=L0+0.00000000184*COS(3.31730160238+1578.02719501990*x);
L0:=L0+0.00000000184*COS(6.19913208096+731.68372783780*x);
L0:=L0+0.00000000158*COS(5.58628906712+42.32582133180*x);
L0:=L0+0.00000000159*COS(2.00727485442+702.14871190910*x);
L0:=L0+0.00000000155*COS(0.02889842368+1357.61455258110*x);
L0:=L0+0.00000000151*COS(5.80616069064+680.05731138130*x);
L0:=L0+0.00000000157*COS(5.67235483479+77837.11123384659*x);
L0:=L0+0.00000000156*COS(2.78001360754+1567.73225428140*x);
L0:=L0+0.00000000203*COS(5.91820261629+971.10695080320*x);
L0:=L0+0.00000000156*COS(5.68482948401+649.45851386960*x);
L0:=L0+0.00000000186*COS(5.72093247348+664.27630870220*x);
L0:=L0+0.00000000184*COS(4.05878767739+976.73602509570*x);
L0:=L0+0.00000000159*COS(3.10978439502+230.70758317730*x);
L0:=L0+0.00000000154*COS(4.54479813612+1239.54392483550*x);
L0:=L0+0.00000000177*COS(4.68148789757+2921.12778282460*x);
L0:=L0+0.00000000158*COS(4.30854435851+633.74694715970*x);
L0:=L0+0.00000000195*COS(5.33376523453+1130.23137549340*x);
L0:=L0+0.00000000188*COS(2.04023570497+1127.04998175570*x);
L0:=L0+0.00000000174*COS(2.88817750136+25668.41849769900*x);
L0:=L0+0.00000000161*COS(2.96300008890+152.74459087230*x);
L0:=L0+0.00000000170*COS(1.70779560770+493.30303459600*x);
L0:=L0+0.00000000156*COS(3.05331862578+913.75088631770*x);
L0:=L0+0.00000000169*COS(3.18325334507+757.80785536520*x);
L0:=L0+0.00000000145*COS(0.89672198690+632.83192342300*x);
L0:=L0+0.00000000149*COS(2.69519361988+203.26478713040*x);
L0:=L0+0.00000000167*COS(2.96547549589+1201.83158032300*x);
L0:=L0+0.00000000187*COS(3.17592113403+842.90144101350*x);
L0:=L0+0.00000000173*COS(1.91528836350+3487.42411322340*x);
L0:=L0+0.00000000154*COS(0.37169915171+285.11174858870*x);
L0:=L0+0.00000000198*COS(3.14620903981+640.86049416050*x);
L0:=L0+0.00000000143*COS(3.42760427364+520.12973753900*x);
L0:=L0+0.00000000157*COS(2.34913118792+5959.57043333400*x);
L0:=L0+0.00000000178*COS(5.34566184657+272.58157561650*x);
L0:=L0+0.00000000171*COS(3.34185265551+3067.93946934820*x);
L0:=L0+0.00000000171*COS(4.87848878292+354.52490529440*x);
L0:=L0+0.00000000189*COS(0.07069084691+1585.89150154610*x);
L0:=L0+0.00000000137*COS(1.28925665885+214.10224459010*x);
L0:=L0+0.00000000137*COS(3.49438482900+212.49594628590*x);
L0:=L0+0.00000000174*COS(3.07450555579+64.95973858080*x);
L0:=L0+0.00000000181*COS(0.78652249647+657.16276170140*x);
L0:=L0+0.00000000158*COS(2.93809799392+211.65456403530*x);
L0:=L0+0.00000000133*COS(5.70724173596+469.72716135990*x);
L0:=L0+0.00000000140*COS(0.35530248121+219.51887056150*x);
L0:=L0+0.00000000132*COS(1.60614108449+1372.59240610810*x);
L0:=L0+0.00000000164*COS(1.68236348359+707.56533788050*x);
L0:=L0+0.00000000128*COS(1.49742950959+45.24658263860*x);
L0:=L0+0.00000000132*COS(4.98075995751+238.57188970350*x);
L0:=L0+0.00000000140*COS(3.62845435388+423.88987789030*x);
L0:=L0+0.00000000134*COS(1.41837795083+3906.90875709860*x);
L0:=L0+0.00000000127*COS(1.48966646069+856.37777548970*x);
L0:=L0+0.00000000158*COS(2.57990141197+369.97583957340*x);
L0:=L0+0.00000000132*COS(2.39662455993+184.72728735580*x);
L0:=L0+0.00000000140*COS(4.36785639279+207.07932031450*x);
L0:=L0+0.00000000157*COS(4.56655940808+251.17149864490*x);
L0:=L0+0.00000000125*COS(4.60433583965+6076.89030155420*x);
L0:=L0+0.00000000121*COS(1.59513269211+184.84490743480*x);
L0:=L0+0.00000000145*COS(5.85121885906+221.89711514710*x);
L0:=L0+0.00000000137*COS(0.76499603885+476.10699517780*x);
L0:=L0+0.00000000139*COS(6.02467582226+429.30650386170*x);
L0:=L0+0.00000000117*COS(0.23611722307+426.75824957040*x);
L0:=L0+0.00000000117*COS(3.13382984215+426.43813218160*x);
L0:=L0+0.00000000116*COS(4.34801448720+418.96337901340*x);
L0:=L0+0.00000000135*COS(2.69789181467+455.16999895820*x);
L0:=L0+0.00000000134*COS(1.19058772772+502.86426215160*x);
L0:=L0+0.00000000123*COS(3.97560160218+499.89531673500*x);
L0:=L0+0.00000000110*COS(2.37032413718+439.93151300030*x);
L0:=L0+0.00000000109*COS(6.20303291896+220.30076785420*x);
L0:=L0+0.00000000109*COS(1.38979633175+325.95309721220*x);
L0:=L0+0.00000000115*COS(0.05845336809+631.82053146670*x);
L0:=L0+0.00000000139*COS(2.21086387259+9573.38825989700*x);
L0:=L0+0.00000000142*COS(6.14666228712+3340.61242669980*x);
L0:=L0+0.00000000122*COS(4.77182119272+604.47256366190*x);
L0:=L0+0.00000000119*COS(3.03461367061+528.20649238630*x);
L0:=L0+0.00000000127*COS(2.97263950543+498.93210888850*x);
L0:=L0+0.00000000111*COS(5.01192320232+220.20019411770*x);
L0:=L0+0.00000000126*COS(3.95743516129+566.60016045500*x);
L0:=L0+0.00000000098*COS(2.36210526249+634.26821202150*x);
L0:=L0+0.00000000108*COS(2.46872857126+83.37961827640*x);
L0:=L0+0.00000000101*COS(4.88259474274+425.32616648880*x);
L0:=L0+0.00000000127*COS(4.89006771254+162.09337010680*x);
L0:=L0+0.00000000099*COS(0.90073463816+586.31331639720*x);
L0:=L0+0.00000000099*COS(0.16310526294+394.35486196160*x);
L0:=L0+0.00000000115*COS(0.49160291262+517.16079212240*x);
L0:=L0+0.00000000101*COS(3.86043866859+198.10879358990*x);
L0:=L0+0.00000000105*COS(3.48222097813+5863.59120611620*x);
L0:=L0+0.00000000104*COS(4.61148354671+220.52451702340*x);
L0:=L0+0.00000000101*COS(4.77041950285+427.87021526320*x);
L0:=L0+0.00000000098*COS(2.90784721214+199.96577331370*x);
L0:=L0+0.00000000127*COS(0.14136936897+2332.06295581640*x);
L0:=L0+0.00000000091*COS(6.22628300117+211.29335786790*x);
L0:=L0+0.00000000100*COS(5.14847283436+226.79247625670*x);
L0:=L0+0.00000000091*COS(4.84054379386+215.30483300810*x);
L0:=L0+0.00000000099*COS(4.37583492400+640.41855117580*x);
L0:=L0+0.00000000093*COS(5.30395179617+222.70026429920*x);
L0:=L0+0.00000000086*COS(4.57481701854+636.97652500720*x);
L0:=L0+0.00000000111*COS(0.61102669309+1089.12939443900*x);
L0:=L0+0.00000000086*COS(4.50969293872+625.88264063350*x);
L0:=L0+0.00000000088*COS(0.36828594935+444.12429869430*x);
L0:=L0+0.00000000093*COS(5.76287499885+203.89792657680*x);
L0:=L0+0.00000000082*COS(2.85558603378+318.83955021140*x);
L0:=L0+0.00000000082*COS(5.19618475111+1467.82087380050*x);
L0:=L0+0.00000000086*COS(0.97633784601+200.03520928290*x);
L0:=L0+0.00000000082*COS(4.78557953017+195.77298761970*x);
L0:=L0+0.00000000106*COS(2.29520624233+799.61241183520*x);
L0:=L0+0.00000000081*COS(3.57727166766+205.97310011610*x);
L0:=L0+0.00000000078*COS(5.50343512580+262.80789973980*x);
L0:=L0+0.00000000087*COS(0.76830756075+201.99276274320*x);
L0:=L0+0.00000000102*COS(2.11516755277+206.93630796260*x);
L0:=L0+0.00000000081*COS(5.29639775054+111.16952906590*x);
L0:=L0+0.00000000075*COS(2.77117107886+255.83736509090*x);
L0:=L0+0.00000000074*COS(5.81587984729+316.44005376640*x);
L0:=L0+0.00000000076*COS(1.78743197928+171.65459766240*x);
L0:=L0+0.00000000094*COS(4.99996904753+378.64329525170*x);
L0:=L0+0.00000000089*COS(5.85818860151+807.94979911340*x);
L0:=L0+0.00000000072*COS(0.99858616883+280.21638747910*x);
L0:=L0+0.00000000099*COS(0.15018241445+186.21176006410*x);
L0:=L0+0.00000000072*COS(5.15715918322+110.15813710960*x);

LOCAL L1:=0;
L1:=L1+213.54295595986;
L1:=L1+0.01296855005*COS(1.82820544701+213.29909543800*x);
L1:=L1+0.00564347566*COS(2.88500136429+7.11354700080*x);
L1:=L1+0.00098323030*COS(1.08070061328+426.59819087600*x);
L1:=L1+0.00107678770*COS(2.27769911872+206.18554843720*x);
L1:=L1+0.00040254586*COS(2.04128257090+220.41264243880*x);
L1:=L1+0.00019941734*COS(1.27954662736+103.09277421860*x);
L1:=L1+0.00010511706*COS(2.74880392800+14.22709400160*x);
L1:=L1+0.00006939233*COS(0.40493079985+639.89728631400*x);
L1:=L1+0.00004803325*COS(2.44194097666+419.48464387520*x);
L1:=L1+0.00004056325*COS(2.92166618776+110.20632121940*x);
L1:=L1+0.00003768630*COS(3.64965631460+3.93215326310*x);
L1:=L1+0.00003384684*COS(2.41694251653+3.18139373770*x);
L1:=L1+0.00003302200*COS(1.26256486715+433.71173787680*x);
L1:=L1+0.00003071382*COS(2.32739317750+199.07200143640*x);
L1:=L1+0.00001953036*COS(3.56394683300+11.04570026390*x);
L1:=L1+0.00001249348*COS(2.62803737519+95.97922721780*x);
L1:=L1+0.00000921683*COS(1.96089834250+227.52618943960*x);
L1:=L1+0.00000705587*COS(4.41689249330+529.69096509460*x);
L1:=L1+0.00000649654*COS(6.17418093659+202.25339517410*x);
L1:=L1+0.00000627603*COS(6.11088227167+309.27832265580*x);
L1:=L1+0.00000486843*COS(6.03998200305+853.19638175200*x);
L1:=L1+0.00000468377*COS(4.61707843907+63.73589830340*x);
L1:=L1+0.00000478501*COS(4.98776987984+522.57741809380*x);
L1:=L1+0.00000417010*COS(2.11708169277+323.50541665740*x);
L1:=L1+0.00000407630*COS(1.29949556676+209.36694217490*x);
L1:=L1+0.00000343826*COS(3.95854178574+412.37109687440*x);
L1:=L1+0.00000339724*COS(3.63396398752+316.39186965660*x);
L1:=L1+0.00000335936*COS(3.77173072712+735.87651353180*x);
L1:=L1+0.00000331933*COS(2.86077699882+210.11770170030*x);
L1:=L1+0.00000352489*COS(2.31707079463+632.78373931320*x);
L1:=L1+0.00000289429*COS(2.73263080235+117.31986822020*x);
L1:=L1+0.00000265801*COS(0.54344631312+647.01083331480*x);
L1:=L1+0.00000230493*COS(1.64428879621+216.48048917570*x);
L1:=L1+0.00000280911*COS(5.74398845416+2.44768055480*x);
L1:=L1+0.00000191667*COS(2.96512946582+224.34479570190*x);
L1:=L1+0.00000172891*COS(4.07695221044+846.08283475120*x);
L1:=L1+0.00000167131*COS(2.59745202658+21.34064100240*x);
L1:=L1+0.00000136328*COS(2.28580246629+10.29494073850*x);
L1:=L1+0.00000131364*COS(3.44108355646+742.99006053260*x);
L1:=L1+0.00000127838*COS(4.09533471247+217.23124870110*x);
L1:=L1+0.00000108862*COS(6.16141072262+415.55249061210*x);
L1:=L1+0.00000093909*COS(3.48397279899+1052.26838318840*x);
L1:=L1+0.00000092482*COS(3.94755499926+88.86568021700*x);
L1:=L1+0.00000097584*COS(4.72845436677+838.96928775040*x);
L1:=L1+0.00000086600*COS(1.21951325061+440.82528487760*x);
L1:=L1+0.00000083463*COS(3.11269504725+625.67019231240*x);
L1:=L1+0.00000077588*COS(6.24408938835+302.16477565500*x);
L1:=L1+0.00000061557*COS(1.82789612597+195.13984817330*x);
L1:=L1+0.00000061900*COS(4.29344363385+127.47179660680*x);
L1:=L1+0.00000067106*COS(0.28961738595+4.66586644600*x);
L1:=L1+0.00000056919*COS(5.01889578112+137.03302416240*x);
L1:=L1+0.00000054160*COS(5.12628572382+490.33408917940*x);
L1:=L1+0.00000054585*COS(0.28356341456+74.78159856730*x);
L1:=L1+0.00000051425*COS(1.45766406064+536.80451209540*x);
L1:=L1+0.00000065843*COS(5.64757042732+9.56122755560*x);
L1:=L1+0.00000057780*COS(2.47630552035+191.95845443560*x);
L1:=L1+0.00000044444*COS(2.70873627665+5.41662597140*x);
L1:=L1+0.00000046799*COS(1.17721211050+149.56319713460*x);
L1:=L1+0.00000040380*COS(3.88870105683+728.76296653100*x);
L1:=L1+0.00000037768*COS(2.53379013859+12.53017297220*x);
L1:=L1+0.00000046649*COS(5.14818326902+515.46387109300*x);
L1:=L1+0.00000045891*COS(2.23198878761+956.28915597060*x);
L1:=L1+0.00000040400*COS(0.41281520440+269.92144674060*x);
L1:=L1+0.00000037191*COS(3.78239026411+2.92076130680*x);
L1:=L1+0.00000033778*COS(3.21070688046+1368.66025284500*x);
L1:=L1+0.00000037969*COS(0.64665967180+422.66603761290*x);
L1:=L1+0.00000032857*COS(0.30063884563+351.81659230870*x);
L1:=L1+0.00000033050*COS(5.43038091186+1066.49547719000*x);
L1:=L1+0.00000030276*COS(2.84067004928+203.00415469950*x);
L1:=L1+0.00000035116*COS(6.08421794089+5.62907429250*x);
L1:=L1+0.00000029667*COS(3.39052569135+1059.38193018920*x);
L1:=L1+0.00000033217*COS(4.64063092111+277.03499374140*x);
L1:=L1+0.00000031876*COS(4.38622923770+1155.36115740700*x);
L1:=L1+0.00000028913*COS(2.02614760507+330.61896365820*x);
L1:=L1+0.00000028264*COS(2.74178953996+265.98929347750*x);
L1:=L1+0.00000030089*COS(6.18684614308+284.14854074220*x);
L1:=L1+0.00000031329*COS(2.43455855525+52.69019803950*x);
L1:=L1+0.00000026493*COS(4.51214170121+340.77089204480*x);
L1:=L1+0.00000021983*COS(5.14437352579+4.19278569400*x);
L1:=L1+0.00000022230*COS(1.96481952451+203.73786788240*x);
L1:=L1+0.00000020824*COS(6.16048095923+860.30992875280*x);
L1:=L1+0.00000021690*COS(2.67578768862+942.06206196900*x);
L1:=L1+0.00000022552*COS(5.88579123000+210.85141488320*x);
L1:=L1+0.00000019807*COS(2.31345263487+437.64389113990*x);
L1:=L1+0.00000019447*COS(4.76573277668+70.84944530420*x);
L1:=L1+0.00000019310*COS(4.10209060369+18.15924726470*x);
L1:=L1+0.00000022662*COS(4.13732273379+191.20769491020*x);
L1:=L1+0.00000018209*COS(0.90310796389+429.77958461370*x);
L1:=L1+0.00000017667*COS(1.84954766042+234.63973644040*x);
L1:=L1+0.00000017547*COS(2.44735118493+423.41679713830*x);
L1:=L1+0.00000015428*COS(4.23790088205+1162.47470440780*x);
L1:=L1+0.00000014608*COS(3.59713247857+1045.15483618760*x);
L1:=L1+0.00000014111*COS(2.94262468353+1685.05212250160*x);
L1:=L1+0.00000016328*COS(4.05665272725+949.17560896980*x);
L1:=L1+0.00000013348*COS(6.24509592240+38.13303563780*x);
L1:=L1+0.00000015918*COS(1.06434204938+56.62235130260*x);
L1:=L1+0.00000014059*COS(1.43503954068+408.43894361130*x);
L1:=L1+0.00000013093*COS(5.75815864257+138.51749687070*x);
L1:=L1+0.00000015772*COS(5.59350835225+6.15033915430*x);
L1:=L1+0.00000014962*COS(5.77192239389+22.09140052780*x);
L1:=L1+0.00000016024*COS(1.93900586533+1272.68102562720*x);
L1:=L1+0.00000016751*COS(5.96673627422+628.85158605010*x);
L1:=L1+0.00000012843*COS(4.24658666814+405.25754987360*x);
L1:=L1+0.00000013628*COS(4.09892958087+1471.75302706360*x);
L1:=L1+0.00000015067*COS(0.74142807591+200.76892246580*x);
L1:=L1+0.00000010961*COS(1.55022573283+223.59403617650*x);
L1:=L1+0.00000011695*COS(1.81237511034+124.43341522100*x);
L1:=L1+0.00000010346*COS(3.46814088412+1375.77379984580*x);
L1:=L1+0.00000012056*COS(1.85655834555+131.40394986990*x);
L1:=L1+0.00000010123*COS(2.38221133049+107.02492748170*x);
L1:=L1+0.00000009855*COS(3.95166998848+430.53034413910*x);
L1:=L1+0.00000009803*COS(2.55389483994+99.91138048090*x);
L1:=L1+0.00000010614*COS(5.36692189034+215.74677599280*x);
L1:=L1+0.00000012080*COS(4.84549317054+831.85574074960*x);
L1:=L1+0.00000010210*COS(6.07692961370+32.24332891440*x);
L1:=L1+0.00000009245*COS(3.65417467270+142.44965013380*x);
L1:=L1+0.00000008984*COS(1.23808405498+106.27416795630*x);
L1:=L1+0.00000009336*COS(5.81062768434+7.16173111060*x);
L1:=L1+0.00000009717*COS(1.38703872827+145.63104387150*x);
L1:=L1+0.00000008394*COS(4.42341211111+703.63318461740*x);
L1:=L1+0.00000008370*COS(5.64015188458+62.25142559510*x);
L1:=L1+0.00000008244*COS(2.42225929772+1258.45393162560*x);
L1:=L1+0.00000007784*COS(0.52562994711+654.12438031560*x);
L1:=L1+0.00000007626*COS(3.75258725596+312.19908396260*x);
L1:=L1+0.00000007222*COS(0.28429555677+0.75075952540*x);
L1:=L1+0.00000008236*COS(6.22250515902+14.97785352700*x);
L1:=L1+0.00000007054*COS(0.53177810740+388.46515523820*x);
L1:=L1+0.00000006567*COS(3.48657341701+35.42472265210*x);
L1:=L1+0.00000009011*COS(4.94919626910+208.63322899200*x);
L1:=L1+0.00000008980*COS(0.08138173719+288.08069400530*x);
L1:=L1+0.00000006421*COS(3.32905264657+1361.54670584420*x);
L1:=L1+0.00000006489*COS(2.89389587598+114.13847448250*x);
L1:=L1+0.00000006244*COS(0.54973852782+65.22037101170*x);
L1:=L1+0.00000006154*COS(2.67885860584+2001.44399215820*x);
L1:=L1+0.00000006742*COS(0.23586769279+8.07675484730*x);
L1:=L1+0.00000007297*COS(4.85321224483+222.86032299360*x);
L1:=L1+0.00000006302*COS(3.80651124694+1788.14489672020*x);
L1:=L1+0.00000005824*COS(4.39327457448+81.75213321620*x);
L1:=L1+0.00000006102*COS(0.88585782895+92.04707395470*x);
L1:=L1+0.00000006914*COS(2.04631426723+99.16062095550*x);
L1:=L1+0.00000005363*COS(5.47995103139+563.63121503840*x);
L1:=L1+0.00000005172*COS(2.11968421583+214.26230328450*x);
L1:=L1+0.00000005117*COS(5.76987684107+565.11568774670*x);
L1:=L1+0.00000006197*COS(1.62553688800+1589.07289528380*x);
L1:=L1+0.00000004970*COS(0.41949366126+76.26607127560*x);
L1:=L1+0.00000006640*COS(5.82582210639+483.22054217860*x);
L1:=L1+0.00000005277*COS(4.57975789757+134.58534360760*x);
L1:=L1+0.00000004974*COS(4.20243895902+404.50679034820*x);
L1:=L1+0.00000005150*COS(4.67582673243+212.33588759150*x);
L1:=L1+0.00000004764*COS(4.59303997414+554.06998748280*x);
L1:=L1+0.00000004573*COS(3.24875415786+231.45834270270*x);
L1:=L1+0.00000004811*COS(0.46206327592+362.86229257260*x);
L1:=L1+0.00000005148*COS(3.33570646174+1.48447270830*x);
L1:=L1+0.00000004654*COS(5.80233066659+217.96496188400*x);
L1:=L1+0.00000004509*COS(5.37581684215+497.44763618020*x);
L1:=L1+0.00000004443*COS(0.11349392292+295.05122865420*x);
L1:=L1+0.00000004943*COS(3.78020789259+1265.56747862640*x);
L1:=L1+0.00000004211*COS(4.88306021960+98.89998852460*x);
L1:=L1+0.00000004252*COS(5.00120115113+213.34727954780*x);
L1:=L1+0.00000004774*COS(4.53259894142+1148.24761040620*x);
L1:=L1+0.00000003911*COS(0.58582192963+750.10360753340*x);
L1:=L1+0.00000005069*COS(2.20305668335+207.88246946660*x);
L1:=L1+0.00000003553*COS(0.35374030841+333.65734504400*x);
L1:=L1+0.00000003771*COS(0.98542435766+24.37902238820*x);
L1:=L1+0.00000003458*COS(1.84990273999+225.82926841020*x);
L1:=L1+0.00000003401*COS(5.31342401626+347.88443904560*x);
L1:=L1+0.00000003347*COS(0.21414641376+635.96513305090*x);
L1:=L1+0.00000003637*COS(1.61315058382+245.54242435240*x);
L1:=L1+0.00000003416*COS(2.19551489078+1574.84580128220*x);
L1:=L1+0.00000003655*COS(0.80544245690+343.21857259960*x);
L1:=L1+0.00000004260*COS(1.80258750109+213.25091132820*x);
L1:=L1+0.00000003110*COS(3.03815175282+1677.93857550080*x);
L1:=L1+0.00000003052*COS(1.33858964447+543.91805909620*x);
L1:=L1+0.00000003694*COS(0.81606028298+344.70304530790*x);
L1:=L1+0.00000003016*COS(3.36219319026+7.86430652620*x);
L1:=L1+0.00000002937*COS(4.86927342776+144.14657116320*x);
L1:=L1+0.00000002768*COS(2.42707131609+2317.83586181480*x);
L1:=L1+0.00000003059*COS(4.30820099442+6062.66320755260*x);
L1:=L1+0.00000003650*COS(5.12802531219+218.92816973050*x);
L1:=L1+0.00000002963*COS(3.53480751374+2104.53676637680*x);
L1:=L1+0.00000003230*COS(2.88057019783+216.21985674480*x);
L1:=L1+0.00000002984*COS(2.52971310583+1692.16566950240*x);
L1:=L1+0.00000002897*COS(5.73256482240+9992.87290377220*x);
L1:=L1+0.00000002591*COS(3.79880285744+17.26547538740*x);
L1:=L1+0.00000003495*COS(5.29902525443+350.33211960040*x);
L1:=L1+0.00000002859*COS(3.72804950659+6076.89030155420*x);
L1:=L1+0.00000002775*COS(0.23549396237+357.44566660120*x);
L1:=L1+0.00000002976*COS(2.48769315964+46.47042291600*x);
L1:=L1+0.00000002487*COS(4.37868078530+217.49188113200*x);
L1:=L1+0.00000002711*COS(5.15376840150+10007.09999777380*x);
L1:=L1+0.00000003127*COS(1.92343235583+17.40848773930*x);
L1:=L1+0.00000003181*COS(1.72419900322+1169.58825140860*x);
L1:=L1+0.00000002348*COS(0.77373103004+414.06801790380*x);
L1:=L1+0.00000002606*COS(3.42836913440+31.01948863700*x);
L1:=L1+0.00000002556*COS(0.91735028377+479.28838891550*x);
L1:=L1+0.00000002399*COS(4.82440545738+1279.79457262800*x);
L1:=L1+0.00000002245*COS(3.76323995584+425.11371816770*x);
L1:=L1+0.00000003020*COS(0.25310250109+120.35824960600*x);
L1:=L1+0.00000002503*COS(2.10679832121+168.05251279940*x);
L1:=L1+0.00000002564*COS(1.63158205055+182.27960680100*x);
L1:=L1+0.00000002221*COS(3.15472373256+212.77783057620*x);
L1:=L1+0.00000002357*COS(2.33145013714+218.71572140940*x);
L1:=L1+0.00000002510*COS(4.51903989011+198.32124191100*x);
L1:=L1+0.00000002715*COS(5.76330259543+618.55664531160*x);
L1:=L1+0.00000002204*COS(3.35952557362+160.60889739850*x);
L1:=L1+0.00000002648*COS(0.71962005233+85.82729883120*x);
L1:=L1+0.00000002029*COS(5.28642331696+125.98732389850*x);
L1:=L1+0.00000002497*COS(1.36671447252+1905.46476494040*x);
L1:=L1+0.00000002017*COS(1.11498225426+447.93883187840*x);
L1:=L1+0.00000002052*COS(1.27587874735+14.01464568050*x);
L1:=L1+0.00000002254*COS(3.22447674190+273.10284047830*x);
L1:=L1+0.00000002014*COS(0.39787014152+358.93013930950*x);
L1:=L1+0.00000001981*COS(2.33696859021+28.45418800320*x);
L1:=L1+0.00000002197*COS(5.93386789705+13.33332212430*x);
L1:=L1+0.00000002237*COS(3.64433751164+213.82036029980*x);
L1:=L1+0.00000001930*COS(1.85671740340+1.27202438720*x);
L1:=L1+0.00000002037*COS(5.05300562628+424.15051032120*x);
L1:=L1+0.00000001994*COS(1.35690802366+20.60692781950*x);
L1:=L1+0.00000001911*COS(3.44106886717+69.15252427480*x);
L1:=L1+0.00000001925*COS(3.75243031545+28.31117565130*x);
L1:=L1+0.00000002297*COS(4.24557050896+1464.63948006280*x);
L1:=L1+0.00000002117*COS(2.25897766314+116.42609634290*x);
L1:=L1+0.00000001847*COS(5.40631472802+31.49256938900*x);
L1:=L1+0.00000001841*COS(1.56916484272+650.94298657790*x);
L1:=L1+0.00000001884*COS(6.27233535258+25.12978191360*x);
L1:=L1+0.00000001960*COS(4.89484014840+275.55052103310*x);
L1:=L1+0.00000002016*COS(5.45791785675+842.15068148810*x);
L1:=L1+0.00000002282*COS(4.96276947440+258.87574647670*x);
L1:=L1+0.00000001709*COS(3.99098237135+416.30325013750*x);
L1:=L1+0.00000002176*COS(0.00746756006+0.89377187730*x);
L1:=L1+0.00000001634*COS(5.30978165487+251.43213107580*x);
L1:=L1+0.00000001687*COS(0.41586020065+54.17467074780*x);
L1:=L1+0.00000001910*COS(2.59825755790+329.72519178090*x);
L1:=L1+0.00000002113*COS(2.56582292726+59.80374504030*x);
L1:=L1+0.00000001921*COS(2.42279051938+113.38771495710*x);
L1:=L1+0.00000001658*COS(5.47323651540+1073.60902419080*x);
L1:=L1+0.00000001590*COS(2.77545297350+1994.33044515740*x);
L1:=L1+0.00000001936*COS(3.47558926847+1581.95934828300*x);
L1:=L1+0.00000001649*COS(1.82779010589+128.95626931510*x);
L1:=L1+0.00000001598*COS(1.71806465300+129.91947716160*x);
L1:=L1+0.00000001967*COS(1.25160413795+621.73803904930*x);
L1:=L1+0.00000001702*COS(1.91076102800+278.51946644970*x);
L1:=L1+0.00000001569*COS(0.16491194947+643.07868005170*x);
L1:=L1+0.00000001989*COS(5.28799230992+508.35032409220*x);
L1:=L1+0.00000001520*COS(0.56950979689+320.32402291970*x);
L1:=L1+0.00000001501*COS(1.99815894193+1891.23767093880*x);
L1:=L1+0.00000001532*COS(3.27362317849+2420.92863603340*x);
L1:=L1+0.00000001701*COS(2.72041261115+767.36908292080*x);
L1:=L1+0.00000001561*COS(6.09424459628+280.96714700450*x);
L1:=L1+0.00000001331*COS(4.20944443790+546.95644048200*x);
L1:=L1+0.00000001381*COS(2.06768100830+192.69216761850*x);
L1:=L1+0.00000001368*COS(6.28049502257+1795.25844372100*x);
L1:=L1+0.00000001519*COS(2.20299556153+2008.55753915900*x);
L1:=L1+0.00000001356*COS(4.01521042413+721.64941953020*x);
L1:=L1+0.00000001296*COS(4.84815978742+45.57665103870*x);
L1:=L1+0.00000001267*COS(5.28146654999+173.94221952280*x);
L1:=L1+0.00000001402*COS(6.12951551550+39.35687591520*x);
L1:=L1+0.00000001252*COS(2.19169926554+2634.22773147140*x);
L1:=L1+0.00000001466*COS(4.16354845643+26.82670294300*x);
L1:=L1+0.00000001285*COS(3.76170874847+2.28762186040*x);
L1:=L1+0.00000001500*COS(5.41022492529+214.04985496340*x);
L1:=L1+0.00000001396*COS(4.78595583428+219.44943459230*x);
L1:=L1+0.00000001430*COS(0.70934745161+254.94359321360*x);
L1:=L1+0.00000001195*COS(3.71281085322+264.50482076920*x);
L1:=L1+0.00000001181*COS(0.42635230882+41.64449777560*x);
L1:=L1+0.00000001190*COS(2.02079286787+1485.98012106520*x);
L1:=L1+0.00000001160*COS(5.23649231796+181.05576652360*x);
L1:=L1+0.00000001535*COS(3.62746990294+561.18353448360*x);
L1:=L1+0.00000001120*COS(1.09127922130+6.59228213900*x);
L1:=L1+0.00000001100*COS(0.27844612141+184.09414790940*x);
L1:=L1+0.00000001227*COS(1.39969681270+209.10630974400*x);
L1:=L1+0.00000001353*COS(6.12903657666+207.67002114550*x);
L1:=L1+0.00000001124*COS(6.05105541765+291.26208774300*x);
L1:=L1+0.00000001194*COS(4.79565407023+1478.86657406440*x);
L1:=L1+0.00000001082*COS(4.73602931755+78.71375183040*x);
L1:=L1+0.00000001202*COS(3.47301104146+51.20572533120*x);
L1:=L1+0.00000001298*COS(2.34761557822+210.37833413120*x);
L1:=L1+0.00000001166*COS(4.20037524355+417.03696332040*x);
L1:=L1+0.00000001228*COS(3.94985981275+1781.03134971940*x);
L1:=L1+0.00000001401*COS(2.41318931513+636.71589257630*x);
L1:=L1+0.00000001009*COS(6.17414889934+2111.65031337760*x);
L1:=L1+0.00000001084*COS(3.68958647346+274.06604832480*x);
L1:=L1+0.00000001068*COS(0.80258823981+436.89313161450*x);
L1:=L1+0.00000001007*COS(3.42792508860+629.60234557550*x);
L1:=L1+0.00000000998*COS(5.57130056835+205.22234059070*x);
L1:=L1+0.00000001058*COS(1.05742945779+237.67811782620*x);
L1:=L1+0.00000001020*COS(3.33667290300+166.82867252200*x);
L1:=L1+0.00000000965*COS(6.08359503243+601.76425067620*x);
L1:=L1+0.00000001005*COS(3.56310748091+643.82943957710*x);
L1:=L1+0.00000000987*COS(0.97129012811+305.34616939270*x);
L1:=L1+0.00000000927*COS(3.87717400791+135.33610313300*x);
L1:=L1+0.00000001129*COS(5.94840103961+196.62432088160*x);
L1:=L1+0.00000001118*COS(5.25415059584+189.72322220190*x);
L1:=L1+0.00000001200*COS(1.16671933467+2221.85663459700*x);
L1:=L1+0.00000000909*COS(2.14001565047+617.80588578620*x);
L1:=L1+0.00000000899*COS(2.31811625712+312.45971639350*x);
L1:=L1+0.00000001081*COS(0.91006048421+313.21047591890*x);
L1:=L1+0.00000000891*COS(3.74923531791+916.93228005540*x);
L1:=L1+0.00000000886*COS(4.76066858907+776.93031047640*x);
L1:=L1+0.00000000912*COS(0.99592540858+491.81856188770*x);
L1:=L1+0.00000000880*COS(3.67349449376+25.27279426550*x);
L1:=L1+0.00000001203*COS(1.39749267410+337.73251065900*x);
L1:=L1+0.00000000867*COS(0.11684071625+267.47376618580*x);
L1:=L1+0.00000000879*COS(6.12222682852+867.42347575360*x);
L1:=L1+0.00000001080*COS(0.15038819285+175.16605980020*x);
L1:=L1+0.00000000988*COS(3.12456192471+214.78356814630*x);
L1:=L1+0.00000000889*COS(4.70508769146+148.07872442630*x);
L1:=L1+0.00000000827*COS(6.08977582217+488.84961647110*x);
L1:=L1+0.00000000889*COS(5.05124166027+220.46082654860*x);
L1:=L1+0.00000000828*COS(6.27262544155+1382.88734684660*x);
L1:=L1+0.00000001040*COS(5.76735098196+501.37978944330*x);
L1:=L1+0.00000001103*COS(0.48706477230+692.58748435350*x);
L1:=L1+0.00000000810*COS(2.50362385080+2310.72231481400*x);
L1:=L1+0.00000000850*COS(4.55410385197+77.96299230500*x);
L1:=L1+0.00000001108*COS(5.31792012163+235.39049596580*x);
L1:=L1+0.00000000790*COS(0.89213206336+342.25536475310*x);
L1:=L1+0.00000000775*COS(2.85873930879+211.81462272970*x);
L1:=L1+0.00000000842*COS(2.99884993009+2737.32050569000*x);
L1:=L1+0.00000000784*COS(0.05748459240+543.02428721890*x);
L1:=L1+0.00000000754*COS(5.18317747668+244.31858407500*x);
L1:=L1+0.00000000969*COS(1.31760425414+486.40193591630*x);
L1:=L1+0.00000000943*COS(5.48641674428+339.28641933650*x);
L1:=L1+0.00000000759*COS(6.25347177163+151.04766984290*x);
L1:=L1+0.00000000710*COS(2.41619968810+247.23934538180*x);
L1:=L1+0.00000000794*COS(2.59522645936+1.64453140270*x);
L1:=L1+0.00000000857*COS(1.99318788624+248.72381809010*x);
L1:=L1+0.00000000717*COS(4.56798357445+121.25202148330*x);
L1:=L1+0.00000000671*COS(2.50955477476+444.75743814070*x);
L1:=L1+0.00000000683*COS(5.51033310275+487.36514376280*x);
L1:=L1+0.00000000684*COS(0.01892628603+228.27694896500*x);
L1:=L1+0.00000000665*COS(1.47172657769+427.56139872250*x);
L1:=L1+0.00000000761*COS(4.61079808671+23.57587323610*x);
L1:=L1+0.00000000807*COS(3.21513718120+1898.35121793960*x);
L1:=L1+0.00000000645*COS(1.92436523628+2950.61960112800*x);
L1:=L1+0.00000000624*COS(6.05830190539+241.61027108930*x);
L1:=L1+0.00000000699*COS(4.02804515616+425.63498302950*x);
L1:=L1+0.00000000624*COS(5.85966148394+696.51963761660*x);
L1:=L1+0.00000000620*COS(1.86426453489+2207.62954059540*x);
L1:=L1+0.00000000641*COS(5.69868017561+319.57326339430*x);
L1:=L1+0.00000000646*COS(3.78920578728+1038.04128918680*x);
L1:=L1+0.00000000672*COS(2.54160055954+271.40591944890*x);
L1:=L1+0.00000000768*COS(1.80484245332+2324.94940881560*x);
L1:=L1+0.00000000737*COS(1.50539891226+268.43697403230*x);
L1:=L1+0.00000000836*COS(1.26583811010+212.54833591260*x);
L1:=L1+0.00000000753*COS(5.27536166240+204.70107572890*x);
L1:=L1+0.00000000633*COS(2.19920009577+1802.37199072180*x);
L1:=L1+0.00000000720*COS(2.58587107868+472.17484191470*x);
L1:=L1+0.00000000683*COS(3.83223866420+43.28902917830*x);
L1:=L1+0.00000000740*COS(6.21601938401+556.51766803760*x);
L1:=L1+0.00000000795*COS(1.14460330178+381.35160823740*x);
L1:=L1+0.00000000678*COS(3.65930963429+2097.42321937600*x);
L1:=L1+0.00000000568*COS(5.92158661090+2428.04218303420*x);
L1:=L1+0.00000000570*COS(1.18024241664+131.54696222180*x);
L1:=L1+0.00000000566*COS(4.74157739398+380.12776796000*x);
L1:=L1+0.00000000586*COS(5.71168743146+570.74476203920*x);
L1:=L1+0.00000000550*COS(4.92413290959+188.92007304980*x);
L1:=L1+0.00000000712*COS(2.69456114358+16.67477455640*x);
L1:=L1+0.00000000545*COS(5.38725529600+206.23373254700*x);
L1:=L1+0.00000000572*COS(5.79167804981+195.89060769870*x);
L1:=L1+0.00000000602*COS(5.81756794592+963.40270297140*x);
L1:=L1+0.00000000588*COS(4.25026865253+426.64637498580*x);
L1:=L1+0.00000000563*COS(3.28295055824+193.65537546500*x);
L1:=L1+0.00000000583*COS(5.44099997963+526.50957135690*x);
L1:=L1+0.00000000679*COS(4.45748326743+105.54045477340*x);
L1:=L1+0.00000000516*COS(5.99843937287+289.56516671360*x);
L1:=L1+0.00000000520*COS(2.19322568805+180.16199464630*x);
L1:=L1+0.00000000543*COS(4.19333695628+213.18722085340*x);
L1:=L1+0.00000000586*COS(3.03470168346+6275.96230299060*x);
L1:=L1+0.00000000572*COS(3.96788877624+140.00196957900*x);
L1:=L1+0.00000000611*COS(4.15392239870+436.15941843160*x);
L1:=L1+0.00000000505*COS(2.95739392583+135.54855145410*x);
L1:=L1+0.00000000587*COS(4.55320395537+5863.59120611620*x);
L1:=L1+0.00000000492*COS(2.71595874382+84.93352695390*x);
L1:=L1+0.00000000576*COS(5.98300938454+9793.80090233580*x);
L1:=L1+0.00000000489*COS(5.68450383182+533.62311835770*x);
L1:=L1+0.00000000519*COS(3.09688510923+327.43756992050*x);
L1:=L1+0.00000000486*COS(5.24220804875+5849.36411211460*x);
L1:=L1+0.00000000475*COS(4.51295931678+411.62033734900*x);
L1:=L1+0.00000000540*COS(4.44843952768+10206.17199921020*x);
L1:=L1+0.00000000479*COS(0.87707794164+207.14875628370*x);
L1:=L1+0.00000000468*COS(0.46572028197+306.09692891810*x);
L1:=L1+0.00000000586*COS(0.86387928244+2538.24850425360*x);
L1:=L1+0.00000000475*COS(6.19152982788+397.39324334740*x);
L1:=L1+0.00000000541*COS(1.47958133221+42.53826965290*x);
L1:=L1+0.00000000496*COS(6.07879620658+576.16138801060*x);
L1:=L1+0.00000000447*COS(2.59259132013+7.22542158540*x);
L1:=L1+0.00000000445*COS(5.06827300470+778.41478318470*x);
L1:=L1+0.00000000560*COS(0.00461017471+221.37585028530*x);
L1:=L1+0.00000000456*COS(4.60143715337+710.74673161820*x);
L1:=L1+0.00000000449*COS(5.79223649465+685.47393735270*x);
L1:=L1+0.00000000501*COS(1.91370965325+831.10498122420*x);
L1:=L1+0.00000000595*COS(4.90329839607+824.74219374880*x);
L1:=L1+0.00000000447*COS(4.88662794571+429.04587143080*x);
L1:=L1+0.00000000445*COS(1.74764943142+525.75881183150*x);
L1:=L1+0.00000000457*COS(0.80892712530+458.84151979040*x);
L1:=L1+0.00000000543*COS(2.60317945475+213.41097002260*x);
L1:=L1+0.00000000493*COS(0.61947189193+41.05379694460*x);
L1:=L1+0.00000000455*COS(2.69847252264+3053.71237534660*x);
L1:=L1+0.00000000429*COS(3.89071982978+92.79783348010*x);
L1:=L1+0.00000000411*COS(1.34981168865+27.08733537390*x);
L1:=L1+0.00000000448*COS(1.84775051361+980.66817835880*x);
L1:=L1+0.00000000445*COS(4.21745990439+905.88657979150*x);
L1:=L1+0.00000000403*COS(2.33067250642+2627.11418447060*x);
L1:=L1+0.00000000404*COS(5.00179215709+431.26405732200*x);
L1:=L1+0.00000000384*COS(1.65634584042+241.75328344120*x);
L1:=L1+0.00000000410*COS(0.76907037678+395.57870223900*x);
L1:=L1+0.00000000456*COS(1.98353741244+213.51154375910*x);
L1:=L1+0.00000000459*COS(2.04878772547+285.63301345050*x);
L1:=L1+0.00000000396*COS(5.04141834913+298.23262239190*x);
L1:=L1+0.00000000377*COS(5.68073822097+2744.43405269080*x);
L1:=L1+0.00000000415*COS(4.41600504868+179.35884549420*x);
L1:=L1+0.00000000396*COS(4.29872851950+206.70681329900*x);
L1:=L1+0.00000000389*COS(5.69091953122+849.26422848890*x);
L1:=L1+0.00000000369*COS(1.36192003466+835.03713448730*x);
L1:=L1+0.00000000374*COS(0.41402282126+9779.57380833420*x);
L1:=L1+0.00000000379*COS(1.72255764532+184.98791978670*x);
L1:=L1+0.00000000365*COS(5.88205574821+19.64371997300*x);
L1:=L1+0.00000000456*COS(4.81297899859+213.08664711690*x);
L1:=L1+0.00000000359*COS(1.06819138836+206.13736432740*x);
L1:=L1+0.00000000367*COS(1.14184327929+569.04784100980*x);
L1:=L1+0.00000000352*COS(3.04388401587+638.41281360570*x);
L1:=L1+0.00000000463*COS(1.55834877017+421.18156490460*x);
L1:=L1+0.00000000459*COS(5.34648461645+699.70103135430*x);
L1:=L1+0.00000000383*COS(4.05921035379+739.80866679490*x);
L1:=L1+0.00000000354*COS(1.09760553168+738.79727483860*x);
L1:=L1+0.00000000382*COS(0.05348541587+252.65597135320*x);
L1:=L1+0.00000000344*COS(1.18536656224+439.12836384820*x);
L1:=L1+0.00000000382*COS(2.10483762147+532.61172640140*x);
L1:=L1+0.00000000361*COS(0.50215018154+50.40257617910*x);
L1:=L1+0.00000000351*COS(3.49546336297+1354.43315884340*x);
L1:=L1+0.00000000395*COS(4.26278871560+432.22726516850*x);
L1:=L1+0.00000000345*COS(2.38455893509+426.07692601420*x);
L1:=L1+0.00000000350*COS(1.51541607946+259.76951835400*x);
L1:=L1+0.00000000426*COS(5.29998227949+934.94851496820*x);
L1:=L1+0.00000000339*COS(5.59774645356+519.39602435610*x);
L1:=L1+0.00000000388*COS(3.40083809779+2413.81508903260*x);
L1:=L1+0.00000000324*COS(3.68352014131+72.07328558160*x);
L1:=L1+0.00000000323*COS(1.79597508586+405.99126305650*x);
L1:=L1+0.00000000366*COS(3.56764349139+1119.18567522950*x);
L1:=L1+0.00000000358*COS(4.11241839677+37.87240320690*x);
L1:=L1+0.00000000423*COS(1.45116702108+2641.34127847220*x);
L1:=L1+0.00000000314*COS(0.68465789313+757.21715453420*x);
L1:=L1+0.00000000320*COS(3.12697568936+945.99421523210*x);
L1:=L1+0.00000000338*COS(4.89782013581+898.77303279070*x);
L1:=L1+0.00000000319*COS(5.76881401291+69.36497259590*x);
L1:=L1+0.00000000310*COS(5.35598720822+815.06334611420*x);
L1:=L1+0.00000000369*COS(4.46143610142+421.93232443000*x);
L1:=L1+0.00000000311*COS(2.19275640712+5856.47765911540*x);
L1:=L1+0.00000000306*COS(2.99917010799+1130.23137549340*x);
L1:=L1+0.00000000330*COS(0.64102961163+558.00214074590*x);
L1:=L1+0.00000000305*COS(0.40963115602+661.23792731640*x);
L1:=L1+0.00000000320*COS(3.29267319940+760.25553592000*x);
L1:=L1+0.00000000298*COS(5.48693246086+702.14871190910*x);
L1:=L1+0.00000000352*COS(2.18179692198+2118.76386037840*x);
L1:=L1+0.00000000299*COS(5.94980651345+572.22923474750*x);
L1:=L1+0.00000000343*COS(2.62900083650+213.55972786890*x);
L1:=L1+0.00000000296*COS(4.12563821701+73.29712585900*x);
L1:=L1+0.00000000360*COS(2.94387423457+2214.74308759620*x);
L1:=L1+0.00000000293*COS(5.71837797264+60.76695288680*x);
L1:=L1+0.00000000326*COS(1.93806509331+480.77286162380*x);
L1:=L1+0.00000000335*COS(2.60120542851+518.38463239980*x);
L1:=L1+0.00000000322*COS(2.89685459163+427.11945573780*x);
L1:=L1+0.00000000367*COS(2.20489848330+518.64526483070*x);
L1:=L1+0.00000000361*COS(3.31464351282+630.33605875840*x);
L1:=L1+0.00000000288*COS(0.87760478150+887.72733252680*x);
L1:=L1+0.00000000290*COS(0.24071300709+705.11765732570*x);
L1:=L1+0.00000000332*COS(5.96464701829+100.64509366380*x);
L1:=L1+0.00000000284*COS(1.58760551116+681.54178408960*x);
L1:=L1+0.00000000281*COS(1.68339116394+3267.01147078460*x);
L1:=L1+0.00000000287*COS(3.54730637851+756.32338265690*x);
L1:=L1+0.00000000331*COS(2.74250642576+22.89454967990*x);
L1:=L1+0.00000000281*COS(4.79802388453+409.92341631960*x);
L1:=L1+0.00000000372*COS(1.08754087151+426.55000676620*x);
L1:=L1+0.00000000340*COS(0.59629116557+627.36711334180*x);
L1:=L1+0.00000000325*COS(4.07319450014+511.53171782990*x);
L1:=L1+0.00000000273*COS(0.71334827688+305.08553696180*x);
L1:=L1+0.00000000272*COS(1.76124839309+945.24345570670*x);
L1:=L1+0.00000000295*COS(4.00327005783+432.74853003030*x);
L1:=L1+0.00000000271*COS(5.28903262032+1080.72257119160*x);
L1:=L1+0.00000000276*COS(3.89192411657+610.69233878540*x);
L1:=L1+0.00000000294*COS(2.80121651058+724.83081326790*x);
L1:=L1+0.00000000319*COS(5.24824059915+229.97386999440*x);
L1:=L1+0.00000000264*COS(2.36406383589+731.94436026870*x);
L1:=L1+0.00000000288*COS(4.67818844930+170.76082578510*x);
L1:=L1+0.00000000326*COS(3.81328980623+525.49817940060*x);
L1:=L1+0.00000000283*COS(3.52027709716+319.31263096340*x);
L1:=L1+0.00000000264*COS(0.25871603855+494.26624244250*x);
L1:=L1+0.00000000261*COS(4.08135671345+25.86349509650*x);
L1:=L1+0.00000000296*COS(4.49129913731+693.55069220000*x);
L1:=L1+0.00000000292*COS(0.65370180027+25867.49049913539*x);
L1:=L1+0.00000000292*COS(0.12510953311+25881.71759313700*x);
L1:=L1+0.00000000254*COS(4.03912322565+990.22940591440*x);
L1:=L1+0.00000000288*COS(3.98604904657+707.77778620160*x);
L1:=L1+0.00000000285*COS(1.92328297431+3134.42687826260*x);
L1:=L1+0.00000000284*COS(2.45411523294+3120.19978426100*x);
L1:=L1+0.00000000256*COS(3.63282757780+430.79097657000*x);
L1:=L1+0.00000000283*COS(2.51091647682+286.59622129700*x);
L1:=L1+0.00000000325*COS(4.33261281211+732.69511979410*x);
L1:=L1+0.00000000264*COS(0.05450228136+650.19222705250*x);
L1:=L1+0.00000000273*COS(4.90735780421+409.18970313670*x);
L1:=L1+0.00000000304*COS(4.61759348542+468.24268865160*x);
L1:=L1+0.00000000285*COS(5.72467903890+33.94024994380*x);
L1:=L1+0.00000000242*COS(5.28336514054+403.02231763990*x);
L1:=L1+0.00000000270*COS(0.51583145648+263.70167161710*x);
L1:=L1+0.00000000263*COS(4.81670787366+1055.44977692610*x);
L1:=L1+0.00000000237*COS(2.92617048443+913.96333463880*x);
L1:=L1+0.00000000246*COS(2.19675150666+2943.50605412720*x);
L1:=L1+0.00000000278*COS(4.58404840578+398.14400287280*x);
L1:=L1+0.00000000234*COS(2.64374114605+739.05790726950*x);
L1:=L1+0.00000000229*COS(3.80445074468+58.10682401090*x);
L1:=L1+0.00000000300*COS(2.06111081979+429.51895218280*x);
L1:=L1+0.00000000223*COS(3.39888651505+188.02630117250*x);
L1:=L1+0.00000000301*COS(2.96411385108+624.91943278700*x);
L1:=L1+0.00000000221*COS(1.79137414078+2524.02141025200*x);
L1:=L1+0.00000000220*COS(0.95686592581+1894.41906467650*x);
L1:=L1+0.00000000225*COS(4.30669421945+637.44960575920*x);
L1:=L1+0.00000000214*COS(1.70442143644+658.05653357870*x);
L1:=L1+0.00000000227*COS(3.22613053351+638.93407846750*x);
L1:=L1+0.00000000220*COS(2.66798936385+953.10776223290*x);
L1:=L1+0.00000000253*COS(3.09377787768+29.20494752860*x);
L1:=L1+0.00000000244*COS(3.15828383212+7.00167241620*x);
L1:=L1+0.00000000295*COS(4.95843934543+714.67888488130*x);
L1:=L1+0.00000000209*COS(0.94525938634+864.24208201590*x);
L1:=L1+0.00000000216*COS(0.12221236180+28.57180808220*x);
L1:=L1+0.00000000214*COS(2.80190604605+373.90799283650*x);
L1:=L1+0.00000000212*COS(2.07343849515+1357.61455258110*x);
L1:=L1+0.00000000216*COS(1.25531205533+477.80391620720*x);
L1:=L1+0.00000000206*COS(5.35971491902+3060.82592234740*x);
L1:=L1+0.00000000204*COS(3.08579410460+67.66805156650*x);
L1:=L1+0.00000000210*COS(1.91489853604+938.12990870590*x);
L1:=L1+0.00000000209*COS(1.46554109301+952.35700270750*x);
L1:=L1+0.00000000202*COS(3.57670882297+334.55111692130*x);
L1:=L1+0.00000000228*COS(5.66209641464+1699.27921650320*x);
L1:=L1+0.00000000197*COS(4.61055255182+464.73122651380*x);
L1:=L1+0.00000000193*COS(4.24606721746+141.69889060840*x);
L1:=L1+0.00000000266*COS(0.69665031373+2854.64037391020*x);
L1:=L1+0.00000000227*COS(1.31845358943+230.70758317730*x);
L1:=L1+0.00000000192*COS(5.26739976413+504.56118318100*x);
L1:=L1+0.00000000187*COS(0.85537192230+273.85360000370*x);
L1:=L1+0.00000000199*COS(3.91291687807+418.52143602870*x);
L1:=L1+0.00000000192*COS(6.15674105214+611.44309831080*x);
L1:=L1+0.00000000210*COS(1.47873602747+205.43478891180*x);
L1:=L1+0.00000000194*COS(2.37167703302+3370.10424500320*x);
L1:=L1+0.00000000228*COS(2.15266015145+55.13787859430*x);
L1:=L1+0.00000000201*COS(2.71380671608+586.31331639720*x);
L1:=L1+0.00000000194*COS(3.29560033731+1670.82502850000*x);
L1:=L1+0.00000000201*COS(4.23447633663+1493.09366806600*x);
L1:=L1+0.00000000181*COS(3.61567262848+9786.68735533500*x);
L1:=L1+0.00000000181*COS(2.83211558346+1262.38608488870*x);
L1:=L1+0.00000000242*COS(4.69869158516+1141.13406340540*x);
L1:=L1+0.00000000184*COS(4.66807336402+1251.34038462480*x);
L1:=L1+0.00000000221*COS(2.25887876254+355.74874557180*x);
L1:=L1+0.00000000200*COS(1.17340443616+4952.06359328620*x);
L1:=L1+0.00000000222*COS(2.23360866067+2435.15573003500*x);
L1:=L1+0.00000000175*COS(0.04701598422+107.75864066460*x);
L1:=L1+0.00000000171*COS(5.02500742690+93.53154666300*x);
L1:=L1+0.00000000184*COS(5.19723697138+835.78789401270*x);
L1:=L1+0.00000000221*COS(4.49141283681+913.00012679230*x);
L1:=L1+0.00000000195*COS(0.92088046109+551.03160609700*x);
L1:=L1+0.00000000166*COS(5.01778115937+354.99798604640*x);
L1:=L1+0.00000000165*COS(2.26267552932+406.95447090300*x);
L1:=L1+0.00000000189*COS(0.31221126958+420.96911658350*x);
L1:=L1+0.00000000196*COS(2.70333585839+774.48262992160*x);
L1:=L1+0.00000000176*COS(6.12029409039+181.80652604900*x);
L1:=L1+0.00000000172*COS(1.94132177757+3259.89792378380*x);
L1:=L1+0.00000000160*COS(0.55319954265+5429.87946823940*x);
L1:=L1+0.00000000161*COS(2.88623631474+184.84490743480*x);
L1:=L1+0.00000000192*COS(0.26639534884+295.19424100610*x);
L1:=L1+0.00000000167*COS(3.71345214172+1056.20053645150*x);
L1:=L1+0.00000000195*COS(4.83926717598+1596.18644228460*x);
L1:=L1+0.00000000156*COS(2.81916058733+428.08266358430*x);
L1:=L1+0.00000000215*COS(1.88276472005+220.36445832900*x);
L1:=L1+0.00000000167*COS(2.68872854428+423.67742956920*x);
L1:=L1+0.00000000154*COS(1.66553954375+115.62294719080*x);
L1:=L1+0.00000000175*COS(0.20216461467+384.05992122310*x);
L1:=L1+0.00000000201*COS(4.38095931887+418.00017116690*x);
L1:=L1+0.00000000167*COS(1.86485857353+393.46109008430*x);
L1:=L1+0.00000000155*COS(0.92480392431+282.66406803390*x);
L1:=L1+0.00000000146*COS(1.97663966745+9360.08916445900*x);
L1:=L1+0.00000000160*COS(2.62483919699+353.30106501700*x);
L1:=L1+0.00000000186*COS(1.37307151419+292.01284726840*x);
L1:=L1+0.00000000198*COS(1.15631374887+2957.73314812880*x);
L1:=L1+0.00000000144*COS(4.82956915076+453.42489381900*x);
L1:=L1+0.00000000149*COS(3.60682821788+205.66428357540*x);
L1:=L1+0.00000000147*COS(4.48377791879+81.89514556810*x);
L1:=L1+0.00000000147*COS(5.74795037748+856.37777548970*x);
L1:=L1+0.00000000142*COS(3.53823120158+212.02707105080*x);
L1:=L1+0.00000000140*COS(0.70476909062+640.86049416050*x);
L1:=L1+0.00000000139*COS(1.39047667205+1261.63532536330*x);
L1:=L1+0.00000000153*COS(3.29559426243+391.17346822390*x);
L1:=L1+0.00000000158*COS(1.79872341304+326.68681039510*x);
L1:=L1+0.00000000174*COS(3.98677435872+1049.08698945070*x);
L1:=L1+0.00000000171*COS(4.16825100469+213.03846300710*x);
L1:=L1+0.00000000133*COS(4.74095454922+0.04818410980*x);
L1:=L1+0.00000000155*COS(5.32313618730+2015.67108615980*x);
L1:=L1+0.00000000158*COS(2.67557086253+2531.13495725280*x);
L1:=L1+0.00000000158*COS(4.64622526567+427.34895040140*x);
L1:=L1+0.00000000123*COS(2.20103444636+210.59078245230*x);
L1:=L1+0.00000000160*COS(1.85888551524+201.51968199120*x);
L1:=L1+0.00000000119*COS(3.12572799769+238.57188970350*x);
L1:=L1+0.00000000120*COS(4.62897224203+203.26478713040*x);
L1:=L1+0.00000000129*COS(4.92592016162+1286.90811962880*x);
L1:=L1+0.00000000132*COS(3.44682160054+156.67674413540*x);
L1:=L1+0.00000000143*COS(0.67951827513+425.84743135060*x);
L1:=L1+0.00000000114*COS(5.46519773276+552.58551477450*x);
L1:=L1+0.00000000132*COS(1.76335093671+432.01481684740*x);
L1:=L1+0.00000000113*COS(0.68933513038+450.97721326420*x);
L1:=L1+0.00000000128*COS(2.13986068877+2751.54759969160*x);
L1:=L1+0.00000000123*COS(4.59695145319+216.00740842370*x);
L1:=L1+0.00000000119*COS(1.04688666457+462.02291352810*x);
L1:=L1+0.00000000108*COS(5.36873170289+3377.21779200400*x);
L1:=L1+0.00000000142*COS(6.24626256472+299.12639426920*x);
L1:=L1+0.00000000118*COS(0.63448253510+369.97583957340*x);
L1:=L1+0.00000000105*COS(2.31570619675+200.55647414470*x);
L1:=L1+0.00000000124*COS(1.87110815140+850.01498801430*x);
L1:=L1+0.00000000106*COS(0.55623662570+114.39910691340*x);
L1:=L1+0.00000000102*COS(3.95315219638+361.37781986430*x);
L1:=L1+0.00000000095*COS(4.10658529323+10213.28554621100*x);
L1:=L1+0.00000000097*COS(1.13534710734+387.24131496080*x);
L1:=L1+0.00000000096*COS(4.46689094543+401.32539661050*x);
L1:=L1+0.00000000119*COS(2.33636675091+318.83955021140*x);
L1:=L1+0.00000000115*COS(3.37508073115+313.94418910180*x);
L1:=L1+0.00000000106*COS(3.73586211650+220.93390730060*x);
L1:=L1+0.00000000090*COS(0.59788492023+227.31374111850*x);
L1:=L1+0.00000000103*COS(5.09172929383+213.45915413240*x);
L1:=L1+0.00000000097*COS(5.95268532215+1044.40407666220*x);
L1:=L1+0.00000000103*COS(1.70625660572+213.13903674360*x);
L1:=L1+0.00000000080*COS(0.86872596168+233.90602325750*x);
L1:=L1+0.00000000089*COS(5.35990932230+214.19286731530*x);
L1:=L1+0.00000000080*COS(2.69565238975+540.73666535850*x);
L1:=L1+0.00000000095*COS(1.19504849611+460.53844081980*x);
L1:=L1+0.00000000105*COS(0.58624363205+481.73606947030*x);
L1:=L1+0.00000000099*COS(2.68841109007+219.89137757700*x);
L1:=L1+0.00000000098*COS(1.59923557478+484.70501488690*x);
L1:=L1+0.00000000081*COS(1.12279793521+420.44785172170*x);
L1:=L1+0.00000000075*COS(4.58892231446+394.35486196160*x);
L1:=L1+0.00000000099*COS(4.68895851750+448.68959140380*x);
L1:=L1+0.00000000076*COS(1.66929798365+196.03362005060*x);
L1:=L1+0.00000000087*COS(3.12477195090+857.12853501510*x);
L1:=L1+0.00000000078*COS(5.59819387460+364.34676528090*x);
L1:=L1+0.00000000079*COS(3.53267171729+969.62247809490*x);

LOCAL L2:=0;
L2:=L2+0.00116441181*COS(1.17987850633+7.11354700080*x);
L2:=L2+0.00091920844*COS(0.07425261094+213.29909543800*x);
L2:=L2+0.00090592251;
L2:=L2+0.00015276909*COS(4.06492007503+206.18554843720*x);
L2:=L2+0.00010631396*COS(0.25778277414+220.41264243880*x);
L2:=L2+0.00010604979*COS(5.40963595885+426.59819087600*x);
L2:=L2+0.00004265368*COS(1.04595556630+14.22709400160*x);
L2:=L2+0.00001215527*COS(2.91860042123+103.09277421860*x);
L2:=L2+0.00001164684*COS(4.60942128971+639.89728631400*x);
L2:=L2+0.00001081967*COS(5.69130351670+433.71173787680*x);
L2:=L2+0.00001020079*COS(0.63369182642+3.18139373770*x);
L2:=L2+0.00001044754*COS(4.04206453611+199.07200143640*x);
L2:=L2+0.00000633582*COS(4.38825410036+419.48464387520*x);
L2:=L2+0.00000549329*COS(5.57303134242+3.93215326310*x);
L2:=L2+0.00000456914*COS(1.26840971349+110.20632121940*x);
L2:=L2+0.00000425100*COS(0.20935499279+227.52618943960*x);
L2:=L2+0.00000273739*COS(4.28841011784+95.97922721780*x);
L2:=L2+0.00000161571*COS(1.38139149420+11.04570026390*x);
L2:=L2+0.00000129494*COS(1.56586884170+309.27832265580*x);
L2:=L2+0.00000117008*COS(3.88120915956+853.19638175200*x);
L2:=L2+0.00000105415*COS(4.90003203599+647.01083331480*x);
L2:=L2+0.00000100967*COS(0.89270493100+21.34064100240*x);
L2:=L2+0.00000095227*COS(5.62561150598+412.37109687440*x);
L2:=L2+0.00000081948*COS(1.02477558315+117.31986822020*x);
L2:=L2+0.00000074857*COS(4.76178468163+210.11770170030*x);
L2:=L2+0.00000082727*COS(6.05030934786+216.48048917570*x);
L2:=L2+0.00000095659*COS(2.91093561539+316.39186965660*x);
L2:=L2+0.00000063696*COS(0.35179804917+323.50541665740*x);
L2:=L2+0.00000084860*COS(5.73472777961+209.36694217490*x);
L2:=L2+0.00000060647*COS(4.87517850190+632.78373931320*x);
L2:=L2+0.00000066459*COS(0.48297940601+10.29494073850*x);
L2:=L2+0.00000067184*COS(0.45648612616+522.57741809380*x);
L2:=L2+0.00000053281*COS(2.74730541387+529.69096509460*x);
L2:=L2+0.00000045827*COS(5.69296621745+440.82528487760*x);
L2:=L2+0.00000045293*COS(1.66856699796+202.25339517410*x);
L2:=L2+0.00000042330*COS(5.70768187703+88.86568021700*x);
L2:=L2+0.00000032140*COS(0.07050050346+63.73589830340*x);
L2:=L2+0.00000031573*COS(1.67190022213+302.16477565500*x);
L2:=L2+0.00000031150*COS(4.16379537691+191.95845443560*x);
L2:=L2+0.00000024631*COS(5.65564728570+735.87651353180*x);
L2:=L2+0.00000026558*COS(0.83256214407+224.34479570190*x);
L2:=L2+0.00000020108*COS(5.94364609981+217.23124870110*x);
L2:=L2+0.00000017511*COS(4.90014736798+625.67019231240*x);
L2:=L2+0.00000017130*COS(1.62593421274+742.99006053260*x);
L2:=L2+0.00000013744*COS(3.76497167300+195.13984817330*x);
L2:=L2+0.00000012236*COS(4.71789723976+203.00415469950*x);
L2:=L2+0.00000011940*COS(0.12620714199+234.63973644040*x);
L2:=L2+0.00000016040*COS(0.57886320845+515.46387109300*x);
L2:=L2+0.00000011154*COS(5.92216844780+536.80451209540*x);
L2:=L2+0.00000014068*COS(0.20675293700+838.96928775040*x);
L2:=L2+0.00000011013*COS(5.60207982774+728.76296653100*x);
L2:=L2+0.00000011718*COS(3.12098483554+846.08283475120*x);
L2:=L2+0.00000009962*COS(4.15472049127+860.30992875280*x);
L2:=L2+0.00000010601*COS(3.20327613035+1066.49547719000*x);
L2:=L2+0.00000010072*COS(0.25709351996+330.61896365820*x);
L2:=L2+0.00000009490*COS(0.46379969328+956.28915597060*x);
L2:=L2+0.00000010240*COS(4.98736656070+422.66603761290*x);
L2:=L2+0.00000008287*COS(2.13990364272+269.92144674060*x);
L2:=L2+0.00000007238*COS(5.39724715258+1052.26838318840*x);
L2:=L2+0.00000007730*COS(5.24602742309+429.77958461370*x);
L2:=L2+0.00000006353*COS(4.46211130731+284.14854074220*x);
L2:=L2+0.00000005935*COS(5.40967847103+149.56319713460*x);
L2:=L2+0.00000007550*COS(4.03401153929+9.56122755560*x);
L2:=L2+0.00000005779*COS(4.29380891110+415.55249061210*x);
L2:=L2+0.00000006082*COS(5.93416924841+405.25754987360*x);
L2:=L2+0.00000005711*COS(0.01824076994+124.43341522100*x);
L2:=L2+0.00000005676*COS(6.02235682150+223.59403617650*x);
L2:=L2+0.00000004757*COS(4.92804854717+654.12438031560*x);
L2:=L2+0.00000004727*COS(2.27461984667+18.15924726470*x);
L2:=L2+0.00000004509*COS(4.40688707557+942.06206196900*x);
L2:=L2+0.00000005621*COS(0.29694719379+127.47179660680*x);
L2:=L2+0.00000005453*COS(5.53868222772+949.17560896980*x);
L2:=L2+0.00000004130*COS(4.68673560379+74.78159856730*x);
L2:=L2+0.00000004098*COS(5.30851262200+1045.15483618760*x);
L2:=L2+0.00000004223*COS(2.89014939299+56.62235130260*x);
L2:=L2+0.00000004887*COS(3.20022991216+277.03499374140*x);
L2:=L2+0.00000003905*COS(3.30270187305+490.33408917940*x);
L2:=L2+0.00000003923*COS(6.09732996823+81.75213321620*x);
L2:=L2+0.00000003755*COS(4.93065184796+52.69019803950*x);
L2:=L2+0.00000004602*COS(6.13908576681+1155.36115740700*x);
L2:=L2+0.00000003714*COS(0.40648076787+137.03302416240*x);
L2:=L2+0.00000003407*COS(4.28514461015+99.91138048090*x);
L2:=L2+0.00000003579*COS(0.20402442077+1272.68102562720*x);
L2:=L2+0.00000003946*COS(0.36500928968+12.53017297220*x);
L2:=L2+0.00000003246*COS(1.56761884227+1059.38193018920*x);
L2:=L2+0.00000004063*COS(0.29084229143+831.85574074960*x);
L2:=L2+0.00000003688*COS(0.15467406177+437.64389113990*x);
L2:=L2+0.00000002895*COS(3.13473183482+70.84944530420*x);
L2:=L2+0.00000002800*COS(0.32727938074+191.20769491020*x);
L2:=L2+0.00000002672*COS(1.87612402267+295.05122865420*x);
L2:=L2+0.00000003454*COS(4.77197610696+423.41679713830*x);
L2:=L2+0.00000002623*COS(5.15237415384+1368.66025284500*x);
L2:=L2+0.00000002457*COS(3.89612890177+210.85141488320*x);
L2:=L2+0.00000002461*COS(1.58522876760+32.24332891440*x);
L2:=L2+0.00000002595*COS(3.59007068361+131.40394986990*x);
L2:=L2+0.00000002289*COS(4.76825865118+351.81659230870*x);
L2:=L2+0.00000002357*COS(5.83099000562+106.27416795630*x);
L2:=L2+0.00000002221*COS(5.98277491515+6062.66320755260*x);
L2:=L2+0.00000002221*COS(2.05930402282+6076.89030155420*x);
L2:=L2+0.00000002183*COS(5.94985336393+145.63104387150*x);
L2:=L2+0.00000002718*COS(3.37801252354+408.43894361130*x);
L2:=L2+0.00000002288*COS(3.14000619320+22.09140052780*x);
L2:=L2+0.00000002090*COS(1.12304173562+9992.87290377220*x);
L2:=L2+0.00000002089*COS(3.48276230686+10007.09999777380*x);
L2:=L2+0.00000002570*COS(5.12167203704+265.98929347750*x);
L2:=L2+0.00000001835*COS(4.15379879659+1258.45393162560*x);
L2:=L2+0.00000001820*COS(5.05340615445+1361.54670584420*x);
L2:=L2+0.00000001760*COS(4.13532689228+107.02492748170*x);
L2:=L2+0.00000001921*COS(4.51790997496+138.51749687070*x);
L2:=L2+0.00000001707*COS(1.35864593280+231.45834270270*x);
L2:=L2+0.00000001956*COS(5.87006093798+1471.75302706360*x);
L2:=L2+0.00000002133*COS(5.23409848720+1265.56747862640*x);
L2:=L2+0.00000001595*COS(5.61962698786+447.93883187840*x);
L2:=L2+0.00000001609*COS(3.74893709671+628.85158605010*x);
L2:=L2+0.00000001490*COS(0.48352404940+340.77089204480*x);
L2:=L2+0.00000001560*COS(5.97095003614+430.53034413910*x);
L2:=L2+0.00000001352*COS(0.71405348653+28.45418800320*x);
L2:=L2+0.00000001355*COS(2.91219493604+215.74677599280*x);
L2:=L2+0.00000001298*COS(5.84254169775+543.91805909620*x);
L2:=L2+0.00000001664*COS(6.23834873469+1148.24761040620*x);
L2:=L2+0.00000001205*COS(2.83373725021+200.76892246580*x);
L2:=L2+0.00000001192*COS(3.52219428945+497.44763618020*x);
L2:=L2+0.00000001122*COS(2.60571030270+1279.79457262800*x);
L2:=L2+0.00000001217*COS(6.23528359211+1589.07289528380*x);
L2:=L2+0.00000001420*COS(0.85079202155+6069.77675455340*x);
L2:=L2+0.00000001120*COS(4.95656566453+1685.05212250160*x);
L2:=L2+0.00000001010*COS(3.39689646619+1073.60902419080*x);
L2:=L2+0.00000001352*COS(2.27575429523+9999.98645077300*x);
L2:=L2+0.00000000979*COS(1.58571463442+1375.77379984580*x);
L2:=L2+0.00000001159*COS(0.71823181781+508.35032409220*x);
L2:=L2+0.00000001014*COS(2.40759054741+703.63318461740*x);
L2:=L2+0.00000000956*COS(2.66256831556+134.58534360760*x);
L2:=L2+0.00000001110*COS(1.19713920197+618.55664531160*x);
L2:=L2+0.00000000945*COS(4.68155456977+362.86229257260*x);
L2:=L2+0.00000000953*COS(4.20749172571+288.08069400530*x);
L2:=L2+0.00000001033*COS(1.08781255146+184.84490743480*x);
L2:=L2+0.00000000942*COS(2.43465223460+222.86032299360*x);
L2:=L2+0.00000000909*COS(4.51769385360+38.13303563780*x);
L2:=L2+0.00000001002*COS(1.38543153271+483.22054217860*x);
L2:=L2+0.00000001082*COS(4.52832816548+635.96513305090*x);
L2:=L2+0.00000001008*COS(4.91325851448+750.10360753340*x);
L2:=L2+0.00000000862*COS(4.79998518474+1677.93857550080*x);
L2:=L2+0.00000000828*COS(2.21940849017+333.65734504400*x);
L2:=L2+0.00000000745*COS(3.97279299984+1574.84580128220*x);
L2:=L2+0.00000000903*COS(5.58963782799+1788.14489672020*x);
L2:=L2+0.00000000735*COS(2.28191723259+1162.47470440780*x);
L2:=L2+0.00000000773*COS(5.82270096882+416.30325013750*x);
L2:=L2+0.00000000734*COS(2.35356586018+120.35824960600*x);
L2:=L2+0.00000000745*COS(4.84266000843+76.26607127560*x);
L2:=L2+0.00000000765*COS(2.50840146722+343.21857259960*x);
L2:=L2+0.00000000908*COS(5.01046293458+1581.95934828300*x);
L2:=L2+0.00000000707*COS(3.66631544506+347.88443904560*x);
L2:=L2+0.00000000870*COS(0.77106152694+113.38771495710*x);
L2:=L2+0.00000000686*COS(2.88543836068+92.04707395470*x);
L2:=L2+0.00000000673*COS(3.75650667651+203.73786788240*x);
L2:=L2+0.00000000656*COS(3.77718582702+217.96496188400*x);
L2:=L2+0.00000000675*COS(5.62875135263+17.26547538740*x);
L2:=L2+0.00000000691*COS(0.21330089609+99.16062095550*x);
L2:=L2+0.00000000786*COS(4.49318079175+643.07868005170*x);
L2:=L2+0.00000000641*COS(0.67588390141+46.47042291600*x);
L2:=L2+0.00000000663*COS(5.74837848383+721.64941953020*x);
L2:=L2+0.00000000809*COS(5.94893988352+1464.63948006280*x);
L2:=L2+0.00000000638*COS(4.86195439622+357.44566660120*x);
L2:=L2+0.00000000740*COS(6.00053422445+337.73251065900*x);
L2:=L2+0.00000000555*COS(4.95858934298+358.93013930950*x);
L2:=L2+0.00000000581*COS(3.87669679805+565.11568774670*x);
L2:=L2+0.00000000541*COS(1.22296838713+62.25142559510*x);
L2:=L2+0.00000000697*COS(0.00715950269+1169.58825140860*x);
L2:=L2+0.00000000524*COS(1.53830423608+195.89060769870*x);
L2:=L2+0.00000000518*COS(5.41992758537+312.19908396260*x);
L2:=L2+0.00000000626*COS(5.26580317026+436.89313161450*x);
L2:=L2+0.00000000537*COS(6.17031657600+182.27960680100*x);
L2:=L2+0.00000000574*COS(5.98607898826+1905.46476494040*x);
L2:=L2+0.00000000541*COS(0.30589337713+98.89998852460*x);
L2:=L2+0.00000000603*COS(3.26888470585+208.63322899200*x);
L2:=L2+0.00000000504*COS(3.80930996688+168.05251279940*x);
L2:=L2+0.00000000477*COS(3.56642391994+563.63121503840*x);
L2:=L2+0.00000000511*COS(4.70719837179+2001.44399215820*x);
L2:=L2+0.00000000475*COS(1.06025557585+5856.47765911540*x);
L2:=L2+0.00000000540*COS(0.87230551412+1692.16566950240*x);
L2:=L2+0.00000000454*COS(2.48128029368+9786.68735533500*x);
L2:=L2+0.00000000456*COS(3.18303484133+218.92816973050*x);
L2:=L2+0.00000000462*COS(0.71358186864+258.87574647670*x);
L2:=L2+0.00000000424*COS(4.89778948357+636.71589257630*x);
L2:=L2+0.00000000537*COS(2.59376221736+313.21047591890*x);
L2:=L2+0.00000000410*COS(4.22147787617+867.42347575360*x);
L2:=L2+0.00000000408*COS(3.06057772788+424.15051032120*x);
L2:=L2+0.00000000407*COS(3.79376013938+24.37902238820*x);
L2:=L2+0.00000000569*COS(3.68547825941+350.33211960040*x);
L2:=L2+0.00000000404*COS(0.91401255827+114.13847448250*x);
L2:=L2+0.00000000395*COS(3.50478374207+129.91947716160*x);
L2:=L2+0.00000000395*COS(2.86309689622+212.33588759150*x);
L2:=L2+0.00000000386*COS(5.00762729432+388.46515523820*x);
L2:=L2+0.00000000393*COS(6.26835522096+241.75328344120*x);
L2:=L2+0.00000000401*COS(4.60258908692+1994.33044515740*x);
L2:=L2+0.00000000385*COS(0.91582119643+160.60889739850*x);
L2:=L2+0.00000000467*COS(0.54876489832+404.50679034820*x);
L2:=L2+0.00000000368*COS(0.35674031808+214.26230328450*x);
L2:=L2+0.00000000471*COS(0.67360047481+207.88246946660*x);
L2:=L2+0.00000000379*COS(0.92901327825+767.36908292080*x);
L2:=L2+0.00000000420*COS(5.69797398044+225.82926841020*x);
L2:=L2+0.00000000356*COS(3.10092792842+842.15068148810*x);
L2:=L2+0.00000000428*COS(5.35375368944+2104.53676637680*x);
L2:=L2+0.00000000422*COS(2.67975581832+77.96299230500*x);
L2:=L2+0.00000000370*COS(5.46144813372+1038.04128918680*x);
L2:=L2+0.00000000379*COS(5.56429091578+131.54696222180*x);
L2:=L2+0.00000000441*COS(5.68196668399+1781.03134971940*x);
L2:=L2+0.00000000361*COS(5.20616019966+629.60234557550*x);
L2:=L2+0.00000000341*COS(5.92928351979+26.82670294300*x);
L2:=L2+0.00000000419*COS(5.26851686707+85.82729883120*x);
L2:=L2+0.00000000322*COS(0.80223983857+6283.07584999140*x);
L2:=L2+0.00000000323*COS(3.86700993914+576.16138801060*x);
L2:=L2+0.00000000321*COS(2.17186032970+10213.28554621100*x);
L2:=L2+0.00000000355*COS(2.80560859177+344.70304530790*x);
L2:=L2+0.00000000311*COS(3.77477255556+1891.23767093880*x);
L2:=L2+0.00000000318*COS(5.22020784209+142.44965013380*x);
L2:=L2+0.00000000315*COS(0.52272202855+5849.36411211460*x);
L2:=L2+0.00000000428*COS(4.63722058283+1898.35121793960*x);
L2:=L2+0.00000000337*COS(0.68198429948+45.57665103870*x);
L2:=L2+0.00000000316*COS(0.54074780109+444.75743814070*x);
L2:=L2+0.00000000310*COS(1.41032075652+273.10284047830*x);
L2:=L2+0.00000000311*COS(3.53744556230+251.43213107580*x);
L2:=L2+0.00000000295*COS(1.93253015677+436.15941843160*x);
L2:=L2+0.00000000296*COS(1.97705648834+9779.57380833420*x);
L2:=L2+0.00000000326*COS(3.67854047003+963.40270297140*x);
L2:=L2+0.00000000389*COS(5.76841276132+39.35687591520*x);
L2:=L2+0.00000000277*COS(5.73995694175+92.79783348010*x);
L2:=L2+0.00000000315*COS(4.96371610197+757.21715453420*x);
L2:=L2+0.00000000295*COS(1.81638833900+1493.09366806600*x);
L2:=L2+0.00000000287*COS(0.97698377929+685.47393735270*x);
L2:=L2+0.00000000281*COS(2.66463042095+1286.90811962880*x);
L2:=L2+0.00000000330*COS(5.79776922760+650.94298657790*x);
L2:=L2+0.00000000292*COS(3.97858181479+472.17484191470*x);
L2:=L2+0.00000000266*COS(4.13716111320+601.76425067620*x);
L2:=L2+0.00000000262*COS(0.91887592474+245.54242435240*x);
L2:=L2+0.00000000278*COS(3.08964256591+778.41478318470*x);
L2:=L2+0.00000000277*COS(3.08750916880+621.73803904930*x);
L2:=L2+0.00000000255*COS(3.93981592051+181.05576652360*x);
L2:=L2+0.00000000333*COS(2.04835822938+561.18353448360*x);
L2:=L2+0.00000000247*COS(2.92754257675+219.44943459230*x);
L2:=L2+0.00000000306*COS(0.36127922606+824.74219374880*x);
L2:=L2+0.00000000253*COS(1.80130756458+5643.17856367740*x);
L2:=L2+0.00000000337*COS(4.97764462199+175.16605980020*x);
L2:=L2+0.00000000273*COS(0.66599369335+2008.55753915900*x);
L2:=L2+0.00000000227*COS(4.87285356383+661.23792731640*x);
L2:=L2+0.00000000249*COS(3.14202895058+144.14657116320*x);
L2:=L2+0.00000000220*COS(3.93526603081+319.57326339430*x);
L2:=L2+0.00000000212*COS(5.85248164087+546.95644048200*x);
L2:=L2+0.00000000234*COS(1.65314711167+554.06998748280*x);
L2:=L2+0.00000000204*COS(0.88373842674+31.49256938900*x);
L2:=L2+0.00000000205*COS(2.93169866171+1596.18644228460*x);
L2:=L2+0.00000000201*COS(3.36504567824+1080.72257119160*x);
L2:=L2+0.00000000224*COS(4.34612745705+1382.88734684660*x);
L2:=L2+0.00000000192*COS(5.13697232918+329.72519178090*x);
L2:=L2+0.00000000208*COS(3.08549771485+41.64449777560*x);
L2:=L2+0.00000000236*COS(0.07998742860+1141.13406340540*x);
L2:=L2+0.00000000203*COS(4.13011580915+2627.11418447060*x);
L2:=L2+0.00000000203*COS(0.13969067385+1485.98012106520*x);
L2:=L2+0.00000000204*COS(3.38137545713+699.70103135430*x);
L2:=L2+0.00000000212*COS(4.52370676085+2310.72231481400*x);
L2:=L2+0.00000000218*COS(5.79277335862+2221.85663459700*x);
L2:=L2+0.00000000213*COS(0.50441377637+934.94851496820*x);
L2:=L2+0.00000000210*COS(5.04017633795+2420.92863603340*x);
L2:=L2+0.00000000214*COS(4.64286758581+2317.83586181480*x);
L2:=L2+0.00000000178*COS(0.84588580004+128.36556848410*x);
L2:=L2+0.00000000170*COS(2.75006619605+710.74673161820*x);
L2:=L2+0.00000000171*COS(4.32615182967+291.26208774300*x);
L2:=L2+0.00000000172*COS(3.46971306920+501.37978944330*x);
L2:=L2+0.00000000170*COS(1.05408992106+526.50957135690*x);
L2:=L2+0.00000000162*COS(1.15683042950+519.39602435610*x);
L2:=L2+0.00000000180*COS(4.96266204107+1670.82502850000*x);
L2:=L2+0.00000000172*COS(1.65385549578+916.93228005540*x);
L2:=L2+0.00000000170*COS(2.30821101766+429.04587143080*x);
L2:=L2+0.00000000170*COS(5.98716489326+643.82943957710*x);
L2:=L2+0.00000000173*COS(5.19933564968+1354.43315884340*x);
L2:=L2+0.00000000195*COS(4.50165508529+2214.74308759620*x);
L2:=L2+0.00000000156*COS(4.16290662749+572.22923474750*x);
L2:=L2+0.00000000153*COS(1.23776248578+2413.81508903260*x);
L2:=L2+0.00000000150*COS(0.63076983213+1478.86657406440*x);
L2:=L2+0.00000000169*COS(4.28090123029+305.34616939270*x);
L2:=L2+0.00000000174*COS(6.23077892653+3384.33133900480*x);
L2:=L2+0.00000000149*COS(3.13274908516+9573.38825989700*x);
L2:=L2+0.00000000162*COS(6.25601818345+213.25091132820*x);
L2:=L2+0.00000000149*COS(4.81749019484+945.99421523210*x);
L2:=L2+0.00000000162*COS(0.88610129190+216.21985674480*x);
L2:=L2+0.00000000133*COS(2.31915371262+156.67674413540*x);
L2:=L2+0.00000000165*COS(6.06456216591+732.69511979410*x);
L2:=L2+0.00000000141*COS(6.14293754333+1795.25844372100*x);
L2:=L2+0.00000000133*COS(0.06530337135+218.71572140940*x);
L2:=L2+0.00000000162*COS(3.17058130506+213.34727954780*x);
L2:=L2+0.00000000125*COS(2.07143636845+425.11371816770*x);
L2:=L2+0.00000000146*COS(1.88627500632+211.81462272970*x);
L2:=L2+0.00000000113*COS(2.79541965778+235.39049596580*x);
L2:=L2+0.00000000117*COS(0.76464798684+479.28838891550*x);
L2:=L2+0.00000000108*COS(3.95650672786+570.74476203920*x);
L2:=L2+0.00000000106*COS(0.12820734703+188.02630117250*x);
L2:=L2+0.00000000134*COS(3.58244908862+849.26422848890*x);
L2:=L2+0.00000000114*COS(0.25990388555+398.14400287280*x);
L2:=L2+0.00000000112*COS(2.39181495831+217.49188113200*x);
L2:=L2+0.00000000091*COS(2.50716605179+121.25202148330*x);
L2:=L2+0.00000000091*COS(1.75367948574+213.82036029980*x);
L2:=L2+0.00000000088*COS(5.26121947108+395.57870223900*x);
L2:=L2+0.00000000096*COS(3.98832609364+289.56516671360*x);
L2:=L2+0.00000000091*COS(0.35318362186+312.45971639350*x);
L2:=L2+0.00000000112*COS(1.14387590923+1802.37199072180*x);
L2:=L2+0.00000000082*COS(3.73605217214+207.67002114550*x);
L2:=L2+0.00000000082*COS(6.06283262812+210.37833413120*x);
L2:=L2+0.00000000084*COS(3.34470673492+67.66805156650*x);
L2:=L2+0.00000000086*COS(2.73917300180+5863.59120611620*x);
L2:=L2+0.00000000083*COS(2.81499116485+776.93031047640*x);
L2:=L2+0.00000000091*COS(1.26160093170+212.77783057620*x);
L2:=L2+0.00000000090*COS(2.08722491981+2111.65031337760*x);
L2:=L2+0.00000000080*COS(2.13136842916+421.93232443000*x);
L2:=L2+0.00000000082*COS(4.16358350281+9793.80090233580*x);
L2:=L2+0.00000000077*COS(2.96973341607+431.26405732200*x);
L2:=L2+0.00000000079*COS(3.42790361067+417.03696332040*x);
L2:=L2+0.00000000079*COS(3.18693585419+320.32402291970*x);
L2:=L2+0.00000000080*COS(0.78975763683+204.70107572890*x);
L2:=L2+0.00000000077*COS(1.89354243952+556.51766803760*x);
L2:=L2+0.00000000073*COS(4.85923277221+2118.76386037840*x);
L2:=L2+0.00000000071*COS(3.64551577433+198.32124191100*x);

LOCAL L3:=0;
L3:=L3+0.00016038734*COS(5.73945377424+7.11354700080*x);
L3:=L3+0.00004249793*COS(4.58539675603+213.29909543800*x);
L3:=L3+0.00001906524*COS(4.76082050205+220.41264243880*x);
L3:=L3+0.00001465687*COS(5.91326678323+206.18554843720*x);
L3:=L3+0.00001162041*COS(5.61973132428+14.22709400160*x);
L3:=L3+0.00001066581*COS(3.60816533142+426.59819087600*x);
L3:=L3+0.00000239377*COS(3.86088273439+433.71173787680*x);
L3:=L3+0.00000236975*COS(5.76826451465+199.07200143640*x);
L3:=L3+0.00000165641*COS(5.11641150216+3.18139373770*x);
L3:=L3+0.00000131409*COS(4.74327544615+227.52618943960*x);
L3:=L3+0.00000151352*COS(2.73594641861+639.89728631400*x);
L3:=L3+0.00000061630*COS(4.74287052463+103.09277421860*x);
L3:=L3+0.00000063365*COS(0.22850089497+419.48464387520*x);
L3:=L3+0.00000040437*COS(5.47298059144+21.34064100240*x);
L3:=L3+0.00000040205*COS(5.96420266720+95.97922721780*x);
L3:=L3+0.00000038746*COS(5.83386199529+110.20632121940*x);
L3:=L3+0.00000028025*COS(3.01235311514+647.01083331480*x);
L3:=L3+0.00000025029*COS(0.98808170740+3.93215326310*x);
L3:=L3+0.00000018101*COS(1.02506397063+412.37109687440*x);
L3:=L3+0.00000017879*COS(3.31913418974+309.27832265580*x);
L3:=L3+0.00000016208*COS(3.89825272754+440.82528487760*x);
L3:=L3+0.00000015763*COS(5.61667809625+117.31986822020*x);
L3:=L3+0.00000019014*COS(1.91614237463+853.19638175200*x);
L3:=L3+0.00000018262*COS(4.96738415934+10.29494073850*x);
L3:=L3+0.00000012947*COS(1.18068953942+88.86568021700*x);
L3:=L3+0.00000017919*COS(4.20376505349+216.48048917570*x);
L3:=L3+0.00000011453*COS(5.57520615096+11.04570026390*x);
L3:=L3+0.00000010548*COS(5.92906266269+191.95845443560*x);
L3:=L3+0.00000010389*COS(3.94838736947+209.36694217490*x);
L3:=L3+0.00000008650*COS(3.39335369698+302.16477565500*x);
L3:=L3+0.00000007580*COS(4.87736913157+323.50541665740*x);
L3:=L3+0.00000006697*COS(0.38198725552+632.78373931320*x);
L3:=L3+0.00000005864*COS(1.05621157685+210.11770170030*x);
L3:=L3+0.00000005449*COS(4.64268475485+234.63973644040*x);
L3:=L3+0.00000006327*COS(2.25492722762+522.57741809380*x);
L3:=L3+0.00000003602*COS(2.30677010956+515.46387109300*x);
L3:=L3+0.00000003229*COS(2.20309400066+860.30992875280*x);
L3:=L3-0.00000003701;
L3:=L3+0.00000002583*COS(4.93447677059+224.34479570190*x);
L3:=L3+0.00000002543*COS(0.42393884183+625.67019231240*x);
L3:=L3+0.00000002213*COS(3.19814958289+202.25339517410*x);
L3:=L3+0.00000002421*COS(4.76621391814+330.61896365820*x);
L3:=L3+0.00000002850*COS(0.58604395010+529.69096509460*x);
L3:=L3+0.00000001965*COS(4.39525359412+124.43341522100*x);
L3:=L3+0.00000002154*COS(1.35488209144+405.25754987360*x);
L3:=L3+0.00000002296*COS(3.34809165905+429.77958461370*x);
L3:=L3+0.00000002018*COS(3.06693569701+654.12438031560*x);
L3:=L3+0.00000001979*COS(1.02981005658+728.76296653100*x);
L3:=L3+0.00000001868*COS(3.09383546177+422.66603761290*x);
L3:=L3+0.00000001846*COS(4.15225985450+536.80451209540*x);
L3:=L3+0.00000002194*COS(1.18918501013+1066.49547719000*x);
L3:=L3+0.00000002090*COS(4.15631351317+223.59403617650*x);
L3:=L3+0.00000001481*COS(0.37916705169+316.39186965660*x);
L3:=L3+0.00000001720*COS(5.82865773356+195.13984817330*x);
L3:=L3+0.00000001460*COS(1.57663426355+81.75213321620*x);
L3:=L3+0.00000001623*COS(6.03706764648+742.99006053260*x);
L3:=L3+0.00000001286*COS(1.66154726117+63.73589830340*x);
L3:=L3+0.00000001304*COS(5.02409881054+956.28915597060*x);
L3:=L3+0.00000001446*COS(2.10575519127+838.96928775040*x);
L3:=L3+0.00000001245*COS(3.88109752770+269.92144674060*x);
L3:=L3+0.00000001018*COS(3.72599601656+295.05122865420*x);
L3:=L3+0.00000001323*COS(1.38492882986+735.87651353180*x);
L3:=L3+0.00000001318*COS(2.33460998999+217.23124870110*x);
L3:=L3+0.00000000943*COS(2.75813531246+284.14854074220*x);
L3:=L3+0.00000000906*COS(0.71155526266+846.08283475120*x);
L3:=L3+0.00000000886*COS(3.83754799777+447.93883187840*x);
L3:=L3+0.00000000943*COS(3.31480217015+18.15924726470*x);
L3:=L3+0.00000000800*COS(4.71386673963+56.62235130260*x);
L3:=L3+0.00000000908*COS(2.02119147951+831.85574074960*x);
L3:=L3+0.00000000787*COS(0.80410269937+1045.15483618760*x);
L3:=L3+0.00000000709*COS(4.27064410504+437.64389113990*x);
L3:=L3+0.00000000651*COS(6.17565900032+942.06206196900*x);
L3:=L3+0.00000000785*COS(2.40767785311+203.00415469950*x);
L3:=L3+0.00000000702*COS(1.64585301418+423.41679713830*x);
L3:=L3+0.00000000543*COS(2.86326941725+184.84490743480*x);
L3:=L3+0.00000000532*COS(6.25762144463+1059.38193018920*x);
L3:=L3+0.00000000521*COS(3.43013038466+149.56319713460*x);
L3:=L3+0.00000000484*COS(4.88366060720+1272.68102562720*x);
L3:=L3+0.00000000437*COS(5.40220619672+408.43894361130*x);
L3:=L3+0.00000000388*COS(2.57589594168+508.35032409220*x);
L3:=L3+0.00000000421*COS(4.05836524024+543.91805909620*x);
L3:=L3+0.00000000375*COS(1.22747948298+2324.94940881560*x);
L3:=L3+0.00000000347*COS(0.59237194522+22.09140052780*x);
L3:=L3+0.00000000433*COS(1.69090148012+1155.36115740700*x);
L3:=L3+0.00000000389*COS(1.46170367972+1073.60902419080*x);
L3:=L3+0.00000000307*COS(1.82185086955+628.85158605010*x);
L3:=L3+0.00000000409*COS(1.21858750514+1052.26838318840*x);
L3:=L3+0.00000000309*COS(0.33610530663+6076.89030155420*x);
L3:=L3+0.00000000309*COS(1.42279282226+6062.66320755260*x);
L3:=L3+0.00000000340*COS(1.83325770310+1141.13406340540*x);
L3:=L3+0.00000000303*COS(2.41584747330+127.47179660680*x);
L3:=L3+0.00000000305*COS(5.34154702988+131.40394986990*x);
L3:=L3+0.00000000298*COS(2.28594631393+635.96513305090*x);
L3:=L3+0.00000000372*COS(1.03723911390+313.21047591890*x);
L3:=L3+0.00000000338*COS(0.69100012338+1361.54670584420*x);
L3:=L3+0.00000000325*COS(1.78816356937+1148.24761040620*x);
L3:=L3+0.00000000322*COS(1.18628805010+721.64941953020*x);
L3:=L3+0.00000000271*COS(2.45663156460+415.55249061210*x);
L3:=L3+0.00000000251*COS(3.12046701975+1382.88734684660*x);
L3:=L3+0.00000000254*COS(3.00353256829+618.55664531160*x);
L3:=L3+0.00000000295*COS(0.35280179538+2730.20695868920*x);
L3:=L3+0.00000000242*COS(1.52154324392+70.84944530420*x);
L3:=L3+0.00000000296*COS(0.89576757167+2104.53676637680*x);
L3:=L3+0.00000000264*COS(3.00987438634+661.23792731640*x);
L3:=L3+0.00000000267*COS(0.31623829657+1677.93857550080*x);
L3:=L3+0.00000000270*COS(2.56774718753+643.07868005170*x);
L3:=L3+0.00000000261*COS(1.55058302472+1457.52593306200*x);
L3:=L3+0.00000000246*COS(2.29214585472+867.42347575360*x);
L3:=L3+0.00000000269*COS(3.18157515051+750.10360753340*x);
L3:=L3+0.00000000272*COS(1.12208982319+1788.14489672020*x);
L3:=L3+0.00000000256*COS(0.37673546414+1279.79457262800*x);
L3:=L3+0.00000000206*COS(1.81129778306+497.44763618020*x);
L3:=L3+0.00000000251*COS(0.61933213502+2413.81508903260*x);
L3:=L3+0.00000000237*COS(3.35941544147+436.89313161450*x);
L3:=L3+0.00000000247*COS(0.10102936687+99.91138048090*x);
L3:=L3+0.00000000247*COS(0.93125798111+52.69019803950*x);
L3:=L3+0.00000000221*COS(2.07880035795+824.74219374880*x);
L3:=L3+0.00000000197*COS(6.16682223437+1258.45393162560*x);
L3:=L3+0.00000000229*COS(5.57917534840+2943.50605412720*x);
L3:=L3+0.00000000227*COS(0.43324651601+2737.32050569000*x);
L3:=L3+0.00000000203*COS(4.12623986247+337.73251065900*x);
L3:=L3+0.00000000214*COS(3.57607524509+934.94851496820*x);
L3:=L3+0.00000000212*COS(1.25688162158+1773.91780271860*x);
L3:=L3+0.00000000215*COS(0.88867647880+1038.04128918680*x);
L3:=L3+0.00000000244*COS(5.51572084570+231.45834270270*x);
L3:=L3+0.00000000181*COS(2.13821830481+416.30325013750*x);
L3:=L3+0.00000000210*COS(4.19139167658+2221.85663459700*x);
L3:=L3+0.00000000178*COS(2.91685344537+74.78159856730*x);
L3:=L3+0.00000000201*COS(0.46214583002+2854.64037391020*x);
L3:=L3+0.00000000236*COS(4.64388694899+1905.46476494040*x);
L3:=L3+0.00000000199*COS(1.54991619669+1471.75302706360*x);
L3:=L3+0.00000000199*COS(0.70725247497+2420.92863603340*x);
L3:=L3+0.00000000162*COS(2.51488345020+430.53034413910*x);
L3:=L3+0.00000000160*COS(1.23508694599+1596.18644228460*x);
L3:=L3+0.00000000175*COS(4.14605894816+2090.30967237520*x);
L3:=L3+0.00000000152*COS(0.05796022559+32.24332891440*x);
L3:=L3+0.00000000176*COS(1.29002070623+490.33408917940*x);
L3:=L3+0.00000000154*COS(3.60622857548+650.94298657790*x);
L3:=L3+0.00000000185*COS(4.74969742128+319.57326339430*x);
L3:=L3+0.00000000154*COS(1.54587199996+1464.63948006280*x);
L3:=L3+0.00000000108*COS(4.25125786500+145.63104387150*x);
L3:=L3+0.00000000106*COS(1.04047809351+1162.47470440780*x);
L3:=L3+0.00000000114*COS(2.64055737100+362.86229257260*x);
L3:=L3+0.00000000093*COS(3.36746275886+483.22054217860*x);
L3:=L3+0.00000000091*COS(2.05796248692+210.85141488320*x);
L3:=L3+0.00000000091*COS(4.53336314765+241.75328344120*x);
L3:=L3+0.00000000072*COS(3.74361312157+1485.98012106520*x);
L3:=L3+0.00000000076*COS(3.33892447677+195.89060769870*x);

LOCAL L4:=0;
L4:=L4+0.00001661894*COS(3.99826248978+7.11354700080*x);
L4:=L4+0.00000257107*COS(2.98436499013+220.41264243880*x);
L4:=L4+0.00000236344*COS(3.90241428075+14.22709400160*x);
L4:=L4+0.00000149418*COS(2.74110824208+213.29909543800*x);
L4:=L4+0.00000109598*COS(1.51515739251+206.18554843720*x);
L4:=L4-0.00000113953;
L4:=L4+0.00000068390*COS(1.72120953337+426.59819087600*x);
L4:=L4+0.00000037699*COS(1.23795458356+199.07200143640*x);
L4:=L4+0.00000040060*COS(2.04644897412+433.71173787680*x);
L4:=L4+0.00000031219*COS(3.01094184090+227.52618943960*x);
L4:=L4+0.00000015111*COS(0.82897064529+639.89728631400*x);
L4:=L4+0.00000009444*COS(3.71485300868+21.34064100240*x);
L4:=L4+0.00000005690*COS(2.41995290633+419.48464387520*x);
L4:=L4+0.00000004470*COS(1.45120818748+95.97922721780*x);
L4:=L4+0.00000005608*COS(1.15607095740+647.01083331480*x);
L4:=L4+0.00000004463*COS(2.11783225176+440.82528487760*x);
L4:=L4+0.00000003229*COS(4.09278077834+110.20632121940*x);
L4:=L4+0.00000002871*COS(2.77203153866+412.37109687440*x);
L4:=L4+0.00000002796*COS(3.00730249564+88.86568021700*x);
L4:=L4+0.00000002638*COS(0.00255721254+853.19638175200*x);
L4:=L4+0.00000002574*COS(0.39246854091+103.09277421860*x);
L4:=L4+0.00000001862*COS(5.07955457727+309.27832265580*x);
L4:=L4+0.00000002225*COS(3.77689198137+117.31986822020*x);
L4:=L4+0.00000001769*COS(5.19176876406+302.16477565500*x);
L4:=L4+0.00000001921*COS(2.82884328662+234.63973644040*x);
L4:=L4+0.00000001805*COS(2.23816036743+216.48048917570*x);
L4:=L4+0.00000001211*COS(1.54685246534+191.95845443560*x);
L4:=L4+0.00000000765*COS(3.44501766503+323.50541665740*x);
L4:=L4+0.00000000763*COS(4.83197222448+210.11770170030*x);
L4:=L4+0.00000000613*COS(4.19052656353+515.46387109300*x);
L4:=L4+0.00000000648*COS(2.28591710303+209.36694217490*x);
L4:=L4+0.00000000616*COS(4.03194472161+522.57741809380*x);
L4:=L4+0.00000000630*COS(2.37952532019+632.78373931320*x);
L4:=L4+0.00000000639*COS(0.29772678242+860.30992875280*x);
L4:=L4+0.00000000559*COS(2.17110060530+124.43341522100*x);
L4:=L4+0.00000000442*COS(2.23500083592+447.93883187840*x);
L4:=L4+0.00000000407*COS(5.44515970990+1066.49547719000*x);
L4:=L4+0.00000000469*COS(1.26889429317+654.12438031560*x);
L4:=L4+0.00000000488*COS(3.20329778617+405.25754987360*x);
L4:=L4+0.00000000415*COS(3.12435410343+330.61896365820*x);
L4:=L4+0.00000000442*COS(3.38933498625+81.75213321620*x);
L4:=L4+0.00000000332*COS(4.12464206608+838.96928775040*x);
L4:=L4+0.00000000320*COS(3.18332026736+529.69096509460*x);
L4:=L4+0.00000000312*COS(1.40962796637+429.77958461370*x);
L4:=L4+0.00000000291*COS(3.18885372262+1464.63948006280*x);
L4:=L4+0.00000000333*COS(2.94355912397+728.76296653100*x);
L4:=L4+0.00000000235*COS(3.67049647573+1148.24761040620*x);
L4:=L4+0.00000000286*COS(2.57895004576+1045.15483618760*x);
L4:=L4+0.00000000223*COS(3.57980034401+1155.36115740700*x);
L4:=L4+0.00000000261*COS(2.04564143519+1677.93857550080*x);
L4:=L4+0.00000000218*COS(2.61967125327+536.80451209540*x);
L4:=L4+0.00000000262*COS(2.48322150677+625.67019231240*x);
L4:=L4+0.00000000191*COS(4.39064160974+1574.84580128220*x);
L4:=L4+0.00000000176*COS(1.26161895188+422.66603761290*x);
L4:=L4+0.00000000190*COS(2.32693171200+223.59403617650*x);
L4:=L4+0.00000000185*COS(1.08713469614+742.99006053260*x);
L4:=L4+0.00000000168*COS(0.69946458053+824.74219374880*x);
L4:=L4+0.00000000177*COS(5.02663339078+203.00415469950*x);
L4:=L4+0.00000000218*COS(0.40426546037+867.42347575360*x);
L4:=L4+0.00000000178*COS(3.67593243311+831.85574074960*x);
L4:=L4+0.00000000175*COS(5.75326979098+1073.60902419080*x);
L4:=L4+0.00000000156*COS(3.02120117572+1781.03134971940*x);
L4:=L4+0.00000000148*COS(2.28313808274+295.05122865420*x);
L4:=L4+0.00000000150*COS(3.48436135302+956.28915597060*x);
L4:=L4+0.00000000152*COS(1.91404443241+942.06206196900*x);
L4:=L4+0.00000000146*COS(6.16519696640+316.39186965660*x);
L4:=L4+0.00000000096*COS(2.93247663741+224.34479570190*x);
L4:=L4+0.00000000088*COS(4.48383632427+423.41679713830*x);

LOCAL L5:=0;
L5:=L5+0.00000123615*COS(2.25923345732+7.11354700080*x);
L5:=L5+0.00000034190*COS(2.16250652689+14.22709400160*x);
L5:=L5+0.00000027546*COS(1.19868150215+220.41264243880*x);
L5:=L5+0.00000005818*COS(1.21584270184+227.52618943960*x);
L5:=L5+0.00000005318*COS(0.23550400093+433.71173787680*x);
L5:=L5+0.00000003677*COS(6.22669694355+426.59819087600*x);
L5:=L5+0.00000003057*COS(2.97372046322+199.07200143640*x);
L5:=L5+0.00000002861*COS(4.28710932685+206.18554843720*x);
L5:=L5+0.00000001617*COS(6.25265362286+213.29909543800*x);
L5:=L5+0.00000001279*COS(5.27612561266+639.89728631400*x);
L5:=L5+0.00000000932*COS(5.56741549127+647.01083331480*x);
L5:=L5+0.00000000756*COS(6.17716234487+191.95845443560*x);
L5:=L5+0.00000000760*COS(0.69475544472+302.16477565500*x);
L5:=L5+0.00000001038*COS(0.23516951637+440.82528487760*x);
L5:=L5-0.00000001007;
L5:=L5+0.00000000549*COS(4.87733288264+88.86568021700*x);
L5:=L5+0.00000000504*COS(4.77955496203+419.48464387520*x);
L5:=L5+0.00000000346*COS(4.31847547394+853.19638175200*x);
L5:=L5+0.00000000392*COS(5.69922389094+654.12438031560*x);
L5:=L5+0.00000000242*COS(2.05052677361+323.50541665740*x);
L5:=L5+0.00000000266*COS(1.11384528244+234.63973644040*x);
L5:=L5+0.00000000199*COS(0.88505901097+309.27832265580*x);
L5:=L5+0.00000000258*COS(5.10074489186+95.97922721780*x);
L5:=L5+0.00000000166*COS(2.40063312194+515.46387109300*x);
L5:=L5+0.00000000155*COS(4.70433216164+860.30992875280*x);
L5:=L5+0.00000000089*COS(1.36371070380+412.37109687440*x);
L5:=L5+0.00000000102*COS(0.49450039082+117.31986822020*x);

LOCAL x2=x*x;
LOCAL x3=x2*x;
LOCAL x4=x3*x;
LOCAL x5=x4*x;

RETURN (180/PI)*((L0+L1*x+L2*x2+L3*x3+L4*x4+L5*x5) MOD (2*PI));
END;

//Heliocentric latitude of Saturn
EXPORT Bsaturn(x)
BEGIN
LOCAL B0:=0;
B0:=B0+0.04330678040*COS(3.60284428399+213.29909543800*x);
B0:=B0+0.00240348303*COS(2.85238489390+426.59819087600*x);
B0:=B0+0.00084745939;
B0:=B0+0.00030863357*COS(3.48441504465+220.41264243880*x);
B0:=B0+0.00034116063*COS(0.57297307844+206.18554843720*x);
B0:=B0+0.00014734070*COS(2.11846597870+639.89728631400*x);
B0:=B0+0.00009916668*COS(5.79003189405+419.48464387520*x);
B0:=B0+0.00006993564*COS(4.73604689179+7.11354700080*x);
B0:=B0+0.00004807587*COS(5.43305315602+316.39186965660*x);
B0:=B0+0.00004788392*COS(4.96512927420+110.20632121940*x);
B0:=B0+0.00003432125*COS(2.73255752123+433.71173787680*x);
B0:=B0+0.00001506129*COS(6.01304536144+103.09277421860*x);
B0:=B0+0.00001060298*COS(5.63099292414+529.69096509460*x);
B0:=B0+0.00000969071*COS(5.20434966103+632.78373931320*x);
B0:=B0+0.00000942050*COS(1.39646678088+853.19638175200*x);
B0:=B0+0.00000707645*COS(3.80302329547+323.50541665740*x);
B0:=B0+0.00000552313*COS(5.13149109045+202.25339517410*x);
B0:=B0+0.00000399675*COS(3.35891413961+227.52618943960*x);
B0:=B0+0.00000316063*COS(1.99716764199+647.01083331480*x);
B0:=B0+0.00000319380*COS(3.62571550980+209.36694217490*x);
B0:=B0+0.00000284494*COS(4.88648481625+224.34479570190*x);
B0:=B0+0.00000314225*COS(0.46510272410+217.23124870110*x);
B0:=B0+0.00000236442*COS(2.13887472281+11.04570026390*x);
B0:=B0+0.00000215354*COS(5.94982610103+846.08283475120*x);
B0:=B0+0.00000208522*COS(2.12003893769+415.55249061210*x);
B0:=B0+0.00000178958*COS(2.95361514672+63.73589830340*x);
B0:=B0+0.00000207213*COS(0.73021462851+199.07200143640*x);
B0:=B0+0.00000139140*COS(1.99821990940+735.87651353180*x);
B0:=B0+0.00000134884*COS(5.24500819605+742.99006053260*x);
B0:=B0+0.00000140585*COS(0.64417620299+490.33408917940*x);
B0:=B0+0.00000121669*COS(3.11537140876+522.57741809380*x);
B0:=B0+0.00000139240*COS(4.59535168021+14.22709400160*x);
B0:=B0+0.00000115524*COS(3.10891547171+216.48048917570*x);
B0:=B0+0.00000114218*COS(0.96261442133+210.11770170030*x);
B0:=B0+0.00000096376*COS(4.48164339766+117.31986822020*x);
B0:=B0+0.00000080593*COS(1.31692750150+277.03499374140*x);
B0:=B0+0.00000072952*COS(3.05988482370+536.80451209540*x);
B0:=B0+0.00000069261*COS(4.92378633635+309.27832265580*x);
B0:=B0+0.00000074302*COS(2.89376539620+149.56319713460*x);
B0:=B0+0.00000068040*COS(2.18002263974+351.81659230870*x);
B0:=B0+0.00000061734*COS(0.67728106562+1066.49547719000*x);
B0:=B0+0.00000056598*COS(2.60963391288+440.82528487760*x);
B0:=B0+0.00000048864*COS(5.78725874107+95.97922721780*x);
B0:=B0+0.00000048243*COS(2.18211837430+74.78159856730*x);
B0:=B0+0.00000038304*COS(5.29151303843+1059.38193018920*x);
B0:=B0+0.00000036323*COS(1.63348365121+628.85158605010*x);
B0:=B0+0.00000035055*COS(1.71279210041+1052.26838318840*x);
B0:=B0+0.00000034270*COS(2.45740470599+422.66603761290*x);
B0:=B0+0.00000034313*COS(5.97994514798+412.37109687440*x);
B0:=B0+0.00000033787*COS(1.14073392951+949.17560896980*x);
B0:=B0+0.00000031633*COS(4.14722153007+437.64389113990*x);
B0:=B0+0.00000036833*COS(6.27769966148+1162.47470440780*x);
B0:=B0+0.00000026980*COS(1.27154816810+860.30992875280*x);
B0:=B0+0.00000023516*COS(2.74936525342+838.96928775040*x);
B0:=B0+0.00000023460*COS(0.98962849901+210.85141488320*x);
B0:=B0+0.00000023600*COS(4.11386961467+3.93215326310*x);
B0:=B0+0.00000023631*COS(3.07427204313+215.74677599280*x);
B0:=B0+0.00000020813*COS(3.51084686918+330.61896365820*x);
B0:=B0+0.00000019509*COS(2.81857577372+127.47179660680*x);
B0:=B0+0.00000017103*COS(3.89784279922+214.26230328450*x);
B0:=B0+0.00000017635*COS(6.19715516746+703.63318461740*x);
B0:=B0+0.00000017824*COS(2.28524493886+388.46515523820*x);
B0:=B0+0.00000020935*COS(0.14356167048+430.53034413910*x);
B0:=B0+0.00000016551*COS(1.66649120724+38.13303563780*x);
B0:=B0+0.00000019100*COS(2.97699096081+137.03302416240*x);
B0:=B0+0.00000015517*COS(4.54798410406+956.28915597060*x);
B0:=B0+0.00000017065*COS(0.16611115812+212.33588759150*x);
B0:=B0+0.00000014169*COS(0.48937283445+213.34727954780*x);
B0:=B0+0.00000019027*COS(6.27326062836+423.41679713830*x);
B0:=B0+0.00000013344*COS(2.37136126257+429.77958461370*x);
B0:=B0+0.00000012565*COS(1.03178071173+563.63121503840*x);
B0:=B0+0.00000014173*COS(3.57477564831+213.25091132820*x);
B0:=B0+0.00000011374*COS(1.45300927024+1368.66025284500*x);
B0:=B0+0.00000010585*COS(6.17633425930+200.76892246580*x);
B0:=B0+0.00000010600*COS(3.84358958373+138.51749687070*x);
B0:=B0+0.00000010263*COS(2.17423692422+76.26607127560*x);
B0:=B0+0.00000010072*COS(1.33197220789+565.11568774670*x);
B0:=B0+0.00000012058*COS(0.44149242700+222.86032299360*x);
B0:=B0+0.00000010367*COS(1.85278552549+350.33211960040*x);
B0:=B0+0.00000008706*COS(2.58144528603+1155.36115740700*x);
B0:=B0+0.00000008470*COS(1.97890349826+625.67019231240*x);
B0:=B0+0.00000008518*COS(4.51649648578+3.18139373770*x);
B0:=B0+0.00000007439*COS(4.92597321442+212.77783057620*x);
B0:=B0+0.00000007409*COS(2.03506679104+288.08069400530*x);
B0:=B0+0.00000008137*COS(3.98500592467+85.82729883120*x);
B0:=B0+0.00000007985*COS(2.20794292064+362.86229257260*x);
B0:=B0+0.00000006610*COS(6.14944028835+417.03696332040*x);
B0:=B0+0.00000007753*COS(6.23664549070+1478.86657406440*x);
B0:=B0+0.00000006318*COS(1.87388481013+654.12438031560*x);
B0:=B0+0.00000006319*COS(1.17328438271+1265.56747862640*x);
B0:=B0+0.00000005841*COS(2.35829915285+750.10360753340*x);
B0:=B0+0.00000005808*COS(5.01602242794+479.28838891550*x);
B0:=B0+0.00000008079*COS(0.42574715104+554.06998748280*x);
B0:=B0+0.00000006014*COS(5.58952234348+425.11371816770*x);
B0:=B0+0.00000007444*COS(5.41859596459+213.82036029980*x);
B0:=B0+0.00000007567*COS(2.68446523795+191.20769491020*x);
B0:=B0+0.00000007421*COS(4.19354269508+9.56122755560*x);
B0:=B0+0.00000005466*COS(3.21737829505+234.63973644040*x);
B0:=B0+0.00000005661*COS(1.46982713550+265.98929347750*x);
B0:=B0+0.00000005851*COS(4.81776629912+1.48447270830*x);
B0:=B0+0.00000005341*COS(3.45755372717+203.73786788240*x);
B0:=B0+0.00000004960*COS(1.04628615559+12.53017297220*x);
B0:=B0+0.00000004920*COS(3.85622235967+173.94221952280*x);
B0:=B0+0.00000004883*COS(1.94823282939+195.13984817330*x);
B0:=B0+0.00000005621*COS(0.81869581274+52.69019803950*x);
B0:=B0+0.00000005200*COS(3.32827437636+515.46387109300*x);
B0:=B0+0.00000004927*COS(3.81806549732+225.82926841020*x);
B0:=B0+0.00000005033*COS(0.10756875163+252.65597135320*x);
B0:=B0+0.00000004416*COS(5.45506938037+408.43894361130*x);
B0:=B0+0.00000004169*COS(1.21145214135+1685.05212250160*x);
B0:=B0+0.00000004066*COS(6.24213578122+1279.79457262800*x);
B0:=B0+0.00000003972*COS(6.13850317719+217.49188113200*x);
B0:=B0+0.00000005398*COS(5.67212179194+1375.77379984580*x);
B0:=B0+0.00000003916*COS(5.96105725915+210.37833413120*x);
B0:=B0+0.00000004017*COS(0.99840226682+842.15068148810*x);
B0:=B0+0.00000003899*COS(4.58983662507+1272.68102562720*x);
B0:=B0+0.00000003764*COS(3.30663337976+212.54833591260*x);
B0:=B0+0.00000004345*COS(3.18562241830+414.06801790380*x);
B0:=B0+0.00000003565*COS(4.75262007127+207.88246946660*x);
B0:=B0+0.00000003542*COS(2.30814954338+1471.75302706360*x);
B0:=B0+0.00000003732*COS(1.61040235688+635.96513305090*x);
B0:=B0+0.00000003709*COS(2.97082943086+223.59403617650*x);
B0:=B0+0.00000003576*COS(3.83436862558+483.22054217860*x);
B0:=B0+0.00000004053*COS(3.72105017218+942.06206196900*x);
B0:=B0+0.00000003756*COS(0.74987556308+214.04985496340*x);
B0:=B0+0.00000003162*COS(3.64550741000+207.67002114550*x);
B0:=B0+0.00000003149*COS(2.27647454229+728.76296653100*x);
B0:=B0+0.00000003971*COS(4.37874143597+216.21985674480*x);
B0:=B0+0.00000003541*COS(5.62281936827+218.71572140940*x);
B0:=B0+0.00000002965*COS(3.40117024932+650.94298657790*x);
B0:=B0+0.00000003949*COS(4.19728912450+209.10630974400*x);
B0:=B0+0.00000002853*COS(4.81077453523+231.45834270270*x);
B0:=B0+0.00000002826*COS(0.86682282341+217.96496188400*x);
B0:=B0+0.00000002970*COS(5.75162134301+160.60889739850*x);
B0:=B0+0.00000002724*COS(0.47941267764+497.44763618020*x);
B0:=B0+0.00000002787*COS(4.03144791896+62.25142559510*x);
B0:=B0+0.00000002605*COS(5.04152791794+65.22037101170*x);
B0:=B0+0.00000002652*COS(0.30602610654+424.15051032120*x);
B0:=B0+0.00000002543*COS(2.76499056123+543.91805909620*x);
B0:=B0+0.00000002485*COS(5.78396049817+99.16062095550*x);
B0:=B0+0.00000003209*COS(0.42853440759+218.92816973050*x);
B0:=B0+0.00000002509*COS(2.94704589100+70.84944530420*x);
B0:=B0+0.00000002308*COS(0.63861650866+251.43213107580*x);
B0:=B0+0.00000002869*COS(4.31959346745+767.36908292080*x);
B0:=B0+0.00000002232*COS(0.56929937568+1073.60902419080*x);
B0:=B0+0.00000002245*COS(1.69945964547+488.84961647110*x);
B0:=B0+0.00000002283*COS(1.55589787463+601.76425067620*x);
B0:=B0+0.00000002384*COS(4.44583493310+21.34064100240*x);
B0:=B0+0.00000002096*COS(5.77425542767+88.86568021700*x);
B0:=B0+0.00000002363*COS(3.35786310868+124.43341522100*x);
B0:=B0+0.00000002162*COS(6.24029269257+1795.25844372100*x);
B0:=B0+0.00000002452*COS(3.19804814047+208.63322899200*x);
B0:=B0+0.00000002033*COS(4.87029603776+327.43756992050*x);
B0:=B0+0.00000001950*COS(5.56004000293+18.15924726470*x);
B0:=B0+0.00000002283*COS(4.22375355881+22.09140052780*x);
B0:=B0+0.00000002217*COS(4.61433094630+302.16477565500*x);
B0:=B0+0.00000001888*COS(5.45600788064+142.44965013380*x);
B0:=B0+0.00000002075*COS(3.55622165076+1169.58825140860*x);
B0:=B0+0.00000002069*COS(2.75786819366+491.81856188770*x);
B0:=B0+0.00000001810*COS(5.96568495526+213.18722085340*x);
B0:=B0+0.00000001813*COS(1.39785500313+211.81462272970*x);
B0:=B0+0.00000001843*COS(1.15001484281+203.00415469950*x);
B0:=B0+0.00000001854*COS(1.41350087782+1581.95934828300*x);
B0:=B0+0.00000001697*COS(3.23613719814+427.56139872250*x);
B0:=B0+0.00000001736*COS(5.45933992115+916.93228005540*x);
B0:=B0+0.00000001714*COS(6.14729146384+643.82943957710*x);
B0:=B0+0.00000001948*COS(5.70817363392+425.63498302950*x);
B0:=B0+0.00000001770*COS(3.36194411768+248.72381809010*x);
B0:=B0+0.00000001611*COS(0.97888081762+2001.44399215820*x);
B0:=B0+0.00000001971*COS(2.59654430358+429.04587143080*x);
B0:=B0+0.00000001628*COS(0.74011617198+177.87437278590*x);
B0:=B0+0.00000001564*COS(2.04342011485+1788.14489672020*x);
B0:=B0+0.00000001574*COS(6.01995224314+426.64637498580*x);
B0:=B0+0.00000001939*COS(5.48134669380+636.71589257630*x);
B0:=B0+0.00000001651*COS(4.61629429952+621.73803904930*x);
B0:=B0+0.00000001552*COS(2.55542734908+692.58748435350*x);
B0:=B0+0.00000001484*COS(6.17173980637+56.62235130260*x);
B0:=B0+0.00000001782*COS(3.26122906302+175.16605980020*x);
B0:=B0+0.00000001503*COS(2.59953333916+228.27694896500*x);
B0:=B0+0.00000001559*COS(0.36281050773+776.93031047640*x);
B0:=B0+0.00000001799*COS(3.46395976970+1258.45393162560*x);
B0:=B0+0.00000001521*COS(3.75588462293+213.51154375910*x);
B0:=B0+0.00000001810*COS(4.37552745264+213.41097002260*x);
B0:=B0+0.00000001521*COS(0.30214462385+213.08664711690*x);
B0:=B0+0.00000001608*COS(4.66724132818+269.92144674060*x);
B0:=B0+0.00000001525*COS(1.47939329423+198.32124191100*x);
B0:=B0+0.00000001408*COS(1.38491846750+501.37978944330*x);
B0:=B0+0.00000001327*COS(0.23760037979+148.07872442630*x);
B0:=B0+0.00000001305*COS(2.41201772023+275.55052103310*x);
B0:=B0+0.00000001578*COS(2.82443242444+426.55000676620*x);
B0:=B0+0.00000001203*COS(1.36928065935+235.39049596580*x);
B0:=B0+0.00000001296*COS(5.75203277385+1692.16566950240*x);
B0:=B0+0.00000001295*COS(3.04090959062+831.85574074960*x);
B0:=B0+0.00000001283*COS(1.62400181159+643.07868005170*x);
B0:=B0+0.00000001617*COS(1.31181209458+214.78356814630*x);
B0:=B0+0.00000001346*COS(4.01262069353+278.51946644970*x);
B0:=B0+0.00000001166*COS(0.09590019561+340.77089204480*x);
B0:=B0+0.00000001115*COS(2.20460481017+221.37585028530*x);
B0:=B0+0.00000001176*COS(1.07528227869+312.19908396260*x);
B0:=B0+0.00000001107*COS(1.50329021421+289.56516671360*x);
B0:=B0+0.00000001143*COS(4.40125874383+213.55972786890*x);
B0:=B0+0.00000001253*COS(0.21632769953+404.50679034820*x);
B0:=B0+0.00000001074*COS(3.17412275025+98.89998852460*x);
B0:=B0+0.00000001103*COS(0.23626839162+617.80588578620*x);
B0:=B0+0.00000001077*COS(3.51670933532+312.45971639350*x);
B0:=B0+0.00000001039*COS(0.53953974796+778.41478318470*x);
B0:=B0+0.00000001195*COS(2.11232088496+205.22234059070*x);
B0:=B0+0.00000001093*COS(5.16243153571+630.33605875840*x);
B0:=B0+0.00000001143*COS(5.93977485365+213.03846300710*x);
B0:=B0+0.00000001040*COS(4.79631324365+106.27416795630*x);
B0:=B0+0.00000001100*COS(0.02509241739+219.44943459230*x);
B0:=B0+0.00000001311*COS(5.93900415785+436.15941843160*x);
B0:=B0+0.00000001260*COS(0.72481995446+355.74874557180*x);
B0:=B0+0.00000000950*COS(2.00801292252+1045.15483618760*x);
B0:=B0+0.00000001186*COS(1.84906064486+151.04766984290*x);
B0:=B0+0.00000000974*COS(3.01092368346+696.51963761660*x);
B0:=B0+0.00000000924*COS(4.88158186437+39.35687591520*x);
B0:=B0+0.00000000961*COS(2.80113869315+738.79727483860*x);
B0:=B0+0.00000001011*COS(6.27004359435+121.25202148330*x);
B0:=B0+0.00000000904*COS(4.15218356485+426.07692601420*x);
B0:=B0+0.00000000904*COS(4.24232505252+10.29494073850*x);
B0:=B0+0.00000000895*COS(2.47587956888+447.93883187840*x);
B0:=B0+0.00000001186*COS(0.85270715988+525.49817940060*x);
B0:=B0+0.00000000824*COS(3.97540449663+210.59078245230*x);
B0:=B0+0.00000000831*COS(4.05299295705+207.14875628370*x);
B0:=B0+0.00000000937*COS(5.44353432307+344.70304530790*x);
B0:=B0+0.00000000823*COS(2.08766677969+358.93013930950*x);
B0:=B0+0.00000000971*COS(5.09512804595+1589.07289528380*x);
B0:=B0+0.00000001037*COS(1.04152859909+2.44768055480*x);
B0:=B0+0.00000000816*COS(0.62175655307+188.92007304980*x);
B0:=B0+0.00000000798*COS(3.36396062989+237.67811782620*x);
B0:=B0+0.00000000755*COS(5.90983584858+284.14854074220*x);
B0:=B0+0.00000000870*COS(1.62765846893+114.13847448250*x);
B0:=B0+0.00000000734*COS(6.23523714922+2111.65031337760*x);
B0:=B0+0.00000000767*COS(2.73651219269+627.36711334180*x);
B0:=B0+0.00000000701*COS(0.72526525525+10213.28554621100*x);
B0:=B0+0.00000000801*COS(5.84130533519+905.88657979150*x);
B0:=B0+0.00000000710*COS(1.78740818763+2104.53676637680*x);
B0:=B0+0.00000000670*COS(0.75839374890+2317.83586181480*x);
B0:=B0+0.00000000720*COS(4.95645178898+638.41281360570*x);
B0:=B0+0.00000000796*COS(4.87623914638+342.25536475310*x);
B0:=B0+0.00000000703*COS(0.35096991676+220.46082654860*x);
B0:=B0+0.00000000835*COS(3.19492825640+1574.84580128220*x);
B0:=B0+0.00000000824*COS(0.08813665925+216.00740842370*x);
B0:=B0+0.00000000653*COS(4.19599635390+247.23934538180*x);
B0:=B0+0.00000000826*COS(4.66845240923+427.11945573780*x);
B0:=B0+0.00000000690*COS(0.41873449575+5856.47765911540*x);
B0:=B0+0.00000000690*COS(1.34023204821+6283.07584999140*x);
B0:=B0+0.00000000690*COS(0.58291546593+213.45915413240*x);
B0:=B0+0.00000000639*COS(1.20304559619+867.42347575360*x);
B0:=B0+0.00000000830*COS(1.57233214789+1898.35121793960*x);
B0:=B0+0.00000000753*COS(1.51187970880+576.16138801060*x);
B0:=B0+0.00000000629*COS(2.83598833891+420.96911658350*x);
B0:=B0+0.00000000690*COS(3.48062808501+213.13903674360*x);
B0:=B0+0.00000000600*COS(5.22938546212+212.02707105080*x);
B0:=B0+0.00000000565*COS(5.28099337758+423.67742956920*x);
B0:=B0+0.00000000552*COS(5.83265103738+84.34282612290*x);
B0:=B0+0.00000000546*COS(3.56588711151+1485.98012106520*x);
B0:=B0+0.00000000642*COS(6.15007145598+179.35884549420*x);
B0:=B0+0.00000000697*COS(1.91977327925+134.58534360760*x);
B0:=B0+0.00000000648*COS(5.15917450752+8.07675484730*x);
B0:=B0+0.00000000551*COS(3.33109164145+980.66817835880*x);
B0:=B0+0.00000000511*COS(3.87073988213+125.98732389850*x);
B0:=B0+0.00000000506*COS(0.80261216855+181.05576652360*x);
B0:=B0+0.00000000564*COS(4.05871107615+831.10498122420*x);
B0:=B0+0.00000000681*COS(3.45804290093+220.36445832900*x);
B0:=B0+0.00000000541*COS(2.39252901431+421.93232443000*x);
B0:=B0+0.00000000498*COS(3.11515053568+439.12836384820*x);
B0:=B0+0.00000000517*COS(2.75430004800+1148.24761040620*x);
B0:=B0+0.00000000491*COS(4.47199498503+558.00214074590*x);
B0:=B0+0.00000000467*COS(4.18144797677+444.75743814070*x);
B0:=B0+0.00000000458*COS(0.60848440253+206.23373254700*x);
B0:=B0+0.00000000542*COS(3.28613020157+245.54242435240*x);
B0:=B0+0.00000000477*COS(5.48556902348+35.42472265210*x);
B0:=B0+0.00000000474*COS(2.42545073874+436.89313161450*x);
B0:=B0+0.00000000481*COS(3.72498040536+206.13736432740*x);
B0:=B0+0.00000000435*COS(1.61732308614+191.95845443560*x);
B0:=B0+0.00000000488*COS(0.26059969650+416.30325013750*x);
B0:=B0+0.00000000493*COS(4.13699180247+518.64526483070*x);
B0:=B0+0.00000000595*COS(5.11706007934+214.57111982520*x);
B0:=B0+0.00000000486*COS(5.17710069856+67.66805156650*x);
B0:=B0+0.00000000463*COS(5.53192185211+418.52143602870*x);
B0:=B0+0.00000000421*COS(5.57377685121+430.79097657000*x);
B0:=B0+0.00000000446*COS(6.20735049659+73.29712585900*x);
B0:=B0+0.00000000421*COS(4.65837340438+543.02428721890*x);
B0:=B0+0.00000000435*COS(2.95256554350+5.41662597140*x);
B0:=B0+0.00000000416*COS(4.36391909218+113.38771495710*x);
B0:=B0+0.00000000495*COS(5.38121485133+391.17346822390*x);
B0:=B0+0.00000000520*COS(3.99939347071+618.55664531160*x);
B0:=B0+0.00000000429*COS(3.26903461513+144.14657116320*x);
B0:=B0+0.00000000435*COS(1.60816661416+2214.74308759620*x);
B0:=B0+0.00000000398*COS(2.38329818919+299.12639426920*x);
B0:=B0+0.00000000399*COS(0.06301179341+206.70681329900*x);
B0:=B0+0.00000000394*COS(2.75496219113+425.84743135060*x);
B0:=B0+0.00000000508*COS(2.86873328929+337.73251065900*x);
B0:=B0+0.00000000475*COS(5.68530292289+320.32402291970*x);
B0:=B0+0.00000000432*COS(0.68132398291+116.42609634290*x);
B0:=B0+0.00000000404*COS(1.84249441289+9786.68735533500*x);
B0:=B0+0.00000000371*COS(5.83382962844+2008.55753915900*x);
B0:=B0+0.00000000382*COS(4.24995364794+387.24131496080*x);
B0:=B0+0.00000000416*COS(3.81986946256+429.51895218280*x);
B0:=B0+0.00000000491*COS(4.18623117082+219.89137757700*x);
B0:=B0+0.00000000352*COS(1.65610545221+963.40270297140*x);
B0:=B0+0.00000000353*COS(5.50209003460+305.34616939270*x);
B0:=B0+0.00000000431*COS(4.39380503963+353.30106501700*x);
B0:=B0+0.00000000375*COS(2.67828133567+319.57326339430*x);
B0:=B0+0.00000000359*COS(3.54801032661+421.18156490460*x);
B0:=B0+0.00000000339*COS(5.19074405462+69.15252427480*x);
B0:=B0+0.00000000358*COS(1.11857595997+1044.40407666220*x);
B0:=B0+0.00000000334*COS(1.84260994740+1361.54670584420*x);
B0:=B0+0.00000000328*COS(6.07106596408+710.74673161820*x);
B0:=B0+0.00000000328*COS(1.48618893585+2420.92863603340*x);
B0:=B0+0.00000000359*COS(5.62797136991+78.71375183040*x);
B0:=B0+0.00000000405*COS(2.91366762549+1891.23767093880*x);
B0:=B0+0.00000000398*COS(2.08900381937+4.66586644600*x);
B0:=B0+0.00000000326*COS(1.62373774313+5.62907429250*x);
B0:=B0+0.00000000405*COS(1.87470341223+114.39910691340*x);
B0:=B0+0.00000000393*COS(0.56487847337+128.95626931510*x);
B0:=B0+0.00000000312*COS(5.29291124448+347.88443904560*x);
B0:=B0+0.00000000310*COS(0.31232452686+427.34895040140*x);
B0:=B0+0.00000000308*COS(2.84912656825+487.36514376280*x);
B0:=B0+0.00000000291*COS(3.25977762780+494.26624244250*x);
B0:=B0+0.00000000303*COS(4.93962873690+373.90799283650*x);
B0:=B0+0.00000000289*COS(2.83591185309+212.07525516060*x);
B0:=B0+0.00000000289*COS(2.05371431350+214.52293571540*x);
B0:=B0+0.00000000398*COS(6.03822674845+432.22726516850*x);
B0:=B0+0.00000000288*COS(6.16001418475+969.62247809490*x);
B0:=B0+0.00000000296*COS(0.30332524090+1055.44977692610*x);
B0:=B0+0.00000000280*COS(1.29728455136+241.61027108930*x);
B0:=B0+0.00000000280*COS(5.41630221077+1493.09366806600*x);
B0:=B0+0.00000000315*COS(6.24003908326+465.95506679120*x);
B0:=B0+0.00000000274*COS(5.03981944861+458.84151979040*x);
B0:=B0+0.00000000296*COS(3.04457317761+211.60217440860*x);
B0:=B0+0.00000000274*COS(2.72607352851+145.63104387150*x);
B0:=B0+0.00000000293*COS(1.32452002382+159.12442469020*x);
B0:=B0+0.00000000263*COS(6.11559198968+2428.04218303420*x);
B0:=B0+0.00000000323*COS(1.17502395659+815.06334611420*x);
B0:=B0+0.00000000345*COS(5.37083374878+428.08266358430*x);
B0:=B0+0.00000000258*COS(0.43205106363+2634.22773147140*x);
B0:=B0+0.00000000275*COS(0.91628212149+849.26422848890*x);
B0:=B0+0.00000000340*COS(1.29378813067+329.72519178090*x);
B0:=B0+0.00000000294*COS(4.29399534634+4.19278569400*x);
B0:=B0+0.00000000339*COS(1.03883773894+32.24332891440*x);
B0:=B0+0.00000000244*COS(3.52504227332+184.98791978670*x);
B0:=B0+0.00000000243*COS(3.13047989401+525.75881183150*x);
B0:=B0+0.00000000260*COS(5.99216785208+20.60692781950*x);
B0:=B0+0.00000000303*COS(3.96772261614+934.94851496820*x);
B0:=B0+0.00000000285*COS(5.69474711283+220.93390730060*x);
B0:=B0+0.00000000239*COS(2.09516779457+292.01284726840*x);
B0:=B0+0.00000000242*COS(0.98744748894+282.45161971280*x);
B0:=B0+0.00000000278*COS(2.81667003542+87.31177153950*x);
B0:=B0+0.00000000285*COS(4.76303256917+54.17467074780*x);
B0:=B0+0.00000000236*COS(5.79560286324+280.96714700450*x);
B0:=B0+0.00000000246*COS(1.83689902078+214.99601646740*x);
B0:=B0+0.00000000221*COS(0.48302467341+153.49535039770*x);
B0:=B0+0.00000000238*COS(3.52738705554+267.47376618580*x);
B0:=B0+0.00000000293*COS(5.91401607974+14.97785352700*x);
B0:=B0+0.00000000235*COS(0.29884419224+14.01464568050*x);
B0:=B0+0.00000000229*COS(3.91975580405+182.27960680100*x);
B0:=B0+0.00000000217*COS(3.96328561940+894.84087952760*x);
B0:=B0+0.00000000218*COS(1.46057992688+2531.13495725280*x);
B0:=B0+0.00000000210*COS(2.01138855049+211.86280683950*x);
B0:=B0+0.00000000210*COS(2.87823761610+214.73538403650*x);
B0:=B0+0.00000000223*COS(2.49651288358+1464.63948006280*x);
B0:=B0+0.00000000217*COS(4.03234048538+835.03713448730*x);
B0:=B0+0.00000000209*COS(2.97542058241+273.10284047830*x);
B0:=B0+0.00000000210*COS(2.56849303008+593.42686339800*x);
B0:=B0+0.00000000218*COS(1.71859101510+0.96320784650*x);
B0:=B0+0.00000000232*COS(1.86083014117+221.16340196420*x);
B0:=B0+0.00000000199*COS(3.53454927143+219.66188291340*x);
B0:=B0+0.00000000197*COS(2.65338829617+864.24208201590*x);
B0:=B0+0.00000000219*COS(3.46267185338+1182.92157353290*x);
B0:=B0+0.00000000199*COS(2.56046317223+264.50482076920*x);
B0:=B0+0.00000000199*COS(2.03508708900+757.21715453420*x);
B0:=B0+0.00000000237*COS(5.05443109284+254.94359321360*x);
B0:=B0+0.00000000191*COS(2.07106909876+756.32338265690*x);
B0:=B0+0.00000000192*COS(1.67985944172+1677.93857550080*x);
B0:=B0+0.00000000191*COS(1.05067348453+702.14871190910*x);
B0:=B0+0.00000000181*COS(1.89151852263+6.15033915430*x);
B0:=B0+0.00000000205*COS(1.98151360584+199.28444975750*x);
B0:=B0+0.00000000181*COS(1.25381796494+2737.32050569000*x);
B0:=B0+0.00000000186*COS(2.81416016738+569.04784100980*x);
B0:=B0+0.00000000215*COS(4.52373060846+3060.82592234740*x);
B0:=B0+0.00000000222*COS(2.90133577623+205.43478891180*x);
B0:=B0+0.00000000246*COS(3.55891849574+1251.34038462480*x);
B0:=B0+0.00000000191*COS(4.20221553993+556.51766803760*x);
B0:=B0+0.00000000217*COS(2.64509967170+2207.62954059540*x);
B0:=B0+0.00000000225*COS(0.14271906959+131.40394986990*x);
B0:=B0+0.00000000189*COS(1.27260556263+192.69216761850*x);
B0:=B0+0.00000000179*COS(6.15189171649+2.92076130680*x);
B0:=B0+0.00000000178*COS(2.01622328964+705.11765732570*x);
B0:=B0+0.00000000181*COS(3.62483757675+233.90602325750*x);
B0:=B0+0.00000000188*COS(2.92836809840+227.31374111850*x);
B0:=B0+0.00000000164*COS(3.50682537694+1382.88734684660*x);
B0:=B0+0.00000000166*COS(5.85452227121+637.44960575920*x);
B0:=B0+0.00000000160*COS(0.13309484488+431.26405732200*x);
B0:=B0+0.00000000158*COS(5.92242110049+96.87299909510*x);
B0:=B0+0.00000000178*COS(4.55557913565+46.47042291600*x);
B0:=B0+0.00000000157*COS(1.35908014451+51.20572533120*x);
B0:=B0+0.00000000155*COS(6.24092514222+464.73122651380*x);
B0:=B0+0.00000000155*COS(6.02684189458+1286.90811962880*x);
B0:=B0+0.00000000155*COS(1.36669731999+206.93630796260*x);
B0:=B0+0.00000000175*COS(4.95121713507+1905.46476494040*x);
B0:=B0+0.00000000153*COS(6.06094547271+561.18353448360*x);
B0:=B0+0.00000000208*COS(4.50537355579+24.37902238820*x);
B0:=B0+0.00000000185*COS(5.49802440713+205.66428357540*x);
B0:=B0+0.00000000160*COS(4.18196878816+3340.61242669980*x);
B0:=B0+0.00000000160*COS(2.85370771355+209.15449385380*x);
B0:=B0+0.00000000161*COS(4.98020340619+2648.45482547300*x);
B0:=B0+0.00000000152*COS(0.85558875667+570.74476203920*x);
B0:=B0+0.00000000156*COS(2.03601440129+217.44369702220*x);
B0:=B0+0.00000000192*COS(3.98017256784+212.40532356070*x);
B0:=B0+0.00000000192*COS(0.90945359875+214.19286731530*x);
B0:=B0+0.00000000198*COS(3.54289000289+533.62311835770*x);
B0:=B0+0.00000000160*COS(2.51522796187+3127.31333126180*x);
B0:=B0+0.00000000145*COS(0.93414637377+1994.33044515740*x);
B0:=B0+0.00000000141*COS(5.66801998888+120.35824960600*x);
B0:=B0+0.00000000141*COS(3.88995778619+454.90936652730*x);
B0:=B0+0.00000000152*COS(1.01453902153+2840.41327990860*x);
B0:=B0+0.00000000172*COS(4.15145223592+2.96894541660*x);
B0:=B0+0.00000000146*COS(5.26789260159+7.06536289100*x);
B0:=B0+0.00000000177*COS(0.43196690516+140.00196957900*x);
B0:=B0+0.00000000144*COS(3.95680110579+300.61086697750*x);
B0:=B0+0.00000000152*COS(4.29475572258+555.55446019110*x);
B0:=B0+0.00000000143*COS(4.15264164139+31.01948863700*x);
B0:=B0+0.00000000138*COS(4.20096561019+731.94436026870*x);
B0:=B0+0.00000000139*COS(0.79924371385+166.82867252200*x);
B0:=B0+0.00000000135*COS(1.27192121638+92.94084583200*x);
B0:=B0+0.00000000165*COS(1.94881873062+107.02492748170*x);
B0:=B0+0.00000000153*COS(3.07590434707+3480.31056622260*x);
B0:=B0+0.00000000125*COS(3.41796878361+1802.37199072180*x);
B0:=B0+0.00000000128*COS(5.83700968658+2324.94940881560*x);
B0:=B0+0.00000000129*COS(2.75851443754+480.77286162380*x);
B0:=B0+0.00000000122*COS(4.75728514255+2854.64037391020*x);
B0:=B0+0.00000000129*COS(4.67730374872+913.96333463880*x);
B0:=B0+0.00000000121*COS(1.19957548726+572.22923474750*x);
B0:=B0+0.00000000146*COS(3.71232877850+546.95644048200*x);
B0:=B0+0.00000000120*COS(4.59083886034+339.28641933650*x);
B0:=B0+0.00000000127*COS(6.19372294369+59.80374504030*x);
B0:=B0+0.00000000123*COS(5.98484393970+477.80391620720*x);
B0:=B0+0.00000000122*COS(5.82973501131+990.22940591440*x);
B0:=B0+0.00000000151*COS(2.39413061881+2524.02141025200*x);
B0:=B0+0.00000000147*COS(4.98199291770+850.01498801430*x);
B0:=B0+0.00000000127*COS(0.47350572907+6.59228213900*x);
B0:=B0+0.00000000116*COS(4.71488890981+1130.23137549340*x);
B0:=B0+0.00000000129*COS(5.42665311725+2538.24850425360*x);
B0:=B0+0.00000000111*COS(4.51520219898+1699.27921650320*x);
B0:=B0+0.00000000114*COS(2.06120434865+952.09637027660*x);
B0:=B0+0.00000000112*COS(4.14736642579+422.40540518200*x);
B0:=B0+0.00000000111*COS(5.53230411085+857.12853501510*x);
B0:=B0+0.00000000109*COS(3.00005651288+420.44785172170*x);
B0:=B0+0.00000000112*COS(2.20667724213+395.57870223900*x);
B0:=B0+0.00000000147*COS(1.52324472511+552.58551477450*x);
B0:=B0+0.00000000118*COS(5.47495367121+2957.73314812880*x);
B0:=B0+0.00000000113*COS(2.57036693965+462.02291352810*x);
B0:=B0+0.00000000122*COS(4.96246567897+638.93407846750*x);
B0:=B0+0.00000000104*COS(1.91139383428+472.17484191470*x);
B0:=B0+0.00000000116*COS(2.82742160564+450.97721326420*x);
B0:=B0+0.00000000115*COS(2.26043201622+1781.03134971940*x);
B0:=B0+0.00000000110*COS(4.86686492403+2914.01423582380*x);
B0:=B0+0.00000000109*COS(4.43848727280+405.99126305650*x);
B0:=B0+0.00000000102*COS(5.90112611078+99.91138048090*x);
B0:=B0+0.00000000101*COS(2.53392410330+640.86049416050*x);
B0:=B0+0.00000000112*COS(5.53802838779+381.35160823740*x);
B0:=B0+0.00000000099*COS(5.92199927896+411.62033734900*x);
B0:=B0+0.00000000100*COS(5.21941099517+426.48631629140*x);
B0:=B0+0.00000000137*COS(2.20269111622+7.16173111060*x);
B0:=B0+0.00000000097*COS(1.27914551364+2847.52682690940*x);
B0:=B0+0.00000000115*COS(5.22953781515+1119.18567522950*x);
B0:=B0+0.00000000095*COS(4.26135357007+540.73666535850*x);
B0:=B0+0.00000000098*COS(5.27107833435+639.94547042380*x);
B0:=B0+0.00000000107*COS(4.38879925113+412.58354519550*x);
B0:=B0+0.00000000093*COS(5.35954173624+334.55111692130*x);
B0:=B0+0.00000000094*COS(1.16749092536+5643.17856367740*x);
B0:=B0+0.00000000106*COS(4.19443004843+486.40193591630*x);
B0:=B0+0.00000000096*COS(0.59816870672+714.67888488130*x);
B0:=B0+0.00000000094*COS(0.54205024076+423.62924545940*x);
B0:=B0+0.00000000109*COS(2.82817225044+468.24268865160*x);
B0:=B0+0.00000000083*COS(6.12100285205+380.12776796000*x);
B0:=B0+0.00000000084*COS(2.20217125255+909.81873305460*x);
B0:=B0+0.00000000085*COS(5.20920130934+562.14674233010*x);
B0:=B0+0.00000000105*COS(2.66415710279+460.53844081980*x);
B0:=B0+0.00000000084*COS(0.14646013561+681.54178408960*x);
B0:=B0+0.00000000080*COS(3.03551986945+409.92341631960*x);
B0:=B0+0.00000000097*COS(5.09373549436+92.04707395470*x);
B0:=B0+0.00000000110*COS(2.03622569317+642.34496686880*x);
B0:=B0+0.00000000080*COS(5.71035549752+361.37781986430*x);
B0:=B0+0.00000000084*COS(3.00961145133+426.81063919710*x);
B0:=B0+0.00000000085*COS(4.28770375688+135.54855145410*x);
B0:=B0+0.00000000093*COS(5.32943472274+432.01481684740*x);
B0:=B0+0.00000000086*COS(1.51247258028+760.25553592000*x);
B0:=B0+0.00000000084*COS(5.83905303748+426.38574255490*x);
B0:=B0+0.00000000100*COS(3.62925349363+426.71006546060*x);
B0:=B0+0.00000000094*COS(4.30151510535+3377.21779200400*x);
B0:=B0+0.00000000098*COS(2.07334671974+639.84910220420*x);
B0:=B0+0.00000000080*COS(4.11576173565+774.48262992160*x);
B0:=B0+0.00000000075*COS(2.89122656610+806.72595883600*x);
B0:=B0+0.00000000080*COS(0.88468467902+856.37777548970*x);
B0:=B0+0.00000000072*COS(4.85259171933+392.65794093220*x);
B0:=B0+0.00000000083*COS(0.11133738383+402.21916848780*x);

LOCAL B1:=0;
B1:=B1+0.00397554998*COS(5.33289992556+213.29909543800*x);
B1:=B1-0.00049478641;
B1:=B1+0.00018571607*COS(6.09919206378+426.59819087600*x);
B1:=B1+0.00014800587*COS(2.30586060520+206.18554843720*x);
B1:=B1+0.00009643981*COS(1.69674660120+220.41264243880*x);
B1:=B1+0.00003757161*COS(1.25429514018+419.48464387520*x);
B1:=B1+0.00002716647*COS(5.91166664787+639.89728631400*x);
B1:=B1+0.00001455309*COS(0.85161616532+433.71173787680*x);
B1:=B1+0.00001290595*COS(2.91770857090+7.11354700080*x);
B1:=B1+0.00000852630*COS(0.43572078997+316.39186965660*x);
B1:=B1+0.00000284386*COS(1.61881754773+227.52618943960*x);
B1:=B1+0.00000292185*COS(5.31574251270+853.19638175200*x);
B1:=B1+0.00000275090*COS(3.88864137336+103.09277421860*x);
B1:=B1+0.00000297726*COS(0.91909206723+632.78373931320*x);
B1:=B1+0.00000172359*COS(0.05215146556+647.01083331480*x);
B1:=B1+0.00000127731*COS(1.20711452525+529.69096509460*x);
B1:=B1+0.00000166237*COS(2.44351613165+199.07200143640*x);
B1:=B1+0.00000158220*COS(5.20850125766+110.20632121940*x);
B1:=B1+0.00000109839*COS(2.45695551627+217.23124870110*x);
B1:=B1+0.00000081759*COS(2.75839171353+210.11770170030*x);
B1:=B1+0.00000081010*COS(2.86038377187+14.22709400160*x);
B1:=B1+0.00000068658*COS(1.65537623146+202.25339517410*x);
B1:=B1+0.00000059281*COS(1.82410768234+323.50541665740*x);
B1:=B1+0.00000065161*COS(1.25527521313+216.48048917570*x);
B1:=B1+0.00000061024*COS(1.25273412095+209.36694217490*x);
B1:=B1+0.00000046386*COS(0.81534705304+440.82528487760*x);
B1:=B1+0.00000036163*COS(1.81851057689+224.34479570190*x);
B1:=B1+0.00000034041*COS(2.83971297997+117.31986822020*x);
B1:=B1+0.00000032164*COS(1.18676132343+846.08283475120*x);
B1:=B1+0.00000033114*COS(1.30557080010+412.37109687440*x);
B1:=B1+0.00000027282*COS(4.64744847591+1066.49547719000*x);
B1:=B1+0.00000022805*COS(4.12923703368+415.55249061210*x);
B1:=B1+0.00000027128*COS(4.44228739187+11.04570026390*x);
B1:=B1+0.00000018100*COS(5.56392353608+860.30992875280*x);
B1:=B1+0.00000020851*COS(1.40999273740+309.27832265580*x);
B1:=B1+0.00000014947*COS(1.34302610607+95.97922721780*x);
B1:=B1+0.00000015316*COS(1.22393617996+63.73589830340*x);
B1:=B1+0.00000014601*COS(1.00753704970+536.80451209540*x);
B1:=B1+0.00000012842*COS(2.27059911053+742.99006053260*x);
B1:=B1+0.00000012832*COS(4.88898877901+522.57741809380*x);
B1:=B1+0.00000013137*COS(2.45991904379+490.33408917940*x);
B1:=B1+0.00000011883*COS(1.87308666696+423.41679713830*x);
B1:=B1+0.00000013027*COS(3.21731634178+277.03499374140*x);
B1:=B1+0.00000009946*COS(3.11650057543+625.67019231240*x);
B1:=B1+0.00000012710*COS(0.29501589197+422.66603761290*x);
B1:=B1+0.00000009644*COS(1.74586356703+330.61896365820*x);
B1:=B1+0.00000008079*COS(2.41931187953+430.53034413910*x);
B1:=B1+0.00000008245*COS(4.68121931659+215.74677599280*x);
B1:=B1+0.00000008958*COS(0.46482448501+429.77958461370*x);
B1:=B1+0.00000006547*COS(3.01351967549+949.17560896980*x);
B1:=B1+0.00000007251*COS(5.97098186912+149.56319713460*x);
B1:=B1+0.00000006056*COS(1.49115011100+234.63973644040*x);
B1:=B1+0.00000005791*COS(5.36720639912+735.87651353180*x);
B1:=B1+0.00000005994*COS(0.02442871989+654.12438031560*x);
B1:=B1+0.00000006647*COS(3.90879134581+351.81659230870*x);
B1:=B1+0.00000006824*COS(1.52456408861+437.64389113990*x);
B1:=B1+0.00000005134*COS(3.81149834833+74.78159856730*x);
B1:=B1+0.00000003959*COS(5.63505813057+210.85141488320*x);
B1:=B1+0.00000003811*COS(2.63992803111+3.18139373770*x);
B1:=B1+0.00000003643*COS(1.73267151007+1059.38193018920*x);
B1:=B1+0.00000003554*COS(4.98621474362+3.93215326310*x);
B1:=B1+0.00000004568*COS(4.33599514584+628.85158605010*x);
B1:=B1+0.00000003145*COS(2.51404811765+1162.47470440780*x);
B1:=B1+0.00000003522*COS(1.16093567319+223.59403617650*x);
B1:=B1+0.00000002933*COS(2.06057834252+956.28915597060*x);
B1:=B1+0.00000002644*COS(5.62559379305+203.73786788240*x);
B1:=B1+0.00000002992*COS(5.06312015437+515.46387109300*x);
B1:=B1+0.00000002304*COS(2.73123930535+21.34064100240*x);
B1:=B1+0.00000002168*COS(2.91805928238+203.00415469950*x);
B1:=B1+0.00000002398*COS(3.99421633537+1279.79457262800*x);
B1:=B1+0.00000002146*COS(0.87500689888+408.43894361130*x);
B1:=B1+0.00000002074*COS(1.65731069687+137.03302416240*x);
B1:=B1+0.00000001797*COS(1.56879308343+124.43341522100*x);
B1:=B1+0.00000002088*COS(1.85721384366+138.51749687070*x);
B1:=B1+0.00000001769*COS(4.82294294946+1073.60902419080*x);
B1:=B1+0.00000001635*COS(1.20387813348+88.86568021700*x);
B1:=B1+0.00000002202*COS(5.93027042684+1052.26838318840*x);
B1:=B1+0.00000001843*COS(0.22126910774+750.10360753340*x);
B1:=B1+0.00000001851*COS(2.45470409290+340.77089204480*x);
B1:=B1+0.00000001890*COS(0.41025631859+127.47179660680*x);
B1:=B1+0.00000001582*COS(5.63360832372+214.26230328450*x);
B1:=B1+0.00000001920*COS(3.77935901504+350.33211960040*x);
B1:=B1+0.00000001786*COS(5.78644477326+635.96513305090*x);
B1:=B1+0.00000001497*COS(3.13026893210+703.63318461740*x);
B1:=B1+0.00000001583*COS(3.46882532865+38.13303563780*x);
B1:=B1+0.00000001577*COS(4.02973226017+388.46515523820*x);
B1:=B1+0.00000001645*COS(5.59115773632+483.22054217860*x);
B1:=B1+0.00000001405*COS(4.07880624509+728.76296653100*x);
B1:=B1+0.00000001498*COS(5.87094430469+362.86229257260*x);
B1:=B1+0.00000001317*COS(2.22386203585+213.34727954780*x);
B1:=B1+0.00000001321*COS(2.91534782718+1265.56747862640*x);
B1:=B1+0.00000001307*COS(5.41748323885+217.96496188400*x);
B1:=B1+0.00000001483*COS(0.91111666841+543.91805909620*x);
B1:=B1+0.00000001291*COS(2.62333801070+554.06998748280*x);
B1:=B1+0.00000001406*COS(0.34582712649+85.82729883120*x);
B1:=B1+0.00000001287*COS(2.82247279651+231.45834270270*x);
B1:=B1+0.00000001563*COS(4.88438049382+208.63322899200*x);
B1:=B1+0.00000001316*COS(5.30963570131+213.25091132820*x);
B1:=B1+0.00000001164*COS(1.39531381032+210.37833413120*x);
B1:=B1+0.00000001295*COS(2.46089213219+200.76892246580*x);
B1:=B1+0.00000001236*COS(3.03659580871+838.96928775040*x);
B1:=B1+0.00000001449*COS(4.00934078371+195.13984817330*x);
B1:=B1+0.00000001251*COS(1.46674521697+218.71572140940*x);
B1:=B1+0.00000001568*COS(1.89939852487+212.33588759150*x);
B1:=B1+0.00000001067*COS(5.34734443894+207.67002114550*x);
B1:=B1+0.00000001111*COS(0.70962013461+447.93883187840*x);
B1:=B1+0.00000001012*COS(1.37217220640+636.71589257630*x);
B1:=B1+0.00000001163*COS(6.00108996618+191.20769491020*x);
B1:=B1+0.00000000887*COS(2.84483069917+191.95845443560*x);
B1:=B1+0.00000001005*COS(2.72373040634+1478.86657406440*x);
B1:=B1+0.00000000879*COS(1.19585734916+417.03696332040*x);
B1:=B1+0.00000000829*COS(4.94182950387+497.44763618020*x);
B1:=B1+0.00000000878*COS(6.24981924813+265.98929347750*x);
B1:=B1+0.00000000781*COS(4.61973017912+424.15051032120*x);
B1:=B1+0.00000000924*COS(3.64210508536+222.86032299360*x);
B1:=B1+0.00000000971*COS(2.89404568581+563.63121503840*x);
B1:=B1+0.00000000946*COS(5.72987725592+1368.66025284500*x);
B1:=B1+0.00000000834*COS(6.12384852532+209.10630974400*x);
B1:=B1+0.00000000911*COS(1.06795057723+650.94298657790*x);
B1:=B1+0.00000000731*COS(0.81660632103+142.44965013380*x);
B1:=B1+0.00000000795*COS(5.54574074566+76.26607127560*x);
B1:=B1+0.00000001012*COS(5.97140626297+643.07868005170*x);
B1:=B1+0.00000000703*COS(2.41479303782+10.29494073850*x);
B1:=B1+0.00000000726*COS(4.52598413209+565.11568774670*x);
B1:=B1+0.00000000691*COS(2.31682364985+160.60889739850*x);
B1:=B1+0.00000000695*COS(0.37889317398+212.77783057620*x);
B1:=B1+0.00000000676*COS(4.43606270900+842.15068148810*x);
B1:=B1+0.00000000769*COS(4.47368582271+52.69019803950*x);
B1:=B1+0.00000000658*COS(0.32331118921+621.73803904930*x);
B1:=B1+0.00000000838*COS(4.68035046143+288.08069400530*x);
B1:=B1+0.00000000674*COS(5.63961963995+867.42347575360*x);
B1:=B1+0.00000000695*COS(1.32062509205+1169.58825140860*x);
B1:=B1+0.00000000841*COS(2.46995220838+1375.77379984580*x);
B1:=B1+0.00000000633*COS(3.46145143241+18.15924726470*x);
B1:=B1+0.00000000722*COS(0.04119071457+269.92144674060*x);
B1:=B1+0.00000000757*COS(2.15030650611+207.88246946660*x);
B1:=B1+0.00000000692*COS(0.87072324976+213.82036029980*x);
B1:=B1+0.00000000602*COS(0.85288769518+225.82926841020*x);
B1:=B1+0.00000000635*COS(4.76109030475+831.85574074960*x);
B1:=B1+0.00000000701*COS(1.20410854661+479.28838891550*x);
B1:=B1+0.00000000624*COS(2.30585779534+643.82943957710*x);
B1:=B1+0.00000000582*COS(0.18811617696+1.48447270830*x);
B1:=B1+0.00000000513*COS(2.56525967840+404.50679034820*x);
B1:=B1+0.00000000502*COS(4.97423814367+212.54833591260*x);
B1:=B1+0.00000000644*COS(2.10955154583+1272.68102562720*x);
B1:=B1+0.00000000467*COS(4.47217820662+235.39049596580*x);
B1:=B1+0.00000000566*COS(4.44740324446+429.04587143080*x);
B1:=B1+0.00000000448*COS(0.57491120802+22.09140052780*x);
B1:=B1+0.00000000520*COS(1.15131866397+337.73251065900*x);
B1:=B1+0.00000000476*COS(4.78513362967+218.92816973050*x);
B1:=B1+0.00000000519*COS(0.61616177345+436.89313161450*x);
B1:=B1+0.00000000442*COS(2.10204008144+416.30325013750*x);
B1:=B1+0.00000000536*COS(1.08779067908+344.70304530790*x);
B1:=B1+0.00000000477*COS(2.42483193385+216.21985674480*x);
B1:=B1+0.00000000469*COS(5.22622034028+942.06206196900*x);
B1:=B1+0.00000000392*COS(0.41137926465+302.16477565500*x);
B1:=B1+0.00000000400*COS(5.17216478470+414.06801790380*x);
B1:=B1+0.00000000383*COS(3.58419227076+1045.15483618760*x);
B1:=B1+0.00000000443*COS(1.11051326413+425.11371816770*x);
B1:=B1+0.00000000517*COS(3.44547026103+12.53017297220*x);
B1:=B1+0.00000000369*COS(1.60095273908+56.62235130260*x);
B1:=B1+0.00000000354*COS(2.79123486392+1581.95934828300*x);
B1:=B1+0.00000000405*COS(5.93402105921+173.94221952280*x);
B1:=B1+0.00000000319*COS(4.31850876624+219.44943459230*x);
B1:=B1+0.00000000330*COS(0.62529198264+358.93013930950*x);
B1:=B1+0.00000000305*COS(0.82404423420+1485.98012106520*x);
B1:=B1+0.00000000391*COS(2.59385552893+1795.25844372100*x);
B1:=B1+0.00000000291*COS(3.12019266878+217.49188113200*x);
B1:=B1+0.00000000294*COS(2.18552193901+444.75743814070*x);
B1:=B1+0.00000000281*COS(0.77791302266+757.21715453420*x);
B1:=B1+0.00000000355*COS(5.44570491928+1685.05212250160*x);
B1:=B1+0.00000000305*COS(2.65927043884+355.74874557180*x);
B1:=B1+0.00000000269*COS(6.00323720265+934.94851496820*x);
B1:=B1+0.00000000287*COS(2.60486363576+113.38771495710*x);
B1:=B1+0.00000000348*COS(0.98872551635+70.84944530420*x);
B1:=B1+0.00000000331*COS(5.62133883922+9.56122755560*x);
B1:=B1+0.00000000255*COS(4.14086605030+284.14854074220*x);
B1:=B1+0.00000000311*COS(6.27145060602+207.14875628370*x);
B1:=B1+0.00000000267*COS(4.72606312146+696.51963761660*x);
B1:=B1+0.00000000319*COS(4.68828119248+1155.36115740700*x);
B1:=B1+0.00000000227*COS(3.10352674343+1361.54670584420*x);
B1:=B1+0.00000000228*COS(1.19253095837+1589.07289528380*x);
B1:=B1+0.00000000244*COS(5.36327976010+245.54242435240*x);
B1:=B1+0.00000000218*COS(2.16069250901+177.87437278590*x);
B1:=B1+0.00000000254*COS(4.51652534648+1148.24761040620*x);
B1:=B1+0.00000000211*COS(2.82699627326+106.27416795630*x);
B1:=B1+0.00000000230*COS(4.63171743406+107.02492748170*x);
B1:=B1+0.00000000201*COS(4.52152562223+508.35032409220*x);
B1:=B1+0.00000000230*COS(5.93560798508+618.55664531160*x);
B1:=B1+0.00000000253*COS(2.08074949572+252.65597135320*x);
B1:=B1+0.00000000234*COS(2.43423283339+1692.16566950240*x);
B1:=B1+0.00000000196*COS(1.01284131123+114.39910691340*x);
B1:=B1+0.00000000196*COS(2.73629728926+214.04985496340*x);
B1:=B1+0.00000000191*COS(1.51642829677+6069.77675455340*x);
B1:=B1+0.00000000252*COS(5.10097595426+1258.45393162560*x);
B1:=B1+0.00000000240*COS(2.93712394928+916.93228005540*x);
B1:=B1+0.00000000224*COS(4.42406538277+251.43213107580*x);
B1:=B1+0.00000000223*COS(2.34400676548+1677.93857550080*x);
B1:=B1+0.00000000228*COS(5.00073557208+1574.84580128220*x);
B1:=B1+0.00000000183*COS(5.09056895026+220.46082654860*x);
B1:=B1+0.00000000178*COS(6.05669760153+206.13736432740*x);
B1:=B1+0.00000000185*COS(3.73859309582+114.13847448250*x);
B1:=B1+0.00000000200*COS(1.89409546254+2420.92863603340*x);
B1:=B1+0.00000000158*COS(2.78517362162+2008.55753915900*x);
B1:=B1+0.00000000191*COS(2.28724146195+2435.15573003500*x);
B1:=B1+0.00000000188*COS(4.29343910228+1471.75302706360*x);
B1:=B1+0.00000000155*COS(5.35194123420+576.16138801060*x);
B1:=B1+0.00000000174*COS(2.80423114755+1781.03134971940*x);
B1:=B1+0.00000000166*COS(5.32531835813+2001.44399215820*x);
B1:=B1+0.00000000165*COS(2.62993712087+525.49817940060*x);
B1:=B1+0.00000000141*COS(4.73916921092+501.37978944330*x);
B1:=B1+0.00000000161*COS(5.83368523750+181.05576652360*x);
B1:=B1+0.00000000137*COS(1.45135867137+131.54696222180*x);
B1:=B1+0.00000000157*COS(3.22870773657+1493.09366806600*x);
B1:=B1+0.00000000136*COS(4.20279658293+710.74673161820*x);
B1:=B1+0.00000000144*COS(4.61003572124+121.25202148330*x);
B1:=B1+0.00000000131*COS(5.85409245557+175.16605980020*x);
B1:=B1+0.00000000144*COS(0.96056164245+214.78356814630*x);
B1:=B1+0.00000000146*COS(3.95687956474+421.93232443000*x);
B1:=B1+0.00000000138*COS(1.03080573610+4.66586644600*x);
B1:=B1+0.00000000167*COS(1.97508934614+62.25142559510*x);
B1:=B1+0.00000000123*COS(2.28640485589+1898.35121793960*x);
B1:=B1+0.00000000168*COS(4.63122081226+1891.23767093880*x);
B1:=B1+0.00000000129*COS(0.05327999225+211.81462272970*x);
B1:=B1+0.00000000134*COS(3.49720535944+488.84961647110*x);
B1:=B1+0.00000000117*COS(3.43819501459+436.15941843160*x);
B1:=B1+0.00000000125*COS(5.87007326241+963.40270297140*x);
B1:=B1+0.00000000120*COS(0.70795300239+81.75213321620*x);
B1:=B1+0.00000000125*COS(4.50999471095+2317.83586181480*x);
B1:=B1+0.00000000116*COS(6.11600926571+558.00214074590*x);
B1:=B1+0.00000000117*COS(4.78666549046+601.76425067620*x);
B1:=B1+0.00000000108*COS(0.45464469172+1802.37199072180*x);
B1:=B1+0.00000000111*COS(1.44669239244+2531.13495725280*x);
B1:=B1+0.00000000109*COS(6.14289264597+151.04766984290*x);
B1:=B1+0.00000000113*COS(4.05600865495+1286.90811962880*x);
B1:=B1+0.00000000129*COS(5.13936946160+849.26422848890*x);
B1:=B1+0.00000000127*COS(3.88189432056+98.89998852460*x);
B1:=B1+0.00000000133*COS(2.38290634070+2111.65031337760*x);
B1:=B1+0.00000000122*COS(4.40757611742+778.41478318470*x);
B1:=B1+0.00000000095*COS(0.07909774752+213.41097002260*x);
B1:=B1+0.00000000095*COS(1.66925524906+213.18722085340*x);
B1:=B1+0.00000000103*COS(1.88058957173+99.16062095550*x);
B1:=B1+0.00000000119*COS(3.62785705509+248.72381809010*x);
B1:=B1+0.00000000090*COS(4.63029999228+228.27694896500*x);
B1:=B1+0.00000000092*COS(5.48700119144+767.36908292080*x);
B1:=B1+0.00000000089*COS(4.61331934339+431.26405732200*x);
B1:=B1+0.00000000099*COS(3.60670326134+776.93031047640*x);
B1:=B1+0.00000000085*COS(4.93878023673+2.44768055480*x);
B1:=B1+0.00000000089*COS(6.24541644164+661.23792731640*x);
B1:=B1+0.00000000085*COS(0.45896349060+1382.88734684660*x);
B1:=B1+0.00000000088*COS(3.81144552178+1788.14489672020*x);
B1:=B1+0.00000000103*COS(3.20558404998+312.19908396260*x);
B1:=B1+0.00000000080*COS(2.28889729136+213.08664711690*x);
B1:=B1+0.00000000080*COS(5.74264101239+213.51154375910*x);
B1:=B1+0.00000000082*COS(3.23546757052+198.32124191100*x);
B1:=B1+0.00000000078*COS(6.03841191050+835.03713448730*x);
B1:=B1+0.00000000080*COS(0.22601918692+427.56139872250*x);
B1:=B1+0.00000000072*COS(2.05164614795+2634.22773147140*x);
B1:=B1+0.00000000091*COS(5.97938003596+556.51766803760*x);
B1:=B1+0.00000000087*COS(2.71469794199+617.80588578620*x);

LOCAL B2:=0;
B2:=B2+0.00020629977*COS(0.50482422817+213.29909543800*x);
B2:=B2+0.00003719555*COS(3.99833475829+206.18554843720*x);
B2:=B2+0.00001627158*COS(6.18189939500+220.41264243880*x);
B2:=B2+0.00001346067;
B2:=B2+0.00000705842*COS(3.03914308836+419.48464387520*x);
B2:=B2+0.00000365042*COS(5.09928680706+426.59819087600*x);
B2:=B2+0.00000329632*COS(5.27899210039+433.71173787680*x);
B2:=B2+0.00000219335*COS(3.82841533795+639.89728631400*x);
B2:=B2+0.00000139393*COS(1.04272623499+7.11354700080*x);
B2:=B2+0.00000103980*COS(6.15730992966+227.52618943960*x);
B2:=B2+0.00000092961*COS(1.97994412845+316.39186965660*x);
B2:=B2+0.00000071242*COS(4.14754353431+199.07200143640*x);
B2:=B2+0.00000051927*COS(2.88364833898+632.78373931320*x);
B2:=B2+0.00000048961*COS(4.43390206741+647.01083331480*x);
B2:=B2+0.00000041373*COS(3.15927770079+853.19638175200*x);
B2:=B2+0.00000028602*COS(4.52978327558+210.11770170030*x);
B2:=B2+0.00000023969*COS(1.11595912146+14.22709400160*x);
B2:=B2+0.00000020511*COS(4.35095844197+217.23124870110*x);
B2:=B2+0.00000019532*COS(5.30779711223+440.82528487760*x);
B2:=B2+0.00000018263*COS(0.85391476786+110.20632121940*x);
B2:=B2+0.00000015742*COS(4.25767226302+103.09277421860*x);
B2:=B2+0.00000016840*COS(5.68112084135+216.48048917570*x);
B2:=B2+0.00000013613*COS(2.99904334066+412.37109687440*x);
B2:=B2+0.00000011567*COS(2.52679928410+529.69096509460*x);
B2:=B2+0.00000007963*COS(3.31512423920+202.25339517410*x);
B2:=B2+0.00000006599*COS(0.28766025146+323.50541665740*x);
B2:=B2+0.00000006312*COS(1.16121321336+117.31986822020*x);
B2:=B2+0.00000005891*COS(3.58260177246+309.27832265580*x);
B2:=B2+0.00000006648*COS(5.55714129949+209.36694217490*x);
B2:=B2+0.00000005590*COS(2.47783944511+1066.49547719000*x);
B2:=B2+0.00000006192*COS(3.61231886519+860.30992875280*x);
B2:=B2+0.00000004231*COS(3.02212363572+846.08283475120*x);
B2:=B2+0.00000003612*COS(4.79935735435+625.67019231240*x);
B2:=B2+0.00000003398*COS(3.76732731354+423.41679713830*x);
B2:=B2+0.00000003387*COS(6.04222745633+234.63973644040*x);
B2:=B2+0.00000002578*COS(5.63610668746+735.87651353180*x);
B2:=B2+0.00000002831*COS(4.81642822334+429.77958461370*x);
B2:=B2+0.00000002817*COS(4.47516563908+654.12438031560*x);
B2:=B2+0.00000002573*COS(0.22467245054+522.57741809380*x);
B2:=B2+0.00000002610*COS(3.29126967191+95.97922721780*x);
B2:=B2+0.00000002419*COS(0.02986335489+415.55249061210*x);
B2:=B2+0.00000002112*COS(4.55964179603+422.66603761290*x);
B2:=B2+0.00000002304*COS(6.25081073546+330.61896365820*x);
B2:=B2+0.00000001758*COS(5.53430456858+536.80451209540*x);
B2:=B2+0.00000001814*COS(5.05675881426+277.03499374140*x);
B2:=B2+0.00000001550*COS(5.60375604692+223.59403617650*x);
B2:=B2+0.00000001457*COS(4.47767649852+430.53034413910*x);
B2:=B2+0.00000001607*COS(5.53599550100+224.34479570190*x);
B2:=B2+0.00000001172*COS(4.71017775994+203.00415469950*x);
B2:=B2+0.00000001231*COS(0.25115931880+3.93215326310*x);
B2:=B2+0.00000001105*COS(1.01595427676+21.34064100240*x);
B2:=B2+0.00000000868*COS(4.84623483952+949.17560896980*x);
B2:=B2+0.00000000939*COS(1.35429452093+742.99006053260*x);
B2:=B2+0.00000000693*COS(6.03599130692+124.43341522100*x);
B2:=B2+0.00000000712*COS(4.45550701473+191.95845443560*x);
B2:=B2+0.00000000690*COS(5.44243765037+437.64389113990*x);
B2:=B2+0.00000000810*COS(0.46198177342+515.46387109300*x);
B2:=B2+0.00000000694*COS(5.23748122403+447.93883187840*x);
B2:=B2+0.00000000604*COS(2.95749705544+88.86568021700*x);
B2:=B2+0.00000000669*COS(0.08457977809+215.74677599280*x);
B2:=B2+0.00000000579*COS(0.65329445948+3.18139373770*x);
B2:=B2+0.00000000712*COS(6.05964117622+11.04570026390*x);
B2:=B2+0.00000000698*COS(2.91371419321+1073.60902419080*x);
B2:=B2+0.00000000526*COS(2.24947851818+1059.38193018920*x);
B2:=B2+0.00000000511*COS(2.86838724347+408.43894361130*x);
B2:=B2+0.00000000589*COS(5.79268515755+63.73589830340*x);
B2:=B2+0.00000000519*COS(1.76641574095+1279.79457262800*x);
B2:=B2+0.00000000503*COS(5.73762297081+728.76296653100*x);
B2:=B2+0.00000000482*COS(4.68234512154+838.96928775040*x);
B2:=B2+0.00000000494*COS(4.04363805503+490.33408917940*x);
B2:=B2+0.00000000458*COS(1.17998315936+210.85141488320*x);
B2:=B2+0.00000000380*COS(5.28045750432+1052.26838318840*x);
B2:=B2+0.00000000404*COS(4.58953258519+302.16477565500*x);
B2:=B2+0.00000000377*COS(5.20131800999+74.78159856730*x);
B2:=B2+0.00000000328*COS(0.11893501088+956.28915597060*x);
B2:=B2+0.00000000290*COS(3.99300398632+1162.47470440780*x);
B2:=B2+0.00000000262*COS(2.04320741578+1471.75302706360*x);
B2:=B2+0.00000000259*COS(3.76206113036+635.96513305090*x);
B2:=B2+0.00000000254*COS(0.16694559092+195.13984817330*x);
B2:=B2+0.00000000309*COS(5.44921175960+543.91805909620*x);
B2:=B2+0.00000000237*COS(1.27761853769+231.45834270270*x);
B2:=B2+0.00000000288*COS(1.32449995239+203.73786788240*x);
B2:=B2+0.00000000229*COS(4.19748765966+1265.56747862640*x);
B2:=B2+0.00000000238*COS(4.02925601887+643.07868005170*x);
B2:=B2+0.00000000238*COS(0.49997895983+10.29494073850*x);
B2:=B2+0.00000000257*COS(3.69107889837+867.42347575360*x);
B2:=B2+0.00000000191*COS(0.17807919948+628.85158605010*x);
B2:=B2+0.00000000246*COS(5.62469599682+351.81659230870*x);
B2:=B2+0.00000000183*COS(3.38184740572+636.71589257630*x);
B2:=B2+0.00000000172*COS(3.83173494030+1581.95934828300*x);
B2:=B2+0.00000000220*COS(1.03443668151+483.22054217860*x);
B2:=B2+0.00000000217*COS(4.65210162713+750.10360753340*x);
B2:=B2+0.00000000143*COS(2.31969979791+18.15924726470*x);
B2:=B2+0.00000000137*COS(5.50046852846+1169.58825140860*x);
B2:=B2+0.00000000120*COS(3.70151294359+416.30325013750*x);
B2:=B2+0.00000000136*COS(3.38453909352+1155.36115740700*x);
B2:=B2+0.00000000149*COS(0.85459831932+1375.77379984580*x);
B2:=B2+0.00000000150*COS(5.71949902293+618.55664531160*x);
B2:=B2+0.00000000125*COS(4.82446274394+436.89313161450*x);
B2:=B2+0.00000000120*COS(3.26968058035+1478.86657406440*x);
B2:=B2+0.00000000131*COS(0.11496484259+1898.35121793960*x);
B2:=B2+0.00000000099*COS(4.57241894541+643.82943957710*x);
B2:=B2+0.00000000095*COS(4.92115458463+650.94298657790*x);
B2:=B2+0.00000000090*COS(2.09300085806+621.73803904930*x);
B2:=B2+0.00000000111*COS(0.11975665259+831.85574074960*x);
B2:=B2+0.00000000089*COS(2.54351587616+85.82729883120*x);
B2:=B2+0.00000000080*COS(5.09103451442+340.77089204480*x);
B2:=B2+0.00000000078*COS(3.17395501851+497.44763618020*x);
B2:=B2+0.00000000085*COS(0.18997660997+1258.45393162560*x);
B2:=B2+0.00000000081*COS(1.16732337173+217.96496188400*x);
B2:=B2+0.00000000072*COS(5.47328223678+337.73251065900*x);

LOCAL B3:=0;
B3:=B3+0.00000666252*COS(1.99006340181+213.29909543800*x);
B3:=B3+0.00000632350*COS(5.69778316807+206.18554843720*x);
B3:=B3+0.00000398051;
B3:=B3+0.00000187838*COS(4.33779804809+220.41264243880*x);
B3:=B3+0.00000091884*COS(4.84104208217+419.48464387520*x);
B3:=B3+0.00000042369*COS(2.38073239056+426.59819087600*x);
B3:=B3+0.00000051548*COS(3.42149490328+433.71173787680*x);
B3:=B3+0.00000025661*COS(4.40167213109+227.52618943960*x);
B3:=B3+0.00000020551*COS(5.85313509872+199.07200143640*x);
B3:=B3+0.00000018081*COS(1.99321433229+639.89728631400*x);
B3:=B3+0.00000010874*COS(5.37344546547+7.11354700080*x);
B3:=B3+0.00000009590*COS(2.54901825866+647.01083331480*x);
B3:=B3+0.00000007085*COS(3.45518372721+316.39186965660*x);
B3:=B3+0.00000006002*COS(4.80055225135+632.78373931320*x);
B3:=B3+0.00000005778*COS(0.01680378777+210.11770170030*x);
B3:=B3+0.00000004881*COS(5.63719730884+14.22709400160*x);
B3:=B3+0.00000004501*COS(1.22424419010+853.19638175200*x);
B3:=B3+0.00000005542*COS(3.51756747774+440.82528487760*x);
B3:=B3+0.00000003548*COS(4.71299370890+412.37109687440*x);
B3:=B3+0.00000002851*COS(0.62679207578+103.09277421860*x);
B3:=B3+0.00000002173*COS(3.71982274459+216.48048917570*x);
B3:=B3+0.00000001991*COS(6.10867071657+217.23124870110*x);
B3:=B3+0.00000001435*COS(1.69177141453+860.30992875280*x);
B3:=B3+0.00000001217*COS(4.30778838827+234.63973644040*x);
B3:=B3+0.00000001157*COS(5.75027789902+309.27832265580*x);
B3:=B3+0.00000000795*COS(5.69026441157+117.31986822020*x);
B3:=B3+0.00000000733*COS(0.59842720676+1066.49547719000*x);
B3:=B3+0.00000000713*COS(0.21700311697+625.67019231240*x);
B3:=B3+0.00000000773*COS(5.48361981990+202.25339517410*x);
B3:=B3+0.00000000897*COS(2.65577866867+654.12438031560*x);
B3:=B3+0.00000000509*COS(2.86079833766+429.77958461370*x);
B3:=B3+0.00000000462*COS(4.17742567173+529.69096509460*x);
B3:=B3+0.00000000390*COS(6.11288036049+191.95845443560*x);
B3:=B3+0.00000000505*COS(4.51905764563+323.50541665740*x);
B3:=B3+0.00000000379*COS(3.74436004151+223.59403617650*x);
B3:=B3+0.00000000332*COS(5.49370890570+21.34064100240*x);
B3:=B3+0.00000000377*COS(5.25624813434+95.97922721780*x);
B3:=B3+0.00000000384*COS(4.48187414769+330.61896365820*x);
B3:=B3+0.00000000367*COS(5.03190929680+846.08283475120*x);
B3:=B3+0.00000000281*COS(1.14133888637+735.87651353180*x);
B3:=B3+0.00000000245*COS(5.81618253250+423.41679713830*x);
B3:=B3+0.00000000241*COS(1.70335120180+522.57741809380*x);
B3:=B3+0.00000000258*COS(3.69110118716+447.93883187840*x);
B3:=B3+0.00000000231*COS(4.15697626494+110.20632121940*x);
B3:=B3+0.00000000305*COS(5.97746884029+302.16477565500*x);
B3:=B3+0.00000000284*COS(0.66224572127+203.00415469950*x);
B3:=B3+0.00000000204*COS(1.54683820621+209.36694217490*x);
B3:=B3+0.00000000194*COS(4.21193801453+124.43341522100*x);
B3:=B3+0.00000000145*COS(4.79689259614+88.86568021700*x);
B3:=B3+0.00000000151*COS(3.82010884134+536.80451209540*x);
B3:=B3+0.00000000100*COS(0.03596545368+949.17560896980*x);
B3:=B3+0.00000000097*COS(0.91303450276+1073.60902419080*x);
B3:=B3+0.00000000110*COS(2.21197473966+515.46387109300*x);
B3:=B3+0.00000000084*COS(2.53842533109+422.66603761290*x);
B3:=B3+0.00000000085*COS(5.11102520704+3.93215326310*x);
B3:=B3+0.00000000077*COS(6.04074586787+838.96928775040*x);
B3:=B3+0.00000000085*COS(1.18898817378+728.76296653100*x);
B3:=B3+0.00000000084*COS(4.10158366806+224.34479570190*x);

LOCAL B4:=0;
B4:=B4+0.00000080384*COS(1.11918414679+206.18554843720*x);
B4:=B4+0.00000031660*COS(3.12218745098+213.29909543800*x);
B4:=B4+0.00000017143*COS(2.48073200414+220.41264243880*x);
B4:=B4-0.00000011844;
B4:=B4+0.00000009005*COS(0.38441424927+419.48464387520*x);
B4:=B4+0.00000006164*COS(1.56186379537+433.71173787680*x);
B4:=B4+0.00000004660*COS(1.28235639570+199.07200143640*x);
B4:=B4+0.00000004775*COS(2.63498295487+227.52618943960*x);
B4:=B4+0.00000001487*COS(1.43096671616+426.59819087600*x);
B4:=B4+0.00000001424*COS(0.66988083613+647.01083331480*x);
B4:=B4+0.00000001075*COS(6.18092274059+639.89728631400*x);
B4:=B4+0.00000001145*COS(1.72041928134+440.82528487760*x);
B4:=B4+0.00000000682*COS(3.84841098180+14.22709400160*x);
B4:=B4+0.00000000655*COS(3.49486258327+7.11354700080*x);
B4:=B4+0.00000000456*COS(0.47338193402+632.78373931320*x);
B4:=B4+0.00000000509*COS(0.31432285584+412.37109687440*x);
B4:=B4+0.00000000343*COS(5.86413875355+853.19638175200*x);
B4:=B4+0.00000000270*COS(2.50125594913+234.63973644040*x);
B4:=B4+0.00000000197*COS(5.39156324804+316.39186965660*x);
B4:=B4+0.00000000236*COS(2.11084590211+210.11770170030*x);
B4:=B4+0.00000000172*COS(6.09682874401+860.30992875280*x);
B4:=B4+0.00000000159*COS(5.95049154821+216.48048917570*x);
B4:=B4+0.00000000100*COS(1.98534903594+625.67019231240*x);
B4:=B4+0.00000000112*COS(0.85526419268+654.12438031560*x);
B4:=B4+0.00000000115*COS(5.03884718594+117.31986822020*x);
B4:=B4+0.00000000115*COS(0.44589613974+110.20632121940*x);

LOCAL B5:=0;
B5:=B5+0.00000007895*COS(2.81927558645+206.18554843720*x);
B5:=B5+0.00000001014*COS(0.51187210270+220.41264243880*x);
B5:=B5+0.00000000772*COS(2.99484124049+199.07200143640*x);
B5:=B5-0.00000000967;
B5:=B5+0.00000000583*COS(5.96456944075+433.71173787680*x);
B5:=B5+0.00000000588*COS(0.78008666397+227.52618943960*x);
B5:=B5+0.00000000445*COS(2.38630799074+419.48464387520*x);
B5:=B5+0.00000000098*COS(5.10622131539+647.01083331480*x);
B5:=B5+0.00000000091*COS(5.81659714144+7.11354700080*x);
B5:=B5+0.00000000088*COS(6.17828532308+440.82528487760*x);
B5:=B5+0.00000000089*COS(0.58396864530+213.29909543800*x);

LOCAL x2=x*x;
LOCAL x3=x2*x;
LOCAL x4=x3*x;
LOCAL x5=x4*x;

RETURN (180/PI)*(B0+B1*x+B2*x2+B3*x3+B4*x4+B5*x5);
END;

//Distance Saturn-Sun [AU]
EXPORT Rsaturn(x)
BEGIN
LOCAL R0:=0;
R0:=R0+9.55758135801;
R0:=R0+0.52921382465*COS(2.39226219733+213.29909543800*x);
R0:=R0+0.01873679934*COS(5.23549605091+206.18554843720*x);
R0:=R0+0.01464663959*COS(1.64763045468+426.59819087600*x);
R0:=R0+0.00821891059*COS(5.93520025371+316.39186965660*x);
R0:=R0+0.00547506899*COS(5.01532628454+103.09277421860*x);
R0:=R0+0.00371684449*COS(2.27114833428+220.41264243880*x);
R0:=R0+0.00361778433*COS(3.13904303264+7.11354700080*x);
R0:=R0+0.00140617548*COS(5.70406652991+632.78373931320*x);
R0:=R0+0.00108974737*COS(3.29313595577+110.20632121940*x);
R0:=R0+0.00069007015*COS(5.94099622447+419.48464387520*x);
R0:=R0+0.00061053350*COS(0.94037761156+639.89728631400*x);
R0:=R0+0.00048913044*COS(1.55733388472+202.25339517410*x);
R0:=R0+0.00034143794*COS(0.19518550682+277.03499374140*x);
R0:=R0+0.00032401718*COS(5.47084606947+949.17560896980*x);
R0:=R0+0.00020936573*COS(0.46349163993+735.87651353180*x);
R0:=R0+0.00020839118*COS(1.52102590640+433.71173787680*x);
R0:=R0+0.00020746678*COS(5.33255667599+199.07200143640*x);
R0:=R0+0.00015298457*COS(3.05943652881+529.69096509460*x);
R0:=R0+0.00014296479*COS(2.60433537909+323.50541665740*x);
R0:=R0+0.00011993314*COS(5.98051421881+846.08283475120*x);
R0:=R0+0.00011380261*COS(1.73105746566+522.57741809380*x);
R0:=R0+0.00012884128*COS(1.64892310393+138.51749687070*x);
R0:=R0+0.00007752769*COS(5.85191318903+95.97922721780*x);
R0:=R0+0.00009796061*COS(5.20475863996+1265.56747862640*x);
R0:=R0+0.00006465967*COS(0.17733160145+1052.26838318840*x);
R0:=R0+0.00006770621*COS(3.00433479284+14.22709400160*x);
R0:=R0+0.00005850443*COS(1.45519636076+415.55249061210*x);
R0:=R0+0.00005307481*COS(0.59737534050+63.73589830340*x);
R0:=R0+0.00004695746*COS(2.14919036956+227.52618943960*x);
R0:=R0+0.00004043988*COS(1.64010323863+209.36694217490*x);
R0:=R0+0.00003688132*COS(0.78016133170+412.37109687440*x);
R0:=R0+0.00003376457*COS(3.69528478828+224.34479570190*x);
R0:=R0+0.00002885348*COS(1.38764077631+838.96928775040*x);
R0:=R0+0.00002976033*COS(5.68467931117+210.11770170030*x);
R0:=R0+0.00003419551*COS(4.94549148887+1581.95934828300*x);
R0:=R0+0.00003460943*COS(1.85088802878+175.16605980020*x);
R0:=R0+0.00003400616*COS(0.55386747515+350.33211960040*x);
R0:=R0+0.00002507630*COS(3.53851863255+742.99006053260*x);
R0:=R0+0.00002448325*COS(6.18412386316+1368.66025284500*x);
R0:=R0+0.00002406138*COS(2.96559220267+117.31986822020*x);
R0:=R0+0.00002881181*COS(0.17960757891+853.19638175200*x);
R0:=R0+0.00002173959*COS(0.01508587396+340.77089204480*x);
R0:=R0+0.00002024483*COS(5.05411271271+11.04570026390*x);
R0:=R0+0.00001740254*COS(2.34657043464+309.27832265580*x);
R0:=R0+0.00001861397*COS(5.93361638244+625.67019231240*x);
R0:=R0+0.00001888436*COS(0.02968443389+3.93215326310*x);
R0:=R0+0.00001610859*COS(1.17302463549+74.78159856730*x);
R0:=R0+0.00001462631*COS(1.92588134017+216.48048917570*x);
R0:=R0+0.00001474547*COS(5.67670461130+203.73786788240*x);
R0:=R0+0.00001395109*COS(5.93669404929+127.47179660680*x);
R0:=R0+0.00001781165*COS(0.76314388077+217.23124870110*x);
R0:=R0+0.00001817186*COS(5.77713225779+490.33408917940*x);
R0:=R0+0.00001472392*COS(1.40064915651+137.03302416240*x);
R0:=R0+0.00001304089*COS(0.77235613966+647.01083331480*x);
R0:=R0+0.00001149773*COS(5.74021249703+1162.47470440780*x);
R0:=R0+0.00001126667*COS(4.46707803791+265.98929347750*x);
R0:=R0+0.00001277489*COS(2.98412586423+1059.38193018920*x);
R0:=R0+0.00001207053*COS(0.75285933160+351.81659230870*x);
R0:=R0+0.00001071399*COS(1.13567265104+1155.36115740700*x);
R0:=R0+0.00001020922*COS(5.91233512844+1685.05212250160*x);
R0:=R0+0.00001315042*COS(5.11202572637+211.81462272970*x);
R0:=R0+0.00001295553*COS(4.69184139933+1898.35121793960*x);
R0:=R0+0.00001099037*COS(1.81765118601+149.56319713460*x);
R0:=R0+0.00000998462*COS(2.63131596867+200.76892246580*x);
R0:=R0+0.00000985869*COS(2.25992849742+956.28915597060*x);
R0:=R0+0.00000932434*COS(3.66980793184+554.06998748280*x);
R0:=R0+0.00000664481*COS(0.60297724821+728.76296653100*x);
R0:=R0+0.00000659850*COS(4.66635439533+195.13984817330*x);
R0:=R0+0.00000617740*COS(5.62092000007+942.06206196900*x);
R0:=R0+0.00000626382*COS(5.94208232590+1478.86657406440*x);
R0:=R0+0.00000482230*COS(1.84070179496+479.28838891550*x);
R0:=R0+0.00000487689*COS(2.79373616806+3.18139373770*x);
R0:=R0+0.00000470086*COS(0.83847755040+1471.75302706360*x);
R0:=R0+0.00000451817*COS(5.64468459871+2001.44399215820*x);
R0:=R0+0.00000553128*COS(3.41088600844+269.92144674060*x);
R0:=R0+0.00000534397*COS(1.26443331367+275.55052103310*x);
R0:=R0+0.00000472572*COS(1.88198584660+515.46387109300*x);
R0:=R0+0.00000405434*COS(1.64001413521+536.80451209540*x);
R0:=R0+0.00000517196*COS(4.44310450526+2214.74308759620*x);
R0:=R0+0.00000452848*COS(3.00349117198+302.16477565500*x);
R0:=R0+0.00000494340*COS(2.28626675074+278.51946644970*x);
R0:=R0+0.00000489825*COS(5.80631420383+191.20769491020*x);
R0:=R0+0.00000427459*COS(0.05741344372+284.14854074220*x);
R0:=R0+0.00000339763*COS(1.40198657693+440.82528487760*x);
R0:=R0+0.00000340627*COS(0.89091104306+628.85158605010*x);
R0:=R0+0.00000385974*COS(1.99700402508+1272.68102562720*x);
R0:=R0+0.00000288298*COS(1.12160250272+422.66603761290*x);
R0:=R0+0.00000294444*COS(0.42577061903+312.19908396260*x);
R0:=R0+0.00000262490*COS(0.31753439818+1045.15483618760*x);
R0:=R0+0.00000295331*COS(0.67144493789+88.86568021700*x);
R0:=R0+0.00000342968*COS(5.85600322299+1795.25844372100*x);
R0:=R0+0.00000341117*COS(2.37585247250+525.49817940060*x);
R0:=R0+0.00000234018*COS(4.22756813216+114.13847448250*x);
R0:=R0+0.00000223729*COS(2.28129446763+330.61896365820*x);
R0:=R0+0.00000275814*COS(0.47832439352+38.13303563780*x);
R0:=R0+0.00000224592*COS(0.54754005675+1788.14489672020*x);
R0:=R0+0.00000303300*COS(0.87946670205+6069.77675455340*x);
R0:=R0+0.00000292103*COS(6.21420611920+210.85141488320*x);
R0:=R0+0.00000226121*COS(0.37495223398+142.44965013380*x);
R0:=R0+0.00000277257*COS(5.31917702012+692.58748435350*x);
R0:=R0+0.00000242911*COS(5.37187983246+1258.45393162560*x);
R0:=R0+0.00000205571*COS(0.95755250527+288.08069400530*x);
R0:=R0+0.00000207567*COS(5.38126259725+2317.83586181480*x);
R0:=R0+0.00000186835*COS(6.03591766061+404.50679034820*x);
R0:=R0+0.00000218536*COS(5.25607043545+212.33588759150*x);
R0:=R0+0.00000222155*COS(5.94588016768+39.35687591520*x);
R0:=R0+0.00000179673*COS(4.41045924362+408.43894361130*x);
R0:=R0+0.00000241440*COS(1.12525868110+388.46515523820*x);
R0:=R0+0.00000197093*COS(3.90141942850+52.69019803950*x);
R0:=R0+0.00000236639*COS(0.90802744873+1375.77379984580*x);
R0:=R0+0.00000171915*COS(5.56318632797+213.34727954780*x);
R0:=R0+0.00000169865*COS(2.85667554010+99.16062095550*x);
R0:=R0+0.00000214398*COS(4.20253525974+2531.13495725280*x);
R0:=R0+0.00000172010*COS(2.36537801012+213.25091132820*x);
R0:=R0+0.00000165707*COS(2.63679789706+215.74677599280*x);
R0:=R0+0.00000230892*COS(5.49463421262+191.95845443560*x);
R0:=R0+0.00000177585*COS(0.38155817719+430.53034413910*x);
R0:=R0+0.00000191514*COS(2.95906900704+437.64389113990*x);
R0:=R0+0.00000163250*COS(3.45832517280+617.80588578620*x);
R0:=R0+0.00000162305*COS(5.73050678664+203.00415469950*x);
R0:=R0+0.00000175108*COS(5.71404465044+1066.49547719000*x);
R0:=R0+0.00000183041*COS(5.66851947172+2111.65031337760*x);
R0:=R0+0.00000150077*COS(4.40663921925+417.03696332040*x);
R0:=R0+0.00000187935*COS(6.07916265661+563.63121503840*x);
R0:=R0+0.00000145127*COS(5.08176368814+423.41679713830*x);
R0:=R0+0.00000137491*COS(5.43912787991+222.86032299360*x);
R0:=R0+0.00000172824*COS(1.84920994090+1589.07289528380*x);
R0:=R0+0.00000165478*COS(2.89132196119+214.26230328450*x);
R0:=R0+0.00000145727*COS(1.56565192483+831.85574074960*x);
R0:=R0+0.00000176864*COS(2.30323752987+9999.98645077300*x);
R0:=R0+0.00000128877*COS(2.55338644107+414.06801790380*x);
R0:=R0+0.00000120093*COS(0.04329750542+1361.54670584420*x);
R0:=R0+0.00000143441*COS(0.99817357720+76.26607127560*x);
R0:=R0+0.00000108747*COS(2.09282278191+207.67002114550*x);
R0:=R0+0.00000132106*COS(2.85902597898+312.45971639350*x);
R0:=R0+0.00000112238*COS(0.26221759151+2104.53676637680*x);
R0:=R0+0.00000125186*COS(4.78354048063+205.22234059070*x);
R0:=R0+0.00000104427*COS(3.63671899047+65.22037101170*x);
R0:=R0+0.00000107447*COS(3.67064138701+212.77783057620*x);
R0:=R0+0.00000108642*COS(2.85492389024+21.34064100240*x);
R0:=R0+0.00000097743*COS(5.12231845599+2634.22773147140*x);
R0:=R0+0.00000109097*COS(1.63231061493+208.63322899200*x);
R0:=R0+0.00000096852*COS(4.19928280035+305.34616939270*x);
R0:=R0+0.00000096507*COS(2.56002066845+1692.16566950240*x);
R0:=R0+0.00000085829*COS(4.54545085982+210.37833413120*x);
R0:=R0+0.00000099249*COS(5.13816222131+1574.84580128220*x);
R0:=R0+0.00000112532*COS(5.03109281265+703.63318461740*x);
R0:=R0+0.00000084023*COS(1.18337717265+429.77958461370*x);
R0:=R0+0.00000089021*COS(5.38791571457+107.02492748170*x);
R0:=R0+0.00000110191*COS(2.43656081234+355.74874557180*x);
R0:=R0+0.00000090659*COS(4.20908809746+213.82036029980*x);
R0:=R0+0.00000095885*COS(5.44594259071+2428.04218303420*x);
R0:=R0+0.00000094109*COS(2.39786381418+483.22054217860*x);
R0:=R0+0.00000085609*COS(0.03354346966+860.30992875280*x);
R0:=R0+0.00000088796*COS(4.05766306750+128.95626931510*x);
R0:=R0+0.00000081951*COS(1.66499731549+62.25142559510*x);
R0:=R0+0.00000091240*COS(3.96942332591+2847.52682690940*x);
R0:=R0+0.00000083961*COS(4.60845858022+177.87437278590*x);
R0:=R0+0.00000088376*COS(3.86800515885+140.00196957900*x);
R0:=R0+0.00000093308*COS(0.73846639887+831.10498122420*x);
R0:=R0+0.00000091872*COS(2.94977605320+35.42472265210*x);
R0:=R0+0.00000087077*COS(1.33390590052+1905.46476494040*x);
R0:=R0+0.00000096584*COS(4.84438390997+131.40394986990*x);
R0:=R0+0.00000071010*COS(0.99334817658+405.25754987360*x);
R0:=R0+0.00000095266*COS(2.51506908152+2.44768055480*x);
R0:=R0+0.00000072514*COS(4.63213873657+245.54242435240*x);
R0:=R0+0.00000082580*COS(1.52823217919+145.63104387150*x);
R0:=R0+0.00000076693*COS(3.15240783008+767.36908292080*x);
R0:=R0+0.00000070317*COS(4.04253707270+173.94221952280*x);
R0:=R0+0.00000086015*COS(2.30103727270+85.82729883120*x);
R0:=R0+0.00000066529*COS(4.75053522835+70.84944530420*x);
R0:=R0+0.00000065835*COS(2.46869725001+280.96714700450*x);
R0:=R0+0.00000064824*COS(0.09343869325+9.56122755560*x);
R0:=R0+0.00000071557*COS(0.01212415296+565.11568774670*x);
R0:=R0+0.00000066533*COS(1.08034871114+339.28641933650*x);
R0:=R0+0.00000063488*COS(2.01740971153+234.63973644040*x);
R0:=R0+0.00000060786*COS(5.12026947473+756.32338265690*x);
R0:=R0+0.00000058123*COS(6.05732868566+1677.93857550080*x);
R0:=R0+0.00000064236*COS(1.28586474622+1148.24761040620*x);
R0:=R0+0.00000073124*COS(4.37810889148+425.11371816770*x);
R0:=R0+0.00000055012*COS(3.85865703217+342.25536475310*x);
R0:=R0+0.00000057101*COS(6.26689214029+2420.92863603340*x);
R0:=R0+0.00000064090*COS(4.09854757476+327.43756992050*x);
R0:=R0+0.00000055306*COS(1.60456896521+543.02428721890*x);
R0:=R0+0.00000057987*COS(5.47269124340+347.88443904560*x);
R0:=R0+0.00000073581*COS(3.72292337326+92.04707395470*x);
R0:=R0+0.00000073760*COS(3.57045342615+1.48447270830*x);
R0:=R0+0.00000064940*COS(2.44739629174+267.47376618580*x);
R0:=R0+0.00000054414*COS(3.71479080197+344.70304530790*x);
R0:=R0+0.00000049783*COS(3.93453970179+192.69216761850*x);
R0:=R0+0.00000049537*COS(3.22831070579+333.65734504400*x);
R0:=R0+0.00000047539*COS(3.92925402178+199.28444975750*x);
R0:=R0+0.00000049368*COS(4.90341763553+217.49188113200*x);
R0:=R0+0.00000062711*COS(4.40120079629+214.78356814630*x);
R0:=R0+0.00000046359*COS(2.09430260266+212.54833591260*x);
R0:=R0+0.00000046289*COS(2.64038453480+10.29494073850*x);
R0:=R0+0.00000054335*COS(1.07179534996+362.86229257260*x);
R0:=R0+0.00000058742*COS(2.62270940799+225.82926841020*x);
R0:=R0+0.00000048457*COS(3.15166418511+216.21985674480*x);
R0:=R0+0.00000046316*COS(4.86226642770+2950.61960112800*x);
R0:=R0+0.00000045970*COS(4.97297391881+198.32124191100*x);
R0:=R0+0.00000046678*COS(2.44960215701+207.14875628370*x);
R0:=R0+0.00000044905*COS(1.77616995803+223.59403617650*x);
R0:=R0+0.00000044521*COS(5.55987055442+264.50482076920*x);
R0:=R0+0.00000055914*COS(4.29520232351+329.72519178090*x);
R0:=R0+0.00000049643*COS(5.20789299388+2744.43405269080*x);
R0:=R0+0.00000058829*COS(4.23073947869+700.66423920080*x);
R0:=R0+0.00000052629*COS(3.79230629070+343.21857259960*x);
R0:=R0+0.00000041532*COS(0.74488808688+125.98732389850*x);
R0:=R0+0.00000047767*COS(2.39260015876+207.88246946660*x);
R0:=R0+0.00000056157*COS(2.07214273531+124.43341522100*x);
R0:=R0+0.00000043345*COS(1.83707598036+106.27416795630*x);
R0:=R0+0.00000039793*COS(4.00870764324+12.53017297220*x);
R0:=R0+0.00000053882*COS(4.97905460628+134.58534360760*x);
R0:=R0+0.00000050135*COS(5.75914508514+320.32402291970*x);
R0:=R0+0.00000044960*COS(5.35721924134+218.92816973050*x);
R0:=R0+0.00000041089*COS(4.92252591399+1891.23767093880*x);
R0:=R0+0.00000046509*COS(2.06623129884+2008.55753915900*x);
R0:=R0+0.00000042949*COS(0.39856812529+357.44566660120*x);
R0:=R0+0.00000037992*COS(2.06495914285+247.23934538180*x);
R0:=R0+0.00000048733*COS(5.32762223699+3127.31333126180*x);
R0:=R0+0.00000034583*COS(5.62555932761+99.91138048090*x);
R0:=R0+0.00000041092*COS(2.47264897370+237.67811782620*x);
R0:=R0+0.00000040763*COS(4.08408559215+621.73803904930*x);
R0:=R0+0.00000034213*COS(0.73077393007+750.10360753340*x);
R0:=R0+0.00000033967*COS(5.31264617621+206.23373254700*x);
R0:=R0+0.00000036509*COS(1.68826775750+22.09140052780*x);
R0:=R0+0.00000039361*COS(3.45730719990+241.61027108930*x);
R0:=R0+0.00000034796*COS(2.24780137629+487.36514376280*x);
R0:=R0+0.00000033049*COS(4.86593901955+209.10630974400*x);
R0:=R0+0.00000032584*COS(2.22713131846+319.57326339430*x);
R0:=R0+0.00000039035*COS(3.73870591196+3163.91869656600*x);
R0:=R0+0.00000032722*COS(1.06640549236+252.65597135320*x);
R0:=R0+0.00000038671*COS(4.39617126814+18.15924726470*x);
R0:=R0+0.00000034514*COS(1.82607500690+380.12776796000*x);
R0:=R0+0.00000041539*COS(0.08136234251+210.33015002140*x);
R0:=R0+0.00000033527*COS(5.80475568528+251.43213107580*x);
R0:=R0+0.00000031221*COS(1.96489151107+244.31858407500*x);
R0:=R0+0.00000030521*COS(2.26854188579+1169.58825140860*x);
R0:=R0+0.00000034828*COS(5.96324553131+217.96496188400*x);
R0:=R0+0.00000038481*COS(4.43707551964+160.60889739850*x);
R0:=R0+0.00000035998*COS(3.83262381556+56.62235130260*x);
R0:=R0+0.00000031041*COS(4.89914223233+144.14657116320*x);
R0:=R0+0.00000032342*COS(3.58191018804+231.45834270270*x);
R0:=R0+0.00000028838*COS(5.80081031514+1994.33044515740*x);
R0:=R0+0.00000032175*COS(2.13166877923+206.13736432740*x);
R0:=R0+0.00000032643*COS(1.93131580544+98.89998852460*x);
R0:=R0+0.00000034917*COS(5.65276617691+497.44763618020*x);
R0:=R0+0.00000028928*COS(2.21653288920+14.97785352700*x);
R0:=R0+0.00000031569*COS(3.81846560564+73.29712585900*x);
R0:=R0+0.00000032199*COS(0.99811846290+1464.63948006280*x);
R0:=R0+0.00000029153*COS(5.98414099408+2737.32050569000*x);
R0:=R0+0.00000036706*COS(4.75493516597+348.84764689210*x);
R0:=R0+0.00000028665*COS(1.68732054583+78.71375183040*x);
R0:=R0+0.00000027501*COS(6.12086395418+214.04985496340*x);
R0:=R0+0.00000028795*COS(0.04448605904+5.62907429250*x);
R0:=R0+0.00000027205*COS(0.24587543816+313.21047591890*x);
R0:=R0+0.00000032441*COS(3.77921585847+33.94024994380*x);
R0:=R0+0.00000027088*COS(5.20310098020+148.07872442630*x);
R0:=R0+0.00000034956*COS(3.43886187587+273.10284047830*x);
R0:=R0+0.00000033076*COS(2.44662095168+969.62247809490*x);
R0:=R0+0.00000027745*COS(1.44598606685+258.87574647670*x);
R0:=R0+0.00000027178*COS(4.25918596220+179.35884549420*x);
R0:=R0+0.00000027872*COS(0.78772093522+546.95644048200*x);
R0:=R0+0.00000029106*COS(4.83947711462+905.88657979150*x);
R0:=R0+0.00000027417*COS(2.44930366818+254.94359321360*x);
R0:=R0+0.00000034296*COS(6.00920969644+166.82867252200*x);
R0:=R0+0.00000028859*COS(6.02917249910+188.92007304980*x);
R0:=R0+0.00000026001*COS(0.65046992484+654.12438031560*x);
R0:=R0+0.00000033560*COS(1.23732329127+2221.85663459700*x);
R0:=R0+0.00000024356*COS(0.52248751330+894.84087952760*x);
R0:=R0+0.00000027767*COS(5.17820678484+5.41662597140*x);
R0:=R0+0.00000025568*COS(3.35897159622+0.96320784650*x);
R0:=R0+0.00000022879*COS(3.51293480690+458.84151979040*x);
R0:=R0+0.00000024496*COS(0.00976884124+69.15252427480*x);
R0:=R0+0.00000028794*COS(0.75545700854+488.84961647110*x);
R0:=R0+0.00000031228*COS(2.05299907796+282.45161971280*x);
R0:=R0+0.00000025438*COS(5.29037729250+636.71589257630*x);
R0:=R0+0.00000025332*COS(4.97007969450+3060.82592234740*x);
R0:=R0+0.00000023596*COS(2.54766434769+196.62432088160*x);
R0:=R0+0.00000029602*COS(3.92688207792+206.70681329900*x);
R0:=R0+0.00000028255*COS(2.72125009693+32.24332891440*x);
R0:=R0+0.00000022115*COS(4.75775237642+213.18722085340*x);
R0:=R0+0.00000022130*COS(3.25436709191+681.54178408960*x);
R0:=R0+0.00000021675*COS(4.61403328597+3267.01147078460*x);
R0:=R0+0.00000022115*COS(3.16759500067+213.41097002260*x);
R0:=R0+0.00000026912*COS(2.86269769133+24.37902238820*x);
R0:=R0+0.00000020737*COS(1.66895754198+274.06604832480*x);
R0:=R0+0.00000028309*COS(4.73122154345+552.58551477450*x);
R0:=R0+0.00000025252*COS(5.11986371899+168.05251279940*x);
R0:=R0+0.00000026364*COS(1.59272536419+491.81856188770*x);
R0:=R0+0.00000021995*COS(0.88079009280+635.96513305090*x);
R0:=R0+0.00000027076*COS(5.53694832022+555.55446019110*x);
R0:=R0+0.00000019683*COS(2.14388519695+54.17467074780*x);
R0:=R0+0.00000027266*COS(3.57891326986+561.18353448360*x);
R0:=R0+0.00000025162*COS(1.78070903718+182.27960680100*x);
R0:=R0+0.00000021386*COS(3.86030772476+116.42609634290*x);
R0:=R0+0.00000025572*COS(1.62093861709+2324.94940881560*x);
R0:=R0+0.00000020025*COS(2.90618582553+120.35824960600*x);
R0:=R0+0.00000019882*COS(5.59203696008+4.19278569400*x);
R0:=R0+0.00000019454*COS(0.10623632006+218.71572140940*x);
R0:=R0+0.00000025617*COS(2.09931460158+248.72381809010*x);
R0:=R0+0.00000019804*COS(2.52180124343+1485.98012106520*x);
R0:=R0+0.00000018516*COS(2.54810951896+213.51154375910*x);
R0:=R0+0.00000019831*COS(0.07955320843+842.15068148810*x);
R0:=R0+0.00000018516*COS(5.37755110510+213.08664711690*x);
R0:=R0+0.00000023655*COS(1.59974907716+738.79727483860*x);
R0:=R0+0.00000020375*COS(2.94653107321+59.80374504030*x);
R0:=R0+0.00000024247*COS(3.15387696867+240.38643081190*x);
R0:=R0+0.00000018294*COS(3.18715992969+295.05122865420*x);
R0:=R0+0.00000017464*COS(2.90471803626+477.80391620720*x);
R0:=R0+0.00000020698*COS(1.07232100334+494.26624244250*x);
R0:=R0+0.00000020400*COS(1.83665590916+533.62311835770*x);
R0:=R0+0.00000021285*COS(0.63341794388+189.72322220190*x);
R0:=R0+0.00000016116*COS(0.60069688498+746.92221379570*x);
R0:=R0+0.00000016297*COS(3.98317294128+2.92076130680*x);
R0:=R0+0.00000016922*COS(4.74266972033+2207.62954059540*x);
R0:=R0+0.00000020479*COS(6.05098286202+173.68158709190*x);
R0:=R0+0.00000015447*COS(1.49120311247+543.91805909620*x);
R0:=R0+0.00000019944*COS(4.94086632750+121.25202148330*x);
R0:=R0+0.00000017127*COS(0.71458025372+1781.03134971940*x);
R0:=R0+0.00000017240*COS(0.67749766724+151.04766984290*x);
R0:=R0+0.00000015574*COS(5.70296527381+3053.71237534660*x);
R0:=R0+0.00000015036*COS(5.52770334605+2310.72231481400*x);
R0:=R0+0.00000015928*COS(4.45642717299+643.82943957710*x);
R0:=R0+0.00000016165*COS(0.63286131026+358.93013930950*x);
R0:=R0+0.00000014589*COS(5.26158292613+472.17484191470*x);
R0:=R0+0.00000016545*COS(3.52813228069+3480.31056622260*x);
R0:=R0+0.00000018912*COS(0.55218675639+4.66586644600*x);
R0:=R0+0.00000017595*COS(2.26495491189+672.14061522840*x);
R0:=R0+0.00000018104*COS(2.71285673689+181.80652604900*x);
R0:=R0+0.00000015918*COS(5.23446779429+135.54855145410*x);
R0:=R0+0.00000013931*COS(3.19357128657+213.55972786890*x);
R0:=R0+0.00000014058*COS(0.82375896652+221.37585028530*x);
R0:=R0+0.00000013931*COS(4.73208739639+213.03846300710*x);
R0:=R0+0.00000014690*COS(2.65882838685+292.01284726840*x);
R0:=R0+0.00000014454*COS(0.21819892811+235.39049596580*x);
R0:=R0+0.00000016168*COS(0.91025406068+280.00393915800*x);
R0:=R0+0.00000013327*COS(3.54947442109+205.66428357540*x);
R0:=R0+0.00000016104*COS(0.82547975762+176.65053250850*x);
R0:=R0+0.00000016441*COS(5.39398801335+424.15051032120*x);
R0:=R0+0.00000012747*COS(0.75780958758+721.64941953020*x);
R0:=R0+0.00000012754*COS(3.55466871752+153.49535039770*x);
R0:=R0+0.00000014448*COS(0.12049617049+313.68355667090*x);
R0:=R0+0.00000016499*COS(3.26383140489+6283.07584999140*x);
R0:=R0+0.00000016564*COS(1.62649604519+5856.47765911540*x);
R0:=R0+0.00000014950*COS(1.23923264394+2641.34127847220*x);
R0:=R0+0.00000015724*COS(1.18874754834+486.40193591630*x);
R0:=R0+0.00000011893*COS(0.91693668558+416.30325013750*x);
R0:=R0+0.00000011684*COS(1.11385455828+81.75213321620*x);
R0:=R0+0.00000012985*COS(4.74373293725+3377.21779200400*x);
R0:=R0+0.00000011864*COS(0.64411806416+28.31117565130*x);
R0:=R0+0.00000013216*COS(4.95904024430+1279.79457262800*x);
R0:=R0+0.00000016121*COS(0.98185208328+2538.24850425360*x);
R0:=R0+0.00000014900*COS(1.76649832526+569.04784100980*x);
R0:=R0+0.00000011337*COS(4.36555105334+3583.40334044120*x);
R0:=R0+0.00000011253*COS(5.98638731448+193.65537546500*x);
R0:=R0+0.00000014753*COS(2.92291248767+167.08930495290*x);
R0:=R0+0.00000013774*COS(2.50808183571+1802.37199072180*x);
R0:=R0+0.00000011068*COS(0.00471764868+629.60234557550*x);
R0:=R0+0.00000012781*COS(3.62178749219+67.66805156650*x);
R0:=R0+0.00000012238*COS(0.27163151602+1044.40407666220*x);
R0:=R0+0.00000011021*COS(0.15223056578+501.37978944330*x);
R0:=R0+0.00000014206*COS(2.63254885854+618.55664531160*x);
R0:=R0+0.00000014365*COS(0.37819794671+601.76425067620*x);
R0:=R0+0.00000015034*COS(2.67095006272+46.47042291600*x);
R0:=R0+0.00000012248*COS(2.19751851112+650.94298657790*x);
R0:=R0+0.00000010783*COS(2.86375137884+113.38771495710*x);
R0:=R0+0.00000011418*COS(1.20874560246+172.24529849340*x);
R0:=R0+0.00000014613*COS(6.05645353059+468.24268865160*x);
R0:=R0+0.00000010580*COS(2.05903854864+429.04587143080*x);
R0:=R0+0.00000013721*COS(2.20936291526+228.27694896500*x);
R0:=R0+0.00000012180*COS(1.82585577726+241.87090352020*x);
R0:=R0+0.00000010787*COS(5.06924118186+162.89651925890*x);
R0:=R0+0.00000012056*COS(3.20018724042+72.07328558160*x);
R0:=R0+0.00000012233*COS(4.50741930970+425.63498302950*x);
R0:=R0+0.00000012101*COS(4.14977794161+1108.13997496560*x);
R0:=R0+0.00000009843*COS(1.49451039604+226.63241756230*x);
R0:=R0+0.00000010287*COS(2.10680007784+1033.35837639830*x);
R0:=R0+0.00000009975*COS(2.81640446254+518.64526483070*x);
R0:=R0+0.00000009597*COS(4.80028087522+426.64637498580*x);
R0:=R0+0.00000010746*COS(4.66838299108+129.91947716160*x);
R0:=R0+0.00000012961*COS(5.11568581806+219.44943459230*x);
R0:=R0+0.00000012302*COS(5.33568547700+776.93031047640*x);
R0:=R0+0.00000009484*COS(4.85702954575+820.05928096030*x);
R0:=R0+0.00000011441*COS(3.85769732764+405.99126305650*x);
R0:=R0+0.00000009625*COS(1.60280478656+426.55000676620*x);
R0:=R0+0.00000009164*COS(0.70204567980+403.02231763990*x);
R0:=R0+0.00000010112*COS(2.76486875630+210.59078245230*x);
R0:=R0+0.00000010816*COS(1.36864298163+170.76082578510*x);
R0:=R0+0.00000010187*COS(2.36063948382+685.47393735270*x);
R0:=R0+0.00000012397*COS(6.06349943525+875.83029900100*x);
R0:=R0+0.00000012146*COS(2.04060386262+508.35032409220*x);
R0:=R0+0.00000009574*COS(3.19555214859+286.59622129700*x);
R0:=R0+0.00000010193*COS(4.01123146905+381.35160823740*x);
R0:=R0+0.00000008900*COS(3.63260235880+319.31263096340*x);
R0:=R0+0.00000010052*COS(5.16107251040+216.00740842370*x);
R0:=R0+0.00000008528*COS(3.88076551354+630.33605875840*x);
R0:=R0+0.00000008875*COS(5.46623776078+3370.10424500320*x);
R0:=R0+0.00000008401*COS(5.65557131026+213.45915413240*x);
R0:=R0+0.00000010033*COS(5.97497644283+6.15033915430*x);
R0:=R0+0.00000008401*COS(2.27009862215+213.13903674360*x);
R0:=R0+0.00000011661*COS(0.95163302252+694.07195706180*x);
R0:=R0+0.00000008696*COS(2.33868966556+220.36445832900*x);
R0:=R0+0.00000008141*COS(5.54059747150+220.46082654860*x);
R0:=R0+0.00000009615*COS(2.75755414306+556.51766803760*x);
R0:=R0+0.00000009120*COS(0.44322374149+2097.42321937600*x);
R0:=R0+0.00000008109*COS(5.53989498262+181.05576652360*x);
R0:=R0+0.00000010763*COS(0.05616402982+691.10301164520*x);
R0:=R0+0.00000009579*COS(2.84979792871+184.09414790940*x);
R0:=R0+0.00000009958*COS(2.38581008546+945.24345570670*x);
R0:=R0+0.00000008526*COS(0.17821781104+289.56516671360*x);
R0:=R0+0.00000007700*COS(0.00481375410+7.16173111060*x);
R0:=R0+0.00000008613*COS(0.82900327241+2957.73314812880*x);
R0:=R0+0.00000009517*COS(2.27516458273+8.07675484730*x);
R0:=R0+0.00000009049*COS(3.37335025790+731.94436026870*x);
R0:=R0+0.00000007888*COS(5.78452089815+230.82520325630*x);
R0:=R0+0.00000007684*COS(3.10462250617+7.06536289100*x);
R0:=R0+0.00000007391*COS(5.29648701813+2627.11418447060*x);
R0:=R0+0.00000009875*COS(4.69411059509+10213.28554621100*x);
R0:=R0+0.00000007328*COS(0.09051133382+100.64509366380*x);
R0:=R0+0.00000007999*COS(1.60928374337+696.51963761660*x);
R0:=R0+0.00000007600*COS(4.90078510977+51.20572533120*x);
R0:=R0+0.00000009928*COS(5.25713005643+699.70103135430*x);
R0:=R0+0.00000007333*COS(5.61982406824+31.49256938900*x);
R0:=R0+0.00000007376*COS(4.52737009022+616.32141307790*x);
R0:=R0+0.00000009422*COS(2.44475274779+2118.76386037840*x);
R0:=R0+0.00000007300*COS(4.01885475010+212.02707105080*x);
R0:=R0+0.00000007502*COS(4.71301501745+436.15941843160*x);
R0:=R0+0.00000009071*COS(2.75662160229+130.44074202340*x);
R0:=R0+0.00000008913*COS(2.19608557019+427.56139872250*x);
R0:=R0+0.00000008801*COS(4.26655882704+141.22580985640*x);
R0:=R0+0.00000006853*COS(5.69082635009+480.77286162380*x);
R0:=R0+0.00000007765*COS(3.27218537808+3796.70243587920*x);
R0:=R0+0.00000009159*COS(3.04713671650+9786.68735533500*x);
R0:=R0+0.00000009034*COS(2.04165937353+204.70107572890*x);
R0:=R0+0.00000006902*COS(4.61962635489+2524.02141025200*x);
R0:=R0+0.00000006728*COS(0.58794595002+739.80866679490*x);
R0:=R0+0.00000006741*COS(0.52362906624+135.33610313300*x);
R0:=R0+0.00000008201*COS(5.03994203224+411.62033734900*x);
R0:=R0+0.00000007240*COS(3.90653111215+214.57111982520*x);
R0:=R0+0.00000006887*COS(4.11954799957+662.53120356300*x);
R0:=R0+0.00000006566*COS(2.67659365854+194.17664032680*x);
R0:=R0+0.00000006539*COS(6.25585361704+31.01948863700*x);
R0:=R0+0.00000007484*COS(5.56871021201+271.40591944890*x);
R0:=R0+0.00000008078*COS(3.09955817560+353.30106501700*x);
R0:=R0+0.00000007072*COS(1.10066698352+282.66406803390*x);
R0:=R0+0.00000006089*COS(0.79684364835+593.42686339800*x);
R0:=R0+0.00000006140*COS(3.79672343724+180.16199464630*x);
R0:=R0+0.00000006703*COS(3.82854248620+412.58354519550*x);
R0:=R0+0.00000006024*COS(5.46288776207+724.83081326790*x);
R0:=R0+0.00000008102*COS(4.51051495778+268.43697403230*x);
R0:=R0+0.00000006033*COS(1.24326252021+447.93883187840*x);
R0:=R0+0.00000007425*COS(2.29394888999+532.61172640140*x);
R0:=R0+0.00000006007*COS(2.87215425398+426.07692601420*x);
R0:=R0+0.00000007568*COS(0.79147591036+2854.64037391020*x);
R0:=R0+0.00000005816*COS(1.70824982811+50.40257617910*x);
R0:=R0+0.00000007534*COS(5.38598292680+953.10776223290*x);
R0:=R0+0.00000005863*COS(2.04201456623+454.90936652730*x);
R0:=R0+0.00000007291*COS(0.88044346877+457.61767951300*x);
R0:=R0+0.00000006235*COS(4.51960341418+3693.60966166060*x);
R0:=R0+0.00000006359*COS(6.27053660532+313.94418910180*x);
R0:=R0+0.00000005722*COS(0.47241118592+610.69233878540*x);
R0:=R0+0.00000005704*COS(0.45599464136+643.07868005170*x);
R0:=R0+0.00000006176*COS(3.98739420856+835.03713448730*x);
R0:=R0+0.00000005730*COS(0.50814242490+1038.04128918680*x);
R0:=R0+0.00000006812*COS(4.20463385690+938.12990870590*x);
R0:=R0+0.00000005620*COS(4.08049141112+3899.79521009780*x);
R0:=R0+0.00000006770*COS(4.22172125738+916.93228005540*x);
R0:=R0+0.00000006069*COS(3.46762401122+278.25883401880*x);
R0:=R0+0.00000005875*COS(5.51773010551+1073.60902419080*x);
R0:=R0+0.00000005558*COS(3.29478679376+20.60692781950*x);
R0:=R0+0.00000006274*COS(4.88767368263+0.52126486180*x);
R0:=R0+0.00000005794*COS(4.09991767938+391.17346822390*x);
R0:=R0+0.00000005442*COS(2.79802608247+397.39324334740*x);
R0:=R0+0.00000005754*COS(4.42718264879+165.60483224460*x);
R0:=R0+0.00000005879*COS(6.17871525366+291.26208774300*x);
R0:=R0+0.00000006716*COS(2.18663847730+627.36711334180*x);
R0:=R0+0.00000005761*COS(0.62536160332+114.39910691340*x);
R0:=R0+0.00000005359*COS(2.29390692216+331.20966448920*x);
R0:=R0+0.00000006210*COS(4.92273259045+450.97721326420*x);
R0:=R0+0.00000006686*COS(2.13438181268+285.63301345050*x);
R0:=R0+0.00000005173*COS(4.10128119721+6.59228213900*x);
R0:=R0+0.00000005707*COS(3.48716972669+230.56457082540*x);
R0:=R0+0.00000006363*COS(5.64626069194+518.38463239980*x);
R0:=R0+0.00000005241*COS(3.78081098206+418.52143602870*x);
R0:=R0+0.00000005191*COS(4.39595146262+84.34282612290*x);
R0:=R0+0.00000006710*COS(2.96748528229+624.91943278700*x);
R0:=R0+0.00000004931*COS(2.71959451867+558.00214074590*x);
R0:=R0+0.00000005225*COS(4.65463431385+310.71461125430*x);
R0:=R0+0.00000004857*COS(2.61373582429+66.70484372000*x);
R0:=R0+0.00000004847*COS(3.76991373317+423.67742956920*x);
R0:=R0+0.00000005284*COS(1.96024672163+1182.92157353290*x);
R0:=R0+0.00000005933*COS(2.74003948393+219.89137757700*x);
R0:=R0+0.00000006373*COS(1.41296346460+606.76018552230*x);
R0:=R0+0.00000004728*COS(0.23421038001+1063.31408345230*x);
R0:=R0+0.00000006408*COS(1.16687419680+268.95823889410*x);
R0:=R0+0.00000004782*COS(1.56813683227+420.96911658350*x);
R0:=R0+0.00000005399*COS(4.57611449409+238.90195810360*x);
R0:=R0+0.00000005161*COS(0.14436456585+2413.81508903260*x);
R0:=R0+0.00000004858*COS(5.21378840436+3686.49611465980*x);
R0:=R0+0.00000005086*COS(1.73392381835+337.73251065900*x);
R0:=R0+0.00000004650*COS(3.71029121290+305.08553696180*x);
R0:=R0+0.00000004896*COS(3.67786531840+240.12579838100*x);
R0:=R0+0.00000005949*COS(0.29956165181+524.01370669230*x);
R0:=R0+0.00000004968*COS(2.53258931342+980.66817835880*x);
R0:=R0+0.00000004944*COS(2.16189522746+104.05598206510*x);
R0:=R0+0.00000005366*COS(3.54867806985+107.28555991260*x);
R0:=R0+0.00000004917*COS(0.48641512683+3274.12501778540*x);
R0:=R0+0.00000005617*COS(6.27593478237+112.65400177420*x);
R0:=R0+0.00000004524*COS(5.09539085552+103.14095832840*x);
R0:=R0+0.00000005643*COS(1.52724336480+105.54045477340*x);
R0:=R0+0.00000004504*COS(1.68251875362+196.03362005060*x);
R0:=R0+0.00000004897*COS(4.90011892854+102.12956637210*x);
R0:=R0+0.00000004525*COS(1.88735156553+103.04459010880*x);
R0:=R0+0.00000004327*COS(1.45407229380+409.92341631960*x);
R0:=R0+0.00000005095*COS(3.40640608336+427.11945573780*x);
R0:=R0+0.00000005782*COS(3.55197606731+25874.60404613620*x);
R0:=R0+0.00000004192*COS(0.16603430914+958.57677783100*x);
R0:=R0+0.00000004976*COS(0.50639895683+511.53171782990*x);
R0:=R0+0.00000004167*COS(5.94725762070+316.44005376640*x);
R0:=R0+0.00000004353*COS(3.78587101731+1171.87587326900*x);
R0:=R0+0.00000005387*COS(2.03693287651+2435.15573003500*x);
R0:=R0+0.00000004067*COS(4.66592603130+106.01353552540*x);
R0:=R0+0.00000004817*COS(3.53529781673+960.22130923370*x);
R0:=R0+0.00000004048*COS(3.20024146722+775.23338944700*x);
R0:=R0+0.00000004016*COS(6.00569143107+945.99421523210*x);
R0:=R0+0.00000003989*COS(3.15130319196+115.62294719080*x);
R0:=R0+0.00000004559*COS(5.59555355771+778.41478318470*x);
R0:=R0+0.00000004153*COS(2.75042736587+316.34368554680*x);
R0:=R0+0.00000003983*COS(2.00842137744+597.35901666110*x);
R0:=R0+0.00000004212*COS(4.16852690218+823.99143422340*x);
R0:=R0+0.00000005193*COS(0.71717111984+810.65811209910*x);
R0:=R0+0.00000003927*COS(5.04361736754+2943.50605412720*x);
R0:=R0+0.00000004225*COS(0.02571003853+0.75075952540*x);
R0:=R0+0.00000004926*COS(1.12994881124+526.98265210890*x);
R0:=R0+0.00000004170*COS(3.94116290117+422.40540518200*x);
R0:=R0+0.00000004432*COS(3.99599046800+393.46109008430*x);
R0:=R0+0.00000003840*COS(1.21234108241+212.07525516060*x);
R0:=R0+0.00000003866*COS(4.20930793423+97.67614824720*x);
R0:=R0+0.00000004440*COS(1.35536679738+211.60217440860*x);
R0:=R0+0.00000003840*COS(0.43014354282+214.52293571540*x);
R0:=R0+0.00000004724*COS(3.62039208608+638.41281360570*x);
R0:=R0+0.00000004870*COS(5.75874599620+1246.65747183630*x);
R0:=R0+0.00000004449*COS(1.43384065964+184.98791978670*x);
R0:=R0+0.00000003931*COS(2.36660272585+909.81873305460*x);
R0:=R0+0.00000003787*COS(5.98932416906+325.95309721220*x);
R0:=R0+0.00000003665*COS(0.72917314141+20.44686912510*x);
R0:=R0+0.00000004243*COS(2.29103096797+453.42489381900*x);
R0:=R0+0.00000003730*COS(6.24831601183+159.12442469020*x);
R0:=R0+0.00000003900*COS(1.31013240315+850.01498801430*x);
R0:=R0+0.00000005134*COS(1.97348901289+526.50957135690*x);
R0:=R0+0.00000003621*COS(2.77435773661+123.53964334370*x);
R0:=R0+0.00000003607*COS(5.32058842710+406.95447090300*x);
R0:=R0+0.00000003802*COS(1.94444523548+421.18156490460*x);
R0:=R0+0.00000003906*COS(3.02475451573+317.35507750310*x);
R0:=R0+0.00000004473*COS(0.80804073855+838.21852822500*x);
R0:=R0+0.00000004081*COS(2.08732468180+988.53248488500*x);
R0:=R0+0.00000003843*COS(4.99347148246+7.63481186260*x);
R0:=R0+0.00000004467*COS(6.09037793116+760.25553592000*x);
R0:=R0+0.00000003514*COS(3.97285766412+426.48631629140*x);
R0:=R0+0.00000003504*COS(0.85064201666+299.12639426920*x);
R0:=R0+0.00000004397*COS(1.68577228317+824.74219374880*x);
R0:=R0+0.00000003581*COS(2.35235960566+337.80194662820*x);
R0:=R0+0.00000004606*COS(3.48411642192+913.96333463880*x);
R0:=R0+0.00000003790*COS(3.64538213705+216.26804085460*x);
R0:=R0+0.00000003496*COS(0.95035381131+436.89313161450*x);
R0:=R0+0.00000004422*COS(0.82822191292+43.28902917830*x);
R0:=R0+0.00000003688*COS(2.83785443800+739.05790726950*x);
R0:=R0+0.00000004439*COS(1.19409419107+421.93232443000*x);
R0:=R0+0.00000003572*COS(2.77298538478+444.75743814070*x);
R0:=R0+0.00000004420*COS(5.44308967028+963.40270297140*x);
R0:=R0+0.00000004443*COS(3.73070830296+37.87240320690*x);
R0:=R0+0.00000004322*COS(4.75680702521+40.84134862350*x);
R0:=R0+0.00000003724*COS(0.59005210557+256.42806592190*x);
R0:=R0+0.00000004471*COS(2.22367643527+318.83955021140*x);
R0:=R0+0.00000004184*COS(1.52719196640+298.23262239190*x);
R0:=R0+0.00000003534*COS(5.01937599570+386.98068252990*x);
R0:=R0+0.00000003400*COS(3.22663067085+4113.09430553580*x);
R0:=R0+0.00000004556*COS(1.35715974815+495.75071515080*x);
R0:=R0+0.00000004453*COS(1.80417064247+829.62050851590*x);
R0:=R0+0.00000003617*COS(1.51036385224+41.64449777560*x);
R0:=R0+0.00000003789*COS(4.80357656146+238.42887735160*x);
R0:=R0+0.00000003514*COS(2.38272766645+426.71006546060*x);
R0:=R0+0.00000003208*COS(1.74465274123+952.35700270750*x);
R0:=R0+0.00000004398*COS(2.65839000906+832.58945393250*x);
R0:=R0+0.00000004092*COS(3.07954777295+60.76695288680*x);
R0:=R0+0.00000003813*COS(5.63047104819+315.42866181010*x);
R0:=R0+0.00000003219*COS(6.22278803635+754.83890994860*x);
R0:=R0+0.00000003102*COS(2.69222024257+343.73983746140*x);
R0:=R0+0.00000004045*COS(4.02463772100+376.19561469690*x);
R0:=R0+0.00000003576*COS(0.38532787280+214.99601646740*x);
R0:=R0+0.00000003291*COS(5.49542015261+143.93412284210*x);
R0:=R0+0.00000003981*COS(5.75449411958+239.16259053450*x);
R0:=R0+0.00000003249*COS(0.58789568678+619.29035849450*x);
R0:=R0+0.00000003114*COS(0.02831060137+221.16340196420*x);
R0:=R0+0.00000003555*COS(3.12207684735+1048.33622992530*x);
R0:=R0+0.00000003010*COS(1.91180343491+93.53154666300*x);
R0:=R0+0.00000003384*COS(1.81702854004+443.86366626340*x);
R0:=R0+0.00000003222*COS(2.37342117781+429.51895218280*x);
R0:=R0+0.00000003431*COS(5.92099840679+570.74476203920*x);
R0:=R0+0.00000003271*COS(2.04947945059+806.72595883600*x);
R0:=R0+0.00000003207*COS(5.44018976766+402.21916848780*x);
R0:=R0+0.00000003091*COS(0.10717557454+3590.51688744200*x);
R0:=R0+0.00000002951*COS(1.76365810296+426.81063919710*x);
R0:=R0+0.00000002958*COS(0.23653889192+1354.43315884340*x);
R0:=R0+0.00000002948*COS(4.59289832104+426.38574255490*x);
R0:=R0+0.00000003506*COS(5.43222584214+84.93352695390*x);
R0:=R0+0.00000002894*COS(5.69678330542+1262.38608488870*x);
R0:=R0+0.00000003682*COS(1.07122313007+395.57870223900*x);
R0:=R0+0.00000002983*COS(5.25093816048+313.47110834980*x);
R0:=R0+0.00000003117*COS(4.18767239237+366.79444583570*x);
R0:=R0+0.00000002873*COS(4.45472312727+361.37781986430*x);
R0:=R0+0.00000003521*COS(2.05528981993+1261.63532536330*x);
R0:=R0+0.00000003496*COS(1.87950759078+439.12836384820*x);
R0:=R0+0.00000003012*COS(0.64439385874+263.02034806090*x);
R0:=R0+0.00000002849*COS(1.12491777974+262.05714021440*x);
R0:=R0+0.00000002910*COS(2.76192171681+541.53981451060*x);
R0:=R0+0.00000003322*COS(6.08893948791+108.72184851110*x);
R0:=R0+0.00000003181*COS(1.01419299056+418.00017116690*x);
R0:=R0+0.00000002793*COS(0.38781777981+211.86280683950*x);
R0:=R0+0.00000003091*COS(2.18216748751+306.83064210100*x);
R0:=R0+0.00000003748*COS(3.89145855821+220.93390730060*x);
R0:=R0+0.00000002982*COS(1.99831689446+117.91056905120*x);
R0:=R0+0.00000002793*COS(1.25466684542+214.73538403650*x);
R0:=R0+0.00000003512*COS(1.50965040301+885.43971066640*x);
R0:=R0+0.00000002716*COS(0.80710391613+757.21715453420*x);
R0:=R0+0.00000003137*COS(2.09889265033+2751.54759969160*x);
R0:=R0+0.00000002738*COS(4.89270330923+464.73122651380*x);
R0:=R0+0.00000002875*COS(4.28436709414+4010.00153131720*x);
R0:=R0+0.00000003313*COS(3.01452486457+336.83873878170*x);
R0:=R0+0.00000002746*COS(2.69963506928+380.38840039090*x);
R0:=R0+0.00000003132*COS(2.19562786872+2.96894541660*x);
R0:=R0+0.00000003233*COS(0.60809684558+3171.03224356680*x);
R0:=R0+0.00000003034*COS(0.93246285284+205.43478891180*x);
R0:=R0+0.00000003006*COS(5.91067479448+2.70831298570*x);
R0:=R0+0.00000003643*COS(5.58302397259+423.62924545940*x);
R0:=R0+0.00000002625*COS(1.07042050691+23.57587323610*x);
R0:=R0+0.00000003495*COS(0.19887562030+576.16138801060*x);
R0:=R0+0.00000002590*COS(0.21252773750+110.25450532920*x);
R0:=R0+0.00000002704*COS(6.12908233599+572.22923474750*x);
R0:=R0+0.00000002568*COS(0.17571588314+1056.20053645150*x);
R0:=R0+0.00000002583*COS(2.96927378731+384.05992122310*x);
R0:=R0+0.00000002555*COS(3.96441052072+430.79097657000*x);
R0:=R0+0.00000002786*COS(2.54945911818+195.89060769870*x);
R0:=R0+0.00000002869*COS(4.82964665921+710.74673161820*x);
R0:=R0+0.00000002534*COS(5.31005598763+427.34895040140*x);
R0:=R0+0.00000002618*COS(1.22081401503+36.64856292950*x);
R0:=R0+0.00000003464*COS(2.32811328200+285.37238101960*x);
R0:=R0+0.00000003374*COS(3.34109586766+162.09337010680*x);
R0:=R0+0.00000002694*COS(4.64149271687+140.96517742550*x);
R0:=R0+0.00000002603*COS(0.99527295832+92.30770638560*x);
R0:=R0+0.00000003140*COS(5.40790277580+328.24071907260*x);
R0:=R0+0.00000002603*COS(4.31532790880+561.93429400900*x);
R0:=R0+0.00000002987*COS(0.82758128867+45.57665103870*x);
R0:=R0+0.00000002959*COS(3.35623851523+273.85360000370*x);
R0:=R0+0.00000002561*COS(0.54160683162+107.75864066460*x);
R0:=R0+0.00000002900*COS(1.20691455948+462.02291352810*x);
R0:=R0+0.00000002648*COS(1.90547819027+88.11492069160*x);
R0:=R0+0.00000002461*COS(4.68211868869+2840.41327990860*x);
R0:=R0+0.00000002534*COS(5.00311256556+431.26405732200*x);
R0:=R0+0.00000002521*COS(3.32160472310+136.06981631590*x);
R0:=R0+0.00000002945*COS(1.06452531856+732.69511979410*x);
R0:=R0+0.00000002654*COS(1.36744710395+460.53844081980*x);
R0:=R0+0.00000003297*COS(1.33975572602+305.60680182360*x);
R0:=R0+0.00000002634*COS(2.29995533800+519.39602435610*x);
R0:=R0+0.00000002805*COS(5.62255444533+1699.27921650320*x);
R0:=R0+0.00000002439*COS(5.14733660159+303.86169668440*x);
R0:=R0+0.00000002434*COS(3.71460437051+4216.18707975440*x);
R0:=R0+0.00000002416*COS(3.76296045457+77.75054398390*x);
R0:=R0+0.00000002803*COS(2.55280894914+505.31194270640*x);
R0:=R0+0.00000002592*COS(3.32836551071+110.15813710960*x);
R0:=R0+0.00000003074*COS(1.71462387764+256.58812461630*x);
R0:=R0+0.00000003295*COS(0.81766682522+705.11765732570*x);
R0:=R0+0.00000003183*COS(6.15742006608+109.24311337290*x);
R0:=R0+0.00000002908*COS(5.38534195293+315.16802937920*x);
R0:=R0+0.00000002326*COS(1.42604031905+131.54696222180*x);
R0:=R0+0.00000002427*COS(2.04627850740+124.50285119020*x);
R0:=R0+0.00000002632*COS(1.41253794767+211.65456403530*x);
R0:=R0+0.00000002297*COS(1.38016674676+425.84743135060*x);
R0:=R0+0.00000002318*COS(6.27716072818+317.14262918200*x);
R0:=R0+0.00000002310*COS(4.86442292404+3259.89792378380*x);
R0:=R0+0.00000002873*COS(1.10206537875+7.86430652620*x);
R0:=R0+0.00000002616*COS(0.11849676899+133.10087089930*x);
R0:=R0+0.00000003213*COS(4.49320461690+432.22726516850*x);
R0:=R0+0.00000002276*COS(6.04688191978+214.10224459010*x);
R0:=R0+0.00000002276*COS(1.96882478275+212.49594628590*x);
R0:=R0+0.00000002917*COS(0.96774661857+100.38446123290*x);
R0:=R0+0.00000002890*COS(5.72610904534+322.02094394910*x);
R0:=R0+0.00000002829*COS(2.66887892162+141.48644228730*x);
R0:=R0+0.00000002695*COS(1.47488571070+42.53826965290*x);
R0:=R0+0.00000002697*COS(5.34002228297+432.01481684740*x);
R0:=R0+0.00000002229*COS(4.40717937246+540.73666535850*x);
R0:=R0+0.00000002214*COS(2.43714413196+426.85882330690*x);
R0:=R0+0.00000002512*COS(4.68291916658+1596.18644228460*x);
R0:=R0+0.00000002202*COS(5.91122030007+867.42347575360*x);
R0:=R0+0.00000002856*COS(0.94736445171+41.05379694460*x);
R0:=R0+0.00000002396*COS(0.10516628717+206.93630796260*x);
R0:=R0+0.00000002345*COS(1.16685267780+640.86049416050*x);
R0:=R0+0.00000002263*COS(4.62327588198+188.02630117250*x);
R0:=R0+0.00000002214*COS(3.97566024178+426.33755844510*x);
R0:=R0+0.00000002274*COS(4.94055830720+4002.88798431640*x);
R0:=R0+0.00000002541*COS(0.83705615200+12352.85260454480*x);
R0:=R0+0.00000002145*COS(3.40120044084+111.16952906590*x);
R0:=R0+0.00000002895*COS(6.07389082608+2914.01423582380*x);
R0:=R0+0.00000002520*COS(1.05396310009+184.72728735580*x);
R0:=R0+0.00000002448*COS(3.49820841117+481.73606947030*x);
R0:=R0+0.00000002343*COS(2.86472924644+207.07932031450*x);
R0:=R0+0.00000002964*COS(5.96264929181+465.95506679120*x);
R0:=R0+0.00000002122*COS(4.04560058177+118.07062774560*x);
R0:=R0+0.00000002452*COS(4.35251210402+1382.88734684660*x);
R0:=R0+0.00000002131*COS(0.61211416273+335.14181775230*x);
R0:=R0+0.00000002116*COS(4.76181734842+765.88461021250*x);
R0:=R0+0.00000002245*COS(5.67078632283+6467.92575796160*x);
R0:=R0+0.00000002425*COS(0.84789834075+550.13783421970*x);
R0:=R0+0.00000002227*COS(1.15684015463+227.31374111850*x);
R0:=R0+0.00000002314*COS(6.13104971819+2730.20695868920*x);
R0:=R0+0.00000002344*COS(0.35844885568+217.44369702220*x);
R0:=R0+0.00000002529*COS(3.07975959821+774.48262992160*x);
R0:=R0+0.00000002523*COS(1.75026771081+1578.02719501990*x);
R0:=R0+0.00000002111*COS(4.24637589094+96.87299909510*x);
R0:=R0+0.00000002826*COS(1.01974994073+87.31177153950*x);
R0:=R0+0.00000002906*COS(3.75374302356+428.08266358430*x);
R0:=R0+0.00000002113*COS(2.19787343926+449.23210812500*x);
R0:=R0+0.00000002142*COS(1.19671359858+209.15449385380*x);
R0:=R0+0.00000002882*COS(2.59371585952+39.61750834610*x);
R0:=R0+0.00000002078*COS(2.87503604503+14.01464568050*x);
R0:=R0+0.00000002090*COS(1.99032225653+441.57604440300*x);
R0:=R0+0.00000002519*COS(2.99001165551+745.27768239300*x);
R0:=R0+0.00000002035*COS(5.37147785849+1041.22268292450*x);
R0:=R0+0.00000002054*COS(1.11817372961+842.90144101350*x);
R0:=R0+0.00000002023*COS(2.94559148702+668.20846196530*x);
R0:=R0+0.00000002529*COS(4.34280159004+221.89711514710*x);
R0:=R0+0.00000002554*COS(5.56906955622+214.19286731530*x);
R0:=R0+0.00000002712*COS(1.60469055827+1050.99635880120*x);
R0:=R0+0.00000002350*COS(3.36541706919+220.20019411770*x);
R0:=R0+0.00000002015*COS(2.60446576036+315.64111013120*x);
R0:=R0+0.00000002158*COS(1.64945261993+219.66188291340*x);
R0:=R0+0.00000002120*COS(2.93968038721+304.12232911530*x);
R0:=R0+0.00000002357*COS(1.94433441808+233.90602325750*x);
R0:=R0+0.00000002579*COS(4.54124062411+484.70501488690*x);
R0:=R0+0.00000002046*COS(5.45531068264+200.55647414470*x);
R0:=R0+0.00000002040*COS(2.04492641594+1097.09427470170*x);
R0:=R0+0.00000002675*COS(1.20234167733+28.57180808220*x);
R0:=R0+0.00000002528*COS(4.69268465973+637.44960575920*x);
R0:=R0+0.00000002314*COS(2.81193072994+25.12978191360*x);
R0:=R0+0.00000002689*COS(5.03868493349+1269.49963188950*x);
R0:=R0+0.00000002115*COS(3.10772296248+1276.61317889030*x);
R0:=R0+0.00000002712*COS(1.49710379127+3340.61242669980*x);
R0:=R0+0.00000002138*COS(4.52114042624+378.90392768260*x);
R0:=R0+0.00000002708*COS(0.01014338204+389.94962794650*x);
R0:=R0+0.00000002560*COS(5.75783882561+544.50875992720*x);
R0:=R0+0.00000002028*COS(0.24331359951+146.59425171800*x);
R0:=R0+0.00000002096*COS(1.44475430956+864.24208201590*x);
R0:=R0+0.00000001897*COS(4.63194412388+220.30076785420*x);
R0:=R0+0.00000001901*COS(1.78319572727+192.85222631290*x);
R0:=R0+0.00000002011*COS(4.11578325523+315.87060479480*x);
R0:=R0+0.00000002014*COS(2.26726355818+198.10879358990*x);
R0:=R0+0.00000001905*COS(2.15527255015+326.68681039510*x);
R0:=R0+0.00000001949*COS(3.95440811214+103.61403908040*x);
R0:=R0+0.00000002098*COS(5.24613314798+175.42669223110*x);
R0:=R0+0.00000001884*COS(5.66018186202+1310.39337013970*x);
R0:=R0+0.00000001911*COS(2.60665446600+301.41401612960*x);
R0:=R0+0.00000002160*COS(3.42888079793+420.00590873700*x);
R0:=R0+0.00000002325*COS(5.89632178100+815.06334611420*x);
R0:=R0+0.00000001914*COS(0.22451332248+171.65459766240*x);
R0:=R0+0.00000001854*COS(0.04278915026+233.74596456310*x);
R0:=R0+0.00000001973*COS(2.68640259480+769.81676347560*x);
R0:=R0+0.00000001941*COS(0.61369890353+3487.42411322340*x);
R0:=R0+0.00000001836*COS(3.41496980986+195.77298761970*x);
R0:=R0+0.00000002554*COS(2.35660179716+212.40532356070*x);
R0:=R0+0.00000001822*COS(4.05510232882+639.94547042380*x);
R0:=R0+0.00000001883*COS(6.27079329518+16.67477455640*x);
R0:=R0+0.00000001865*COS(0.17460226411+244.79166482700*x);
R0:=R0+0.00000002097*COS(4.58369520569+316.91313451840*x);
R0:=R0+0.00000001879*COS(2.76480572708+28.45418800320*x);
R0:=R0+0.00000002111*COS(2.92457831824+328.92204262880*x);
R0:=R0+0.00000002077*COS(0.35943033580+589.49471013490*x);
R0:=R0+0.00000001825*COS(4.04945265223+190.40454575810*x);
R0:=R0+0.00000001895*COS(3.89414880651+334.55111692130*x);
R0:=R0+0.00000002425*COS(3.76754213762+25558.21217647960*x);
R0:=R0+0.00000002218*COS(1.85341154236+635.23141986800*x);
R0:=R0+0.00000001782*COS(0.86927461254+92.79783348010*x);
R0:=R0+0.00000002432*COS(3.78026263567+1254.52177836250*x);
R0:=R0+0.00000002106*COS(0.17285594964+354.26427286350*x);
R0:=R0+0.00000001791*COS(6.23892012939+1670.82502850000*x);
R0:=R0+0.00000001996*COS(1.40940081042+230.70758317730*x);
R0:=R0+0.00000001753*COS(1.86660297451+241.75328344120*x);
R0:=R0+0.00000002093*COS(2.39366777880+187.43560034150*x);
R0:=R0+0.00000002007*COS(3.54083120293+226.79247625670*x);
R0:=R0+0.00000001949*COS(1.36533052698+1385.17496870700*x);
R0:=R0+0.00000001737*COS(2.67583588366+6.36278747540*x);
R0:=R0+0.00000001868*COS(4.24454204649+1119.18567522950*x);
R0:=R0+0.00000001896*COS(3.81474515719+310.97524368520*x);
R0:=R0+0.00000001860*COS(3.67887919389+1321.43907040360*x);
R0:=R0+0.00000002305*COS(3.53252557028+1570.91364801910*x);
R0:=R0+0.00000002008*COS(3.88504783546+638.93407846750*x);
R0:=R0+0.00000001928*COS(2.64393870433+525.75881183150*x);
R0:=R0+0.00000001807*COS(0.76057354967+66.18357885820*x);
R0:=R0+0.00000001824*COS(0.85822155861+639.84910220420*x);
R0:=R0+0.00000002221*COS(4.82210413830+1585.89150154610*x);
R0:=R0+0.00000002227*COS(4.58488941022+271.61836777000*x);
R0:=R0+0.00000001897*COS(0.64334758250+55.65914345610*x);
R0:=R0+0.00000001792*COS(0.00514800434+827.92358748650*x);
R0:=R0+0.00000001831*COS(3.69768852728+172.45774681450*x);
R0:=R0+0.00000001790*COS(4.80062977720+3576.28979344040*x);
R0:=R0+0.00000001698*COS(0.72475212282+295.19424100610*x);
R0:=R0+0.00000001744*COS(3.45256183290+238.57188970350*x);
R0:=R0+0.00000002334*COS(1.51845210531+170.01006625970*x);
R0:=R0+0.00000001669*COS(4.44620549295+4319.27985397300*x);
R0:=R0+0.00000001939*COS(3.43927826945+102.57150935680*x);
R0:=R0+0.00000001733*COS(5.96815907422+837.69726336320*x);
R0:=R0+0.00000001686*COS(2.12870436615+491.55792945680*x);
R0:=R0+0.00000001651*COS(3.20586624475+281.17959532560*x);
R0:=R0+0.00000001884*COS(4.24447812450+13.49338081870*x);
R0:=R0+0.00000001880*COS(0.33845094634+214.94362684070*x);
R0:=R0+0.00000001817*COS(3.07678560214+220.52451702340*x);
R0:=R0+0.00000001872*COS(3.79328892492+392.65794093220*x);
R0:=R0+0.00000002195*COS(1.93786776664+259.76951835400*x);
R0:=R0+0.00000001881*COS(4.49314034712+199.80571461930*x);
R0:=R0+0.00000001662*COS(0.29659841675+314.90739694830*x);
R0:=R0+0.00000001626*COS(2.29697402942+3067.93946934820*x);
R0:=R0+0.00000001927*COS(1.00706624515+26.82670294300*x);
R0:=R0+0.00000001621*COS(0.01495920679+1379.70595310890*x);
R0:=R0+0.00000001655*COS(4.15494230496+4326.39340097380*x);
R0:=R0+0.00000001719*COS(5.97443860990+152.53214255120*x);
R0:=R0+0.00000001653*COS(5.65633302949+448.68959140380*x);
R0:=R0+0.00000001790*COS(3.73709604091+10.03430830760*x);
R0:=R0+0.00000001600*COS(2.28430251221+749.20983565610*x);
R0:=R0+0.00000001770*COS(0.03256515992+364.34676528090*x);
R0:=R0+0.00000001939*COS(5.93191442558+249.94765836750*x);
R0:=R0+0.00000001988*COS(4.78810872536+101.86893394120*x);
R0:=R0+0.00000001667*COS(5.52149899431+229.97386999440*x);
R0:=R0+0.00000002215*COS(3.55121116323+594.65070367540*x);
R0:=R0+0.00000001950*COS(0.80878923373+1049.08698945070*x);
R0:=R0+0.00000001773*COS(2.55608046714+9985.75935677140*x);
R0:=R0+0.00000002088*COS(2.33165208016+420.44785172170*x);
R0:=R0+0.00000002107*COS(2.43624356568+453.68552624990*x);
R0:=R0+0.00000001907*COS(4.72569972805+857.12853501510*x);
R0:=R0+0.00000001609*COS(4.96540433043+285.11174858870*x);
R0:=R0+0.00000002152*COS(4.87024306306+186.21176006410*x);
R0:=R0+0.00000001685*COS(5.68609178354+200.03520928290*x);
R0:=R0+0.00000001752*COS(5.21532265401+25448.00585526019*x);
R0:=R0+0.00000001870*COS(6.14683645342+347.36317418380*x);
R0:=R0+0.00000001731*COS(1.95944272122+934.94851496820*x);
R0:=R0+0.00000001680*COS(5.56246697700+170.97327410620*x);
R0:=R0+0.00000001652*COS(1.24521351050+398.14400287280*x);
R0:=R0+0.00000001548*COS(0.38524522125+17.26547538740*x);
R0:=R0+0.00000001577*COS(0.23430114545+434.67494572330*x);
R0:=R0+0.00000001652*COS(2.84480428863+385.54439393140*x);
R0:=R0+0.00000001770*COS(1.15057996280+199.96577331370*x);
R0:=R0+0.00000001528*COS(4.02240583348+236.19364511790*x);
R0:=R0+0.00000002118*COS(5.47803429266+369.08206769610*x);
R0:=R0+0.00000001543*COS(2.54353574089+632.73555520340*x);
R0:=R0+0.00000001504*COS(5.94300855424+280.21638747910*x);
R0:=R0+0.00000001495*COS(2.19380669867+407.47573576480*x);
R0:=R0+0.00000001894*COS(1.88797605501+598.84348936940*x);
R0:=R0+0.00000001515*COS(4.70072295492+211.29335786790*x);
R0:=R0+0.00000001767*COS(3.11910667879+2921.12778282460*x);
R0:=R0+0.00000001515*COS(3.31498374761+215.30483300810*x);
R0:=R0+0.00000001728*COS(5.28095966912+219.51887056150*x);
R0:=R0+0.00000001906*COS(5.24236020775+248.46318565920*x);
R0:=R0+0.00000001607*COS(0.80041605735+642.34496686880*x);
R0:=R0+0.00000001640*COS(2.93387205029+1364.72809958190*x);
R0:=R0+0.00000001585*COS(0.77219822539+661.23792731640*x);
R0:=R0+0.00000001458*COS(5.67666822477+632.83192342300*x);
R0:=R0+0.00000001866*COS(4.40562835971+971.10695080320*x);
R0:=R0+0.00000001838*COS(0.48492190760+1127.04998175570*x);
R0:=R0+0.00000001903*COS(5.18692835916+2015.67108615980*x);
R0:=R0+0.00000001590*COS(2.80043208070+633.74694715970*x);
R0:=R0+0.00000001489*COS(4.10155671855+77837.11123384659*x);
R0:=R0+0.00000001573*COS(4.23741356107+203.89792657680*x);
R0:=R0+0.00000001690*COS(0.65475720351+2700.71514038580*x);
R0:=R0+0.00000001872*COS(3.54376036064+354.52490529440*x);
R0:=R0+0.00000001419*COS(4.53129346734+224.60542813280*x);
R0:=R0+0.00000001575*COS(3.52476647615+373.90799283650*x);
R0:=R0+0.00000001817*COS(3.95203885550+6076.89030155420*x);
R0:=R0+0.00000001446*COS(5.41423319377+317.87634236490*x);
R0:=R0+0.00000001552*COS(1.89030720529+1304.92435454160*x);
R0:=R0+0.00000001394*COS(1.86243646383+913.75088631770*x);
R0:=R0+0.00000001940*COS(4.36562864826+432.74853003030*x);
R0:=R0+0.00000001655*COS(1.31748248488+25668.41849769900*x);
R0:=R0+0.00000001438*COS(5.12958189872+71.81265315070*x);
R0:=R0+0.00000001929*COS(4.90721606846+206.39799675830*x);
R0:=R0+0.00000001533*COS(2.10965059985+378.64329525170*x);
R0:=R0+0.00000001421*COS(6.22897936063+904.40210708320*x);
R0:=R0+0.00000001450*COS(1.98065714692+205.97310011610*x);
R0:=R0+0.00000001584*COS(5.94110940455+1226.21060271120*x);
R0:=R0+0.00000001510*COS(3.77771207288+222.70026429920*x);
R0:=R0+0.00000001670*COS(2.51954641624+976.73602509570*x);
R0:=R0+0.00000001823*COS(1.60093991502+1141.13406340540*x);
R0:=R0+0.00000001564*COS(3.94804398924+9566.27471289620*x);
R0:=R0+0.00000001406*COS(3.65940442223+316.50374424120*x);
R0:=R0+0.00000001653*COS(3.62394476466+968.13800538660*x);
R0:=R0+0.00000001495*COS(0.77832279170+5959.57043333400*x);
R0:=R0+0.00000001408*COS(5.24970924980+316.27999507200*x);
R0:=R0+0.00000001724*COS(0.25483952164+125.18417474640*x);
R0:=R0+0.00000001426*COS(2.26871672572+17.40848773930*x);
R0:=R0+0.00000001881*COS(4.12588105003+562.14674233010*x);
R0:=R0+0.00000001370*COS(4.74474866880+1357.61455258110*x);
R0:=R0+0.00000001485*COS(2.18712736768+9889.78012955360*x);
R0:=R0+0.00000001369*COS(1.31846306523+1160.83017300510*x);
R0:=R0+0.00000001394*COS(5.66924517860+1736.99156101570*x);
R0:=R0+0.00000001375*COS(0.16983286236+346.39996633730*x);
R0:=R0+0.00000001525*COS(2.40244831911+419.43645976540*x);
R0:=R0+0.00000001359*COS(2.68668516027+310.76279536410*x);
R0:=R0+0.00000001396*COS(3.67055397940+253.45912050530*x);
R0:=R0+0.00000001454*COS(5.49356262440+504.56118318100*x);
R0:=R0+0.00000001813*COS(0.21882066860+263.70167161710*x);
R0:=R0+0.00000001330*COS(3.01736059716+254.14044406150*x);
R0:=R0+0.00000001498*COS(0.17578085903+155.78297225810*x);
R0:=R0+0.00000001509*COS(5.13129901759+768.85355562910*x);
R0:=R0+0.00000001550*COS(1.44225397189+1894.41906467650*x);
R0:=R0+0.00000001447*COS(1.44933809994+893.35640681930*x);
R0:=R0+0.00000001306*COS(5.76425101758+714.67888488130*x);
R0:=R0+0.00000001660*COS(1.34160526151+322.61164478010*x);
R0:=R0+0.00000001347*COS(3.00388920953+843.63515419640*x);
R0:=R0+0.00000001432*COS(3.43786149731+251.17149864490*x);
R0:=R0+0.00000001510*COS(4.39762427873+25.27279426550*x);
R0:=R0+0.00000001587*COS(5.17106904014+141.69889060840*x);
R0:=R0+0.00000001477*COS(5.47518377610+226.04171673130*x);
R0:=R0+0.00000001356*COS(4.24406292182+332.17287233570*x);
R0:=R0+0.00000001644*COS(1.74367211793+67.88049988760*x);
R0:=R0+0.00000001407*COS(5.79229630947+188.16931352440*x);
R0:=R0+0.00000001575*COS(0.09808372057+702.14871190910*x);
R0:=R0+0.00000001765*COS(4.93410889383+201.51968199120*x);
R0:=R0+0.00000001318*COS(4.91605557404+17.52610781830*x);
R0:=R0+0.00000001701*COS(4.47360878108+384.27236954420*x);
R0:=R0+0.00000001304*COS(6.04155032791+25.86349509650*x);
R0:=R0+0.00000001269*COS(4.91035989349+354.99798604640*x);
R0:=R0+0.00000001620*COS(5.54960841244+260.36021918500*x);
R0:=R0+0.00000001263*COS(1.16521999431+255.83736509090*x);
R0:=R0+0.00000001744*COS(3.70453251764+147.11551657980*x);
R0:=R0+0.00000001579*COS(4.31561365365+2228.97018159780*x);
R0:=R0+0.00000001557*COS(0.57740217353+3178.14579056760*x);
R0:=R0+0.00000001302*COS(0.32055726013+119.76754877500*x);
R0:=R0+0.00000001405*COS(3.20407486040+395.10562148700*x);
R0:=R0+0.00000001234*COS(2.34766954239+318.67949151700*x);
R0:=R0+0.00000001519*COS(4.74629629688+100.17201291180*x);
R0:=R0+0.00000001573*COS(4.00132484524+1264.29545423920*x);
R0:=R0+0.00000001222*COS(0.10709243166+1372.59240610810*x);
R0:=R0+0.00000001205*COS(0.24105241435+466.75821594330*x);
R0:=R0+0.00000001188*COS(1.27112537278+1184.40604624120*x);
R0:=R0+0.00000001280*COS(4.85454052139+535.91074021810*x);
R0:=R0+0.00000001482*COS(4.47166692910+763.43692965770*x);
R0:=R0+0.00000001233*COS(1.64803509193+433.66355376700*x);
R0:=R0+0.00000001476*COS(3.76634399110+272.58157561650*x);
R0:=R0+0.00000001199*COS(1.78020373551+102.34201469320*x);
R0:=R0+0.00000001186*COS(4.72162748523+795.68025857210*x);
R0:=R0+0.00000001291*COS(4.42697938285+10220.39909321180*x);
R0:=R0+0.00000001576*COS(2.40263038916+348.63519857100*x);
R0:=R0+0.00000001497*COS(3.44614317326+3024.22055704320*x);
R0:=R0+0.00000001175*COS(4.85145058205+433.75992198660*x);
R0:=R0+0.00000001262*COS(5.79416346069+531.97858695500*x);
R0:=R0+0.00000001486*COS(4.39599352105+1055.44977692610*x);
R0:=R0+0.00000001351*COS(0.46461977407+707.56533788050*x);
R0:=R0+0.00000001230*COS(5.18147817992+752.39122939380*x);
R0:=R0+0.00000001175*COS(4.35535063059+3892.68166309700*x);
R0:=R0+0.00000001581*COS(5.49361132323+419.53282798500*x);
R0:=R0+0.00000001247*COS(4.22328749428+113.12708252620*x);
R0:=R0+0.00000001145*COS(2.26067253357+199.12018554620*x);
R0:=R0+0.00000001385*COS(0.89711064123+6073.70890781650*x);
R0:=R0+0.00000001228*COS(4.55057016747+680.05731138130*x);
R0:=R0+0.00000001470*COS(1.58708185256+409.18970313670*x);
R0:=R0+0.00000001366*COS(3.99684537321+6065.84460129030*x);
R0:=R0+0.00000001131*COS(1.56474593118+196.83676920270*x);
R0:=R0+0.00000001163*COS(5.75528918663+2303.60876781320*x);
R0:=R0+0.00000001142*COS(4.35845106342+1834.61531963620*x);
R0:=R0+0.00000001244*COS(1.93187654929+623.22251175760*x);
R0:=R0+0.00000001136*COS(3.13253323524+611.44309831080*x);
R0:=R0+0.00000001425*COS(2.65840274172+1253.77101883710*x);
R0:=R0+0.00000001114*COS(3.43048279234+771.30123618390*x);
R0:=R0+0.00000001314*COS(0.15326588489+493.30303459600*x);
R0:=R0+0.00000001109*COS(2.95808402860+1091.62525910360*x);
R0:=R0+0.00000001177*COS(3.88159541809+128.36556848410*x);
R0:=R0+0.00000001150*COS(4.69140569690+1.27202438720*x);
R0:=R0+0.00000001527*COS(1.09983755253+683.02625679790*x);
R0:=R0+0.00000001304*COS(5.24544813643+5650.29211067820*x);
R0:=R0+0.00000001347*COS(4.11616699496+97.46369992610*x);
R0:=R0+0.00000001085*COS(0.70231952018+1166.40685767090*x);
R0:=R0+0.00000001224*COS(4.22994822530+827.17282796110*x);
R0:=R0+0.00000001142*COS(5.36157631813+199.02381732660*x);
R0:=R0+0.00000001373*COS(0.89371361814+799.61241183520*x);
R0:=R0+0.00000001085*COS(1.15969472512+398.28701522470*x);
R0:=R0+0.00000001098*COS(3.75659421786+318.39760722670*x);
R0:=R0+0.00000001136*COS(1.35127769399+205.92491600630*x);
R0:=R0+0.00000001108*COS(6.03201954623+206.44618086810*x);
R0:=R0+0.00000001146*COS(0.18236094571+6386.16862421000*x);
R0:=R0+0.00000001216*COS(0.49809632153+1178.98942026980*x);
R0:=R0+0.00000001295*COS(2.32056477953+10003.91860403610*x);
R0:=R0+0.00000001082*COS(1.96611069200+3700.72320866140*x);
R0:=R0+0.00000001094*COS(5.12244388591+314.38613208650*x);
R0:=R0+0.00000001464*COS(4.54056066665+1248.14194454460*x);
R0:=R0+0.00000001277*COS(5.42029902662+9996.05429750990*x);
R0:=R0+0.00000001248*COS(0.21625135029+101.60830151030*x);
R0:=R0+0.00000001055*COS(5.53725373260+1578.77795454530*x);
R0:=R0+0.00000001265*COS(5.85587479852+82.85835341460*x);
R0:=R0+0.00000001058*COS(0.73824266822+670.91677495100*x);
R0:=R0+0.00000001127*COS(3.63458498010+582.38116313410*x);
R0:=R0+0.00000001188*COS(2.10062104535+423.88987789030*x);
R0:=R0+0.00000001217*COS(2.49656109071+311.72600321060*x);
R0:=R0+0.00000001080*COS(3.96349373526+118.87377689770*x);
R0:=R0+0.00000001175*COS(0.91096377814+740.06929922580*x);
R0:=R0+0.00000001087*COS(5.46774426742+494.47869076360*x);
R0:=R0+0.00000001080*COS(3.49168860514+847.04604259770*x);
R0:=R0+0.00000001095*COS(0.97418295319+1159.29331067010*x);
R0:=R0+0.00000001078*COS(1.75579678521+1457.52593306200*x);
R0:=R0+0.00000001087*COS(4.81206824168+109.68505635760*x);
R0:=R0+0.00000001293*COS(0.02397468965+2723.09341168840*x);
R0:=R0+0.00000001190*COS(4.49552956868+429.30650386170*x);
R0:=R0+0.00000001127*COS(0.84707518843+48.75804477640*x);
R0:=R0+0.00000001047*COS(4.58416926615+89.75945209430*x);
R0:=R0+0.00000001251*COS(1.16783030789+455.16999895820*x);
R0:=R0+0.00000001122*COS(5.72161306640+78263.70942472259*x);
R0:=R0+0.00000001027*COS(0.16330222064+229.76142167330*x);
R0:=R0+0.00000001069*COS(2.37188773221+848.53051530600*x);
R0:=R0+0.00000001252*COS(5.28238896229+6080.82245481730*x);
R0:=R0+0.00000001181*COS(5.22299379363+1459.95656727430*x);
R0:=R0+0.00000001382*COS(0.51603096285+774.00954916960*x);
R0:=R0+0.00000001064*COS(5.95222326171+1144.31545714310*x);
R0:=R0+0.00000001083*COS(5.04862249728+629.86297800640*x);
R0:=R0+0.00000001061*COS(3.38604454777+27.08733537390*x);
R0:=R0+0.00000001415*COS(4.85796248007+2332.06295581640*x);
R0:=R0+0.00000001082*COS(4.07686503205+1245.17299912800*x);
R0:=R0+0.00000001112*COS(6.07617329506+870.46185713940*x);
R0:=R0+0.00000001072*COS(0.73647405514+1482.79872732750*x);
R0:=R0+0.00000001322*COS(2.81015928946+223.33340374560*x);
R0:=R0+0.00000001398*COS(1.55232715558+25771.51127191760*x);
R0:=R0+0.00000001065*COS(3.98884050015+683.18631549230*x);
R0:=R0+0.00000001008*COS(5.19594380826+316.13123722570*x);
R0:=R0+0.00000001197*COS(0.79148395839+9580.50180689780*x);
R0:=R0+0.00000001402*COS(4.82957073563+883.79517926370*x);
R0:=R0+0.00000001064*COS(4.65334775068+201.99276274320*x);
R0:=R0+0.00000001108*COS(5.88857586823+657.16276170140*x);
R0:=R0+0.00000000996*COS(4.99081076034+426.75824957040*x);
R0:=R0+0.00000000996*COS(1.60533807224+426.43813218160*x);
R0:=R0+0.00000001028*COS(5.92128319450+108.50940019000*x);
R0:=R0+0.00000001004*COS(3.54259597860+754.03576079650*x);
R0:=R0+0.00000001214*COS(0.81213286478+1773.91780271860*x);
R0:=R0+0.00000001318*COS(0.60269176130+1123.11782849260*x);
R0:=R0+0.00000001327*COS(4.75885008900+321.80849562800*x);
R0:=R0+0.00000001014*COS(5.79119811472+6460.81221096080*x);
R0:=R0+0.00000001178*COS(0.47169015111+495.96316347190*x);
R0:=R0+0.00000000999*COS(5.95030119388+3906.90875709860*x);
R0:=R0+0.00000001033*COS(3.75433174131+414.81877742920*x);
R0:=R0+0.00000001002*COS(1.39171012432+1251.34038462480*x);
R0:=R0+0.00000000990*COS(1.32621236288+1268.74887236410*x);
R0:=R0+0.00000001275*COS(1.95417923977+757.80785536520*x);
R0:=R0+0.00000001174*COS(6.04352585298+225.07850888480*x);
R0:=R0+0.00000001174*COS(5.43253033568+849.26422848890*x);
R0:=R0+0.00000001004*COS(5.33434806968+46.20979048510*x);
R0:=R0+0.00000001108*COS(1.28177889943+294.30046912880*x);
R0:=R0+0.00000000976*COS(1.83523959034+5.88970672340*x);
R0:=R0+0.00000000971*COS(3.38563950019+306.09692891810*x);
R0:=R0+0.00000001050*COS(3.88449467091+632.26247445140*x);
R0:=R0+0.00000001050*COS(3.26096036982+159.71512552120*x);
R0:=R0+0.00000001041*COS(2.36429894351+821.54375366860*x);
R0:=R0+0.00000001218*COS(4.61739999906+990.22940591440*x);
R0:=R0+0.00000001342*COS(1.55614528399+498.93210888850*x);
R0:=R0+0.00000000967*COS(3.84645372731+604.47256366190*x);
R0:=R0+0.00000001171*COS(0.42265751679+10011.03215103690*x);
R0:=R0+0.00000000965*COS(0.05396772193+962.50893109410*x);
R0:=R0+0.00000001096*COS(3.04685199735+608.40471692500*x);
R0:=R0+0.00000001166*COS(6.14999706886+737.31280213030*x);
R0:=R0+0.00000000986*COS(3.71830385737+1235.61177157240*x);
R0:=R0+0.00000000953*COS(0.79704964354+16.46232623530*x);
R0:=R0+0.00000000976*COS(1.05304205075+8.33738727820*x);
R0:=R0+0.00000001142*COS(1.06057209808+369.97583957340*x);
R0:=R0+0.00000001060*COS(4.36236322604+633.30500417500*x);
R0:=R0+0.00000001138*COS(4.31859245106+98.42690777260*x);
R0:=R0+0.00000001006*COS(5.89037944896+10007.09999777380*x);
R0:=R0+0.00000000967*COS(1.56852913547+157.63995198190*x);
R0:=R0+0.00000001082*COS(0.99548769517+4.14460158420*x);
R0:=R0+0.00000001009*COS(6.15037679495+401.32539661050*x);
R0:=R0+0.00000000981*COS(2.37620383333+35.21227433100*x);
R0:=R0+0.00000001011*COS(5.42685471402+110.72758608120*x);
R0:=R0+0.00000000989*COS(4.11575312649+413.85556958270*x);
R0:=R0+0.00000001024*COS(1.90798238649+1175.80802653210*x);
R0:=R0+0.00000001079*COS(4.95981991427+631.82053146670*x);
R0:=R0+0.00000000982*COS(3.02842195594+347.41135829360*x);
R0:=R0+0.00000000979*COS(3.74615289445+700.45179087970*x);
R0:=R0+0.00000000928*COS(5.22236951137+1173.52040467170*x);
R0:=R0+0.00000000912*COS(4.14451390992+469.72716135990*x);
R0:=R0+0.00000000938*COS(1.18273838991+254.35289238260*x);
R0:=R0+0.00000000977*COS(1.26684849112+104.57724692690*x);
R0:=R0+0.00000001134*COS(5.87478488618+6058.73105428950*x);
R0:=R0+0.00000001092*COS(4.51789158271+532.13864564940*x);
R0:=R0+0.00000001132*COS(4.55420027150+1912.57831194120*x);
R0:=R0+0.00000000915*COS(4.87266214195+18.91000679010*x);
R0:=R0+0.00000000915*COS(5.96624579967+1987.21689815660*x);
R0:=R0+0.00000001039*COS(2.40020830681+6475.03930496240*x);
R0:=R0+0.00000000965*COS(4.98927479154+394.35486196160*x);
R0:=R0+0.00000000964*COS(3.60903715900+3281.23856478620*x);
R0:=R0+0.00000000897*COS(2.81660605059+316.23181096220*x);
R0:=R0+0.00000001008*COS(5.78024010734+502.86426215160*x);
R0:=R0+0.00000001005*COS(6.12431717236+6275.96230299060*x);
R0:=R0+0.00000000895*COS(6.09245508513+316.55192835100*x);
R0:=R0+0.00000001224*COS(1.73535287415+5120.60114558360*x);
R0:=R0+0.00000001138*COS(2.92901543353+1037.29052966140*x);
R0:=R0+0.00000000924*COS(5.70601816488+614.83694036960*x);
R0:=R0+0.00000000893*COS(5.25155704274+475.35623565240*x);
R0:=R0+0.00000001042*COS(1.10027795842+1518.22344997960*x);
R0:=R0+0.00000000890*COS(4.03192782386+1314.32552340280*x);
R0:=R0+0.00000000926*COS(3.35110915055+635.70450062000*x);
R0:=R0+0.00000001130*COS(5.49282680494+92.94084583200*x);
R0:=R0+0.00000000890*COS(2.12933822393+3384.33133900480*x);
R0:=R0+0.00000000967*COS(5.86215202069+13.33332212430*x);
R0:=R0+0.00000001004*COS(1.73116475997+10316.37832042960*x);
R0:=R0+0.00000001226*COS(3.52834223937+80.41067285980*x);
R0:=R0+0.00000001029*COS(4.90620832171+19.12245511120*x);
R0:=R0+0.00000000996*COS(0.76740358631+733.42883297700*x);
R0:=R0+0.00000000910*COS(4.08904906301+3333.49887969900*x);
R0:=R0+0.00000001235*COS(1.23871819142+357.23321828010*x);
R0:=R0+0.00000001218*COS(0.18349810348+1090.40141882620*x);
R0:=R0+0.00000000864*COS(4.71917415767+620.25356634100*x);
R0:=R0+0.00000000935*COS(1.45887009044+1042.91960395390*x);
R0:=R0+0.00000000866*COS(4.04792682992+522.52923398400*x);
R0:=R0+0.00000001158*COS(5.43322209110+1089.12939443900*x);
R0:=R0+0.00000000860*COS(0.49220052417+64.95973858080*x);
R0:=R0+0.00000001190*COS(5.58965369650+2810.92146160520*x);
R0:=R0+0.00000000957*COS(3.12914047010+628.59095361920*x);
R0:=R0+0.00000000861*COS(5.69790389801+103.84353374400*x);
R0:=R0+0.00000001037*COS(5.91424823262+11.30633269480*x);
R0:=R0+0.00000000918*COS(0.21424702155+373.01422095920*x);
R0:=R0+0.00000000836*COS(3.02501867546+387.24131496080*x);
R0:=R0+0.00000001158*COS(3.33343863758+6290.18939699220*x);
R0:=R0+0.00000000856*COS(0.81593288669+907.37105249980*x);
R0:=R0+0.00000001036*COS(3.11936047271+5429.87946823940*x);
R0:=R0+0.00000000853*COS(6.23618175592+938.88066823130*x);
R0:=R0+0.00000000982*COS(3.39082880963+521.61421024730*x);
R0:=R0+0.00000000851*COS(5.14029961564+802.79380557290*x);
R0:=R0+0.00000000828*COS(0.28399876908+338.48327018440*x);
R0:=R0+0.00000000868*COS(1.89151676387+627.15466502070*x);
R0:=R0+0.00000000878*COS(2.67671626912+688.65533109040*x);
R0:=R0+0.00000000921*COS(0.18441593712+3803.81598288000*x);
R0:=R0+0.00000000821*COS(0.74694467095+1152.17976366930*x);
R0:=R0+0.00000000841*COS(2.42616504698+625.88264063350*x);
R0:=R0+0.00000000862*COS(3.35273419872+425.32616648880*x);
R0:=R0+0.00000000887*COS(3.46938383985+1748.78802080500*x);
R0:=R0+0.00000000815*COS(5.95428642326+321.05773610260*x);
R0:=R0+0.00000000958*COS(1.35525670354+1201.83158032300*x);
R0:=R0+0.00000000905*COS(5.43093361027+236.87496867410*x);
R0:=R0+0.00000000862*COS(3.24167644516+427.87021526320*x);
R0:=R0+0.00000000793*COS(5.01131700831+109.99387289830*x);
R0:=R0+0.00000000791*COS(2.21809404489+110.41876954050*x);
R0:=R0+0.00000000842*COS(5.04957483651+444.12429869430*x);
R0:=R0+0.00000000887*COS(4.23752031714+3553.91152213780*x);
R0:=R0+0.00000000851*COS(4.64229745145+4105.98075853500*x);
R0:=R0+0.00000001067*COS(4.69271921916+559.69906177530*x);
R0:=R0+0.00000000966*COS(4.55013458162+9360.08916445900*x);
R0:=R0+0.00000000977*COS(1.50925667031+186.47239249500*x);
R0:=R0+0.00000001092*COS(0.58153747940+203.26478713040*x);
R0:=R0+0.00000000997*COS(0.24589891452+439.93151300030*x);
R0:=R0+0.00000000786*COS(3.84829878956+194.38908864790*x);
R0:=R0+0.00000000774*COS(3.76050639310+219.14061805160*x);
R0:=R0+0.00000000845*COS(4.21602090805+2648.45482547300*x);
R0:=R0+0.00000000962*COS(0.30590569897+229.34073054800*x);
R0:=R0+0.00000000763*COS(0.05577842075+846.13101886100*x);
R0:=R0+0.00000000839*COS(5.68124142701+2620.00063746980*x);
R0:=R0+0.00000000818*COS(2.52609626540+26301.20223701220*x);
R0:=R0+0.00000000929*COS(0.71906225883+740.28174754690*x);
R0:=R0+0.00000000895*COS(5.83218231202+4539.69249641180*x);
R0:=R0+0.00000000939*COS(3.68460642343+817.77165909990*x);
R0:=R0+0.00000000755*COS(4.90024080821+532.87235883230*x);
R0:=R0+0.00000000784*COS(1.14096100609+551.03160609700*x);
R0:=R0+0.00000000899*COS(1.85252071775+835.78789401270*x);
R0:=R0+0.00000000753*COS(0.04254534997+1534.73816584160*x);
R0:=R0+0.00000001033*COS(1.00137993270+134.11226285560*x);
R0:=R0+0.00000000851*COS(6.12272864540+1475.68518032670*x);
R0:=R0+0.00000000797*COS(5.14322789256+473.65931462300*x);
R0:=R0+0.00000000729*COS(4.94931618796+476.10699517780*x);
R0:=R0+0.00000000852*COS(3.11058720799+232.42155054920*x);
R0:=R0+0.00000000783*COS(4.50805467439+1151.42900414390*x);
R0:=R0+0.00000000751*COS(0.92289775523+1884.12412393800*x);
R0:=R0+0.00000000832*COS(4.19686348297+29.20494752860*x);
R0:=R0+0.00000000720*COS(0.40961041030+522.62560220360*x);
R0:=R0+0.00000000722*COS(3.96121088528+1474.93442080130*x);
R0:=R0+0.00000000788*COS(0.99170388242+121.84272231430*x);
R0:=R0+0.00000000722*COS(4.16734185316+232.20910222810*x);
R0:=R0+0.00000000970*COS(2.32204039048+566.60016045500*x);
R0:=R0+0.00000000814*COS(5.19337022083+948.21240112330*x);
R0:=R0+0.00000000724*COS(2.30837674225+949.12742486000*x);
R0:=R0+0.00000000770*COS(5.89605163084+156.67674413540*x);
R0:=R0+0.00000000705*COS(5.40102118863+1193.96727379680*x);
R0:=R0+0.00000000809*COS(3.56474059969+845.33207522580*x);
R0:=R0+0.00000000755*COS(3.94580797273+451.72797278960*x);
R0:=R0+0.00000000731*COS(6.11847213487+1239.54392483550*x);
R0:=R0+0.00000000747*COS(1.40599730465+782.34693644780*x);
R0:=R0+0.00000000861*COS(1.84312374221+984.60033162190*x);
R0:=R0+0.00000000695*COS(4.78088165969+10419.47109464820*x);
R0:=R0+0.00000000804*COS(1.07998437400+89.00869256890*x);
R0:=R0+0.00000000828*COS(5.86080569334+845.11962690470*x);
R0:=R0+0.00000000692*COS(3.38736418117+6489.26139842860*x);
R0:=R0+0.00000000694*COS(3.07863807714+316.60431797770*x);
R0:=R0+0.00000000690*COS(5.86681311380+316.17942133550*x);
R0:=R0+0.00000000714*COS(5.38707933404+567.82400073240*x);
R0:=R0+0.00000000767*COS(0.12081849650+485.88067105450*x);
R0:=R0+0.00000000820*COS(1.87877245664+499.89531673500*x);
R0:=R0+0.00000000705*COS(0.57839934869+1053.75285589670*x);
R0:=R0+0.00000000684*COS(4.88442270630+2545.36205125440*x);
R0:=R0+0.00000000689*COS(6.14296395253+622.48879857470*x);
R0:=R0+0.00000000823*COS(3.50224755884+877.57540414020*x);
R0:=R0+0.00000000827*COS(2.59300433753+232.94281541100*x);
R0:=R0+0.00000000735*COS(3.05650026582+66.91729204110*x);

LOCAL R1:=0;
R1:=R1+0.06182981282*COS(0.25843515034+213.29909543800*x);
R1:=R1+0.00506577574*COS(0.71114650941+206.18554843720*x);
R1:=R1+0.00341394136*COS(5.79635773960+426.59819087600*x);
R1:=R1+0.00188491375*COS(0.47215719444+220.41264243880*x);
R1:=R1-0.00186261540;
R1:=R1+0.00143891176*COS(1.40744864239+7.11354700080*x);
R1:=R1+0.00049621111*COS(6.01744469580+103.09277421860*x);
R1:=R1+0.00020928189*COS(5.09245654470+639.89728631400*x);
R1:=R1+0.00019952612*COS(1.17560125007+419.48464387520*x);
R1:=R1+0.00018839639*COS(1.60819563173+110.20632121940*x);
R1:=R1+0.00012892827*COS(5.94330258435+433.71173787680*x);
R1:=R1+0.00013876565*COS(0.75886204364+199.07200143640*x);
R1:=R1+0.00005396699*COS(1.28852405908+14.22709400160*x);
R1:=R1+0.00004869308*COS(0.86793894213+323.50541665740*x);
R1:=R1+0.00004247455*COS(0.39299384543+227.52618943960*x);
R1:=R1+0.00003252084*COS(1.25853470491+95.97922721780*x);
R1:=R1+0.00002856006*COS(2.16731405366+735.87651353180*x);
R1:=R1+0.00002909411*COS(4.60679154788+202.25339517410*x);
R1:=R1+0.00003081408*COS(3.43662557418+522.57741809380*x);
R1:=R1+0.00001987689*COS(2.45054204795+412.37109687440*x);
R1:=R1+0.00001941309*COS(6.02393385142+209.36694217490*x);
R1:=R1+0.00001581446*COS(1.29191789712+210.11770170030*x);
R1:=R1+0.00001339511*COS(4.30801821806+853.19638175200*x);
R1:=R1+0.00001315590*COS(1.25296446023+117.31986822020*x);
R1:=R1+0.00001203085*COS(1.86654673794+316.39186965660*x);
R1:=R1+0.00001091088*COS(0.07527246854+216.48048917570*x);
R1:=R1+0.00000954403*COS(5.15173410519+647.01083331480*x);
R1:=R1+0.00000966012*COS(0.47991379141+632.78373931320*x);
R1:=R1+0.00000881827*COS(1.88471724478+1052.26838318840*x);
R1:=R1+0.00000874215*COS(1.40224683864+224.34479570190*x);
R1:=R1+0.00000897512*COS(0.98343776092+529.69096509460*x);
R1:=R1+0.00000784866*COS(3.06377517461+838.96928775040*x);
R1:=R1+0.00000739892*COS(1.38225356694+625.67019231240*x);
R1:=R1+0.00000612961*COS(3.03307306767+63.73589830340*x);
R1:=R1+0.00000658210*COS(4.14362930980+309.27832265580*x);
R1:=R1+0.00000649600*COS(1.72489486160+742.99006053260*x);
R1:=R1+0.00000599236*COS(2.54924174765+217.23124870110*x);
R1:=R1+0.00000502886*COS(2.12958819475+3.93215326310*x);
R1:=R1+0.00000413017*COS(4.59334402271+415.55249061210*x);
R1:=R1+0.00000356117*COS(2.30312127651+728.76296653100*x);
R1:=R1+0.00000344777*COS(5.88787577835+440.82528487760*x);
R1:=R1+0.00000395004*COS(0.53349091102+956.28915597060*x);
R1:=R1+0.00000335526*COS(1.61614647174+1368.66025284500*x);
R1:=R1+0.00000362772*COS(4.70691652867+302.16477565500*x);
R1:=R1+0.00000321611*COS(0.97931764923+3.18139373770*x);
R1:=R1+0.00000277783*COS(0.26007031431+195.13984817330*x);
R1:=R1+0.00000291173*COS(2.83129427918+1155.36115740700*x);
R1:=R1+0.00000264971*COS(2.42670902733+88.86568021700*x);
R1:=R1+0.00000264864*COS(5.82860588985+149.56319713460*x);
R1:=R1+0.00000316777*COS(3.58395655749+515.46387109300*x);
R1:=R1+0.00000294324*COS(2.81632778983+11.04570026390*x);
R1:=R1+0.00000244864*COS(1.04493438899+942.06206196900*x);
R1:=R1+0.00000215368*COS(3.56535574833+490.33408917940*x);
R1:=R1+0.00000264047*COS(1.28547685567+1059.38193018920*x);
R1:=R1+0.00000246245*COS(0.90730313861+191.95845443560*x);
R1:=R1+0.00000222077*COS(5.13193212050+269.92144674060*x);
R1:=R1+0.00000194973*COS(4.56665009915+846.08283475120*x);
R1:=R1+0.00000182802*COS(2.67913220473+127.47179660680*x);
R1:=R1+0.00000181645*COS(4.93431600689+74.78159856730*x);
R1:=R1+0.00000174651*COS(3.44560172182+137.03302416240*x);
R1:=R1+0.00000165515*COS(5.99775895715+536.80451209540*x);
R1:=R1+0.00000154809*COS(1.19720845085+265.98929347750*x);
R1:=R1+0.00000169743*COS(4.63464467495+284.14854074220*x);
R1:=R1+0.00000151526*COS(0.52928231044+330.61896365820*x);
R1:=R1+0.00000152461*COS(5.43886711695+422.66603761290*x);
R1:=R1+0.00000157687*COS(2.99559914619+340.77089204480*x);
R1:=R1+0.00000140630*COS(2.02069760726+1045.15483618760*x);
R1:=R1+0.00000139834*COS(1.35282959390+1685.05212250160*x);
R1:=R1+0.00000140977*COS(1.27099900689+203.00415469950*x);
R1:=R1+0.00000136013*COS(5.01678984678+351.81659230870*x);
R1:=R1+0.00000153391*COS(0.26968607873+1272.68102562720*x);
R1:=R1+0.00000129476*COS(1.14344730612+21.34064100240*x);
R1:=R1+0.00000127831*COS(2.53876158952+1471.75302706360*x);
R1:=R1+0.00000126538*COS(3.00310970076+277.03499374140*x);
R1:=R1+0.00000100277*COS(3.61360169153+1066.49547719000*x);
R1:=R1+0.00000103169*COS(0.38175114761+203.73786788240*x);
R1:=R1+0.00000107527*COS(4.31870663477+210.85141488320*x);
R1:=R1+0.00000095934*COS(0.79463744168+1258.45393162560*x);
R1:=R1+0.00000082663*COS(0.28181414606+234.63973644040*x);
R1:=R1+0.00000097986*COS(2.56085956186+191.20769491020*x);
R1:=R1+0.00000097389*COS(3.26245865063+831.85574074960*x);
R1:=R1+0.00000072227*COS(4.37984630380+860.30992875280*x);
R1:=R1+0.00000070639*COS(0.73191513920+437.64389113990*x);
R1:=R1+0.00000070447*COS(0.87698401733+423.41679713830*x);
R1:=R1+0.00000072057*COS(5.58013290518+429.77958461370*x);
R1:=R1+0.00000073332*COS(0.62505906432+1375.77379984580*x);
R1:=R1+0.00000066433*COS(2.68414462465+405.25754987360*x);
R1:=R1+0.00000063812*COS(1.75051498180+1361.54670584420*x);
R1:=R1+0.00000061601*COS(1.09332288242+2001.44399215820*x);
R1:=R1+0.00000067006*COS(0.06872766216+408.43894361130*x);
R1:=R1+0.00000068945*COS(2.47127505057+949.17560896980*x);
R1:=R1+0.00000060456*COS(2.25094790113+1788.14489672020*x);
R1:=R1+0.00000067074*COS(5.45365870159+200.76892246580*x);
R1:=R1+0.00000065579*COS(0.05539079332+1589.07289528380*x);
R1:=R1+0.00000049320*COS(4.17243429807+138.51749687070*x);
R1:=R1+0.00000050648*COS(6.26867505289+223.59403617650*x);
R1:=R1+0.00000055166*COS(4.59491533823+628.85158605010*x);
R1:=R1+0.00000047916*COS(0.83929741626+10.29494073850*x);
R1:=R1+0.00000046691*COS(2.17322569098+312.19908396260*x);
R1:=R1+0.00000054179*COS(0.28360076018+124.43341522100*x);
R1:=R1+0.00000049511*COS(3.79960349195+215.74677599280*x);
R1:=R1+0.00000040136*COS(5.18161452756+1478.86657406440*x);
R1:=R1+0.00000039302*COS(0.56257369109+1574.84580128220*x);
R1:=R1+0.00000034962*COS(4.68487505703+38.13303563780*x);
R1:=R1+0.00000042770*COS(2.98582069454+1148.24761040620*x);
R1:=R1+0.00000036521*COS(0.63453270366+52.69019803950*x);
R1:=R1+0.00000039752*COS(0.28412706854+131.40394986990*x);
R1:=R1+0.00000031777*COS(5.19036499973+76.26607127560*x);
R1:=R1+0.00000033041*COS(1.97964846430+142.44965013380*x);
R1:=R1+0.00000042053*COS(4.83017951800+288.08069400530*x);
R1:=R1+0.00000030757*COS(1.47903923433+1677.93857550080*x);
R1:=R1+0.00000042829*COS(3.38225543528+208.63322899200*x);
R1:=R1+0.00000029245*COS(5.09869866956+654.12438031560*x);
R1:=R1+0.00000029165*COS(4.95664881649+1795.25844372100*x);
R1:=R1+0.00000029136*COS(2.74747553685+404.50679034820*x);
R1:=R1+0.00000032689*COS(6.12099521344+145.63104387150*x);
R1:=R1+0.00000028008*COS(0.83185907283+2317.83586181480*x);
R1:=R1+0.00000027725*COS(2.24364073545+430.53034413910*x);
R1:=R1+0.00000029939*COS(1.96415498448+2104.53676637680*x);
R1:=R1+0.00000032982*COS(3.28236160491+222.86032299360*x);
R1:=R1+0.00000031772*COS(6.02453027348+1905.46476494040*x);
R1:=R1+0.00000026959*COS(5.24308283338+388.46515523820*x);
R1:=R1+0.00000026514*COS(0.99638302878+107.02492748170*x);
R1:=R1+0.00000025421*COS(2.87336642463+703.63318461740*x);
R1:=R1+0.00000024908*COS(1.07713811775+99.91138048090*x);
R1:=R1+0.00000024955*COS(6.23974037842+106.27416795630*x);
R1:=R1+0.00000024894*COS(0.81040976807+312.45971639350*x);
R1:=R1+0.00000024340*COS(0.54867402916+214.26230328450*x);
R1:=R1+0.00000028441*COS(0.82630052794+1692.16566950240*x);
R1:=R1+0.00000023219*COS(5.07995629354+479.28838891550*x);
R1:=R1+0.00000024362*COS(3.10643455533+212.33588759150*x);
R1:=R1+0.00000021951*COS(6.06688237952+85.82729883120*x);
R1:=R1+0.00000022046*COS(3.89863665506+563.63121503840*x);
R1:=R1+0.00000022596*COS(4.86725457223+295.05122865420*x);
R1:=R1+0.00000021256*COS(5.10797617452+333.65734504400*x);
R1:=R1+0.00000025985*COS(2.20813879137+1265.56747862640*x);
R1:=R1+0.00000020904*COS(3.28855303434+70.84944530420*x);
R1:=R1+0.00000021505*COS(3.79541155976+347.88443904560*x);
R1:=R1+0.00000022067*COS(4.22716352578+217.96496188400*x);
R1:=R1+0.00000020629*COS(1.68732248608+231.45834270270*x);
R1:=R1+0.00000021429*COS(3.08914428467+554.06998748280*x);
R1:=R1+0.00000021310*COS(0.38868340861+319.57326339430*x);
R1:=R1+0.00000020521*COS(2.45651851283+18.15924726470*x);
R1:=R1+0.00000026055*COS(4.27554951169+483.22054217860*x);
R1:=R1+0.00000020703*COS(5.12057936320+362.86229257260*x);
R1:=R1+0.00000022047*COS(5.51249354809+343.21857259960*x);
R1:=R1+0.00000019443*COS(2.02441679295+313.21047591890*x);
R1:=R1+0.00000020163*COS(5.08481373110+750.10360753340*x);
R1:=R1+0.00000020125*COS(3.42997916125+213.34727954780*x);
R1:=R1+0.00000024196*COS(0.64787472796+207.88246946660*x);
R1:=R1+0.00000021977*COS(0.72894956852+99.16062095550*x);
R1:=R1+0.00000021120*COS(2.69286728009+1464.63948006280*x);
R1:=R1+0.00000017192*COS(4.71525117969+2111.65031337760*x);
R1:=R1+0.00000018540*COS(0.04817255506+245.54242435240*x);
R1:=R1+0.00000017521*COS(3.83662880684+497.44763618020*x);
R1:=R1+0.00000016107*COS(4.22374822303+565.11568774670*x);
R1:=R1+0.00000021607*COS(4.16647257628+2.44768055480*x);
R1:=R1+0.00000015979*COS(0.27376396113+225.82926841020*x);
R1:=R1+0.00000016831*COS(1.41134653939+114.13847448250*x);
R1:=R1+0.00000015626*COS(2.82768623405+81.75213321620*x);
R1:=R1+0.00000015499*COS(1.20606390539+1994.33044515740*x);
R1:=R1+0.00000015168*COS(3.84591816174+1162.47470440780*x);
R1:=R1+0.00000016436*COS(3.04752365976+134.58534360760*x);
R1:=R1+0.00000015870*COS(0.33026420429+1891.23767093880*x);
R1:=R1+0.00000020370*COS(0.23170286692+213.25091132820*x);
R1:=R1+0.00000016291*COS(1.70643197929+2420.92863603340*x);
R1:=R1+0.00000016280*COS(4.94159427320+357.44566660120*x);
R1:=R1+0.00000018076*COS(5.69515344123+56.62235130260*x);
R1:=R1+0.00000013724*COS(0.57240190030+2634.22773147140*x);
R1:=R1+0.00000017355*COS(3.55311137444+218.92816973050*x);
R1:=R1+0.00000013740*COS(5.70545527289+92.04707395470*x);
R1:=R1+0.00000015328*COS(1.31338692850+216.21985674480*x);
R1:=R1+0.00000012538*COS(5.19222019427+635.96513305090*x);
R1:=R1+0.00000012815*COS(1.60151130870+320.32402291970*x);
R1:=R1+0.00000013043*COS(0.45068441373+1169.58825140860*x);
R1:=R1+0.00000011984*COS(5.94916123570+543.91805909620*x);
R1:=R1+0.00000011753*COS(2.80279347133+217.49188113200*x);
R1:=R1+0.00000014746*COS(5.56520105813+344.70304530790*x);
R1:=R1+0.00000012762*COS(1.63557330778+273.10284047830*x);
R1:=R1+0.00000011855*COS(2.46234840263+721.64941953020*x);
R1:=R1+0.00000013309*COS(5.75641013916+2221.85663459700*x);
R1:=R1+0.00000014471*COS(0.45316163629+2008.55753915900*x);
R1:=R1+0.00000011840*COS(1.75720772380+160.60889739850*x);
R1:=R1+0.00000012374*COS(1.01456317602+329.72519178090*x);
R1:=R1+0.00000010747*COS(1.58065203003+212.77783057620*x);
R1:=R1+0.00000012758*COS(1.91952373240+1581.95934828300*x);
R1:=R1+0.00000011944*COS(4.44720922423+32.24332891440*x);
R1:=R1+0.00000011865*COS(5.10696147162+4.66586644600*x);
R1:=R1+0.00000011861*COS(4.30847607078+618.55664531160*x);
R1:=R1+0.00000010036*COS(0.48709852137+305.34616939270*x);
R1:=R1+0.00000012777*COS(3.74412991331+508.35032409220*x);
R1:=R1+0.00000010677*COS(0.76645916273+218.71572140940*x);
R1:=R1+0.00000011351*COS(3.00009819697+198.32124191100*x);
R1:=R1+0.00000010249*COS(2.40923650192+546.95644048200*x);
R1:=R1+0.00000009984*COS(2.63882014753+416.30325013750*x);
R1:=R1+0.00000009345*COS(5.45917317860+414.06801790380*x);
R1:=R1+0.00000009317*COS(4.46380159546+2428.04218303420*x);
R1:=R1+0.00000009928*COS(4.04821559448+62.25142559510*x);
R1:=R1+0.00000012767*COS(3.43273835457+258.87574647670*x);
R1:=R1+0.00000009733*COS(1.61066324680+327.43756992050*x);
R1:=R1+0.00000011163*COS(2.40665325234+1781.03134971940*x);
R1:=R1+0.00000010608*COS(2.07480020830+213.82036029980*x);
R1:=R1+0.00000009125*COS(2.92369523159+1279.79457262800*x);
R1:=R1+0.00000009525*COS(1.10338403136+113.38771495710*x);
R1:=R1+0.00000009805*COS(3.28427768485+275.55052103310*x);
R1:=R1+0.00000011263*COS(1.89402915826+561.18353448360*x);
R1:=R1+0.00000008572*COS(2.17858055966+425.11371816770*x);
R1:=R1+0.00000008577*COS(1.95484887975+35.42472265210*x);
R1:=R1+0.00000010157*COS(0.09037368733+182.27960680100*x);
R1:=R1+0.00000011807*COS(3.71278037583+350.33211960040*x);
R1:=R1+0.00000008595*COS(1.83382454431+629.60234557550*x);
R1:=R1+0.00000008396*COS(3.76782674303+251.43213107580*x);
R1:=R1+0.00000008460*COS(0.35676476459+617.80588578620*x);
R1:=R1+0.00000008250*COS(5.31140994372+65.22037101170*x);
R1:=R1+0.00000008342*COS(1.38307663880+1.48447270830*x);
R1:=R1+0.00000007987*COS(5.13622898170+22.09140052780*x);
R1:=R1+0.00000008377*COS(0.91817077859+1485.98012106520*x);
R1:=R1+0.00000007980*COS(0.94199750915+2310.72231481400*x);
R1:=R1+0.00000008898*COS(0.54037636841+168.05251279940*x);
R1:=R1+0.00000008233*COS(3.45785310349+424.15051032120*x);
R1:=R1+0.00000008034*COS(3.38451795597+144.14657116320*x);
R1:=R1+0.00000007871*COS(5.14041888473+358.93013930950*x);
R1:=R1+0.00000008868*COS(6.13541788772+621.73803904930*x);
R1:=R1+0.00000007523*COS(5.75475671698+447.93883187840*x);
R1:=R1+0.00000007515*COS(2.18967849979+264.50482076920*x);
R1:=R1+0.00000008083*COS(1.42661116937+2737.32050569000*x);
R1:=R1+0.00000008199*COS(0.96419579079+767.36908292080*x);
R1:=R1+0.00000008232*COS(0.35471613534+278.51946644970*x);
R1:=R1+0.00000008226*COS(5.44467204721+254.94359321360*x);
R1:=R1+0.00000006779*COS(1.19567671732+5.41662597140*x);
R1:=R1+0.00000008928*COS(4.88240256153+120.35824960600*x);
R1:=R1+0.00000007845*COS(4.56376829397+280.96714700450*x);
R1:=R1+0.00000006566*COS(3.50152072308+9.56122755560*x);
R1:=R1+0.00000006398*COS(0.33471834269+2950.61960112800*x);
R1:=R1+0.00000006881*COS(3.39438820076+98.89998852460*x);
R1:=R1+0.00000007418*COS(4.52451404934+5.62907429250*x);
R1:=R1+0.00000008021*COS(0.94470052446+636.71589257630*x);
R1:=R1+0.00000006134*COS(0.18013315689+2207.62954059540*x);
R1:=R1+0.00000007153*COS(3.85218295688+214.04985496340*x);
R1:=R1+0.00000006046*COS(4.66733263196+543.02428721890*x);
R1:=R1+0.00000006365*COS(2.12000811873+274.06604832480*x);
R1:=R1+0.00000006481*COS(5.31032923608+6076.89030155420*x);
R1:=R1+0.00000005935*COS(6.16808119163+650.94298657790*x);
R1:=R1+0.00000005752*COS(3.55773840903+1073.60902419080*x);
R1:=R1+0.00000006438*COS(0.44934410249+10007.09999777380*x);
R1:=R1+0.00000006283*COS(3.20942251433+219.44943459230*x);
R1:=R1+0.00000005542*COS(3.61193204407+125.98732389850*x);
R1:=R1+0.00000005522*COS(3.84217355164+181.05576652360*x);
R1:=R1+0.00000005777*COS(3.00590926498+121.25202148330*x);
R1:=R1+0.00000006670*COS(1.65236689367+1898.35121793960*x);
R1:=R1+0.00000007591*COS(0.10483002359+2324.94940881560*x);
R1:=R1+0.00000005881*COS(1.04006410206+9992.87290377220*x);
R1:=R1+0.00000005609*COS(4.83142709229+643.07868005170*x);
R1:=R1+0.00000005569*COS(2.23863483508+1038.04128918680*x);
R1:=R1+0.00000005755*COS(5.91598458372+6062.66320755260*x);
R1:=R1+0.00000005845*COS(6.10234689502+209.10630974400*x);
R1:=R1+0.00000005577*COS(0.81426649853+472.17484191470*x);
R1:=R1+0.00000005247*COS(0.56496127013+192.69216761850*x);
R1:=R1+0.00000005493*COS(5.81071309534+237.67811782620*x);
R1:=R1+0.00000005148*COS(4.85160826999+267.47376618580*x);
R1:=R1+0.00000006122*COS(2.11480301005+2097.42321937600*x);
R1:=R1+0.00000006188*COS(4.59441762166+207.67002114550*x);
R1:=R1+0.00000006303*COS(0.75806431119+210.37833413120*x);
R1:=R1+0.00000005102*COS(4.01017179605+205.22234059070*x);
R1:=R1+0.00000006583*COS(1.79054357427+12.53017297220*x);
R1:=R1+0.00000004902*COS(0.85099521860+247.23934538180*x);
R1:=R1+0.00000004918*COS(4.03512681632+487.36514376280*x);
R1:=R1+0.00000005818*COS(5.48495503489+2538.24850425360*x);
R1:=R1+0.00000004855*COS(4.18197778083+2744.43405269080*x);
R1:=R1+0.00000004885*COS(0.25103933716+129.91947716160*x);
R1:=R1+0.00000005748*COS(0.55968589618+116.42609634290*x);
R1:=R1+0.00000004901*COS(4.48628916012+291.26208774300*x);
R1:=R1+0.00000004720*COS(5.57686152365+342.25536475310*x);
R1:=R1+0.00000005962*COS(5.12885837444+692.58748435350*x);
R1:=R1+0.00000005629*COS(4.39847572369+196.62432088160*x);
R1:=R1+0.00000005596*COS(0.94874135403+1802.37199072180*x);
R1:=R1+0.00000006197*COS(3.80364010966+339.28641933650*x);
R1:=R1+0.00000004668*COS(3.16816375033+148.07872442630*x);
R1:=R1+0.00000004891*COS(2.67234862638+417.03696332040*x);
R1:=R1+0.00000004959*COS(1.63453587065+166.82867252200*x);
R1:=R1+0.00000004408*COS(4.95179678525+184.09414790940*x);
R1:=R1+0.00000004449*COS(5.69134789394+252.65597135320*x);
R1:=R1+0.00000004943*COS(0.85358212806+46.47042291600*x);
R1:=R1+0.00000005153*COS(3.82176885491+842.15068148810*x);
R1:=R1+0.00000005930*COS(5.95484153666+486.40193591630*x);
R1:=R1+0.00000004206*COS(2.97664198894+380.12776796000*x);
R1:=R1+0.00000004467*COS(0.24914978400+128.95626931510*x);
R1:=R1+0.00000005419*COS(6.19106890918+337.73251065900*x);
R1:=R1+0.00000004499*COS(4.71434958315+151.04766984290*x);
R1:=R1+0.00000004233*COS(4.18702525973+685.47393735270*x);
R1:=R1+0.00000004695*COS(1.54881559549+214.78356814630*x);
R1:=R1+0.00000004084*COS(4.87173226400+14.97785352700*x);
R1:=R1+0.00000004321*COS(5.42615168860+436.89313161450*x);
R1:=R1+0.00000005145*COS(0.49931857511+248.72381809010*x);
R1:=R1+0.00000003897*COS(0.74661138504+2627.11418447060*x);
R1:=R1+0.00000003995*COS(3.07750371135+710.74673161820*x);
R1:=R1+0.00000004089*COS(5.81996977038+491.81856188770*x);
R1:=R1+0.00000004532*COS(3.67494714028+189.72322220190*x);
R1:=R1+0.00000003690*COS(1.26565281569+211.81462272970*x);
R1:=R1+0.00000004036*COS(1.15473702593+3053.71237534660*x);
R1:=R1+0.00000003672*COS(4.52661018437+488.84961647110*x);
R1:=R1+0.00000003662*COS(2.87243745783+411.62033734900*x);
R1:=R1+0.00000003653*COS(3.06205147988+409.92341631960*x);
R1:=R1+0.00000003908*COS(3.45947158106+220.46082654860*x);
R1:=R1+0.00000004989*COS(3.36376245705+824.74219374880*x);
R1:=R1+0.00000003677*COS(3.55713278092+244.31858407500*x);
R1:=R1+0.00000003580*COS(1.57825591891+643.82943957710*x);
R1:=R1+0.00000003546*COS(2.19846245030+135.33610313300*x);
R1:=R1+0.00000003560*COS(4.51362022045+601.76425067620*x);
R1:=R1+0.00000003843*COS(0.98567531677+271.40591944890*x);
R1:=R1+0.00000003559*COS(1.11005765159+6283.07584999140*x);
R1:=R1+0.00000004266*COS(6.19696005871+268.43697403230*x);
R1:=R1+0.00000003442*COS(4.27628882392+867.42347575360*x);
R1:=R1+0.00000004844*COS(3.73706907228+235.39049596580*x);
R1:=R1+0.00000003659*COS(2.21859531609+2.92076130680*x);
R1:=R1+0.00000003958*COS(5.17084570945+114.39910691340*x);
R1:=R1+0.00000003609*COS(5.54387488088+458.84151979040*x);
R1:=R1+0.00000004470*COS(3.74256930900+699.70103135430*x);
R1:=R1+0.00000003293*COS(4.48068043469+289.56516671360*x);
R1:=R1+0.00000003240*COS(5.94728881707+131.54696222180*x);
R1:=R1+0.00000003477*COS(3.54553285172+963.40270297140*x);
R1:=R1+0.00000003838*COS(4.77967877681+175.16605980020*x);
R1:=R1+0.00000003223*COS(1.95410765469+212.02707105080*x);
R1:=R1+0.00000004053*COS(4.19011281964+501.37978944330*x);
R1:=R1+0.00000003100*COS(2.11956558345+916.93228005540*x);
R1:=R1+0.00000003183*COS(1.93201605379+1354.43315884340*x);
R1:=R1+0.00000003301*COS(1.80825506815+756.32338265690*x);
R1:=R1+0.00000004187*COS(5.96622666047+212.54833591260*x);
R1:=R1+0.00000003716*COS(3.70660462807+204.70107572890*x);
R1:=R1+0.00000003000*COS(6.15443664698+3267.01147078460*x);
R1:=R1+0.00000002993*COS(4.20888489881+533.62311835770*x);
R1:=R1+0.00000004125*COS(6.09715151219+2641.34127847220*x);
R1:=R1+0.00000003145*COS(2.55483540896+905.88657979150*x);
R1:=R1+0.00000002982*COS(1.52760656472+945.99421523210*x);
R1:=R1+0.00000003015*COS(1.76012152992+28.31117565130*x);
R1:=R1+0.00000003453*COS(1.42473508236+2214.74308759620*x);
R1:=R1+0.00000002926*COS(5.50138147476+24.37902238820*x);
R1:=R1+0.00000002978*COS(4.27440059910+195.89060769870*x);
R1:=R1+0.00000003526*COS(3.63935401565+229.97386999440*x);
R1:=R1+0.00000002860*COS(4.52551886503+241.61027108930*x);
R1:=R1+0.00000003059*COS(5.68165832697+282.66406803390*x);
R1:=R1+0.00000003415*COS(5.26311934884+67.66805156650*x);
R1:=R1+0.00000002819*COS(5.42053027567+305.08553696180*x);
R1:=R1+0.00000003503*COS(1.31670335802+69.15252427480*x);
R1:=R1+0.00000002746*COS(0.82597971627+444.75743814070*x);
R1:=R1+0.00000002796*COS(0.07021047160+681.54178408960*x);
R1:=R1+0.00000003366*COS(4.03843228994+6.15033915430*x);
R1:=R1+0.00000003242*COS(2.63461047831+739.80866679490*x);
R1:=R1+0.00000002718*COS(3.40899287465+188.92007304980*x);
R1:=R1+0.00000002741*COS(3.22092213412+776.93031047640*x);
R1:=R1+0.00000002793*COS(3.39766347322+431.26405732200*x);
R1:=R1+0.00000002966*COS(3.91429372950+526.50957135690*x);
R1:=R1+0.00000002693*COS(3.38996413068+778.41478318470*x);
R1:=R1+0.00000002680*COS(3.82192393959+3060.82592234740*x);
R1:=R1+0.00000002954*COS(2.69669880207+426.64637498580*x);
R1:=R1+0.00000002681*COS(1.04615621583+28.45418800320*x);
R1:=R1+0.00000003182*COS(2.72333374876+432.22726516850*x);
R1:=R1+0.00000002633*COS(2.55029306465+10213.28554621100*x);
R1:=R1+0.00000002923*COS(0.85695094024+2435.15573003500*x);
R1:=R1+0.00000002596*COS(5.42890752137+207.14875628370*x);
R1:=R1+0.00000003225*COS(0.96538615730+2118.76386037840*x);
R1:=R1+0.00000002774*COS(0.33260844270+326.68681039510*x);
R1:=R1+0.00000002550*COS(5.88893697427+439.12836384820*x);
R1:=R1+0.00000002716*COS(3.15505406487+170.76082578510*x);
R1:=R1+0.00000002942*COS(4.88555233562+397.39324334740*x);
R1:=R1+0.00000003121*COS(1.87815629157+2413.81508903260*x);
R1:=R1+0.00000003263*COS(2.59868619716+213.03846300710*x);
R1:=R1+0.00000002518*COS(0.15471130491+945.24345570670*x);
R1:=R1+0.00000003169*COS(5.70993651497+381.35160823740*x);
R1:=R1+0.00000002515*COS(0.06248441393+427.56139872250*x);
R1:=R1+0.00000003279*COS(4.95751323467+313.94418910180*x);
R1:=R1+0.00000002595*COS(5.13169797457+299.12639426920*x);
R1:=R1+0.00000002572*COS(3.42558391509+4.19278569400*x);
R1:=R1+0.00000002580*COS(2.03280916494+319.31263096340*x);
R1:=R1+0.00000003294*COS(6.24566168486+421.18156490460*x);
R1:=R1+0.00000002580*COS(2.62721090534+213.18722085340*x);
R1:=R1+0.00000002879*COS(0.45679876898+285.63301345050*x);
R1:=R1+0.00000002406*COS(4.57473098758+228.27694896500*x);
R1:=R1+0.00000002518*COS(2.55500085830+140.00196957900*x);
R1:=R1+0.00000002422*COS(2.36310658303+84.34282612290*x);
R1:=R1+0.00000002374*COS(2.25544718932+17.26547538740*x);
R1:=R1+0.00000002627*COS(1.26370339212+724.83081326790*x);
R1:=R1+0.00000002346*COS(3.77641630157+206.23373254700*x);
R1:=R1+0.00000002463*COS(5.42094278240+395.57870223900*x);
R1:=R1+0.00000002352*COS(0.63041319237+210.59078245230*x);
R1:=R1+0.00000003166*COS(0.26273580642+201.51968199120*x);
R1:=R1+0.00000002405*COS(0.78919759458+426.07692601420*x);
R1:=R1+0.00000002390*COS(5.89523812458+738.79727483860*x);
R1:=R1+0.00000002515*COS(0.70044371265+2943.50605412720*x);
R1:=R1+0.00000002332*COS(4.06963624306+519.39602435610*x);
R1:=R1+0.00000003132*COS(2.79331632190+732.69511979410*x);
R1:=R1+0.00000002658*COS(3.34020209714+1141.13406340540*x);
R1:=R1+0.00000002258*COS(0.12403309730+2524.02141025200*x);
R1:=R1+0.00000002697*COS(2.58404587754+425.63498302950*x);
R1:=R1+0.00000002416*COS(3.85003724506+696.51963761660*x);
R1:=R1+0.00000002597*COS(2.54164936697+436.15941843160*x);
R1:=R1+0.00000002192*COS(3.07202313269+203.26478713040*x);
R1:=R1+0.00000002424*COS(2.60715310452+511.53171782990*x);
R1:=R1+0.00000002126*COS(0.14811901148+405.99126305650*x);
R1:=R1+0.00000002306*COS(1.25068142377+427.11945573780*x);
R1:=R1+0.00000002121*COS(0.43505808954+184.98791978670*x);
R1:=R1+0.00000002755*COS(3.02380019321+468.24268865160*x);
R1:=R1+0.00000002333*COS(3.02634928771+216.00740842370*x);
R1:=R1+0.00000002182*COS(4.27912012069+7.16173111060*x);
R1:=R1+0.00000002101*COS(4.31781498012+572.22923474750*x);
R1:=R1+0.00000002362*COS(4.82914341110+556.51766803760*x);
R1:=R1+0.00000002218*COS(0.82936075453+3370.10424500320*x);
R1:=R1+0.00000002103*COS(5.25950154713+661.23792731640*x);
R1:=R1+0.00000002580*COS(1.03705340380+213.41097002260*x);
R1:=R1+0.00000002366*COS(6.14368355608+205.43478891180*x);
R1:=R1+0.00000002042*COS(0.21462094901+3259.89792378380*x);
R1:=R1+0.00000002547*COS(4.69969204009+221.37585028530*x);
R1:=R1+0.00000001987*COS(3.22670561632+1382.88734684660*x);
R1:=R1+0.00000002213*COS(0.89932827487+286.59622129700*x);
R1:=R1+0.00000002191*COS(0.08759174058+259.76951835400*x);
R1:=R1+0.00000001968*COS(0.57824086026+180.16199464630*x);
R1:=R1+0.00000002037*COS(2.35713099759+610.69233878540*x);
R1:=R1+0.00000001959*COS(2.18553775379+72.07328558160*x);
R1:=R1+0.00000002061*COS(1.68041202479+1670.82502850000*x);
R1:=R1+0.00000001940*COS(0.62951066481+406.95447090300*x);
R1:=R1+0.00000002043*COS(4.39130144045+576.16138801060*x);
R1:=R1+0.00000001936*COS(1.05286934530+1262.38608488870*x);
R1:=R1+0.00000001975*COS(0.31945835160+938.12990870590*x);
R1:=R1+0.00000002015*COS(1.66410213484+193.65537546500*x);
R1:=R1+0.00000001971*COS(0.72639439054+200.55647414470*x);
R1:=R1+0.00000001952*COS(6.25320630177+241.75328344120*x);
R1:=R1+0.00000001976*COS(1.31263772699+135.54855145410*x);
R1:=R1+0.00000002448*COS(0.52850194172+429.51895218280*x);
R1:=R1+0.00000001977*COS(3.13944703383+421.93232443000*x);
R1:=R1+0.00000001853*COS(0.17184530353+196.03362005060*x);
R1:=R1+0.00000002552*COS(5.39764879348+2854.64037391020*x);
R1:=R1+0.00000001830*COS(1.47821899466+638.41281360570*x);
R1:=R1+0.00000002245*COS(6.00427164270+230.70758317730*x);
R1:=R1+0.00000001822*COS(6.08626100417+1261.63532536330*x);
R1:=R1+0.00000002168*COS(0.41741136149+213.51154375910*x);
R1:=R1+0.00000001869*COS(3.67791368036+403.02231763990*x);
R1:=R1+0.00000001866*COS(1.59662677545+391.17346822390*x);
R1:=R1+0.00000002034*COS(1.21814866092+3046.59882834580*x);
R1:=R1+0.00000001929*COS(4.93193335031+420.96911658350*x);
R1:=R1+0.00000001746*COS(5.09757251683+107.75864066460*x);
R1:=R1+0.00000002168*COS(3.24685294764+213.08664711690*x);
R1:=R1+0.00000002178*COS(5.09777299346+558.00214074590*x);
R1:=R1+0.00000001992*COS(2.29524873043+1773.91780271860*x);
R1:=R1+0.00000001761*COS(2.88655624670+141.69889060840*x);
R1:=R1+0.00000001769*COS(5.47051542758+206.13736432740*x);
R1:=R1+0.00000001734*COS(2.11941015901+430.79097657000*x);
R1:=R1+0.00000002377*COS(1.07633521570+59.80374504030*x);
R1:=R1+0.00000001797*COS(2.90984583978+92.79783348010*x);
R1:=R1+0.00000001725*COS(5.22827286197+757.21715453420*x);
R1:=R1+0.00000002305*COS(5.88235807192+426.55000676620*x);
R1:=R1+0.00000001751*COS(5.28990803470+87.31177153950*x);
R1:=R1+0.00000002202*COS(1.28096946505+624.91943278700*x);
R1:=R1+0.00000002043*COS(0.46193065602+831.10498122420*x);
R1:=R1+0.00000001931*COS(1.26974971942+219.89137757700*x);
R1:=R1+0.00000001953*COS(2.96900002385+398.14400287280*x);
R1:=R1+0.00000001676*COS(4.81683149512+181.80652604900*x);
R1:=R1+0.00000001902*COS(2.74426125465+4952.06359328620*x);
R1:=R1+0.00000002133*COS(5.37177705284+627.36711334180*x);
R1:=R1+0.00000001962*COS(3.52111949662+213.45915413240*x);
R1:=R1+0.00000001709*COS(6.14073761844+952.35700270750*x);
R1:=R1+0.00000001784*COS(1.05243716682+353.30106501700*x);
R1:=R1+0.00000001700*COS(1.17418864170+739.05790726950*x);
R1:=R1+0.00000001609*COS(1.35009554392+84.93352695390*x);
R1:=R1+0.00000002038*COS(2.47570829812+26.82670294300*x);
R1:=R1+0.00000001870*COS(5.61729116529+2957.73314812880*x);
R1:=R1+0.00000001962*COS(0.13564680851+213.13903674360*x);
R1:=R1+0.00000002041*COS(3.31354526279+1596.18644228460*x);
R1:=R1+0.00000001612*COS(6.19495100885+432.01481684740*x);
R1:=R1+0.00000001742*COS(2.87947098602+179.35884549420*x);
R1:=R1+0.00000001964*COS(2.84253666387+429.04587143080*x);
R1:=R1+0.00000001805*COS(0.60932632638+532.61172640140*x);
R1:=R1+0.00000001647*COS(0.82347900016+214.57111982520*x);
R1:=R1+0.00000001893*COS(4.33962647901+173.94221952280*x);
R1:=R1+0.00000001689*COS(1.13037158144+586.31331639720*x);
R1:=R1+0.00000001523*COS(2.71561930244+73.29712585900*x);
R1:=R1+0.00000001524*COS(5.26558677448+5429.87946823940*x);
R1:=R1+0.00000001582*COS(2.79533721474+842.90144101350*x);
R1:=R1+0.00000001608*COS(2.33230359324+418.52143602870*x);
R1:=R1+0.00000001579*COS(1.15182102801+731.94436026870*x);
R1:=R1+0.00000001689*COS(1.91915438546+630.33605875840*x);
R1:=R1+0.00000001990*COS(5.23790221176+550.13783421970*x);
R1:=R1+0.00000001772*COS(2.95372411478+172.24529849340*x);
R1:=R1+0.00000001596*COS(0.99004701777+953.10776223290*x);
R1:=R1+0.00000001784*COS(3.91391032360+159.12442469020*x);
R1:=R1+0.00000001592*COS(2.99690086808+45.57665103870*x);
R1:=R1+0.00000001968*COS(0.23073879009+220.36445832900*x);
R1:=R1+0.00000001549*COS(5.88699595922+60.55450456570*x);
R1:=R1+0.00000001459*COS(5.51999778036+273.85360000370*x);
R1:=R1+0.00000001909*COS(2.78415262815+418.00017116690*x);
R1:=R1+0.00000001445*COS(3.25530914937+453.42489381900*x);
R1:=R1+0.00000001454*COS(0.16250693313+115.62294719080*x);
R1:=R1+0.00000001566*COS(2.24077018103+1056.20053645150*x);
R1:=R1+0.00000001412*COS(3.45442909885+354.99798604640*x);
R1:=R1+0.00000001564*COS(3.38591337689+409.18970313670*x);
R1:=R1+0.00000001631*COS(1.06286709889+213.55972786890*x);
R1:=R1+0.00000001415*COS(1.32091877590+373.90799283650*x);
R1:=R1+0.00000001389*COS(0.40584159469+9360.08916445900*x);
R1:=R1+0.00000001663*COS(2.33357114562+188.02630117250*x);
R1:=R1+0.00000001426*COS(5.44677783737+864.24208201590*x);
R1:=R1+0.00000001716*COS(3.96056093028+1699.27921650320*x);
R1:=R1+0.00000001682*COS(0.39747670320+17.40848773930*x);
R1:=R1+0.00000001368*COS(5.83289186692+569.04784100980*x);
R1:=R1+0.00000001416*COS(3.65464640816+6.85291456990*x);
R1:=R1+0.00000001469*COS(3.49069193830+934.94851496820*x);
R1:=R1+0.00000001330*COS(4.41794310534+3914.02230409940*x);
R1:=R1+0.00000001309*COS(1.29979865382+428.08266358430*x);
R1:=R1+0.00000001300*COS(1.57748627871+238.57188970350*x);
R1:=R1+0.00000001389*COS(1.31202796503+6275.96230299060*x);
R1:=R1+0.00000001384*COS(0.67585082323+2751.54759969160*x);
R1:=R1+0.00000001471*COS(1.21149871903+2531.13495725280*x);
R1:=R1+0.00000001334*COS(4.11154515525+206.93630796260*x);
R1:=R1+0.00000001601*COS(0.93356520728+355.74874557180*x);
R1:=R1+0.00000001259*COS(2.56678207309+850.01498801430*x);
R1:=R1+0.00000001277*COS(0.41764451386+100.64509366380*x);
R1:=R1+0.00000001436*COS(4.06045514506+177.87437278590*x);
R1:=R1+0.00000001308*COS(1.01324076289+423.67742956920*x);
R1:=R1+0.00000001541*COS(6.03020449918+292.01284726840*x);
R1:=R1+0.00000001307*COS(5.83815678434+5863.59120611620*x);
R1:=R1+0.00000001613*COS(2.45074803642+1049.08698945070*x);
R1:=R1+0.00000001249*COS(3.01518429832+464.73122651380*x);
R1:=R1+0.00000001250*COS(6.23516728885+823.99143422340*x);
R1:=R1+0.00000001275*COS(2.68217384213+637.44960575920*x);
R1:=R1+0.00000001249*COS(2.97028182853+51749.20809227239*x);
R1:=R1+0.00000001240*COS(2.66940683813+2700.71514038580*x);
R1:=R1+0.00000001456*COS(1.85558224828+96.87299909510*x);
R1:=R1+0.00000001491*COS(4.98649587341+295.19424100610*x);
R1:=R1+0.00000001230*COS(4.27283851216+12139.55350910680*x);
R1:=R1+0.00000001292*COS(2.73196017809+10206.17199921020*x);
R1:=R1+0.00000001247*COS(3.77399749791+504.56118318100*x);
R1:=R1+0.00000001408*COS(1.02955773079+518.38463239980*x);
R1:=R1+0.00000001223*COS(1.12202093840+221.16340196420*x);
R1:=R1+0.00000001420*COS(4.39795293289+606.76018552230*x);
R1:=R1+0.00000001190*COS(1.57292553631+820.05928096030*x);
R1:=R1+0.00000001247*COS(0.99102599652+9793.80090233580*x);
R1:=R1+0.00000001234*COS(1.10826361423+2303.60876781320*x);
R1:=R1+0.00000001186*COS(4.55984967028+9808.53818466140*x);
R1:=R1+0.00000001346*COS(4.94456950019+384.05992122310*x);
R1:=R1+0.00000001514*COS(3.60392291730+2015.67108615980*x);
R1:=R1+0.00000001432*COS(2.28704432909+525.49817940060*x);
R1:=R1+0.00000001129*COS(0.87100340620+162.09337010680*x);
R1:=R1+0.00000001196*COS(5.13485214850+227.31374111850*x);
R1:=R1+0.00000001339*COS(2.48923887712+206.70681329900*x);
R1:=R1+0.00000001421*COS(1.65379789078+857.12853501510*x);
R1:=R1+0.00000001162*COS(1.92099315083+220.93390730060*x);
R1:=R1+0.00000001277*COS(4.85435999187+54.17467074780*x);
R1:=R1+0.00000001153*COS(5.33028034679+233.90602325750*x);
R1:=R1+0.00000001214*COS(4.11324721963+3377.21779200400*x);
R1:=R1+0.00000001109*COS(5.68915582674+162.89651925890*x);
R1:=R1+0.00000001068*COS(4.85383480876+611.44309831080*x);
R1:=R1+0.00000001119*COS(1.40805686363+1987.21689815660*x);
R1:=R1+0.00000001085*COS(0.64208148190+731.68372783780*x);
R1:=R1+0.00000001435*COS(3.20880139888+835.78789401270*x);
R1:=R1+0.00000001184*COS(2.99776919968+199.28444975750*x);
R1:=R1+0.00000001281*COS(3.12245339510+427.34895040140*x);
R1:=R1+0.00000001058*COS(5.17851282929+306.09692891810*x);
R1:=R1+0.00000001152*COS(4.39244449554+199.96577331370*x);
R1:=R1+0.00000001036*COS(3.68027119804+597.35901666110*x);
R1:=R1+0.00000001055*COS(3.25561743426+394.35486196160*x);
R1:=R1+0.00000001127*COS(4.33255371960+552.58551477450*x);
R1:=R1+0.00000001213*COS(6.21447612110+42.53826965290*x);
R1:=R1+0.00000001117*COS(3.74367882111+214.19286731530*x);
R1:=R1+0.00000001023*COS(3.84199833949+894.84087952760*x);
R1:=R1+0.00000001042*COS(5.30120078590+450.97721326420*x);
R1:=R1+0.00000001290*COS(3.96221234564+318.83955021140*x);
R1:=R1+0.00000001073*COS(4.10012122884+188.16931352440*x);
R1:=R1+0.00000001204*COS(0.37702365750+393.46109008430*x);
R1:=R1+0.00000001214*COS(2.01826978554+401.32539661050*x);
R1:=R1+0.00000001018*COS(0.02946649279+2840.41327990860*x);
R1:=R1+0.00000001237*COS(5.41088851225+425.84743135060*x);
R1:=R1+0.00000001187*COS(5.16511890602+838.21852822500*x);
R1:=R1+0.00000001276*COS(2.93572146232+1457.52593306200*x);
R1:=R1+0.00000000994*COS(3.40079885702+211.60217440860*x);
R1:=R1+0.00000001042*COS(2.42209320898+361.37781986430*x);
R1:=R1+0.00000001093*COS(3.66289018246+226.63241756230*x);
R1:=R1+0.00000000978*COS(3.76334208607+5856.47765911540*x);
R1:=R1+0.00000001263*COS(2.09195268609+78.71375183040*x);
R1:=R1+0.00000001009*COS(5.85963705048+1268.74887236410*x);
R1:=R1+0.00000001148*COS(4.39543895068+570.74476203920*x);
R1:=R1+0.00000001051*COS(3.27272240682+153.49535039770*x);
R1:=R1+0.00000000975*COS(3.42924642244+105.54045477340*x);
R1:=R1+0.00000000997*COS(4.30943991893+212.40532356070*x);
R1:=R1+0.00000000954*COS(3.88548755058+171.65459766240*x);
R1:=R1+0.00000000960*COS(1.90180005280+1159.29331067010*x);
R1:=R1+0.00000000953*COS(3.40787141587+244.79166482700*x);
R1:=R1+0.00000000969*COS(1.93369993197+525.75881183150*x);
R1:=R1+0.00000000918*COS(1.73738789723+223.33340374560*x);
R1:=R1+0.00000001164*COS(5.05392864346+263.70167161710*x);
R1:=R1+0.00000000951*COS(4.23581224839+92.94084583200*x);
R1:=R1+0.00000001160*COS(5.80630916592+460.53844081980*x);
R1:=R1+0.00000001186*COS(4.46262000755+465.95506679120*x);
R1:=R1+0.00000000931*COS(2.09868057209+205.66428357540*x);
R1:=R1+0.00000000942*COS(3.86810837922+238.42887735160*x);
R1:=R1+0.00000001020*COS(5.53181822898+0.04818410980*x);
R1:=R1+0.00000000995*COS(2.03457885490+6290.18939699220*x);
R1:=R1+0.00000000888*COS(2.60957592990+1912.57831194120*x);
R1:=R1+0.00000000873*COS(5.78433393020+480.77286162380*x);
R1:=R1+0.00000000854*COS(1.63255087291+328.24071907260*x);
R1:=R1+0.00000001123*COS(4.07401922216+3693.60966166060*x);
R1:=R1+0.00000000934*COS(3.52355235083+10220.39909321180*x);
R1:=R1+0.00000000833*COS(3.03302227840+532.87235883230*x);
R1:=R1+0.00000001007*COS(2.73615455688+4841.85727206680*x);
R1:=R1+0.00000000870*COS(1.06968760644+51.20572533120*x);
R1:=R1+0.00000000891*COS(1.36817544763+700.45179087970*x);
R1:=R1+0.00000000833*COS(5.39754715806+159.71512552120*x);
R1:=R1+0.00000000854*COS(1.91765015557+622.48879857470*x);
R1:=R1+0.00000000976*COS(3.09106001923+2332.06295581640*x);
R1:=R1+0.00000000819*COS(5.55683690482+462.02291352810*x);
R1:=R1+0.00000000800*COS(1.47042677460+969.62247809490*x);
R1:=R1+0.00000000933*COS(1.40166917666+287.93768165340*x);
R1:=R1+0.00000000784*COS(1.69235162770+477.80391620720*x);
R1:=R1+0.00000000782*COS(3.98153416585+702.14871190910*x);
R1:=R1+0.00000000810*COS(5.87689161549+561.93429400900*x);
R1:=R1+0.00000000858*COS(4.02964773169+41.64449777560*x);
R1:=R1+0.00000000819*COS(0.98885784755+960.22130923370*x);
R1:=R1+0.00000000882*COS(1.49559638306+760.25553592000*x);
R1:=R1+0.00000000767*COS(2.46787654531+402.21916848780*x);
R1:=R1+0.00000000851*COS(3.64678001195+348.63519857100*x);
R1:=R1+0.00000000852*COS(1.03470840672+2620.00063746980*x);
R1:=R1+0.00000000770*COS(4.67090683753+16.67477455640*x);
R1:=R1+0.00000000849*COS(5.27994730935+74.63858621540*x);
R1:=R1+0.00000000854*COS(2.56811257488+432.74853003030*x);
R1:=R1+0.00000000767*COS(1.11806243753+2847.52682690940*x);
R1:=R1+0.00000000729*COS(0.44171990710+898.77303279070*x);
R1:=R1+0.00000000776*COS(5.54603607568+3171.03224356680*x);
R1:=R1+0.00000000721*COS(6.05392551158+91.78644152380*x);
R1:=R1+0.00000000739*COS(3.57172839746+775.23338944700*x);
R1:=R1+0.00000000730*COS(4.98865345688+705.11765732570*x);
R1:=R1+0.00000000705*COS(0.44942445750+219.66188291340*x);
R1:=R1+0.00000000708*COS(0.69014726046+1048.33622992530*x);
R1:=R1+0.00000000706*COS(2.22974712805+29.20494752860*x);
R1:=R1+0.00000000711*COS(0.00981284716+2115.58246664070*x);
R1:=R1+0.00000000722*COS(4.14075205197+225.07850888480*x);
R1:=R1+0.00000000735*COS(1.54083195463+201.99276274320*x);
R1:=R1+0.00000000746*COS(4.08997409526+849.26422848890*x);
R1:=R1+0.00000000729*COS(2.81779134868+419.53282798500*x);
R1:=R1+0.00000000837*COS(1.00844734156+4127.32139953740*x);
R1:=R1+0.00000000939*COS(0.46037763932+5488.86810538160*x);
R1:=R1+0.00000000939*COS(1.85473712038+5062.26991450560*x);
R1:=R1+0.00000000721*COS(1.62872794201+2200.51599359460*x);

LOCAL R2:=0;
R2:=R2+0.00436902464*COS(4.78671673044+213.29909543800*x);
R2:=R2+0.00071922760*COS(2.50069994874+206.18554843720*x);
R2:=R2+0.00049766792*COS(4.97168150870+220.41264243880*x);
R2:=R2+0.00043220894*COS(3.86940443794+426.59819087600*x);
R2:=R2+0.00029645554*COS(5.96310264282+7.11354700080*x);
R2:=R2+0.00004141650*COS(4.10670940823+433.71173787680*x);
R2:=R2+0.00004720909*COS(2.47527992423+199.07200143640*x);
R2:=R2+0.00003789370*COS(3.09771025067+639.89728631400*x);
R2:=R2+0.00002963990*COS(1.37206248846+103.09277421860*x);
R2:=R2+0.00002556363*COS(2.85065721526+419.48464387520*x);
R2:=R2+0.00002208457*COS(6.27588858707+110.20632121940*x);
R2:=R2+0.00002187621*COS(5.85545832218+14.22709400160*x);
R2:=R2+0.00001956896*COS(4.92448618045+227.52618943960*x);
R2:=R2+0.00002326801;
R2:=R2+0.00000923840*COS(5.46392422737+323.50541665740*x);
R2:=R2+0.00000705936*COS(2.97081280098+95.97922721780*x);
R2:=R2+0.00000546115*COS(4.12854181522+412.37109687440*x);
R2:=R2+0.00000373838*COS(5.83435991809+117.31986822020*x);
R2:=R2+0.00000360882*COS(3.27703082368+647.01083331480*x);
R2:=R2+0.00000356350*COS(3.19152043942+210.11770170030*x);
R2:=R2+0.00000390627*COS(4.48106176893+216.48048917570*x);
R2:=R2+0.00000431485*COS(5.17825414612+522.57741809380*x);
R2:=R2+0.00000325598*COS(2.26867601656+853.19638175200*x);
R2:=R2+0.00000405018*COS(4.17294157872+209.36694217490*x);
R2:=R2+0.00000204494*COS(0.08774848590+202.25339517410*x);
R2:=R2+0.00000206854*COS(4.02188336738+735.87651353180*x);
R2:=R2+0.00000178474*COS(4.09716541453+440.82528487760*x);
R2:=R2+0.00000180143*COS(3.59704903955+632.78373931320*x);
R2:=R2+0.00000153656*COS(3.13470530382+625.67019231240*x);
R2:=R2+0.00000147779*COS(0.13614300541+302.16477565500*x);
R2:=R2+0.00000123189*COS(4.18895309647+88.86568021700*x);
R2:=R2+0.00000133076*COS(2.59350469420+191.95845443560*x);
R2:=R2+0.00000100367*COS(5.46056190585+3.18139373770*x);
R2:=R2+0.00000131975*COS(5.93293968941+309.27832265580*x);
R2:=R2+0.00000097235*COS(4.01832604356+728.76296653100*x);
R2:=R2+0.00000110709*COS(4.77853798276+838.96928775040*x);
R2:=R2+0.00000119053*COS(5.55385105975+224.34479570190*x);
R2:=R2+0.00000093852*COS(4.38395529912+217.23124870110*x);
R2:=R2+0.00000108701*COS(5.29310899841+515.46387109300*x);
R2:=R2+0.00000078609*COS(5.72525447528+21.34064100240*x);
R2:=R2+0.00000081468*COS(5.10897365253+956.28915597060*x);
R2:=R2+0.00000096412*COS(6.25859229567+742.99006053260*x);
R2:=R2+0.00000069228*COS(4.04901237761+3.93215326310*x);
R2:=R2+0.00000065168*COS(3.77713343518+1052.26838318840*x);
R2:=R2+0.00000064088*COS(5.81235002453+529.69096509460*x);
R2:=R2+0.00000062541*COS(2.18445116349+195.13984817330*x);
R2:=R2+0.00000056987*COS(3.14666549033+203.00415469950*x);
R2:=R2+0.00000055979*COS(4.84108422860+234.63973644040*x);
R2:=R2+0.00000052940*COS(5.07780548444+330.61896365820*x);
R2:=R2+0.00000050635*COS(2.77318570728+942.06206196900*x);
R2:=R2+0.00000041649*COS(4.79014211005+63.73589830340*x);
R2:=R2+0.00000044858*COS(0.56460613593+269.92144674060*x);
R2:=R2+0.00000041357*COS(3.73496404402+316.39186965660*x);
R2:=R2+0.00000052847*COS(3.92623831484+949.17560896980*x);
R2:=R2+0.00000038398*COS(3.73966157784+1045.15483618760*x);
R2:=R2+0.00000037583*COS(4.18924633757+536.80451209540*x);
R2:=R2+0.00000035285*COS(2.90795856092+284.14854074220*x);
R2:=R2+0.00000033576*COS(3.80465978802+149.56319713460*x);
R2:=R2+0.00000041073*COS(4.57870454147+1155.36115740700*x);
R2:=R2+0.00000030412*COS(2.48140171991+860.30992875280*x);
R2:=R2+0.00000031373*COS(4.84075951849+1272.68102562720*x);
R2:=R2+0.00000030218*COS(4.35186294470+405.25754987360*x);
R2:=R2+0.00000039430*COS(3.50858482049+422.66603761290*x);
R2:=R2+0.00000029658*COS(1.58886982096+1066.49547719000*x);
R2:=R2+0.00000035202*COS(5.94478241578+1059.38193018920*x);
R2:=R2+0.00000025829*COS(3.54946335477+1368.66025284500*x);
R2:=R2+0.00000026283*COS(4.81567477177+124.43341522100*x);
R2:=R2+0.00000029963*COS(3.66312205813+429.77958461370*x);
R2:=R2+0.00000033011*COS(4.96879544579+831.85574074960*x);
R2:=R2+0.00000024305*COS(5.31133255082+10.29494073850*x);
R2:=R2+0.00000026332*COS(4.45253273390+223.59403617650*x);
R2:=R2+0.00000022108*COS(2.76092021113+415.55249061210*x);
R2:=R2+0.00000027187*COS(1.66347897738+277.03499374140*x);
R2:=R2+0.00000021639*COS(1.03836302307+11.04570026390*x);
R2:=R2+0.00000019713*COS(2.52194629263+1258.45393162560*x);
R2:=R2+0.00000017062*COS(3.27669927228+654.12438031560*x);
R2:=R2+0.00000017261*COS(3.49414816663+1361.54670584420*x);
R2:=R2+0.00000016097*COS(1.73396878598+490.33408917940*x);
R2:=R2+0.00000021099*COS(3.62102032955+1265.56747862640*x);
R2:=R2+0.00000017692*COS(4.31141612385+1471.75302706360*x);
R2:=R2+0.00000013458*COS(0.32327889681+295.05122865420*x);
R2:=R2+0.00000012586*COS(3.13794576887+74.78159856730*x);
R2:=R2+0.00000012023*COS(2.32917797741+210.85141488320*x);
R2:=R2+0.00000015120*COS(3.59558424278+265.98929347750*x);
R2:=R2+0.00000012959*COS(4.62359706368+1589.07289528380*x);
R2:=R2+0.00000015424*COS(5.01335704925+127.47179660680*x);
R2:=R2+0.00000011193*COS(4.54981248285+81.75213321620*x);
R2:=R2+0.00000013449*COS(4.88710089777+437.64389113990*x);
R2:=R2+0.00000010673*COS(5.05234757424+191.20769491020*x);
R2:=R2+0.00000013963*COS(3.04990968366+423.41679713830*x);
R2:=R2+0.00000010614*COS(5.02845923229+137.03302416240*x);
R2:=R2+0.00000014382*COS(4.68720080027+1148.24761040620*x);
R2:=R2+0.00000013470*COS(1.90280407135+408.43894361130*x);
R2:=R2+0.00000010077*COS(5.20426583827+340.77089204480*x);
R2:=R2+0.00000010323*COS(3.34460279759+1685.05212250160*x);
R2:=R2+0.00000009563*COS(3.17317920222+351.81659230870*x);
R2:=R2+0.00000011295*COS(5.47808960704+1375.77379984580*x);
R2:=R2+0.00000008617*COS(2.81294528041+99.91138048090*x);
R2:=R2+0.00000008460*COS(3.22691940753+1677.93857550080*x);
R2:=R2+0.00000007914*COS(2.35624291874+1574.84580128220*x);
R2:=R2+0.00000007587*COS(6.08171425316+231.45834270270*x);
R2:=R2+0.00000009175*COS(3.40072244924+1581.95934828300*x);
R2:=R2+0.00000007337*COS(2.00393601815+131.40394986990*x);
R2:=R2+0.00000008240*COS(4.04095881407+1788.14489672020*x);
R2:=R2+0.00000007579*COS(3.68311134272+846.08283475120*x);
R2:=R2+0.00000006691*COS(4.37253800717+145.63104387150*x);
R2:=R2+0.00000007539*COS(3.29482043104+750.10360753340*x);
R2:=R2+0.00000006367*COS(4.00239137708+447.93883187840*x);
R2:=R2+0.00000006249*COS(4.55603671940+106.27416795630*x);
R2:=R2+0.00000006489*COS(1.33782087599+215.74677599280*x);
R2:=R2+0.00000006501*COS(3.78204726337+313.21047591890*x);
R2:=R2+0.00000005978*COS(0.55276980086+18.15924726470*x);
R2:=R2+0.00000006171*COS(2.84712795642+138.51749687070*x);
R2:=R2+0.00000006837*COS(4.83481646949+319.57326339430*x);
R2:=R2+0.00000006678*COS(5.43046031699+508.35032409220*x);
R2:=R2+0.00000007175*COS(4.37855723752+1464.63948006280*x);
R2:=R2+0.00000005753*COS(4.14268749228+543.91805909620*x);
R2:=R2+0.00000005727*COS(4.35383078313+1905.46476494040*x);
R2:=R2+0.00000005101*COS(2.63866058897+288.08069400530*x);
R2:=R2+0.00000005311*COS(3.62520849510+6076.89030155420*x);
R2:=R2+0.00000005498*COS(4.19972735173+721.64941953020*x);
R2:=R2+0.00000005089*COS(5.04845206653+10007.09999777380*x);
R2:=R2+0.00000005505*COS(1.13479635941+56.62235130260*x);
R2:=R2+0.00000004820*COS(3.30043078578+76.26607127560*x);
R2:=R2+0.00000004915*COS(6.17790518458+483.22054217860*x);
R2:=R2+0.00000005048*COS(2.44627820757+628.85158605010*x);
R2:=R2+0.00000004534*COS(1.19648682598+200.76892246580*x);
R2:=R2+0.00000004817*COS(3.11549733365+2001.44399215820*x);
R2:=R2+0.00000004712*COS(1.26507812515+6062.66320755260*x);
R2:=R2+0.00000004811*COS(5.78388270496+184.84490743480*x);
R2:=R2+0.00000004775*COS(0.76197795755+333.65734504400*x);
R2:=R2+0.00000004514*COS(0.95293919611+343.21857259960*x);
R2:=R2+0.00000004525*COS(2.68827745072+9992.87290377220*x);
R2:=R2+0.00000004378*COS(0.80241129896+222.86032299360*x);
R2:=R2+0.00000004873*COS(5.92092913946+618.55664531160*x);
R2:=R2+0.00000004142*COS(1.91878383159+497.44763618020*x);
R2:=R2+0.00000005112*COS(4.50449287745+416.30325013750*x);
R2:=R2+0.00000004125*COS(1.98204847532+347.88443904560*x);
R2:=R2+0.00000004045*COS(2.87666810085+38.13303563780*x);
R2:=R2+0.00000004133*COS(2.90478811425+107.02492748170*x);
R2:=R2+0.00000004035*COS(2.92972681787+1994.33044515740*x);
R2:=R2+0.00000004916*COS(3.12316267561+1898.35121793960*x);
R2:=R2+0.00000003657*COS(3.24680246734+362.86229257260*x);
R2:=R2+0.00000003753*COS(0.87719890943+703.63318461740*x);
R2:=R2+0.00000003576*COS(3.48080143501+388.46515523820*x);
R2:=R2+0.00000003555*COS(4.08436297683+430.53034413910*x);
R2:=R2+0.00000003598*COS(0.05255328597+32.24332891440*x);
R2:=R2+0.00000003561*COS(5.46414552453+6283.07584999140*x);
R2:=R2+0.00000003480*COS(1.81622589595+70.84944530420*x);
R2:=R2+0.00000003827*COS(3.12041228490+635.96513305090*x);
R2:=R2+0.00000003399*COS(0.54882815021+10213.28554621100*x);
R2:=R2+0.00000003399*COS(3.51833356080+629.60234557550*x);
R2:=R2+0.00000003364*COS(3.27821747958+357.44566660120*x);
R2:=R2+0.00000003260*COS(1.97623748027+203.73786788240*x);
R2:=R2+0.00000003118*COS(2.18465627368+1891.23767093880*x);
R2:=R2+0.00000003163*COS(1.26040995242+134.58534360760*x);
R2:=R2+0.00000004004*COS(5.45434102599+1692.16566950240*x);
R2:=R2+0.00000003180*COS(2.46319174788+867.42347575360*x);
R2:=R2+0.00000003389*COS(4.20503159673+337.73251065900*x);
R2:=R2+0.00000003026*COS(2.19331614526+217.96496188400*x);
R2:=R2+0.00000003573*COS(5.55097240810+113.38771495710*x);
R2:=R2+0.00000003682*COS(3.78966280284+2104.53676637680*x);
R2:=R2+0.00000003125*COS(4.09203641264+1478.86657406440*x);
R2:=R2+0.00000002881*COS(3.90810650240+312.19908396260*x);
R2:=R2+0.00000003199*COS(3.92123638342+1038.04128918680*x);
R2:=R2+0.00000004014*COS(5.17826893553+404.50679034820*x);
R2:=R2+0.00000003907*COS(4.11767191780+1781.03134971940*x);
R2:=R2+0.00000003144*COS(1.61185684069+1073.60902419080*x);
R2:=R2+0.00000003072*COS(5.00675625396+312.45971639350*x);
R2:=R2+0.00000003034*COS(5.46288652854+258.87574647670*x);
R2:=R2+0.00000002884*COS(2.38477237305+181.05576652360*x);
R2:=R2+0.00000002986*COS(0.88783591586+1279.79457262800*x);
R2:=R2+0.00000002683*COS(0.00956197492+195.89060769870*x);
R2:=R2+0.00000003081*COS(5.60034737330+216.21985674480*x);
R2:=R2+0.00000002626*COS(6.12701960244+273.10284047830*x);
R2:=R2+0.00000002665*COS(2.31576422128+565.11568774670*x);
R2:=R2+0.00000003245*COS(3.87540558646+85.82729883120*x);
R2:=R2+0.00000002740*COS(5.73784096806+160.60889739850*x);
R2:=R2+0.00000002876*COS(4.74720607366+213.25091132820*x);
R2:=R2+0.00000002523*COS(5.30458920892+444.75743814070*x);
R2:=R2+0.00000002752*COS(5.08984539930+1169.58825140860*x);
R2:=R2+0.00000002889*COS(1.66674437398+213.34727954780*x);
R2:=R2+0.00000002923*COS(4.21481009033+650.94298657790*x);
R2:=R2+0.00000003036*COS(2.55426675350+6069.77675455340*x);
R2:=R2+0.00000003116*COS(2.67220972004+52.69019803950*x);
R2:=R2+0.00000002371*COS(0.89591351822+121.25202148330*x);
R2:=R2+0.00000002993*COS(3.96957827454+9999.98645077300*x);
R2:=R2+0.00000003088*COS(0.40656113014+561.18353448360*x);
R2:=R2+0.00000002385*COS(4.74063881551+218.71572140940*x);
R2:=R2+0.00000002632*COS(1.12706218927+344.70304530790*x);
R2:=R2+0.00000002316*COS(4.08445262041+131.54696222180*x);
R2:=R2+0.00000002214*COS(3.37726228553+22.09140052780*x);
R2:=R2+0.00000002129*COS(3.32497715011+358.93013930950*x);
R2:=R2+0.00000002679*COS(1.68971401870+208.63322899200*x);
R2:=R2+0.00000002607*COS(5.10250482155+824.74219374880*x);
R2:=R2+0.00000002250*COS(2.60474848767+305.34616939270*x);
R2:=R2+0.00000002087*COS(3.37293958793+320.32402291970*x);
R2:=R2+0.00000002693*COS(3.62159456470+436.89313161450*x);
R2:=R2+0.00000002492*COS(2.96129217279+2214.74308759620*x);
R2:=R2+0.00000002704*COS(2.88483697319+643.07868005170*x);
R2:=R2+0.00000002124*COS(1.61210282593+218.92816973050*x);
R2:=R2+0.00000002037*COS(4.63481160778+188.02630117250*x);
R2:=R2+0.00000002394*COS(3.46386258552+6275.96230299060*x);
R2:=R2+0.00000001973*COS(2.28886138203+2627.11418447060*x);
R2:=R2+0.00000001937*COS(5.67082364247+28.45418800320*x);
R2:=R2+0.00000001920*COS(4.25647211328+546.95644048200*x);
R2:=R2+0.00000002498*COS(3.57572154405+2420.92863603340*x);
R2:=R2+0.00000001898*COS(1.30987536388+212.33588759150*x);
R2:=R2+0.00000001852*COS(1.58508015515+424.15051032120*x);
R2:=R2+0.00000001850*COS(3.57830449726+329.72519178090*x);
R2:=R2+0.00000002128*COS(3.95329215734+1795.25844372100*x);
R2:=R2+0.00000002236*COS(4.22073549375+2221.85663459700*x);
R2:=R2+0.00000001933*COS(1.68771499202+350.33211960040*x);
R2:=R2+0.00000001799*COS(2.06541260431+144.14657116320*x);
R2:=R2+0.00000001904*COS(4.60953896857+182.27960680100*x);
R2:=R2+0.00000002236*COS(5.17945392885+99.16062095550*x);
R2:=R2+0.00000001755*COS(2.73425330428+291.26208774300*x);
R2:=R2+0.00000002231*COS(5.42548168745+207.88246946660*x);
R2:=R2+0.00000001848*COS(2.24194286719+168.05251279940*x);
R2:=R2+0.00000001726*COS(1.31878655393+219.44943459230*x);
R2:=R2+0.00000001709*COS(5.55913931846+92.79783348010*x);
R2:=R2+0.00000001693*COS(1.95360003617+129.91947716160*x);
R2:=R2+0.00000002064*COS(4.84900344498+1141.13406340540*x);
R2:=R2+0.00000001758*COS(5.05088656436+214.26230328450*x);
R2:=R2+0.00000001781*COS(2.85880153340+636.71589257630*x);
R2:=R2+0.00000001900*COS(2.90295578617+2310.72231481400*x);
R2:=R2+0.00000001759*COS(5.34657858395+45.57665103870*x);
R2:=R2+0.00000001654*COS(6.14450664508+554.06998748280*x);
R2:=R2+0.00000001578*COS(4.50941374663+210.37833413120*x);
R2:=R2+0.00000001681*COS(3.55136706992+1354.43315884340*x);
R2:=R2+0.00000001862*COS(3.01276783582+2317.83586181480*x);
R2:=R2+0.00000001589*COS(1.15773448350+235.39049596580*x);
R2:=R2+0.00000001551*COS(2.15558953807+207.67002114550*x);
R2:=R2+0.00000001874*COS(4.12861627986+225.82926841020*x);
R2:=R2+0.00000001621*COS(3.29992957653+1670.82502850000*x);
R2:=R2+0.00000001911*COS(0.17724319140+12.53017297220*x);
R2:=R2+0.00000001477*COS(5.90270260570+1.48447270830*x);
R2:=R2+0.00000001618*COS(5.72513459206+1485.98012106520*x);
R2:=R2+0.00000001446*COS(1.78104589920+1382.88734684660*x);
R2:=R2+0.00000001683*COS(3.43534671475+2428.04218303420*x);
R2:=R2+0.00000001542*COS(5.51223038941+204.70107572890*x);
R2:=R2+0.00000001420*COS(2.07339356364+198.32124191100*x);
R2:=R2+0.00000001444*COS(5.56032454849+128.36556848410*x);
R2:=R2+0.00000001476*COS(6.12782257368+212.77783057620*x);
R2:=R2+0.00000001474*COS(0.33626790634+213.82036029980*x);
R2:=R2+0.00000001428*COS(3.25039966249+945.99421523210*x);
R2:=R2+0.00000001410*COS(0.68747644676+429.04587143080*x);
R2:=R2+0.00000001752*COS(2.70090942746+12.74262129330*x);
R2:=R2+0.00000001681*COS(4.97526853273+2008.55753915900*x);
R2:=R2+0.00000001408*COS(0.80461100746+1585.14074202070*x);
R2:=R2+0.00000001485*COS(0.49674043855+120.35824960600*x);
R2:=R2+0.00000001490*COS(2.68459799437+207.14875628370*x);
R2:=R2+0.00000001411*COS(4.36399216092+5863.59120611620*x);
R2:=R2+0.00000001315*COS(4.73430848989+241.75328344120*x);
R2:=R2+0.00000001516*COS(4.99488503706+1162.47470440780*x);
R2:=R2+0.00000001310*COS(1.98714265058+563.63121503840*x);
R2:=R2+0.00000001286*COS(2.12891372062+251.43213107580*x);
R2:=R2+0.00000001271*COS(5.70165238307+2.92076130680*x);
R2:=R2+0.00000001312*COS(1.68811514551+2207.62954059540*x);
R2:=R2+0.00000001259*COS(0.35924965717+334.55111692130*x);
R2:=R2+0.00000001252*COS(2.14513440216+1055.44977692610*x);
R2:=R2+0.00000001401*COS(6.13250261735+1802.37199072180*x);
R2:=R2+0.00000001343*COS(5.79995727295+9793.80090233580*x);
R2:=R2+0.00000001228*COS(3.29059284057+661.23792731640*x);
R2:=R2+0.00000001202*COS(2.88792018909+2413.81508903260*x);
R2:=R2+0.00000001286*COS(5.72360160371+298.23262239190*x);
R2:=R2+0.00000001357*COS(0.93175963411+217.49188113200*x);
R2:=R2+0.00000001356*COS(2.28121627817+601.76425067620*x);
R2:=R2+0.00000001190*COS(1.94993809928+501.37978944330*x);
R2:=R2+0.00000001304*COS(0.37337923280+3473.19701922180*x);
R2:=R2+0.00000001350*COS(2.87235622320+142.44965013380*x);
R2:=R2+0.00000001349*COS(3.21102203937+175.16605980020*x);
R2:=R2+0.00000001312*COS(3.70149813509+2111.65031337760*x);
R2:=R2+0.00000001129*COS(1.08860603834+842.15068148810*x);
R2:=R2+0.00000001237*COS(0.08698781252+526.50957135690*x);
R2:=R2+0.00000001217*COS(3.89835349840+209.10630974400*x);
R2:=R2+0.00000001467*COS(1.16228775027+621.73803904930*x);
R2:=R2+0.00000001044*COS(0.30512759901+436.15941843160*x);
R2:=R2+0.00000001140*COS(5.33720637097+114.13847448250*x);
R2:=R2+0.00000001295*COS(4.70261675421+9786.68735533500*x);
R2:=R2+0.00000001037*COS(4.07846687083+156.67674413540*x);
R2:=R2+0.00000001391*COS(4.73554028436+398.14400287280*x);
R2:=R2+0.00000001167*COS(5.68899703631+479.28838891550*x);
R2:=R2+0.00000001035*COS(5.34279429465+327.43756992050*x);
R2:=R2+0.00000000997*COS(1.19323192891+710.74673161820*x);
R2:=R2+0.00000001193*COS(5.17722376816+98.89998852460*x);
R2:=R2+0.00000001165*COS(4.58588490135+732.69511979410*x);
R2:=R2+0.00000001161*COS(4.90854984994+10206.17199921020*x);
R2:=R2+0.00000001144*COS(0.50394784140+3906.90875709860*x);
R2:=R2+0.00000001182*COS(3.69482624364+2854.64037391020*x);
R2:=R2+0.00000000970*COS(2.89031410383+1987.21689815660*x);
R2:=R2+0.00000001039*COS(0.48694895443+525.49817940060*x);
R2:=R2+0.00000001079*COS(3.61750956217+2097.42321937600*x);
R2:=R2+0.00000001148*COS(3.31015591733+5856.47765911540*x);
R2:=R2+0.00000001241*COS(4.31971543677+230.70758317730*x);
R2:=R2+0.00000000910*COS(4.59825926062+380.12776796000*x);
R2:=R2+0.00000000907*COS(1.34912454077+685.47393735270*x);
R2:=R2+0.00000001166*COS(1.61085609717+5849.36411211460*x);
R2:=R2+0.00000000882*COS(6.12045540405+519.39602435610*x);
R2:=R2+0.00000000963*COS(4.96065454054+699.70103135430*x);
R2:=R2+0.00000001062*COS(5.13323858077+2751.54759969160*x);
R2:=R2+0.00000000865*COS(6.12821112133+245.54242435240*x);
R2:=R2+0.00000001100*COS(2.18435744407+1699.27921650320*x);
R2:=R2+0.00000000822*COS(5.55083534581+739.05790726950*x);
R2:=R2+0.00000000926*COS(2.01158276144+417.03696332040*x);
R2:=R2+0.00000000813*COS(5.18401872205+214.78356814630*x);
R2:=R2+0.00000001033*COS(5.48677848094+3995.77443731560*x);
R2:=R2+0.00000000872*COS(3.02363724703+306.09692891810*x);
R2:=R2+0.00000000796*COS(0.44343664540+486.40193591630*x);
R2:=R2+0.00000000878*COS(1.82164034386+135.33610313300*x);
R2:=R2+0.00000000791*COS(2.14989417962+2620.00063746980*x);
R2:=R2+0.00000000881*COS(2.39697554334+289.56516671360*x);
R2:=R2+0.00000000782*COS(4.50471317138+980.66817835880*x);
R2:=R2+0.00000000783*COS(1.14229319753+540.73666535850*x);
R2:=R2+0.00000000831*COS(0.69937251013+421.93232443000*x);
R2:=R2+0.00000000770*COS(2.40292326155+576.16138801060*x);
R2:=R2+0.00000000950*COS(5.97621460162+196.62432088160*x);
R2:=R2+0.00000000814*COS(4.19303098086+831.10498122420*x);
R2:=R2+0.00000000969*COS(4.78071024754+326.68681039510*x);
R2:=R2+0.00000000760*COS(0.44860533530+425.63498302950*x);
R2:=R2+0.00000000907*COS(0.94781730418+525.75881183150*x);
R2:=R2+0.00000000788*COS(0.14287187051+916.93228005540*x);
R2:=R2+0.00000000801*COS(1.86383119100+3039.48528134500*x);
R2:=R2+0.00000000801*COS(0.46947170994+3466.08347222100*x);
R2:=R2+0.00000000747*COS(6.05374861925+211.81462272970*x);
R2:=R2+0.00000000968*COS(3.02618272726+2634.22773147140*x);
R2:=R2+0.00000000739*COS(2.27110740297+2303.60876781320*x);
R2:=R2+0.00000000750*COS(5.48554383902+173.94221952280*x);
R2:=R2+0.00000001024*COS(1.91564925560+229.97386999440*x);
R2:=R2+0.00000000816*COS(4.98990432666+4209.07353275360*x);
R2:=R2+0.00000000728*COS(1.30997967935+511.53171782990*x);
R2:=R2+0.00000000716*COS(3.74192651696+3053.71237534660*x);
R2:=R2+0.00000000727*COS(0.39191881243+1493.09366806600*x);
R2:=R2+0.00000000717*COS(2.68899513085+228.27694896500*x);
R2:=R2+0.00000000739*COS(2.12749199443+1176.70179840940*x);
R2:=R2+0.00000000805*COS(0.07187193910+556.51766803760*x);
R2:=R2+0.00000000835*COS(3.48287855700+84.93352695390*x);
R2:=R2+0.00000000790*COS(0.48073040004+4017.11507831800*x);
R2:=R2+0.00000000725*COS(1.96643065215+220.46082654860*x);
R2:=R2+0.00000000683*COS(2.68825142163+151.04766984290*x);
R2:=R2+0.00000000739*COS(3.33688408107+953.10776223290*x);
R2:=R2+0.00000000745*COS(6.22304530635+1269.49963188950*x);

LOCAL R3:=0;
R3:=R3+0.00020315005*COS(3.02186626038+213.29909543800*x);
R3:=R3+0.00008923581*COS(3.19144205755+220.41264243880*x);
R3:=R3+0.00006908677*COS(4.35174889353+206.18554843720*x);
R3:=R3+0.00004087129*COS(4.22406927376+7.11354700080*x);
R3:=R3+0.00003879041*COS(2.01056445995+426.59819087600*x);
R3:=R3+0.00001070788*COS(4.20360341236+199.07200143640*x);
R3:=R3+0.00000907332*COS(2.28344368029+433.71173787680*x);
R3:=R3+0.00000606121*COS(3.17458570534+227.52618943960*x);
R3:=R3+0.00000596639*COS(4.13455753351+14.22709400160*x);
R3:=R3+0.00000483181*COS(1.17345973258+639.89728631400*x);
R3:=R3+0.00000393174;
R3:=R3+0.00000229472*COS(4.69838526383+419.48464387520*x);
R3:=R3+0.00000188250*COS(4.59003889007+110.20632121940*x);
R3:=R3+0.00000149508*COS(3.20199444400+103.09277421860*x);
R3:=R3+0.00000121442*COS(3.76831374104+323.50541665740*x);
R3:=R3+0.00000101215*COS(5.81884137755+412.37109687440*x);
R3:=R3+0.00000102146*COS(4.70974422803+95.97922721780*x);
R3:=R3+0.00000093078*COS(1.43531270909+647.01083331480*x);
R3:=R3+0.00000072601*COS(4.15395598507+117.31986822020*x);
R3:=R3+0.00000084347*COS(2.63462379693+216.48048917570*x);
R3:=R3+0.00000062198*COS(2.31239345505+440.82528487760*x);
R3:=R3+0.00000045145*COS(4.37317047297+191.95845443560*x);
R3:=R3+0.00000049536*COS(2.38854232908+209.36694217490*x);
R3:=R3+0.00000054829*COS(0.30526468471+853.19638175200*x);
R3:=R3+0.00000040498*COS(1.83836569765+302.16477565500*x);
R3:=R3+0.00000038089*COS(5.94455115525+88.86568021700*x);
R3:=R3+0.00000032243*COS(4.01146349387+21.34064100240*x);
R3:=R3+0.00000040671*COS(0.68845183210+522.57741809380*x);
R3:=R3+0.00000028209*COS(5.77193013961+210.11770170030*x);
R3:=R3+0.00000024976*COS(3.06249709014+234.63973644040*x);
R3:=R3+0.00000020824*COS(4.92570695678+625.67019231240*x);
R3:=R3+0.00000025070*COS(0.73137425284+515.46387109300*x);
R3:=R3+0.00000017485*COS(5.73135068691+728.76296653100*x);
R3:=R3+0.00000018009*COS(1.45593152612+309.27832265580*x);
R3:=R3+0.00000016927*COS(3.52771580455+3.18139373770*x);
R3:=R3+0.00000013437*COS(3.36479898106+330.61896365820*x);
R3:=R3+0.00000011090*COS(3.37212682914+224.34479570190*x);
R3:=R3+0.00000011082*COS(3.41719974793+956.28915597060*x);
R3:=R3+0.00000009978*COS(1.58791582772+202.25339517410*x);
R3:=R3+0.00000011551*COS(5.99093726182+735.87651353180*x);
R3:=R3+0.00000010500*COS(6.06911092266+405.25754987360*x);
R3:=R3+0.00000009144*COS(2.93557421591+124.43341522100*x);
R3:=R3+0.00000008737*COS(4.65432480769+632.78373931320*x);
R3:=R3+0.00000010023*COS(0.58247011625+860.30992875280*x);
R3:=R3+0.00000007482*COS(4.50669216436+942.06206196900*x);
R3:=R3+0.00000010091*COS(0.28268774007+838.96928775040*x);
R3:=R3+0.00000009243*COS(2.57034547708+223.59403617650*x);
R3:=R3+0.00000008652*COS(1.75808100881+429.77958461370*x);
R3:=R3+0.00000007564*COS(1.45635107202+654.12438031560*x);
R3:=R3+0.00000007058*COS(5.47394786065+1045.15483618760*x);
R3:=R3+0.00000006970*COS(1.51811695028+422.66603761290*x);
R3:=R3+0.00000008067*COS(4.48457709292+742.99006053260*x);
R3:=R3+0.00000006817*COS(4.83084424818+316.39186965660*x);
R3:=R3+0.00000007693*COS(0.43769724671+831.85574074960*x);
R3:=R3+0.00000007934*COS(4.20112367712+195.13984817330*x);
R3:=R3+0.00000006119*COS(2.33960392135+269.92144674060*x);
R3:=R3+0.00000005589*COS(1.14518720694+284.14854074220*x);
R3:=R3+0.00000005564*COS(4.18123189068+529.69096509460*x);
R3:=R3+0.00000005034*COS(2.12020038657+295.05122865420*x);
R3:=R3+0.00000006556*COS(3.42459866876+10.29494073850*x);
R3:=R3+0.00000005544*COS(2.46823271699+536.80451209540*x);
R3:=R3+0.00000006189*COS(6.01433827520+1066.49547719000*x);
R3:=R3+0.00000005649*COS(0.82784598388+217.23124870110*x);
R3:=R3+0.00000004264*COS(3.23245736673+1272.68102562720*x);
R3:=R3+0.00000004450*COS(0.92477808590+203.00415469950*x);
R3:=R3+0.00000003268*COS(4.32777516976+1258.45393162560*x);
R3:=R3+0.00000003655*COS(0.05832123987+81.75213321620*x);
R3:=R3+0.00000003951*COS(0.11124996745+1155.36115740700*x);
R3:=R3+0.00000003773*COS(6.01157059552+1052.26838318840*x);
R3:=R3+0.00000002915*COS(5.64342950039+3.93215326310*x);
R3:=R3+0.00000003019*COS(2.19411778004+447.93883187840*x);
R3:=R3+0.00000002977*COS(1.89387342550+149.56319713460*x);
R3:=R3+0.00000003146*COS(0.19215180096+1148.24761040620*x);
R3:=R3+0.00000002763*COS(0.92363342001+508.35032409220*x);
R3:=R3+0.00000002790*COS(4.97199778427+1677.93857550080*x);
R3:=R3+0.00000002608*COS(2.99591016813+1589.07289528380*x);
R3:=R3+0.00000002881*COS(5.40535671721+1361.54670584420*x);
R3:=R3+0.00000002337*COS(1.30362271569+184.84490743480*x);
R3:=R3+0.00000002536*COS(3.71412120849+408.43894361130*x);
R3:=R3+0.00000002450*COS(3.22118361135+319.57326339430*x);
R3:=R3+0.00000002585*COS(2.31346415454+543.91805909620*x);
R3:=R3+0.00000002324*COS(5.87500715503+721.64941953020*x);
R3:=R3+0.00000001990*COS(0.51565577383+416.30325013750*x);
R3:=R3+0.00000002490*COS(4.24017800021+1059.38193018920*x);
R3:=R3+0.00000001935*COS(2.41463084855+337.73251065900*x);
R3:=R3+0.00000001886*COS(0.53809070779+635.96513305090*x);
R3:=R3+0.00000001893*COS(5.62352727352+11.04570026390*x);
R3:=R3+0.00000002389*COS(5.73399981234+313.21047591890*x);
R3:=R3+0.00000001900*COS(2.41000566465+131.54696222180*x);
R3:=R3+0.00000001743*COS(4.57646237847+1994.33044515740*x);
R3:=R3+0.00000001913*COS(5.17436386408+2854.64037391020*x);
R3:=R3+0.00000001946*COS(6.23355845623+1471.75302706360*x);
R3:=R3+0.00000001963*COS(6.17814558628+1464.63948006280*x);
R3:=R3+0.00000001838*COS(5.59464577559+1038.04128918680*x);
R3:=R3+0.00000001541*COS(0.60765337379+210.85141488320*x);
R3:=R3+0.00000001617*COS(1.75479346067+195.89060769870*x);
R3:=R3+0.00000001577*COS(0.55789908488+2324.94940881560*x);
R3:=R3+0.00000001492*COS(0.26624235633+497.44763618020*x);
R3:=R3+0.00000001659*COS(2.57526072926+2090.30967237520*x);
R3:=R3+0.00000001809*COS(1.82317819973+436.89313161450*x);
R3:=R3+0.00000001566*COS(6.15328100324+490.33408917940*x);
R3:=R3+0.00000001771*COS(6.11741716855+1073.60902419080*x);
R3:=R3+0.00000001456*COS(0.85374460914+415.55249061210*x);
R3:=R3+0.00000001645*COS(2.95335775161+437.64389113990*x);
R3:=R3+0.00000001391*COS(4.12025028560+1574.84580128220*x);
R3:=R3+0.00000001585*COS(5.96841377266+1781.03134971940*x);
R3:=R3+0.00000001507*COS(3.84895122542+1251.34038462480*x);
R3:=R3+0.00000001442*COS(5.32547705924+2538.24850425360*x);
R3:=R3+0.00000001805*COS(1.50973093681+750.10360753340*x);
R3:=R3+0.00000001462*COS(3.28599831588+1884.12412393800*x);
R3:=R3+0.00000001482*COS(0.99340744053+643.07868005170*x);
R3:=R3+0.00000001312*COS(3.79347668996+1567.73225428140*x);
R3:=R3+0.00000001665*COS(0.02551523913+423.41679713830*x);
R3:=R3+0.00000001469*COS(5.35285153471+1354.43315884340*x);
R3:=R3+0.00000001352*COS(0.69945139243+867.42347575360*x);
R3:=R3+0.00000001124*COS(1.79624810407+618.55664531160*x);
R3:=R3+0.00000001126*COS(4.70052329245+113.38771495710*x);
R3:=R3+0.00000001122*COS(3.95537224270+1891.23767093880*x);
R3:=R3+0.00000001458*COS(1.50198846753+430.53034413910*x);
R3:=R3+0.00000001145*COS(5.13093399117+25.27279426550*x);
R3:=R3+0.00000001178*COS(2.97062300389+241.75328344120*x);
R3:=R3+0.00000001274*COS(2.29089799814+2420.92863603340*x);
R3:=R3+0.00000001071*COS(0.04888943982+63.73589830340*x);
R3:=R3+0.00000001377*COS(5.58271514873+1382.88734684660*x);
R3:=R3+0.00000001145*COS(3.10797488346+2200.51599359460*x);
R3:=R3+0.00000001076*COS(0.79465514815+127.47179660680*x);
R3:=R3+0.00000001046*COS(5.85060227045+215.74677599280*x);
R3:=R3+0.00000001082*COS(3.72589445510+131.40394986990*x);
R3:=R3+0.00000001218*COS(0.47504349592+824.74219374880*x);
R3:=R3+0.00000001116*COS(3.78039049056+1375.77379984580*x);
R3:=R3+0.00000000969*COS(5.90752273481+265.98929347750*x);
R3:=R3+0.00000001230*COS(1.41325962069+2634.22773147140*x);
R3:=R3+0.00000001070*COS(4.80334493874+1987.21689815660*x);
R3:=R3+0.00000000946*COS(6.25968535931+2015.67108615980*x);
R3:=R3+0.00000001030*COS(1.08973644893+362.86229257260*x);
R3:=R3+0.00000001072*COS(5.41838042079+1279.79457262800*x);
R3:=R3+0.00000000880*COS(1.92224908504+483.22054217860*x);
R3:=R3+0.00000000878*COS(2.96591300878+934.94851496820*x);
R3:=R3+0.00000000879*COS(2.65659265685+145.63104387150*x);
R3:=R3+0.00000000872*COS(6.26261969664+2.44768055480*x);
R3:=R3+0.00000001082*COS(4.48298283322+2214.74308759620*x);
R3:=R3+0.00000000959*COS(0.74479087918+16.67477455640*x);
R3:=R3+0.00000001035*COS(4.05664979327+231.45834270270*x);
R3:=R3+0.00000000851*COS(0.09360495322+628.85158605010*x);
R3:=R3+0.00000000888*COS(5.98816755324+2524.02141025200*x);
R3:=R3+0.00000000866*COS(3.16259265630+2207.62954059540*x);
R3:=R3+0.00000000843*COS(1.23731248821+74.78159856730*x);
R3:=R3+0.00000000809*COS(2.89742868175+2008.55753915900*x);
R3:=R3+0.00000000779*COS(2.28434811609+1478.86657406440*x);
R3:=R3+0.00000000990*COS(5.32604038017+2428.04218303420*x);
R3:=R3+0.00000000795*COS(2.38178135810+2228.97018159780*x);
R3:=R3+0.00000000765*COS(4.70033674940+1670.82502850000*x);
R3:=R3+0.00000001024*COS(4.23352869513+1802.37199072180*x);
R3:=R3+0.00000000831*COS(5.87457134912+1368.66025284500*x);
R3:=R3+0.00000000717*COS(5.92144324994+1685.05212250160*x);
R3:=R3+0.00000000772*COS(1.15596098579+3053.71237534660*x);
R3:=R3+0.00000000691*COS(3.13193109668+56.62235130260*x);

LOCAL R4:=0;
R4:=R4+0.00001202050*COS(1.41499446465+220.41264243880*x);
R4:=R4+0.00000707796*COS(1.16153570102+213.29909543800*x);
R4:=R4+0.00000516121*COS(6.23973568330+206.18554843720*x);
R4:=R4+0.00000426664*COS(2.46924890293+7.11354700080*x);
R4:=R4+0.00000267736*COS(0.18659206741+426.59819087600*x);
R4:=R4+0.00000170171*COS(5.95926972384+199.07200143640*x);
R4:=R4+0.00000145113*COS(1.44211060143+227.52618943960*x);
R4:=R4+0.00000150339*COS(0.47970167140+433.71173787680*x);
R4:=R4+0.00000121033*COS(2.40527320817+14.22709400160*x);
R4:=R4+0.00000047332*COS(5.56857488676+639.89728631400*x);
R4:=R4+0.00000015745*COS(2.90112466278+110.20632121940*x);
R4:=R4+0.00000016668*COS(0.52920774279+440.82528487760*x);
R4:=R4+0.00000018954*COS(5.85626429118+647.01083331480*x);
R4:=R4+0.00000014074*COS(1.30343550656+412.37109687440*x);
R4:=R4+0.00000012708*COS(2.09349305926+323.50541665740*x);
R4:=R4+0.00000014724*COS(0.29905316786+419.48464387520*x);
R4:=R4+0.00000011133*COS(2.46304825990+117.31986822020*x);
R4:=R4+0.00000011320*COS(0.21785507019+95.97922721780*x);
R4:=R4+0.00000009233*COS(2.28127318068+21.34064100240*x);
R4:=R4+0.00000009246*COS(1.56496312830+88.86568021700*x);
R4:=R4+0.00000008970*COS(0.68301278041+216.48048917570*x);
R4:=R4+0.00000007674*COS(3.59367715368+302.16477565500*x);
R4:=R4+0.00000007823*COS(4.48688804175+853.19638175200*x);
R4:=R4+0.00000008360*COS(1.27239488455+234.63973644040*x);
R4:=R4-0.00000009552;
R4:=R4+0.00000004834*COS(2.58836294602+515.46387109300*x);
R4:=R4+0.00000006059*COS(5.16774448740+103.09277421860*x);
R4:=R4+0.00000004410*COS(0.02211643085+191.95845443560*x);
R4:=R4+0.00000004364*COS(1.59622746023+330.61896365820*x);
R4:=R4+0.00000003676*COS(3.29899839673+210.11770170030*x);
R4:=R4+0.00000004364*COS(5.97349927933+654.12438031560*x);
R4:=R4+0.00000004447*COS(4.97415112184+860.30992875280*x);
R4:=R4+0.00000003220*COS(2.72684237392+522.57741809380*x);
R4:=R4+0.00000004005*COS(1.59858435636+405.25754987360*x);
R4:=R4+0.00000003099*COS(0.75235436533+209.36694217490*x);
R4:=R4+0.00000002464*COS(1.19167306488+124.43341522100*x);
R4:=R4+0.00000003088*COS(1.32258934286+728.76296653100*x);
R4:=R4+0.00000002220*COS(3.28087994088+203.00415469950*x);
R4:=R4+0.00000002127*COS(6.14648095022+429.77958461370*x);
R4:=R4+0.00000002110*COS(0.75462855247+295.05122865420*x);
R4:=R4+0.00000002020*COS(3.89394929749+1066.49547719000*x);
R4:=R4+0.00000002248*COS(0.49319150178+447.93883187840*x);
R4:=R4+0.00000002180*COS(0.72761059998+625.67019231240*x);
R4:=R4+0.00000001809*COS(0.09057839517+942.06206196900*x);
R4:=R4+0.00000001672*COS(1.39635398184+224.34479570190*x);
R4:=R4+0.00000001641*COS(3.02468307550+184.84490743480*x);
R4:=R4+0.00000001772*COS(0.81879250825+223.59403617650*x);
R4:=R4+0.00000001902*COS(2.00472814984+831.85574074960*x);
R4:=R4+0.00000001600*COS(5.41185167676+824.74219374880*x);
R4:=R4+0.00000001505*COS(5.95520747253+422.66603761290*x);
R4:=R4+0.00000001133*COS(1.11512973946+838.96928775040*x);
R4:=R4+0.00000001190*COS(1.89600567803+956.28915597060*x);
R4:=R4+0.00000001487*COS(2.11906469507+529.69096509460*x);
R4:=R4+0.00000001409*COS(0.72254420236+536.80451209540*x);
R4:=R4+0.00000001125*COS(0.89062692183+721.64941953020*x);
R4:=R4+0.00000001301*COS(1.64867038984+17.40848773930*x);
R4:=R4+0.00000001164*COS(5.96957981840+195.13984817330*x);
R4:=R4+0.00000000950*COS(5.36080713290+316.39186965660*x);
R4:=R4+0.00000000985*COS(3.05768671768+1574.84580128220*x);
R4:=R4+0.00000001050*COS(1.59202481523+735.87651353180*x);
R4:=R4+0.00000000817*COS(4.92838813598+56.62235130260*x);
R4:=R4+0.00000000780*COS(2.72125404102+508.35032409220*x);
R4:=R4+0.00000000969*COS(1.00708261792+1045.15483618760*x);
R4:=R4+0.00000000716*COS(1.11042181341+1169.58825140860*x);

LOCAL R5:=0;
R5:=R5+0.00000128612*COS(5.91282565136+220.41264243880*x);
R5:=R5+0.00000032273*COS(0.69256228602+7.11354700080*x);
R5:=R5+0.00000026698*COS(5.91428528629+227.52618943960*x);
R5:=R5+0.00000019923*COS(0.67370653385+14.22709400160*x);
R5:=R5+0.00000020223*COS(4.95136801768+433.71173787680*x);
R5:=R5+0.00000013537*COS(1.45669521408+199.07200143640*x);
R5:=R5+0.00000014097*COS(2.67074280191+206.18554843720*x);
R5:=R5+0.00000013364*COS(4.58826996370+426.59819087600*x);
R5:=R5+0.00000007257*COS(4.62966127155+213.29909543800*x);
R5:=R5+0.00000004876*COS(3.61448275002+639.89728631400*x);
R5:=R5+0.00000003136*COS(4.65661021909+191.95845443560*x);
R5:=R5+0.00000002917*COS(0.48665273315+323.50541665740*x);
R5:=R5+0.00000003759*COS(4.89624165044+440.82528487760*x);
R5:=R5+0.00000003303*COS(4.07190859545+647.01083331480*x);
R5:=R5+0.00000002883*COS(3.18003019204+419.48464387520*x);
R5:=R5+0.00000002338*COS(3.69553554327+88.86568021700*x);
R5:=R5+0.00000001950*COS(5.32729247780+302.16477565500*x);
R5:=R5+0.00000002052*COS(3.31663577368+95.97922721780*x);
R5:=R5+0.00000001591*COS(2.67009215574+853.19638175200*x);
R5:=R5+0.00000002028*COS(0.56025552769+117.31986822020*x);
R5:=R5+0.00000001560*COS(0.85608042681+515.46387109300*x);
R5:=R5+0.00000001678;
R5:=R5+0.00000001102*COS(5.98011943842+3.18139373770*x);
R5:=R5+0.00000001285*COS(5.82563377753+234.63973644040*x);
R5:=R5+0.00000000896*COS(5.22791858719+216.48048917570*x);
R5:=R5+0.00000001141*COS(0.15741228205+412.37109687440*x);
R5:=R5+0.00000000798*COS(0.37452846153+28.45418800320*x);
R5:=R5+0.00000000837*COS(5.04769794123+124.43341522100*x);

LOCAL x2=x*x;
LOCAL x3=x2*x;
LOCAL x4=x3*x;
LOCAL x5=x4*x;

RETURN (R0+R1*x+R2*x2+R3*x3+R4*x4+R5*x5);
END;
