
//Heliocentric longitude of Venus
EXPORT Lvenus(x)
BEGIN
LOCAL L0:=0;
L0:=L0+3.17614666774;
L0:=L0+0.01353968419*COS(5.59313319619+10213.28554621100*x);
L0:=L0+0.00089891645*COS(5.30650048468+20426.57109242200*x);
L0:=L0+0.00005477201*COS(4.41630652531+7860.41939243920*x);
L0:=L0+0.00003455732*COS(2.69964470778+11790.62908865880*x);
L0:=L0+0.00002372061*COS(2.99377539568+3930.20969621960*x);
L0:=L0+0.00001317108*COS(5.18668219093+26.29831979980*x);
L0:=L0+0.00001664069*COS(4.25018935030+1577.34354244780*x);
L0:=L0+0.00001438322*COS(4.15745043958+9683.59458111640*x);
L0:=L0+0.00001200521*COS(6.15357115319+30639.85663863300*x);
L0:=L0+0.00000761380*COS(1.95014702120+529.69096509460*x);
L0:=L0+0.00000707676*COS(1.06466707214+775.52261132400*x);
L0:=L0+0.00000584836*COS(3.99839884762+191.44826611160*x);
L0:=L0+0.00000769314*COS(0.81629615911+9437.76293488700*x);
L0:=L0+0.00000499915*COS(4.12340210074+15720.83878487840*x);
L0:=L0+0.00000326221*COS(4.59056473097+10404.73381232260*x);
L0:=L0+0.00000429498*COS(3.58642859752+19367.18916223280*x);
L0:=L0+0.00000326967*COS(5.67736583705+5507.55323866740*x);
L0:=L0+0.00000231937*COS(3.16251057072+9153.90361602180*x);
L0:=L0+0.00000179695*COS(4.65337915578+1109.37855209340*x);
L0:=L0+0.00000128263*COS(4.22604493736+20.77539549240*x);
L0:=L0+0.00000155464*COS(5.57043888948+19651.04848109800*x);
L0:=L0+0.00000127907*COS(0.96209822685+5661.33204915220*x);
L0:=L0+0.00000105547*COS(1.53721191253+801.82093112380*x);
L0:=L0+0.00000085722*COS(0.35589249966+3154.68708489560*x);
L0:=L0+0.00000099121*COS(0.83288185132+213.29909543800*x);
L0:=L0+0.00000098804*COS(5.39389655503+13367.97263110660*x);
L0:=L0+0.00000082094*COS(3.21596990826+18837.49819713819*x);
L0:=L0+0.00000088031*COS(3.88868860307+9999.98645077300*x);
L0:=L0+0.00000071577*COS(0.11145739345+11015.10647733480*x);
L0:=L0+0.00000056122*COS(4.24039855475+7.11354700080*x);
L0:=L0+0.00000070239*COS(0.67458813282+23581.25817731760*x);
L0:=L0+0.00000050796*COS(0.24531603049+11322.66409830440*x);
L0:=L0+0.00000046111*COS(5.31576465717+18073.70493865020*x);
L0:=L0+0.00000044574*COS(6.06282201966+40853.14218484400*x);
L0:=L0+0.00000042594*COS(5.32873337210+2352.86615377180*x);
L0:=L0+0.00000042635*COS(1.79955421680+7084.89678111520*x);
L0:=L0+0.00000041177*COS(0.36240972161+382.89653222320*x);
L0:=L0+0.00000035749*COS(2.70448479296+10206.17199921020*x);
L0:=L0+0.00000033893*COS(2.02347322198+6283.07584999140*x);
L0:=L0+0.00000029138*COS(3.59230925768+22003.91463486980*x);
L0:=L0+0.00000028479*COS(2.22375414002+1059.38193018920*x);
L0:=L0+0.00000029850*COS(4.02176977477+10239.58386601080*x);
L0:=L0+0.00000033252*COS(2.10025596509+27511.46787353720*x);
L0:=L0+0.00000030172*COS(4.94191919890+13745.34623902240*x);
L0:=L0+0.00000029252*COS(3.51392387787+283.85931886520*x);
L0:=L0+0.00000024424*COS(2.70177493852+8624.21265092720*x);
L0:=L0+0.00000020274*COS(3.79493637509+14143.49524243060*x);
L0:=L0+0.00000024322*COS(4.27814493315+5.52292430740*x);
L0:=L0+0.00000026260*COS(0.54067587552+17298.18232732620*x);
L0:=L0+0.00000020492*COS(0.58547075036+38.02767263580*x);
L0:=L0+0.00000018988*COS(4.13811500642+4551.95349705880*x);
L0:=L0+0.00000023739*COS(4.82870797552+6872.67311951120*x);
L0:=L0+0.00000015885*COS(1.50067222283+8635.94200376320*x);
L0:=L0+0.00000019069*COS(6.12025580313+29050.78374334920*x);
L0:=L0+0.00000018269*COS(3.04740408477+19999.97290154599*x);
L0:=L0+0.00000013656*COS(4.41336292334+3532.06069281140*x);
L0:=L0+0.00000017094*COS(3.52161526430+31441.67756975680*x);
L0:=L0+0.00000010955*COS(2.84562790076+18307.80723204360*x);
L0:=L0+0.00000011048*COS(2.58361219075+9786.68735533500*x);
L0:=L0+0.00000009904*COS(1.08737710389+7064.12138562280*x);
L0:=L0+0.00000010576*COS(0.85419784436+10596.18207843420*x);
L0:=L0+0.00000009231*COS(5.52471655579+12566.15169998280*x);
L0:=L0+0.00000011599*COS(5.81007422699+19896.88012732740*x);
L0:=L0+0.00000011807*COS(1.91250672543+21228.39202354580*x);
L0:=L0+0.00000010105*COS(2.34270786693+10742.97651130560*x);
L0:=L0+0.00000008154*COS(1.92331359797+15.25247118500*x);
L0:=L0+0.00000008893*COS(1.97291388515+10186.98722641120*x);
L0:=L0+0.00000009352*COS(4.94508904764+35371.88726597640*x);
L0:=L0+0.00000006821*COS(4.39733188968+8662.24032356300*x);
L0:=L0+0.00000006688*COS(1.55310437864+14945.31617355440*x);
L0:=L0+0.00000006413*COS(2.17677652923+10988.80815753500*x);
L0:=L0+0.00000005802*COS(1.93462125906+3340.61242669980*x);
L0:=L0+0.00000005950*COS(2.96578175391+4732.03062734340*x);
L0:=L0+0.00000005275*COS(5.01877102496+28286.99048486120*x);
L0:=L0+0.00000007047*COS(1.00111452053+632.78373931320*x);
L0:=L0+0.00000005048*COS(4.27886209626+29580.47470844380*x);
L0:=L0+0.00000006305*COS(0.35506331180+103.09277421860*x);
L0:=L0+0.00000005959*COS(5.04792949464+245.83164622940*x);
L0:=L0+0.00000004651*COS(0.85218058876+6770.71060124560*x);
L0:=L0+0.00000005580*COS(0.48723384809+522.57741809380*x);
L0:=L0+0.00000005327*COS(3.03115417024+10021.83728009940*x);
L0:=L0+0.00000005010*COS(5.77375166500+28521.09277825460*x);
L0:=L0+0.00000004608*COS(1.93302108394+4705.73230754360*x);
L0:=L0+0.00000005526*COS(3.36797048901+25158.60171976540*x);
L0:=L0+0.00000003863*COS(4.89351531412+25934.12433108940*x);
L0:=L0+0.00000005303*COS(0.08161426841+39302.09696219600*x);
L0:=L0+0.00000004254*COS(5.36046113295+21535.94964451540*x);
L0:=L0+0.00000003763*COS(1.05304597315+19.66976089979*x);
L0:=L0+0.00000004407*COS(4.02575374517+74.78159856730*x);
L0:=L0+0.00000004145*COS(1.14356412295+9676.48103411560*x);
L0:=L0+0.00000004318*COS(4.38289970585+316.39186965660*x);
L0:=L0+0.00000003642*COS(6.11733529325+3128.38876509580*x);
L0:=L0+0.00000003238*COS(5.39551036769+419.48464387520*x);
L0:=L0+0.00000003909*COS(4.05263635330+9690.70812811720*x);
L0:=L0+0.00000003152*COS(0.72553551731+16496.36139620240*x);
L0:=L0+0.00000003496*COS(0.72414615705+3723.50895892300*x);
L0:=L0+0.00000003755*COS(3.80208713127+19786.67380610799*x);
L0:=L0+0.00000002891*COS(3.33782737770+32217.20018108080*x);
L0:=L0+0.00000003016*COS(1.57249112496+17277.40693183380*x);
L0:=L0+0.00000003825*COS(0.19612312903+426.59819087600*x);
L0:=L0+0.00000003798*COS(0.45524571743+10316.37832042960*x);
L0:=L0+0.00000002570*COS(1.20813474107+13936.79450513400*x);
L0:=L0+0.00000002796*COS(3.65128969074+206.18554843720*x);
L0:=L0+0.00000002466*COS(3.61988676373+1551.04522264800*x);
L0:=L0+0.00000003108*COS(1.50325806664+43232.30665841560*x);
L0:=L0+0.00000002976*COS(4.79415001304+29088.81141598500*x);
L0:=L0+0.00000002217*COS(3.59623681714+24356.78078864160*x);
L0:=L0+0.00000002227*COS(4.96059221940+536.80451209540*x);
L0:=L0+0.00000002397*COS(3.45249688427+19374.30270923360*x);
L0:=L0+0.00000002462*COS(0.53295178258+19360.07561523199*x);
L0:=L0+0.00000002205*COS(2.70399309963+12592.45001978260*x);
L0:=L0+0.00000002230*COS(3.01413465913+18875.52586977400*x);
L0:=L0+0.00000001858*COS(4.06129152783+2379.16447357160*x);
L0:=L0+0.00000001807*COS(3.15086214479+9573.38825989700*x);
L0:=L0+0.00000002238*COS(5.52216925076+10138.50394764370*x);
L0:=L0+0.00000002195*COS(2.32046770554+8094.52168583260*x);
L0:=L0+0.00000002101*COS(2.90421302975+9967.45389998160*x);
L0:=L0+0.00000001916*COS(4.56513949099+2218.75710418680*x);
L0:=L0+0.00000001467*COS(2.42640162465+10234.06094170340*x);
L0:=L0+0.00000001726*COS(5.59790693845+20452.86941222180*x);
L0:=L0+0.00000001455*COS(2.44757248737+1589.07289528380*x);
L0:=L0+0.00000001991*COS(4.04623390359+31749.23519072640*x);
L0:=L0+0.00000001406*COS(2.71736996917+16983.99614745660*x);
L0:=L0+0.00000001658*COS(0.11252373292+153.77881048480*x);
L0:=L0+0.00000001851*COS(2.92898027939+47162.51635463520*x);
L0:=L0+0.00000001492*COS(1.07513892753+9103.90699411760*x);
L0:=L0+0.00000001247*COS(2.48433565896+17778.11626694899*x);
L0:=L0+0.00000001549*COS(4.20553654300+3442.57494496540*x);
L0:=L0+0.00000001243*COS(3.95452438599+170.67287061920*x);
L0:=L0+0.00000001694*COS(6.20694480406+33019.02111220460*x);
L0:=L0+0.00000001221*COS(4.77931820602+30110.16567353840*x);
L0:=L0+0.00000001206*COS(0.30531303095+29864.33402730900*x);
L0:=L0+0.00000001238*COS(5.05581820608+20213.27199698400*x);
L0:=L0+0.00000001152*COS(3.26229919481+11.72935283600*x);
L0:=L0+0.00000001179*COS(1.69491074791+20400.27277262220*x);
L0:=L0+0.00000001165*COS(2.88995128147+574.34479833480*x);
L0:=L0+0.00000001306*COS(0.14519588607+9146.79006902100*x);
L0:=L0+0.00000001113*COS(1.52598846804+10426.58464164900*x);
L0:=L0+0.00000001104*COS(2.58791423813+18849.22754997420*x);
L0:=L0+0.00000001045*COS(0.57539216420+15874.61759536320*x);
L0:=L0+0.00000001360*COS(2.41976595457+38734.37832446560*x);
L0:=L0+0.00000000981*COS(4.37930727798+110.20632121940*x);
L0:=L0+0.00000001095*COS(0.49492867814+51066.42773105500*x);
L0:=L0+0.00000001146*COS(4.54241454215+10220.39909321180*x);
L0:=L0+0.00000000981*COS(1.65915064733+10103.07922499160*x);
L0:=L0+0.00000001270*COS(4.69374306132+9050.81084180320*x);
L0:=L0+0.00000001065*COS(4.41645258887+22805.73556599360*x);
L0:=L0+0.00000000854*COS(2.34437926957+6681.22485339960*x);
L0:=L0+0.00000001104*COS(0.49781459714+1.48447270830*x);
L0:=L0+0.00000001075*COS(1.09857593161+377.37360791580*x);
L0:=L0+0.00000001114*COS(4.35024775806+51092.72605085480*x);
L0:=L0+0.00000000829*COS(5.41196274578+27991.40181316000*x);
L0:=L0+0.00000000900*COS(2.74195379617+41962.52073693740*x);
L0:=L0+0.00000001010*COS(2.96092073452+135.62532501000*x);
L0:=L0+0.00000000768*COS(3.98260860494+18844.61174413899*x);
L0:=L0+0.00000001018*COS(1.36891050752+36949.23080842420*x);
L0:=L0+0.00000000726*COS(1.67728773965+21202.09370374600*x);
L0:=L0+0.00000000727*COS(0.89048212541+467.96499035440*x);
L0:=L0+0.00000000869*COS(2.93767679827+10192.51015071860*x);
L0:=L0+0.00000000696*COS(5.35698039414+10063.72234907640*x);
L0:=L0+0.00000000920*COS(4.17128923588+18734.40542291960*x);
L0:=L0+0.00000000691*COS(1.50594097883+27197.28169366760*x);
L0:=L0+0.00000000835*COS(0.48050621092+20618.01935853360*x);
L0:=L0+0.00000000711*COS(0.19750098222+18830.38465013739*x);
L0:=L0+0.00000000811*COS(0.16685071959+12432.04265039780*x);
L0:=L0+0.00000000756*COS(3.79022623226+9161.01716302260*x);
L0:=L0+0.00000000622*COS(5.33659507738+9411.46461508720*x);
L0:=L0+0.00000000862*COS(5.72705356405+10175.15251057320*x);
L0:=L0+0.00000000853*COS(0.10404188453+2107.03450754240*x);
L0:=L0+0.00000000742*COS(3.96365892051+813.55028395980*x);
L0:=L0+0.00000000705*COS(0.71229660616+220.41264243880*x);
L0:=L0+0.00000000584*COS(1.71900692700+36.02786667740*x);
L0:=L0+0.00000000612*COS(0.36418385449+949.17560896980*x);
L0:=L0+0.00000000587*COS(1.58648949290+6.62855890001*x);
L0:=L0+0.00000000581*COS(5.49288908804+6309.37416979120*x);
L0:=L0+0.00000000581*COS(4.80353237853+24150.08005134500*x);
L0:=L0+0.00000000516*COS(6.07328802561+38.13303563780*x);
L0:=L0+0.00000000627*COS(5.47281424954+9580.50180689780*x);
L0:=L0+0.00000000601*COS(1.40500080774+1162.47470440780*x);
L0:=L0+0.00000000620*COS(4.00681042667+9992.87290377220*x);
L0:=L0+0.00000000611*COS(3.62010998629+7255.56965173440*x);
L0:=L0+0.00000000697*COS(2.22359630727+348.92442044800*x);
L0:=L0+0.00000000693*COS(5.77432072851+55022.93574707440*x);
L0:=L0+0.00000000494*COS(0.29761886866+7058.59846131540*x);
L0:=L0+0.00000000563*COS(0.24172140474+37410.56723987860*x);
L0:=L0+0.00000000487*COS(5.86917216517+10137.01947493540*x);
L0:=L0+0.00000000493*COS(2.04534833854+735.87651353180*x);
L0:=L0+0.00000000636*COS(2.79707392326+40879.44050464380*x);
L0:=L0+0.00000000519*COS(4.13945657630+16522.65971600220*x);
L0:=L0+0.00000000535*COS(4.60569597820+19573.37471066999*x);
L0:=L0+0.00000000555*COS(5.88120421263+26735.94526221320*x);
L0:=L0+0.00000000440*COS(5.61490649795+23958.63178523340*x);
L0:=L0+0.00000000541*COS(0.62494922735+10007.09999777380*x);
L0:=L0+0.00000000427*COS(4.02335620501+14.22709400160*x);
L0:=L0+0.00000000434*COS(0.29028429049+9264.10993724120*x);
L0:=L0+0.00000000451*COS(1.66320363626+26087.90314157420*x);
L0:=L0+0.00000000422*COS(3.38413582674+10787.63034454580*x);
L0:=L0+0.00000000569*COS(5.14001758731+27490.69247804480*x);
L0:=L0+0.00000000421*COS(4.23407313457+39793.76025465480*x);
L0:=L0+0.00000000458*COS(5.28786368820+49.75702547180*x);
L0:=L0+0.00000000418*COS(5.69097790790+14765.23904326980*x);
L0:=L0+0.00000000475*COS(0.97544690438+1052.26838318840*x);
L0:=L0+0.00000000387*COS(4.41665162999+21.85082932640*x);
L0:=L0+0.00000000523*COS(2.90512426870+20235.12282631040*x);
L0:=L0+0.00000000506*COS(5.26999314618+29999.95935231900*x);
L0:=L0+0.00000000438*COS(2.49457071132+20956.26205751660*x);
L0:=L0+0.00000000530*COS(0.71368442157+33794.54372352860*x);
L0:=L0+0.00000000382*COS(1.92119365480+3.93215326310*x);
L0:=L0+0.00000000365*COS(3.81715328784+20419.45754542119*x);
L0:=L0+0.00000000426*COS(2.06384083608+38204.68735937100*x);
L0:=L0+0.00000000496*COS(0.44077356179+9835.91193829520*x);
L0:=L0+0.00000000410*COS(4.93346326003+19264.09638801420*x);
L0:=L0+0.00000000380*COS(3.79573358631+8521.11987670860*x);
L0:=L0+0.00000000334*COS(5.51158557799+10251.31321884680*x);
L0:=L0+0.00000000412*COS(2.56129670728+77.67377042800*x);
L0:=L0+0.00000000418*COS(2.37865963521+32.53255079140*x);
L0:=L0+0.00000000325*COS(6.03020523465+18947.70451835760*x);
L0:=L0+0.00000000400*COS(0.91999360201+227.47613278900*x);
L0:=L0+0.00000000437*COS(0.91420135162+58953.14544329400*x);
L0:=L0+0.00000000360*COS(0.82477639126+22.77520145080*x);
L0:=L0+0.00000000413*COS(4.22381905655+44809.65020086340*x);
L0:=L0+0.00000000375*COS(3.15657291896+19992.85935454519*x);
L0:=L0+0.00000000371*COS(6.05370874275+20007.08644854680*x);
L0:=L0+0.00000000361*COS(5.44371227904+19470.28193645139*x);
L0:=L0+0.00000000386*COS(5.28120540405+47623.85278608960*x);
L0:=L0+0.00000000389*COS(0.73216672240+19050.79729257620*x);
L0:=L0+0.00000000320*COS(2.84811591194+10199.05845220940*x);
L0:=L0+0.00000000386*COS(3.88754165531+1975.49254585600*x);
L0:=L0+0.00000000276*COS(4.33979180814+20809.46762464520*x);
L0:=L0+0.00000000276*COS(0.50647429773+9830.38901398780*x);
L0:=L0+0.00000000309*COS(3.79299100668+18204.71445782499*x);
L0:=L0+0.00000000377*COS(0.73768791281+11506.76976979360*x);
L0:=L0+0.00000000322*COS(0.96138442100+30666.15495843280*x);
L0:=L0+0.00000000363*COS(1.30472406690+9367.20271145980*x);
L0:=L0+0.00000000366*COS(2.79972786028+11272.66747640020*x);
L0:=L0+0.00000000271*COS(4.66141338193+846.08283475120*x);
L0:=L0+0.00000000259*COS(0.42031175750+39264.06928956020*x);
L0:=L0+0.00000000285*COS(0.40546033634+30.91412563500*x);
L0:=L0+0.00000000247*COS(4.80676426942+36147.40987730040*x);
L0:=L0+0.00000000264*COS(2.71608177583+11.04570026390*x);
L0:=L0+0.00000000233*COS(2.76423842887+187.92514776260*x);
L0:=L0+0.00000000248*COS(1.60765612338+10497.14486507620*x);
L0:=L0+0.00000000271*COS(0.82348919630+19793.78735310880*x);
L0:=L0+0.00000000225*COS(3.80080957016+8631.32619792800*x);
L0:=L0+0.00000000263*COS(1.92311689852+37724.75341974820*x);
L0:=L0+0.00000000214*COS(5.01663795092+639.89728631400*x);
L0:=L0+0.00000000289*COS(0.12342601246+20277.00789528740*x);
L0:=L0+0.00000000210*COS(0.12771800254+29.82143814880*x);
L0:=L0+0.00000000227*COS(4.18036609801+17468.85519794540*x);
L0:=L0+0.00000000274*COS(2.34929343000+62883.35513951360*x);
L0:=L0+0.00000000260*COS(5.65254501655+48739.85989708300*x);
L0:=L0+0.00000000271*COS(4.95325404028+4214.06901508480*x);
L0:=L0+0.00000000219*COS(2.08775228014+194.97138446060*x);
L0:=L0+0.00000000191*COS(2.49267248333+568.82187402740*x);
L0:=L0+0.00000000250*COS(1.52909737354+6037.24420376200*x);
L0:=L0+0.00000000231*COS(5.23674429498+491.66329245880*x);
L0:=L0+0.00000000182*COS(4.98046042571+18418.01355326299*x);
L0:=L0+0.00000000188*COS(2.82273639603+1385.89527633620*x);
L0:=L0+0.00000000204*COS(4.09939796199+14919.01785375460*x);
L0:=L0+0.00000000176*COS(3.82400982460+9360.08916445900*x);
L0:=L0+0.00000000198*COS(2.76491873243+10217.21769947410*x);
L0:=L0+0.00000000168*COS(5.19268384202+1066.49547719000*x);
L0:=L0+0.00000000199*COS(1.95301487982+7564.83072073800*x);
L0:=L0+0.00000000171*COS(2.59623459612+20405.79569692960*x);
L0:=L0+0.00000000172*COS(5.29332132623+11764.33076885900*x);
L0:=L0+0.00000000165*COS(2.88557908025+10207.76262190360*x);
L0:=L0+0.00000000164*COS(3.25435371801+3914.95722503460*x);
L0:=L0+0.00000000200*COS(3.82443218090+18314.92077904440*x);
L0:=L0+0.00000000169*COS(1.78341902878+31022.75317085620*x);
L0:=L0+0.00000000179*COS(0.90840065587+7880.08915333899*x);
L0:=L0+0.00000000163*COS(2.79665037814+41.55079098480*x);
L0:=L0+0.00000000154*COS(3.90796293476+30213.25844775700*x);
L0:=L0+0.00000000153*COS(0.07463240782+28528.20632525540*x);
L0:=L0+0.00000000194*COS(5.95838706838+8617.09910392640*x);
L0:=L0+0.00000000171*COS(4.58206324409+20447.34648791440*x);
L0:=L0+0.00000000150*COS(2.11647586229+17248.42530185440*x);
L0:=L0+0.00000000149*COS(2.17259986320+9929.42622734580*x);
L0:=L0+0.00000000191*COS(0.82310353823+52670.06959330260*x);
L0:=L0+0.00000000148*COS(2.94315921485+41654.96311596780*x);
L0:=L0+0.00000000149*COS(4.49798039726+30831.30490474460*x);
L0:=L0+0.00000000184*COS(2.46923348701+34596.36465465240*x);
L0:=L0+0.00000000146*COS(2.69452930300+43071.89928903080*x);
L0:=L0+0.00000000159*COS(2.11137713570+19317.19254032860*x);
L0:=L0+0.00000000154*COS(2.76536164654+28513.97923125379*x);
L0:=L0+0.00000000140*COS(4.94595038686+9256.99639024040*x);
L0:=L0+0.00000000141*COS(2.57248458154+13553.89797291080*x);
L0:=L0+0.00000000137*COS(1.66482327575+2636.72547263700*x);
L0:=L0+0.00000000140*COS(5.23039605990+22645.32819660879*x);
L0:=L0+0.00000000132*COS(5.35690599728+19624.75016129820*x);
L0:=L0+0.00000000140*COS(2.90637712614+48947.66387067660*x);
L0:=L0+0.00000000129*COS(3.95303623681+32858.61374281979*x);
L0:=L0+0.00000000156*COS(6.01143316387+29057.89729034999*x);
L0:=L0+0.00000000134*COS(5.75241675118+68050.42387851159*x);
L0:=L0+0.00000000154*COS(3.66827363753+276.74577186440*x);
L0:=L0+0.00000000176*COS(3.77298381177+66813.56483573320*x);
L0:=L0+0.00000000126*COS(5.00217740223+27461.71084806540*x);
L0:=L0+0.00000000135*COS(1.34807013920+53285.18483524180*x);
L0:=L0+0.00000000150*COS(0.25029475344+290.97286586600*x);
L0:=L0+0.00000000152*COS(3.13035670092+29043.67019634839*x);
L0:=L0+0.00000000169*COS(5.04348109430+73.29712585900*x);
L0:=L0+0.00000000166*COS(5.39219948035+41236.03871706720*x);
L0:=L0+0.00000000163*COS(5.59796070987+7576.56007357400*x);
L0:=L0+0.00000000126*COS(0.77391784606+49.99662190420*x);
L0:=L0+0.00000000163*COS(0.44241846674+20350.30502114640*x);
L0:=L0+0.00000000136*COS(3.09066368912+418.92439890060*x);
L0:=L0+0.00000000154*COS(0.47086190960+28418.00000403600*x);
L0:=L0+0.00000000120*COS(0.88536981986+29573.36116144300*x);
L0:=L0+0.00000000132*COS(1.48009769040+17085.95866572220*x);
L0:=L0+0.00000000126*COS(1.39497760964+966.97087743560*x);
L0:=L0+0.00000000143*COS(3.84026797958+14128.24277124560*x);
L0:=L0+0.00000000147*COS(2.11627427804+34363.36559755600*x);
L0:=L0+0.00000000106*COS(2.04696932293+37674.99639427640*x);
L0:=L0+0.00000000106*COS(1.43873202489+27682.14074415640*x);
L0:=L0+0.00000000149*COS(0.09286508794+8144.27871130440*x);
L0:=L0+0.00000000103*COS(0.01992041470+18300.69368504279*x);
L0:=L0+0.00000000121*COS(3.57602835443+45.14121963660*x);
L0:=L0+0.00000000125*COS(0.11630302078+149.56319713460*x);
L0:=L0+0.00000000102*COS(4.17947097730+2333.19639287200*x);
L0:=L0+0.00000000099*COS(1.51324741657+10419.47109464820*x);
L0:=L0+0.00000000133*COS(3.02183293676+76251.32777062019*x);
L0:=L0+0.00000000136*COS(4.17517197268+3646.35037735440*x);
L0:=L0+0.00000000123*COS(0.44045588682+515.46387109300*x);
L0:=L0+0.00000000113*COS(5.69261397718+10110.19277199240*x);
L0:=L0+0.00000000098*COS(6.23797900467+202.25339517410*x);
L0:=L0+0.00000000099*COS(3.75627530197+59728.66805461800*x);
L0:=L0+0.00000000101*COS(4.62832557536+65236.22129328540*x);
L0:=L0+0.00000000111*COS(1.25947267588+10846.06928552420*x);
L0:=L0+0.00000000110*COS(5.87455577536+38500.27603107220*x);
L0:=L0+0.00000000128*COS(6.01024562160+90394.82301305079*x);
L0:=L0+0.00000000091*COS(1.77665981007+1539.31586981200*x);
L0:=L0+0.00000000092*COS(0.99804571578+95.97922721780*x);
L0:=L0+0.00000000120*COS(3.93060866244+38526.57435087200*x);
L0:=L0+0.00000000117*COS(2.24143299549+56600.27928952220*x);
L0:=L0+0.00000000118*COS(6.09121325940+29786.66025688100*x);
L0:=L0+0.00000000098*COS(4.60938156207+11787.10597030980*x);
L0:=L0+0.00000000097*COS(3.92727733144+11794.15220700780*x);
L0:=L0+0.00000000093*COS(5.23395435043+14169.79356223040*x);
L0:=L0+0.00000000096*COS(5.27525709038+8734.41897214660*x);
L0:=L0+0.00000000094*COS(0.18166654805+67589.08744705719*x);
L0:=L0+0.00000000110*COS(4.96279287076+48417.97290558199*x);
L0:=L0+0.00000000086*COS(0.39533409505+3956.50801601940*x);
L0:=L0+0.00000000085*COS(5.69642646462+37703.97802425580*x);
L0:=L0+0.00000000114*COS(5.19676285428+70743.77453195279*x);
L0:=L0+0.00000000081*COS(5.51324815184+412.37109687440*x);
L0:=L0+0.00000000089*COS(2.13409771828+44768.09940987860*x);
L0:=L0+0.00000000084*COS(6.02475904578+10632.77019008620*x);
L0:=L0+0.00000000085*COS(4.60912614442+45585.17281218740*x);
L0:=L0+0.00000000078*COS(4.47358603432+114.43928868521*x);
L0:=L0+0.00000000097*COS(4.02223363535+10218.80847051840*x);
L0:=L0+0.00000000081*COS(1.03870237004+9793.80090233580*x);
L0:=L0+0.00000000092*COS(0.80301220092+24383.07910844140*x);
L0:=L0+0.00000000087*COS(2.15124790938+28313.28880466100*x);
L0:=L0+0.00000000075*COS(5.17868679355+63658.87775083760*x);
L0:=L0+0.00000000078*COS(5.81927313665+567.71863773040*x);
L0:=L0+0.00000000075*COS(1.72618192481+19580.48825767080*x);
L0:=L0+0.00000000071*COS(0.10259261764+90695.75207512038*x);
L0:=L0+0.00000000077*COS(6.16012067704+1573.82042409880*x);
L0:=L0+0.00000000076*COS(5.12884307551+49515.38250840700*x);
L0:=L0+0.00000000069*COS(0.29569499484+10175.25787357520*x);
L0:=L0+0.00000000061*COS(4.80385549281+19889.76658032659*x);
L0:=L0+0.00000000060*COS(4.56685040226+30426.55754319500*x);
L0:=L0+0.00000000062*COS(4.16222812699+42430.48572729180*x);
L0:=L0+0.00000000050*COS(6.17899839001+22779.43724619380*x);
L0:=L0+0.00000000048*COS(1.52546758016+20639.87018786000*x);
L0:=L0+0.00000000046*COS(4.41738494249+34570.06633485260*x);
L0:=L0+0.00000000037*COS(4.69675087759+44007.82926973960*x);

LOCAL L1:=0;
L1:=L1+10213.52943052898;
L1:=L1+0.00095707712*COS(2.46424448979+10213.28554621100*x);
L1:=L1+0.00014444977*COS(0.51624564679+20426.57109242200*x);
L1:=L1+0.00000213374*COS(1.79547929368+30639.85663863300*x);
L1:=L1+0.00000151669*COS(6.10635282369+1577.34354244780*x);
L1:=L1+0.00000173904*COS(2.65535879443+26.29831979980*x);
L1:=L1+0.00000082233*COS(5.70234133730+191.44826611160*x);
L1:=L1+0.00000069734*COS(2.68136034979+9437.76293488700*x);
L1:=L1+0.00000052408*COS(3.60013087656+775.52261132400*x);
L1:=L1+0.00000038318*COS(1.03379038025+529.69096509460*x);
L1:=L1+0.00000029633*COS(1.25056322354+5507.55323866740*x);
L1:=L1+0.00000025056*COS(6.10664792855+10404.73381232260*x);
L1:=L1+0.00000017772*COS(6.19369798901+1109.37855209340*x);
L1:=L1+0.00000016510*COS(2.64330452640+7.11354700080*x);
L1:=L1+0.00000014230*COS(5.45138233941+9153.90361602180*x);
L1:=L1+0.00000012607*COS(1.24464400689+40853.14218484400*x);
L1:=L1+0.00000011627*COS(4.97604495371+213.29909543800*x);
L1:=L1+0.00000012563*COS(1.88122199199+382.89653222320*x);
L1:=L1+0.00000008869*COS(0.95282732248+13367.97263110660*x);
L1:=L1+0.00000007374*COS(4.39476760580+10206.17199921020*x);
L1:=L1+0.00000006552*COS(2.28168808058+2352.86615377180*x);
L1:=L1+0.00000006255*COS(4.08056644034+3154.68708489560*x);
L1:=L1+0.00000006697*COS(5.05673427795+801.82093112380*x);
L1:=L1+0.00000004084*COS(4.12103826030+18837.49819713819*x);
L1:=L1+0.00000004882*COS(3.44515199115+11015.10647733480*x);
L1:=L1+0.00000003549*COS(6.19934345402+5.52292430740*x);
L1:=L1+0.00000003448*COS(1.77405651704+11322.66409830440*x);
L1:=L1+0.00000004290*COS(0.08154809210+6283.07584999140*x);
L1:=L1+0.00000003694*COS(2.48453945256+5661.33204915220*x);
L1:=L1+0.00000003555*COS(1.48036949420+1059.38193018920*x);
L1:=L1+0.00000003023*COS(2.24092938317+18073.70493865020*x);
L1:=L1+0.00000003000*COS(0.39169917698+15.25247118500*x);
L1:=L1+0.00000002563*COS(0.35147506973+22003.91463486980*x);
L1:=L1+0.00000002774*COS(1.45683830639+10239.58386601080*x);
L1:=L1+0.00000002951*COS(5.34618097429+7084.89678111520*x);
L1:=L1+0.00000002344*COS(2.36652432105+17298.18232732620*x);
L1:=L1+0.00000002405*COS(2.36085282088+10596.18207843420*x);
L1:=L1+0.00000001720*COS(4.72129626061+10186.98722641120*x);
L1:=L1+0.00000002209*COS(2.07730338665+8635.94200376320*x);
L1:=L1+0.00000002122*COS(4.47091605309+8624.21265092720*x);
L1:=L1+0.00000001527*COS(0.67146857292+14143.49524243060*x);
L1:=L1+0.00000001473*COS(2.59350470099+7064.12138562280*x);
L1:=L1+0.00000001311*COS(0.90408820221+12566.15169998280*x);
L1:=L1+0.00000001474*COS(5.92236241437+9786.68735533500*x);
L1:=L1+0.00000001237*COS(2.59740787132+4551.95349705880*x);
L1:=L1+0.00000001219*COS(2.83617320088+9676.48103411560*x);
L1:=L1+0.00000001116*COS(3.83715584719+21228.39202354580*x);
L1:=L1+0.00000001006*COS(4.26200749078+426.59819087600*x);
L1:=L1+0.00000001150*COS(2.35531987378+9690.70812811720*x);
L1:=L1+0.00000001219*COS(2.27324315182+522.57741809380*x);
L1:=L1+0.00000001150*COS(0.81088598778+10742.97651130560*x);
L1:=L1+0.00000001101*COS(3.74248783564+18307.80723204360*x);
L1:=L1+0.00000001031*COS(2.03889374176+38.02767263580*x);
L1:=L1+0.00000000971*COS(6.10590045414+3532.06069281140*x);
L1:=L1+0.00000000844*COS(4.75124127613+10988.80815753500*x);
L1:=L1+0.00000000908*COS(1.06613723738+10021.83728009940*x);
L1:=L1+0.00000000824*COS(0.23090829723+28286.99048486120*x);
L1:=L1+0.00000000821*COS(2.60456032773+19.66976089979*x);
L1:=L1+0.00000000728*COS(0.10716917942+4705.73230754360*x);
L1:=L1+0.00000000744*COS(3.33129778857+536.80451209540*x);
L1:=L1+0.00000000816*COS(1.27303930175+19896.88012732740*x);
L1:=L1+0.00000000929*COS(1.08024621325+11790.62908865880*x);
L1:=L1+0.00000000797*COS(2.23891816523+3723.50895892300*x);
L1:=L1+0.00000000704*COS(5.95307260017+20.77539549240*x);
L1:=L1+0.00000000665*COS(0.21346689192+7860.41939243920*x);
L1:=L1+0.00000000733*COS(2.22147883292+19360.07561523199*x);
L1:=L1+0.00000000702*COS(1.76206343944+19374.30270923360*x);
L1:=L1+0.00000000575*COS(2.38792087791+6770.71060124560*x);
L1:=L1+0.00000000538*COS(1.52023264138+25934.12433108940*x);
L1:=L1+0.00000000690*COS(4.01873754171+19651.04848109800*x);
L1:=L1+0.00000000532*COS(4.41576130890+574.34479833480*x);
L1:=L1+0.00000000540*COS(2.15936134728+16496.36139620240*x);
L1:=L1+0.00000000576*COS(5.41170044566+206.18554843720*x);
L1:=L1+0.00000000482*COS(0.40815793538+3340.61242669980*x);
L1:=L1+0.00000000501*COS(3.08578363577+245.83164622940*x);
L1:=L1+0.00000000488*COS(5.22311611589+25158.60171976540*x);
L1:=L1+0.00000000450*COS(0.21279844600+11.72935283600*x);
L1:=L1+0.00000000432*COS(1.32004964493+103.09277421860*x);
L1:=L1+0.00000000434*COS(5.91094755233+19786.67380610799*x);
L1:=L1+0.00000000564*COS(0.38776462529+19367.18916223280*x);
L1:=L1+0.00000000421*COS(2.71057839701+13936.79450513400*x);
L1:=L1+0.00000000549*COS(6.08792865644+3930.20969621960*x);
L1:=L1+0.00000000478*COS(4.70234715828+14945.31617355440*x);
L1:=L1+0.00000000408*COS(4.80890663927+32217.20018108080*x);
L1:=L1+0.00000000404*COS(2.85003595942+29864.33402730900*x);
L1:=L1+0.00000000407*COS(2.94002049006+10220.39909321180*x);
L1:=L1+0.00000000359*COS(0.72354778897+419.48464387520*x);
L1:=L1+0.00000000449*COS(1.44520508753+8662.24032356300*x);
L1:=L1+0.00000000353*COS(2.22195492336+51066.42773105500*x);
L1:=L1+0.00000000324*COS(1.40308439067+29580.47470844380*x);
L1:=L1+0.00000000443*COS(1.93864353398+9146.79006902100*x);
L1:=L1+0.00000000314*COS(0.96837035284+20618.01935853360*x);
L1:=L1+0.00000000324*COS(5.10759068171+24356.78078864160*x);
L1:=L1+0.00000000324*COS(1.80146948625+18830.38465013739*x);
L1:=L1+0.00000000370*COS(6.16895004656+2218.75710418680*x);
L1:=L1+0.00000000278*COS(2.20429108375+18844.61174413899*x);
L1:=L1+0.00000000286*COS(3.08459438435+17277.40693183380*x);
L1:=L1+0.00000000383*COS(0.13890934755+4732.03062734340*x);
L1:=L1+0.00000000292*COS(0.43528982259+29088.81141598500*x);
L1:=L1+0.00000000273*COS(5.84415407168+9573.38825989700*x);
L1:=L1+0.00000000324*COS(2.14144542781+9999.98645077300*x);
L1:=L1+0.00000000264*COS(5.20407029554+220.41264243880*x);
L1:=L1+0.00000000254*COS(0.34411959301+28521.09277825460*x);
L1:=L1+0.00000000300*COS(3.76014360906+8094.52168583260*x);
L1:=L1+0.00000000301*COS(3.64457981649+20400.27277262220*x);
L1:=L1+0.00000000287*COS(1.84003536598+1589.07289528380*x);
L1:=L1+0.00000000206*COS(0.97167234723+10234.06094170340*x);
L1:=L1+0.00000000212*COS(0.24173677600+36.02786667740*x);
L1:=L1+0.00000000216*COS(5.88618923030+18875.52586977400*x);
L1:=L1+0.00000000198*COS(1.89506914939+20452.86941222180*x);
L1:=L1+0.00000000258*COS(6.27611355094+1551.04522264800*x);
L1:=L1+0.00000000197*COS(2.09222675324+9683.59458111640*x);
L1:=L1+0.00000000217*COS(5.79472589364+9103.90699411760*x);
L1:=L1+0.00000000188*COS(0.39123199129+19573.37471066999*x);
L1:=L1+0.00000000195*COS(6.23142464829+30110.16567353840*x);
L1:=L1+0.00000000187*COS(5.49670351645+170.67287061920*x);
L1:=L1+0.00000000178*COS(4.90042854659+10787.63034454580*x);
L1:=L1+0.00000000188*COS(1.62614804098+9161.01716302260*x);
L1:=L1+0.00000000211*COS(2.71884568392+15720.83878487840*x);
L1:=L1+0.00000000177*COS(1.88170417337+33019.02111220460*x);
L1:=L1+0.00000000209*COS(2.66033422116+3442.57494496540*x);
L1:=L1+0.00000000164*COS(4.92240093026+10426.58464164900*x);
L1:=L1+0.00000000186*COS(5.13678812068+7255.56965173440*x);
L1:=L1+0.00000000177*COS(5.70206821967+9992.87290377220*x);
L1:=L1+0.00000000214*COS(2.70027196648+3128.38876509580*x);
L1:=L1+0.00000000208*COS(3.38876526854+17778.11626694899*x);
L1:=L1+0.00000000147*COS(4.25008782855+16983.99614745660*x);
L1:=L1+0.00000000148*COS(3.46404418130+21202.09370374600*x);
L1:=L1+0.00000000189*COS(1.43553862242+2379.16447357160*x);
L1:=L1+0.00000000139*COS(2.99154379541+110.20632121940*x);
L1:=L1+0.00000000159*COS(5.23851679605+10007.09999777380*x);
L1:=L1+0.00000000136*COS(0.88942869764+22805.73556599360*x);
L1:=L1+0.00000000155*COS(5.90500835975+12592.45001978260*x);
L1:=L1+0.00000000151*COS(0.03422618975+27991.40181316000*x);
L1:=L1+0.00000000153*COS(4.01743770323+33794.54372352860*x);
L1:=L1+0.00000000121*COS(0.51392111799+21535.94964451540*x);
L1:=L1+0.00000000109*COS(2.25388616761+26735.94526221320*x);
L1:=L1+0.00000000109*COS(0.78612823474+6681.22485339960*x);
L1:=L1+0.00000000122*COS(4.84805105466+19992.85935454519*x);
L1:=L1+0.00000000112*COS(3.31796669604+36949.23080842420*x);
L1:=L1+0.00000000106*COS(3.34507236765+10103.07922499160*x);
L1:=L1+0.00000000114*COS(4.36384000196+20007.08644854680*x);
L1:=L1+0.00000000098*COS(5.07711736751+135.62532501000*x);
L1:=L1+0.00000000120*COS(5.41870615047+37724.75341974820*x);
L1:=L1+0.00000000103*COS(2.62610244425+20213.27199698400*x);
L1:=L1+0.00000000085*COS(5.04808202087+9830.38901398780*x);
L1:=L1+0.00000000103*COS(2.01549383816+45585.17281218740*x);
L1:=L1+0.00000000088*COS(2.62613816931+21.85082932640*x);
L1:=L1+0.00000000084*COS(3.50355880173+639.89728631400*x);
L1:=L1+0.00000000099*COS(0.61079620895+41654.96311596780*x);
L1:=L1+0.00000000088*COS(3.63836700262+49515.38250840700*x);
L1:=L1+0.00000000098*COS(2.42401801881+23581.25817731760*x);
L1:=L1+0.00000000081*COS(0.46468679835+77.67377042800*x);
L1:=L1+0.00000000092*COS(4.82530051729+29043.67019634839*x);
L1:=L1+0.00000000102*COS(4.27051236894+15874.61759536320*x);
L1:=L1+0.00000000090*COS(4.34075776744+29057.89729034999*x);
L1:=L1+0.00000000081*COS(0.01896422336+24150.08005134500*x);
L1:=L1+0.00000000093*COS(1.79250830018+12432.04265039780*x);
L1:=L1+0.00000000087*COS(5.25157021446+14128.24277124560*x);
L1:=L1+0.00000000089*COS(5.65756996753+377.37360791580*x);
L1:=L1+0.00000000097*COS(5.67942873241+227.47613278900*x);
L1:=L1+0.00000000076*COS(2.93363913259+38204.68735937100*x);
L1:=L1+0.00000000091*COS(2.60544242067+1052.26838318840*x);
L1:=L1+0.00000000087*COS(3.82284200928+27511.46787353720*x);
L1:=L1+0.00000000073*COS(4.75280755154+40879.44050464380*x);
L1:=L1+0.00000000067*COS(3.54815262526+30666.15495843280*x);
L1:=L1+0.00000000067*COS(5.81350818057+20809.46762464520*x);
L1:=L1+0.00000000064*COS(4.24772678145+153.77881048480*x);
L1:=L1+0.00000000064*COS(2.99454749109+27197.28169366760*x);
L1:=L1+0.00000000070*COS(4.03868009742+56600.27928952220*x);
L1:=L1+0.00000000071*COS(4.33628806850+39264.06928956020*x);
L1:=L1+0.00000000069*COS(1.73648747605+37410.56723987860*x);
L1:=L1+0.00000000065*COS(1.08206062736+68050.42387851159*x);
L1:=L1+0.00000000062*COS(4.77698454650+3914.95722503460*x);
L1:=L1+0.00000000061*COS(4.96121014691+34596.36465465240*x);
L1:=L1+0.00000000063*COS(5.04865067599+53445.59220462660*x);
L1:=L1+0.00000000058*COS(3.74010494151+1066.49547719000*x);
L1:=L1+0.00000000057*COS(5.39355890141+20419.45754542119*x);
L1:=L1+0.00000000057*COS(3.59399518494+735.87651353180*x);
L1:=L1+0.00000000065*COS(2.10322000074+74.78159856730*x);
L1:=L1+0.00000000073*COS(1.31083648835+11272.66747640020*x);
L1:=L1+0.00000000055*COS(1.33161298098+18300.69368504279*x);
L1:=L1+0.00000000065*COS(4.21150522641+49.75702547180*x);
L1:=L1+0.00000000061*COS(5.66161679402+17468.85519794540*x);
L1:=L1+0.00000000053*COS(4.30231233835+18849.22754997420*x);
L1:=L1+0.00000000055*COS(2.63906959481+52670.06959330260*x);
L1:=L1+0.00000000050*COS(5.69803054279+39793.76025465480*x);
L1:=L1+0.00000000049*COS(0.77345264124+35371.88726597640*x);
L1:=L1+0.00000000048*COS(6.00565977593+283.85931886520*x);
L1:=L1+0.00000000047*COS(2.63299859494+51868.24866217880*x);
L1:=L1+0.00000000046*COS(0.05105081843+38526.57435087200*x);
L1:=L1+0.00000000050*COS(4.37549274002+28513.97923125379*x);
L1:=L1+0.00000000046*COS(2.93422086586+27682.14074415640*x);
L1:=L1+0.00000000051*COS(5.45979584751+60530.48898574180*x);
L1:=L1+0.00000000045*COS(5.59492908223+467.96499035440*x);
L1:=L1+0.00000000045*COS(2.34680401001+9411.46461508720*x);
L1:=L1+0.00000000045*COS(0.02999265111+44809.65020086340*x);
L1:=L1+0.00000000043*COS(5.62725673544+14.22709400160*x);
L1:=L1+0.00000000047*COS(3.73567275749+64460.69868196140*x);
L1:=L1+0.00000000046*COS(0.12586526756+57375.80190084620*x);
L1:=L1+0.00000000044*COS(2.03114426076+18314.92077904440*x);
L1:=L1+0.00000000039*COS(0.99375127466+94138.32702008578*x);
L1:=L1+0.00000000053*COS(0.41974404621+30831.30490474460*x);
L1:=L1+0.00000000055*COS(1.38351566741+38500.27603107220*x);
L1:=L1+0.00000000041*COS(4.47012768909+40077.61957352000*x);
L1:=L1+0.00000000041*COS(0.36665992484+19999.97290154599*x);
L1:=L1+0.00000000040*COS(3.06358586355+813.55028395980*x);
L1:=L1+0.00000000040*COS(2.16802870803+59728.66805461800*x);
L1:=L1+0.00000000037*COS(1.08739100421+17085.95866572220*x);
L1:=L1+0.00000000039*COS(1.31040309875+48739.85989708300*x);
L1:=L1+0.00000000036*COS(1.43280677914+42456.78404709160*x);
L1:=L1+0.00000000037*COS(0.14190533464+29050.78374334920*x);
L1:=L1+0.00000000037*COS(3.66792179278+20956.26205751660*x);
L1:=L1+0.00000000025*COS(3.38876180652+7058.59846131540*x);
L1:=L1+0.00000000031*COS(6.16829805337+10192.51015071860*x);

LOCAL L2:=0;
L2:=L2+0.00054127076;
L2:=L2+0.00003891460*COS(0.34514360047+10213.28554621100*x);
L2:=L2+0.00001337880*COS(2.02011286082+20426.57109242200*x);
L2:=L2+0.00000023836*COS(2.04592119012+26.29831979980*x);
L2:=L2+0.00000019331*COS(3.53527371458+30639.85663863300*x);
L2:=L2+0.00000009984*COS(3.97130221102+775.52261132400*x);
L2:=L2+0.00000007046*COS(1.51962593409+1577.34354244780*x);
L2:=L2+0.00000006014*COS(0.99926757893+191.44826611160*x);
L2:=L2+0.00000003163*COS(4.36095475762+9437.76293488700*x);
L2:=L2+0.00000002125*COS(2.65810625752+40853.14218484400*x);
L2:=L2+0.00000001934*COS(3.39287946981+382.89653222320*x);
L2:=L2+0.00000001460*COS(6.04899046273+529.69096509460*x);
L2:=L2+0.00000001346*COS(2.94633106219+5507.55323866740*x);
L2:=L2+0.00000001025*COS(1.40598904981+10404.73381232260*x);
L2:=L2+0.00000001221*COS(3.73339139385+3154.68708489560*x);
L2:=L2+0.00000001033*COS(3.52858472904+11015.10647733480*x);
L2:=L2+0.00000000955*COS(5.11133878923+801.82093112380*x);
L2:=L2+0.00000000742*COS(1.49198584483+1109.37855209340*x);
L2:=L2+0.00000000525*COS(3.32087042103+213.29909543800*x);
L2:=L2+0.00000000578*COS(0.92614279843+10239.58386601080*x);
L2:=L2+0.00000000602*COS(5.19220099775+7084.89678111520*x);
L2:=L2+0.00000000431*COS(2.67159914364+13367.97263110660*x);
L2:=L2+0.00000000389*COS(4.14116341739+8635.94200376320*x);
L2:=L2+0.00000000355*COS(1.12061570874+9153.90361602180*x);
L2:=L2+0.00000000301*COS(3.90047984197+10596.18207843420*x);
L2:=L2+0.00000000212*COS(5.32697688872+18837.49819713819*x);
L2:=L2+0.00000000260*COS(0.22761369281+2352.86615377180*x);
L2:=L2+0.00000000243*COS(4.70747902991+6283.07584999140*x);
L2:=L2+0.00000000196*COS(4.10467294392+11790.62908865880*x);
L2:=L2+0.00000000194*COS(6.01197759470+7860.41939243920*x);
L2:=L2+0.00000000140*COS(4.97015671653+14143.49524243060*x);
L2:=L2+0.00000000134*COS(4.10529011674+17298.18232732620*x);
L2:=L2+0.00000000119*COS(3.39375528828+11322.66409830440*x);
L2:=L2+0.00000000126*COS(0.09854516140+18073.70493865020*x);
L2:=L2+0.00000000122*COS(5.92478855457+574.34479833480*x);
L2:=L2+0.00000000107*COS(0.35660030184+1059.38193018920*x);
L2:=L2+0.00000000108*COS(2.25352052666+12566.15169998280*x);
L2:=L2+0.00000000093*COS(5.48716819776+10021.83728009940*x);
L2:=L2+0.00000000084*COS(4.89744332968+18307.80723204360*x);
L2:=L2+0.00000000074*COS(2.35354025573+426.59819087600*x);
L2:=L2+0.00000000093*COS(4.99316908815+14945.31617355440*x);
L2:=L2+0.00000000069*COS(3.86409065860+51066.42773105500*x);
L2:=L2+0.00000000082*COS(5.36280178643+10186.98722641120*x);
L2:=L2+0.00000000077*COS(3.75728548372+3723.50895892300*x);
L2:=L2+0.00000000063*COS(5.39882267787+21228.39202354580*x);
L2:=L2+0.00000000056*COS(4.11564786973+7064.12138562280*x);
L2:=L2+0.00000000056*COS(6.26920407723+32217.20018108080*x);
L2:=L2+0.00000000060*COS(5.02186497542+19367.18916223280*x);
L2:=L2+0.00000000058*COS(5.13263709670+20400.27277262220*x);
L2:=L2+0.00000000051*COS(4.52870390511+22003.91463486980*x);
L2:=L2+0.00000000041*COS(3.83822107919+16496.36139620240*x);
L2:=L2+0.00000000041*COS(3.36020411807+4705.73230754360*x);
L2:=L2+0.00000000043*COS(5.98371820588+15720.83878487840*x);
L2:=L2+0.00000000047*COS(0.18498155367+18875.52586977400*x);
L2:=L2+0.00000000038*COS(0.52232581277+1551.04522264800*x);
L2:=L2+0.00000000039*COS(5.05391675878+10742.97651130560*x);
L2:=L2+0.00000000036*COS(3.16242472203+20452.86941222180*x);
L2:=L2+0.00000000035*COS(5.17462577483+29088.81141598500*x);
L2:=L2+0.00000000035*COS(3.47325394141+24356.78078864160*x);
L2:=L2+0.00000000031*COS(4.74511706231+28521.09277825460*x);
L2:=L2+0.00000000029*COS(0.19383091192+19896.88012732740*x);
L2:=L2+0.00000000033*COS(1.80059867635+20618.01935853360*x);
L2:=L2+0.00000000024*COS(0.14022912457+21202.09370374600*x);
L2:=L2+0.00000000022*COS(4.73565067573+10988.80815753500*x);
L2:=L2+0.00000000018*COS(0.74039763161+25158.60171976540*x);
L2:=L2+0.00000000019*COS(1.53770232218+28286.99048486120*x);
L2:=L2+0.00000000014*COS(1.49084059765+30110.16567353840*x);
L2:=L2+0.00000000013*COS(4.72171283479+29864.33402730900*x);
L2:=L2+0.00000000013*COS(5.79700427846+29580.47470844380*x);
L2:=L2+0.00000000014*COS(3.69205225010+27511.46787353720*x);

LOCAL L3:=0;
L3:=L3+0.00000135742*COS(4.80389020993+10213.28554621100*x);
L3:=L3+0.00000077846*COS(3.66876371591+20426.57109242200*x);
L3:=L3+0.00000026023;
L3:=L3+0.00000001214*COS(5.31970006917+30639.85663863300*x);
L3:=L3+0.00000000254*COS(4.15021671822+40853.14218484400*x);
L3:=L3+0.00000000008*COS(5.55523563261+51066.42773105500*x);
L3:=L3+0.00000000008*COS(1.40501229148+1577.34354244780*x);
L3:=L3+0.00000000006*COS(1.27791479726+10404.73381232260*x);
L3:=L3+0.00000000006*COS(5.76447068962+10239.58386601080*x);

LOCAL L4:=0;
L4:=L4-0.00000114016;
L4:=L4+0.00000003209*COS(5.20514170164+20426.57109242200*x);
L4:=L4+0.00000001714*COS(2.51099591706+10213.28554621100*x);
L4:=L4+0.00000000050*COS(0.71356059861+30639.85663863300*x);
L4:=L4+0.00000000023*COS(5.68127607034+40853.14218484400*x);

LOCAL L5:=0;
L5:=L5-0.00000000874;
L5:=L5+0.00000000117*COS(0.54643013000+20426.57109242200*x);
L5:=L5+0.00000000118*COS(1.90548541922+10213.28554621100*x);
L5:=L5+0.00000000002*COS(1.07734277826+40853.14218484400*x);
L5:=L5+0.00000000002*COS(1.89460223529+30639.85663863300*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 Venus
EXPORT Bvenus(x)
BEGIN
LOCAL B0:=0;
B0:=B0+0.05923638472*COS(0.26702775813+10213.28554621100*x);
B0:=B0+0.00040107978*COS(1.14737178106+20426.57109242200*x);
B0:=B0-0.00032814918;
B0:=B0+0.00001011392*COS(1.08946123021+30639.85663863300*x);
B0:=B0+0.00000149458*COS(6.25390296069+18073.70493865020*x);
B0:=B0+0.00000137788*COS(0.86020146523+1577.34354244780*x);
B0:=B0+0.00000129973*COS(3.67152483651+9437.76293488700*x);
B0:=B0+0.00000119507*COS(3.70468812804+2352.86615377180*x);
B0:=B0+0.00000107971*COS(4.53903677647+22003.91463486980*x);
B0:=B0+0.00000092029*COS(1.53954562706+9153.90361602180*x);
B0:=B0+0.00000052982*COS(2.28138172277+5507.55323866740*x);
B0:=B0+0.00000045617*COS(0.72319641722+10239.58386601080*x);
B0:=B0+0.00000038855*COS(2.93437865147+10186.98722641120*x);
B0:=B0+0.00000043491*COS(6.14015776699+11790.62908865880*x);
B0:=B0+0.00000041700*COS(5.99126845246+19896.88012732740*x);
B0:=B0+0.00000039644*COS(3.86842095901+8635.94200376320*x);
B0:=B0+0.00000039175*COS(3.94960351174+529.69096509460*x);
B0:=B0+0.00000033320*COS(4.83194909595+14143.49524243060*x);
B0:=B0+0.00000023711*COS(2.90646621218+10988.80815753500*x);
B0:=B0+0.00000023500*COS(2.00770618322+13367.97263110660*x);
B0:=B0+0.00000021809*COS(2.69701424951+19651.04848109800*x);
B0:=B0+0.00000020653*COS(0.98666685459+775.52261132400*x);
B0:=B0+0.00000016976*COS(4.13711782135+10021.83728009940*x);
B0:=B0+0.00000017835*COS(5.96268643102+25934.12433108940*x);
B0:=B0+0.00000014949*COS(5.61075168206+10404.73381232260*x);
B0:=B0+0.00000018579*COS(1.80529277514+40853.14218484400*x);
B0:=B0+0.00000015407*COS(3.29563855296+11015.10647733480*x);
B0:=B0+0.00000012936*COS(5.42651448496+29580.47470844380*x);
B0:=B0+0.00000011962*COS(3.57604253827+10742.97651130560*x);
B0:=B0+0.00000011827*COS(1.19070919600+8624.21265092720*x);
B0:=B0+0.00000011466*COS(5.12780364967+6283.07584999140*x);
B0:=B0+0.00000009484*COS(2.75167834335+191.44826611160*x);
B0:=B0+0.00000013129*COS(5.70735942511+9683.59458111640*x);
B0:=B0+0.00000008583*COS(0.43182249199+9786.68735533500*x);
B0:=B0+0.00000009763*COS(0.14614896296+20618.01935853360*x);
B0:=B0+0.00000008148*COS(1.30548515603+15720.83878487840*x);
B0:=B0+0.00000006050*COS(6.26541665966+11322.66409830440*x);
B0:=B0+0.00000005955*COS(4.92235372433+1059.38193018920*x);
B0:=B0+0.00000006983*COS(3.44920932146+17298.18232732620*x);
B0:=B0+0.00000006228*COS(1.13312070908+29864.33402730900*x);
B0:=B0+0.00000006186*COS(4.92498052443+19367.18916223280*x);
B0:=B0+0.00000006155*COS(2.42413946900+4705.73230754360*x);
B0:=B0+0.00000005204*COS(3.42528906628+9103.90699411760*x);
B0:=B0+0.00000006000*COS(3.57639095526+3154.68708489560*x);
B0:=B0+0.00000004796*COS(3.86676184909+7860.41939243920*x);
B0:=B0+0.00000005289*COS(4.99182712443+7084.89678111520*x);
B0:=B0+0.00000004070*COS(5.58798144740+12566.15169998280*x);
B0:=B0+0.00000003942*COS(5.68758787835+10206.17199921020*x);
B0:=B0+0.00000003797*COS(3.89520601076+10192.51015071860*x);
B0:=B0+0.00000003798*COS(6.06410995916+10234.06094170340*x);
B0:=B0+0.00000003579*COS(0.73789669235+4551.95349705880*x);
B0:=B0+0.00000003641*COS(2.61501257205+15874.61759536320*x);
B0:=B0+0.00000003266*COS(0.97517223854+23581.25817731760*x);
B0:=B0+0.00000002813*COS(0.29951755546+9411.46461508720*x);
B0:=B0+0.00000003048*COS(2.51085146990+33794.54372352860*x);
B0:=B0+0.00000002559*COS(4.58043833032+801.82093112380*x);
B0:=B0+0.00000002462*COS(5.05790874754+29050.78374334920*x);
B0:=B0+0.00000002593*COS(5.73113176751+20213.27199698400*x);
B0:=B0+0.00000002625*COS(4.24272906574+213.29909543800*x);
B0:=B0+0.00000002246*COS(0.82112963936+28286.99048486120*x);
B0:=B0+0.00000002229*COS(2.22457598233+10426.58464164900*x);
B0:=B0+0.00000001742*COS(1.48394229233+7058.59846131540*x);
B0:=B0+0.00000001660*COS(5.42775825275+32217.20018108080*x);
B0:=B0+0.00000001491*COS(4.64883377941+1109.37855209340*x);
B0:=B0+0.00000002010*COS(0.75702888128+9999.98645077300*x);
B0:=B0+0.00000001562*COS(3.93962080463+37724.75341974820*x);
B0:=B0+0.00000001538*COS(2.17309577080+21535.94964451540*x);
B0:=B0+0.00000001546*COS(4.70759186462+14945.31617355440*x);
B0:=B0+0.00000001200*COS(1.48282382657+9830.38901398780*x);
B0:=B0+0.00000001224*COS(5.55090394449+5661.33204915220*x);
B0:=B0+0.00000001111*COS(1.20276209213+9573.38825989700*x);
B0:=B0+0.00000001064*COS(1.98891375536+26.29831979980*x);
B0:=B0+0.00000001041*COS(5.38535116069+7.11354700080*x);
B0:=B0+0.00000001036*COS(1.16719443387+8662.24032356300*x);
B0:=B0+0.00000001143*COS(3.20596958337+3532.06069281140*x);
B0:=B0+0.00000001201*COS(0.81913312536+8094.52168583260*x);
B0:=B0+0.00000001005*COS(2.38429892132+27511.46787353720*x);
B0:=B0+0.00000001047*COS(4.56525030769+20419.45754542119*x);
B0:=B0+0.00000000968*COS(6.18496721871+25158.60171976540*x);
B0:=B0+0.00000001044*COS(1.98055689074+10596.18207843420*x);
B0:=B0+0.00000000962*COS(0.48573513747+23958.63178523340*x);
B0:=B0+0.00000000846*COS(0.01566400887+3128.38876509580*x);
B0:=B0+0.00000000792*COS(5.39686899735+24356.78078864160*x);
B0:=B0+0.00000000858*COS(5.34692750735+41654.96311596780*x);
B0:=B0+0.00000000757*COS(6.25904553773+20452.86941222180*x);
B0:=B0+0.00000000801*COS(4.62406152514+9929.42622734580*x);
B0:=B0+0.00000000802*COS(5.37234892520+10497.14486507620*x);
B0:=B0+0.00000000750*COS(3.85219782842+21228.39202354580*x);
B0:=B0+0.00000000700*COS(1.98097957188+3930.20969621960*x);
B0:=B0+0.00000000719*COS(6.11596800207+10218.80847051840*x);
B0:=B0+0.00000000672*COS(6.23429601219+14765.23904326980*x);
B0:=B0+0.00000000639*COS(5.37566437358+1589.07289528380*x);
B0:=B0+0.00000000605*COS(2.42330391120+10251.31321884680*x);
B0:=B0+0.00000000726*COS(6.16683781802+18875.52586977400*x);
B0:=B0+0.00000000613*COS(5.99731180690+4732.03062734340*x);
B0:=B0+0.00000000720*COS(3.84286345199+10207.76262190360*x);
B0:=B0+0.00000000637*COS(6.17053891156+10220.39909321180*x);
B0:=B0+0.00000000515*COS(1.03001478293+22779.43724619380*x);
B0:=B0+0.00000000574*COS(0.43813688572+17085.95866572220*x);
B0:=B0+0.00000000510*COS(1.41065159851+9161.01716302260*x);
B0:=B0+0.00000000569*COS(3.34601425125+3340.61242669980*x);
B0:=B0+0.00000000608*COS(1.25236241968+10175.25787357520*x);
B0:=B0+0.00000000524*COS(2.39794248670+26087.90314157420*x);
B0:=B0+0.00000000542*COS(1.34665646732+29088.81141598500*x);
B0:=B0+0.00000000527*COS(4.01994270827+18849.22754997420*x);
B0:=B0+0.00000000569*COS(1.65498800378+39264.06928956020*x);
B0:=B0+0.00000000518*COS(4.96996115446+30213.25844775700*x);
B0:=B0+0.00000000514*COS(5.78413007838+12592.45001978260*x);
B0:=B0+0.00000000538*COS(4.56198493922+10063.72234907640*x);
B0:=B0+0.00000000484*COS(4.18538027381+14919.01785375460*x);
B0:=B0+0.00000000493*COS(4.79939382739+9146.79006902100*x);
B0:=B0+0.00000000427*COS(3.76876868949+11272.66747640020*x);
B0:=B0+0.00000000495*COS(0.49175293655+45585.17281218740*x);
B0:=B0+0.00000000494*COS(3.74345863918+31441.67756975680*x);
B0:=B0+0.00000000524*COS(0.97991794166+30110.16567353840*x);
B0:=B0+0.00000000483*COS(1.87898057316+51066.42773105500*x);
B0:=B0+0.00000000505*COS(3.70047474212+20400.27277262220*x);
B0:=B0+0.00000000351*COS(4.34026574490+10137.01947493540*x);
B0:=B0+0.00000000355*COS(5.56672554631+18837.49819713819*x);
B0:=B0+0.00000000328*COS(3.78427378910+6681.22485339960*x);
B0:=B0+0.00000000349*COS(4.20550749672+20956.26205751660*x);
B0:=B0+0.00000000333*COS(4.44969281739+28521.09277825460*x);
B0:=B0+0.00000000296*COS(2.83205515646+17277.40693183380*x);
B0:=B0+0.00000000311*COS(2.57334132897+20809.46762464520*x);
B0:=B0+0.00000000294*COS(0.75089224483+3149.16416058820*x);
B0:=B0+0.00000000377*COS(3.98143308775+21202.09370374600*x);
B0:=B0+0.00000000272*COS(5.56183082489+16496.36139620240*x);
B0:=B0+0.00000000314*COS(0.02584607093+13745.34623902240*x);
B0:=B0+0.00000000263*COS(0.55328410985+36147.40987730040*x);
B0:=B0+0.00000000286*COS(5.16408902215+426.59819087600*x);
B0:=B0+0.00000000279*COS(4.29871615943+19999.97290154599*x);
B0:=B0+0.00000000280*COS(1.92925047377+49515.38250840700*x);
B0:=B0+0.00000000265*COS(4.81168402147+20235.12282631040*x);
B0:=B0+0.00000000273*COS(5.12740051559+35371.88726597640*x);
B0:=B0+0.00000000306*COS(5.28903794869+382.89653222320*x);
B0:=B0+0.00000000223*COS(2.50591724074+26709.64694241340*x);
B0:=B0+0.00000000235*COS(5.96522395118+10198.03307502600*x);
B0:=B0+0.00000000234*COS(3.52866583267+10228.53801739600*x);
B0:=B0+0.00000000224*COS(6.24561979789+7064.12138562280*x);
B0:=B0+0.00000000251*COS(2.84739274245+33019.02111220460*x);
B0:=B0+0.00000000196*COS(1.50610393790+31749.23519072640*x);
B0:=B0+0.00000000192*COS(1.69321442572+13341.67431130680*x);
B0:=B0+0.00000000180*COS(6.19353087076+39793.76025465480*x);
B0:=B0+0.00000000199*COS(1.16433321880+22805.73556599360*x);
B0:=B0+0.00000000180*COS(3.72646417141+1551.04522264800*x);
B0:=B0+0.00000000173*COS(3.35235705827+53445.59220462660*x);
B0:=B0+0.00000000195*COS(1.51901264131+43232.30665841560*x);
B0:=B0+0.00000000174*COS(2.84049662693+9967.45389998160*x);
B0:=B0+0.00000000163*COS(4.29160537719+36949.23080842420*x);
B0:=B0+0.00000000169*COS(0.37000676558+10459.11719244040*x);
B0:=B0+0.00000000137*COS(5.61149803116+10529.67741586760*x);
B0:=B0+0.00000000139*COS(0.87847805052+16522.65971600220*x);
B0:=B0+0.00000000139*COS(4.12576475427+36301.18868778519*x);
B0:=B0+0.00000000127*COS(5.14447758616+5481.25491886760*x);
B0:=B0+0.00000000131*COS(3.11317801589+9896.89367655440*x);
B0:=B0+0.00000000131*COS(0.89697384735+3442.57494496540*x);
B0:=B0+0.00000000121*COS(1.32802112907+38734.37832446560*x);
B0:=B0+0.00000000122*COS(1.59017183044+10110.19277199240*x);
B0:=B0+0.00000000123*COS(2.33714216061+10316.37832042960*x);
B0:=B0+0.00000000133*COS(2.90682399304+9793.80090233580*x);
B0:=B0+0.00000000111*COS(2.52077634760+13936.79450513400*x);
B0:=B0+0.00000000120*COS(0.36076947165+536.80451209540*x);
B0:=B0+0.00000000115*COS(2.53355582059+26735.94526221320*x);
B0:=B0+0.00000000108*COS(2.65839634325+10232.95530711079*x);
B0:=B0+0.00000000108*COS(0.55230439694+10193.61578531121*x);
B0:=B0+0.00000000138*COS(1.06919239240+65236.22129328540*x);
B0:=B0+0.00000000101*COS(3.17012502017+19317.19254032860*x);
B0:=B0+0.00000000127*COS(5.63110477712+10288.06714477830*x);
B0:=B0+0.00000000127*COS(3.86278127025+10138.50394764370*x);
B0:=B0+0.00000000137*COS(2.93350659460+47162.51635463520*x);
B0:=B0+0.00000000095*COS(5.03917884334+52175.80628314840*x);
B0:=B0+0.00000000094*COS(0.71308489207+38500.27603107220*x);
B0:=B0+0.00000000092*COS(5.46204624886+11764.33076885900*x);
B0:=B0+0.00000000096*COS(1.52914774412+9690.70812811720*x);
B0:=B0+0.00000000101*COS(0.83318284426+6489.77658728800*x);
B0:=B0+0.00000000115*COS(3.76443612245+522.57741809380*x);
B0:=B0+0.00000000089*COS(2.53312656681+10735.86296430480*x);
B0:=B0+0.00000000082*COS(0.85628515615+2379.16447357160*x);
B0:=B0+0.00000000103*COS(5.22683237620+103.09277421860*x);
B0:=B0+0.00000000090*COS(2.12423586627+28313.28880466100*x);
B0:=B0+0.00000000090*COS(0.39668501735+9580.50180689780*x);
B0:=B0+0.00000000074*COS(6.02680095550+3723.50895892300*x);
B0:=B0+0.00000000081*COS(5.25045057985+10419.47109464820*x);
B0:=B0+0.00000000080*COS(4.23724598221+10007.09999777380*x);
B0:=B0+0.00000000091*COS(2.48874147947+10846.06928552420*x);
B0:=B0+0.00000000085*COS(3.82784790321+51868.24866217880*x);
B0:=B0+0.00000000081*COS(2.26235214191+3903.91137641980*x);
B0:=B0+0.00000000097*COS(0.77295091600+18307.80723204360*x);
B0:=B0+0.00000000094*COS(0.17063414792+6872.67311951120*x);
B0:=B0+0.00000000080*COS(5.62254102739+29999.95935231900*x);
B0:=B0+0.00000000068*COS(2.71762936670+16983.99614745660*x);
B0:=B0+0.00000000066*COS(0.76731351736+20.77539549240*x);
B0:=B0+0.00000000075*COS(0.36155638007+39302.09696219600*x);
B0:=B0+0.00000000075*COS(2.27327165974+8521.11987670860*x);
B0:=B0+0.00000000058*COS(2.14482855875+8631.32619792800*x);
B0:=B0+0.00000000064*COS(5.83569051301+2118.76386037840*x);
B0:=B0+0.00000000058*COS(2.98524209824+19889.76658032659*x);
B0:=B0+0.00000000054*COS(1.78260668333+40077.61957352000*x);
B0:=B0+0.00000000055*COS(4.70485939861+639.89728631400*x);
B0:=B0+0.00000000060*COS(5.89661892920+41962.52073693740*x);
B0:=B0+0.00000000066*COS(2.24746237999+74.78159856730*x);
B0:=B0+0.00000000061*COS(3.40726181591+27490.69247804480*x);
B0:=B0+0.00000000051*COS(3.07811180039+24150.08005134500*x);
B0:=B0+0.00000000057*COS(2.30081371235+20529.66386664059*x);
B0:=B0+0.00000000052*COS(2.37192464233+29573.36116144300*x);
B0:=B0+0.00000000052*COS(4.76610409132+57375.80190084620*x);
B0:=B0+0.00000000047*COS(1.61630288856+30831.30490474460*x);
B0:=B0+0.00000000054*COS(5.89684197257+19903.99367432819*x);
B0:=B0+0.00000000040*COS(5.32101847424+42430.48572729180*x);
B0:=B0+0.00000000051*COS(5.29186795569+29587.58825544460*x);

LOCAL B1:=0;
B1:=B1+0.00513347602*COS(1.80364310797+10213.28554621100*x);
B1:=B1+0.00004380100*COS(3.38615711591+20426.57109242200*x);
B1:=B1+0.00000196586*COS(2.53001197486+30639.85663863300*x);
B1:=B1+0.00000199162;
B1:=B1+0.00000014031*COS(2.27087044687+9437.76293488700*x);
B1:=B1+0.00000012958*COS(1.50735622957+18073.70493865020*x);
B1:=B1+0.00000011941*COS(5.60462450426+1577.34354244780*x);
B1:=B1+0.00000010324*COS(5.24224313355+2352.86615377180*x);
B1:=B1+0.00000009294*COS(6.07545631303+22003.91463486980*x);
B1:=B1+0.00000007441*COS(1.50257909439+11790.62908865880*x);
B1:=B1+0.00000008031*COS(0.29371105198+9153.90361602180*x);
B1:=B1+0.00000007514*COS(5.08081885990+10186.98722641120*x);
B1:=B1+0.00000004669*COS(3.87801635015+10239.58386601080*x);
B1:=B1+0.00000004399*COS(3.58872736593+40853.14218484400*x);
B1:=B1+0.00000003975*COS(1.28397121206+10404.73381232260*x);
B1:=B1+0.00000004657*COS(0.75073886819+5507.55323866740*x);
B1:=B1+0.00000003783*COS(4.33004753984+19651.04848109800*x);
B1:=B1+0.00000003390*COS(4.88976070903+10988.80815753500*x);
B1:=B1+0.00000003555*COS(1.25927550356+19896.88012732740*x);
B1:=B1+0.00000003479*COS(5.50797002160+529.69096509460*x);
B1:=B1+0.00000002884*COS(0.08549582037+14143.49524243060*x);
B1:=B1+0.00000001786*COS(0.37134513186+13367.97263110660*x);
B1:=B1+0.00000001600*COS(1.68378002982+20618.01935853360*x);
B1:=B1+0.00000001539*COS(1.21683853657+25934.12433108940*x);
B1:=B1+0.00000001341*COS(2.90077139758+15720.83878487840*x);
B1:=B1+0.00000000993*COS(1.74681248965+11322.66409830440*x);
B1:=B1+0.00000001165*COS(6.13437155401+7860.41939243920*x);
B1:=B1+0.00000001115*COS(0.66743690380+29580.47470844380*x);
B1:=B1+0.00000000923*COS(2.25384969096+10021.83728009940*x);
B1:=B1+0.00000000965*COS(1.36425494833+9683.59458111640*x);
B1:=B1+0.00000000973*COS(0.39071758442+6283.07584999140*x);
B1:=B1+0.00000000805*COS(0.53331923557+8624.21265092720*x);
B1:=B1+0.00000000913*COS(0.76046003719+8635.94200376320*x);
B1:=B1+0.00000000991*COS(0.55319879330+19367.18916223280*x);
B1:=B1+0.00000000609*COS(2.62364470139+23581.25817731760*x);
B1:=B1+0.00000000532*COS(5.10925676528+9786.68735533500*x);
B1:=B1+0.00000000476*COS(6.17672999981+11015.10647733480*x);
B1:=B1+0.00000000472*COS(1.69672629200+17298.18232732620*x);
B1:=B1+0.00000000503*COS(2.65840772485+29864.33402730900*x);
B1:=B1+0.00000000456*COS(5.01205315518+10742.97651130560*x);
B1:=B1+0.00000000478*COS(3.94100005156+775.52261132400*x);
B1:=B1+0.00000000477*COS(3.71554345922+10596.18207843420*x);
B1:=B1+0.00000000347*COS(2.34551062680+9411.46461508720*x);
B1:=B1+0.00000000458*COS(2.31894399069+9999.98645077300*x);
B1:=B1+0.00000000374*COS(3.76878356974+21228.39202354580*x);
B1:=B1+0.00000000440*COS(4.33400244581+15874.61759536320*x);
B1:=B1+0.00000000349*COS(1.31468836511+10234.06094170340*x);
B1:=B1+0.00000000310*COS(5.45422332781+10192.51015071860*x);
B1:=B1+0.00000000346*COS(0.94242286364+1059.38193018920*x);
B1:=B1+0.00000000308*COS(4.90145899142+3930.20969621960*x);
B1:=B1+0.00000000331*COS(4.89498986674+10206.17199921020*x);
B1:=B1+0.00000000269*COS(2.39650266204+801.82093112380*x);
B1:=B1+0.00000000269*COS(0.00589873499+9830.38901398780*x);
B1:=B1+0.00000000261*COS(3.48196147279+7058.59846131540*x);
B1:=B1+0.00000000290*COS(0.10953964861+29050.78374334920*x);
B1:=B1+0.00000000283*COS(6.12133736787+20419.45754542119*x);
B1:=B1+0.00000000232*COS(3.07845850030+12566.15169998280*x);
B1:=B1+0.00000000265*COS(4.02431894973+33794.54372352860*x);
B1:=B1+0.00000000220*COS(2.37315851889+4551.95349705880*x);
B1:=B1+0.00000000247*COS(3.07626728158+28286.99048486120*x);
B1:=B1+0.00000000202*COS(3.56872121409+21535.94964451540*x);
B1:=B1+0.00000000225*COS(5.76888896320+213.29909543800*x);
B1:=B1+0.00000000217*COS(0.88382111135+20213.27199698400*x);
B1:=B1+0.00000000172*COS(6.12653050186+9161.01716302260*x);
B1:=B1+0.00000000195*COS(5.47240855400+37724.75341974820*x);
B1:=B1+0.00000000153*COS(4.07656151671+27511.46787353720*x);
B1:=B1+0.00000000174*COS(1.33676849359+32217.20018108080*x);
B1:=B1+0.00000000157*COS(5.98474214437+26.29831979980*x);
B1:=B1+0.00000000163*COS(5.45519134760+10426.58464164900*x);
B1:=B1+0.00000000129*COS(2.08748660996+3128.38876509580*x);
B1:=B1+0.00000000131*COS(1.51959002513+10218.80847051840*x);
B1:=B1+0.00000000139*COS(4.42330401713+10220.39909321180*x);
B1:=B1+0.00000000126*COS(2.62296638037+22779.43724619380*x);
B1:=B1+0.00000000146*COS(4.69869606856+25158.60171976540*x);
B1:=B1+0.00000000172*COS(6.13435208788+18837.49819713819*x);
B1:=B1+0.00000000157*COS(5.44507403858+4705.73230754360*x);
B1:=B1+0.00000000117*COS(6.18296175153+20400.27277262220*x);
B1:=B1+0.00000000164*COS(3.30849473132+51066.42773105500*x);
B1:=B1+0.00000000113*COS(3.64412860654+7.11354700080*x);
B1:=B1+0.00000000109*COS(5.21220660788+8662.24032356300*x);
B1:=B1+0.00000000133*COS(1.78047296245+191.44826611160*x);
B1:=B1+0.00000000117*COS(0.14681677884+9146.79006902100*x);
B1:=B1+0.00000000116*COS(0.61940521198+41654.96311596780*x);
B1:=B1+0.00000000096*COS(1.49631428731+7084.89678111520*x);
B1:=B1+0.00000000096*COS(1.21744230443+10198.03307502600*x);
B1:=B1+0.00000000082*COS(1.45863866349+10207.76262190360*x);
B1:=B1+0.00000000085*COS(6.04057728058+21202.09370374600*x);
B1:=B1+0.00000000083*COS(0.19985600927+14919.01785375460*x);
B1:=B1+0.00000000077*COS(5.50132310610+5661.33204915220*x);
B1:=B1+0.00000000077*COS(2.00173927326+10228.53801739600*x);
B1:=B1+0.00000000093*COS(1.85466268819+45585.17281218740*x);
B1:=B1+0.00000000066*COS(3.25826124156+1109.37855209340*x);
B1:=B1+0.00000000089*COS(0.64100435648+3154.68708489560*x);
B1:=B1+0.00000000061*COS(3.80043027736+11272.66747640020*x);
B1:=B1+0.00000000077*COS(1.85516358950+3532.06069281140*x);
B1:=B1+0.00000000062*COS(0.81341290651+382.89653222320*x);
B1:=B1+0.00000000072*COS(2.35312965005+9103.90699411760*x);
B1:=B1+0.00000000053*COS(3.21969389511+20452.86941222180*x);
B1:=B1+0.00000000067*COS(1.42090542131+24356.78078864160*x);
B1:=B1+0.00000000056*COS(2.97733070198+30110.16567353840*x);
B1:=B1+0.00000000051*COS(4.22406663447+20809.46762464520*x);
B1:=B1+0.00000000058*COS(6.20761936031+29088.81141598500*x);
B1:=B1+0.00000000061*COS(3.27309494322+49515.38250840700*x);
B1:=B1+0.00000000046*COS(5.49443476235+31441.67756975680*x);
B1:=B1+0.00000000050*COS(4.16651052942+13341.67431130680*x);
B1:=B1+0.00000000047*COS(1.25473247769+33019.02111220460*x);
B1:=B1+0.00000000047*COS(2.03402044389+23958.63178523340*x);
B1:=B1+0.00000000036*COS(5.24409311105+3149.16416058820*x);
B1:=B1+0.00000000038*COS(4.15337829669+18849.22754997420*x);
B1:=B1+0.00000000042*COS(0.43005959574+1589.07289528380*x);
B1:=B1+0.00000000041*COS(1.21289342964+12592.45001978260*x);
B1:=B1+0.00000000038*COS(5.91928287144+28521.09277825460*x);
B1:=B1+0.00000000033*COS(3.98241699279+4732.03062734340*x);
B1:=B1+0.00000000035*COS(2.24417218267+16496.36139620240*x);
B1:=B1+0.00000000040*COS(6.13293942728+26087.90314157420*x);
B1:=B1+0.00000000044*COS(1.78123294860+426.59819087600*x);
B1:=B1+0.00000000041*COS(3.16744909855+39264.06928956020*x);
B1:=B1+0.00000000033*COS(4.96183427323+536.80451209540*x);
B1:=B1+0.00000000034*COS(0.12963030501+30213.25844775700*x);
B1:=B1+0.00000000036*COS(5.41167321573+522.57741809380*x);
B1:=B1+0.00000000027*COS(4.44250239485+17277.40693183380*x);
B1:=B1+0.00000000034*COS(5.94541303751+9929.42622734580*x);
B1:=B1+0.00000000033*COS(0.40689057274+10497.14486507620*x);
B1:=B1+0.00000000023*COS(2.59067946967+10175.25787357520*x);
B1:=B1+0.00000000022*COS(0.69625017371+19999.97290154599*x);
B1:=B1+0.00000000023*COS(3.76162101633+10251.31321884680*x);
B1:=B1+0.00000000023*COS(0.62711494266+35371.88726597640*x);
B1:=B1+0.00000000022*COS(4.64142978776+19889.76658032659*x);
B1:=B1+0.00000000020*COS(4.01315480107+26709.64694241340*x);
B1:=B1+0.00000000020*COS(4.03344400680+29573.36116144300*x);
B1:=B1+0.00000000023*COS(0.90416640595+8094.52168583260*x);
B1:=B1+0.00000000022*COS(1.92092469688+17085.95866572220*x);
B1:=B1+0.00000000019*COS(5.04938942644+6681.22485339960*x);

LOCAL B2:=0;
B2:=B2+0.00022377665*COS(3.38509143877+10213.28554621100*x);
B2:=B2+0.00000281739;
B2:=B2+0.00000173164*COS(5.25563766915+20426.57109242200*x);
B2:=B2+0.00000026945*COS(3.87040891568+30639.85663863300*x);
B2:=B2+0.00000001174*COS(0.09768632072+10186.98722641120*x);
B2:=B2+0.00000000685*COS(3.19139067811+11790.62908865880*x);
B2:=B2+0.00000000788*COS(4.36515965295+10239.58386601080*x);
B2:=B2+0.00000000592*COS(5.22270440328+40853.14218484400*x);
B2:=B2+0.00000000515*COS(6.12821215207+10988.80815753500*x);
B2:=B2+0.00000000538*COS(0.57550272342+2352.86615377180*x);
B2:=B2+0.00000000540*COS(3.11657836329+18073.70493865020*x);
B2:=B2+0.00000000454*COS(2.79306867629+10404.73381232260*x);
B2:=B2+0.00000000374*COS(6.10468482446+9437.76293488700*x);
B2:=B2+0.00000000431*COS(4.00778431184+1577.34354244780*x);
B2:=B2+0.00000000360*COS(6.01747842320+19651.04848109800*x);
B2:=B2+0.00000000375*COS(1.31319959789+22003.91463486980*x);
B2:=B2+0.00000000354*COS(5.12509281266+9153.90361602180*x);
B2:=B2+0.00000000150*COS(4.58623687118+15720.83878487840*x);
B2:=B2+0.00000000164*COS(5.41790158607+5507.55323866740*x);
B2:=B2+0.00000000159*COS(2.78191550878+19896.88012732740*x);
B2:=B2+0.00000000157*COS(0.65774905071+529.69096509460*x);
B2:=B2+0.00000000155*COS(2.54824315372+9683.59458111640*x);
B2:=B2+0.00000000109*COS(2.01866665583+14143.49524243060*x);
B2:=B2+0.00000000106*COS(2.28289033017+6283.07584999140*x);
B2:=B2+0.00000000115*COS(3.23636374193+20618.01935853360*x);
B2:=B2+0.00000000128*COS(5.32400510939+13367.97263110660*x);
B2:=B2+0.00000000087*COS(3.28265082435+11322.66409830440*x);
B2:=B2+0.00000000090*COS(5.23585072275+10596.18207843420*x);
B2:=B2+0.00000000055*COS(4.82369879741+7058.59846131540*x);
B2:=B2+0.00000000044*COS(0.58444963462+10206.17199921020*x);
B2:=B2+0.00000000044*COS(2.34401612969+19367.18916223280*x);
B2:=B2+0.00000000038*COS(4.55053233088+9999.98645077300*x);
B2:=B2+0.00000000039*COS(5.84340580032+10220.39909321180*x);
B2:=B2+0.00000000036*COS(4.41006216127+51066.42773105500*x);
B2:=B2+0.00000000039*COS(3.14348236386+9411.46461508720*x);
B2:=B2+0.00000000033*COS(4.55748660340+10742.97651130560*x);
B2:=B2+0.00000000037*COS(2.79630938717+25934.12433108940*x);
B2:=B2+0.00000000034*COS(0.55287110072+11015.10647733480*x);
B2:=B2+0.00000000034*COS(2.25809144959+29580.47470844380*x);
B2:=B2+0.00000000038*COS(1.88638747393+801.82093112380*x);
B2:=B2+0.00000000034*COS(1.22706917271+10021.83728009940*x);
B2:=B2+0.00000000027*COS(4.83867137637+9830.38901398780*x);
B2:=B2+0.00000000027*COS(4.31140179350+23581.25817731760*x);
B2:=B2+0.00000000027*COS(2.17187621336+8635.94200376320*x);
B2:=B2+0.00000000020*COS(5.66581696952+21228.39202354580*x);
B2:=B2+0.00000000024*COS(2.17208107850+18849.22754997420*x);
B2:=B2+0.00000000020*COS(5.29318634138+775.52261132400*x);
B2:=B2+0.00000000019*COS(2.73486845601+3128.38876509580*x);
B2:=B2+0.00000000013*COS(3.40362915274+1059.38193018920*x);
B2:=B2+0.00000000014*COS(0.05074160195+7860.41939243920*x);
B2:=B2+0.00000000014*COS(5.43035907265+26.29831979980*x);
B2:=B2+0.00000000012*COS(3.24834347355+9103.90699411760*x);
B2:=B2+0.00000000013*COS(5.04826725887+7.11354700080*x);
B2:=B2+0.00000000015*COS(1.42027402522+29050.78374334920*x);
B2:=B2+0.00000000010*COS(4.98138067490+10426.58464164900*x);
B2:=B2+0.00000000011*COS(0.85773045784+17298.18232732620*x);
B2:=B2+0.00000000011*COS(4.23048200054+29864.33402730900*x);
B2:=B2+0.00000000010*COS(0.26447399758+3930.20969621960*x);
B2:=B2+0.00000000011*COS(1.46728576671+20419.45754542119*x);

LOCAL B3:=0;
B3:=B3+0.00000646671*COS(4.99166565277+10213.28554621100*x);
B3:=B3-0.00000019952;
B3:=B3+0.00000005540*COS(0.77376923951+20426.57109242200*x);
B3:=B3+0.00000002526*COS(5.44493763020+30639.85663863300*x);
B3:=B3+0.00000000079*COS(1.51447613604+10186.98722641120*x);
B3:=B3+0.00000000056*COS(0.63647808442+40853.14218484400*x);
B3:=B3+0.00000000058*COS(5.70731176550+10239.58386601080*x);
B3:=B3+0.00000000031*COS(4.72523061067+11790.62908865880*x);
B3:=B3+0.00000000026*COS(1.02068113372+10988.80815753500*x);
B3:=B3+0.00000000025*COS(5.60599130442+9437.76293488700*x);
B3:=B3+0.00000000017*COS(2.05293621864+2352.86615377180*x);
B3:=B3+0.00000000011*COS(4.33056892256+10404.73381232260*x);
B3:=B3+0.00000000009*COS(1.36283915068+19651.04848109800*x);
B3:=B3+0.00000000007*COS(4.69592781899+18073.70493865020*x);
B3:=B3+0.00000000006*COS(2.97926526705+22003.91463486980*x);

LOCAL B4:=0;
B4:=B4+0.00000014102*COS(0.31537190181+10213.28554621100*x);
B4:=B4+0.00000000190*COS(2.35466404492+20426.57109242200*x);
B4:=B4+0.00000000164*COS(0.74476215141+30639.85663863300*x);
B4:=B4-0.00000000214;
B4:=B4+0.00000000004*COS(2.34190883009+40853.14218484400*x);

LOCAL B5:=0;
B5:=B5+0.00000000239*COS(2.05201727566+10213.28554621100*x);
B5:=B5+0.00000000039;
B5:=B5+0.00000000011*COS(3.82500275251+20426.57109242200*x);
B5:=B5+0.00000000009*COS(2.32953116868+30639.85663863300*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 Venus-Sun [AU]
EXPORT Rvenus(x)
BEGIN
LOCAL R0:=0;
R0:=R0+0.72334820905;
R0:=R0+0.00489824185*COS(4.02151832268+10213.28554621100*x);
R0:=R0+0.00001658058*COS(4.90206728012+20426.57109242200*x);
R0:=R0+0.00001632093*COS(2.84548851892+7860.41939243920*x);
R0:=R0+0.00001378048*COS(1.12846590600+11790.62908865880*x);
R0:=R0+0.00000498399*COS(2.58682187717+9683.59458111640*x);
R0:=R0+0.00000373958*COS(1.42314837063+3930.20969621960*x);
R0:=R0+0.00000263616*COS(5.52938185920+9437.76293488700*x);
R0:=R0+0.00000237455*COS(2.55135903978+15720.83878487840*x);
R0:=R0+0.00000221983*COS(2.01346776772+19367.18916223280*x);
R0:=R0+0.00000119467*COS(3.01975365264+10404.73381232260*x);
R0:=R0+0.00000125896*COS(2.72769833559+1577.34354244780*x);
R0:=R0+0.00000076178*COS(1.59577224486+9153.90361602180*x);
R0:=R0+0.00000085336*COS(3.98607953754+19651.04848109800*x);
R0:=R0+0.00000074347*COS(4.11957854039+5507.55323866740*x);
R0:=R0+0.00000041904*COS(1.64273363458+18837.49819713819*x);
R0:=R0+0.00000042493*COS(3.81864530735+13367.97263110660*x);
R0:=R0+0.00000039430*COS(5.39019422358+23581.25817731760*x);
R0:=R0+0.00000029042*COS(5.67739528728+5661.33204915220*x);
R0:=R0+0.00000027555*COS(5.72392407794+775.52261132400*x);
R0:=R0+0.00000027283*COS(4.82151812709+11015.10647733480*x);
R0:=R0+0.00000031274*COS(2.31806719544+9999.98645077300*x);
R0:=R0+0.00000019700*COS(4.96157560245+11322.66409830440*x);
R0:=R0+0.00000019809*COS(0.53189326492+27511.46787353720*x);
R0:=R0+0.00000013567*COS(3.75530870628+18073.70493865020*x);
R0:=R0+0.00000012921*COS(1.13381083556+10206.17199921020*x);
R0:=R0+0.00000016215*COS(0.56453834290+529.69096509460*x);
R0:=R0+0.00000011821*COS(5.09025877427+3154.68708489560*x);
R0:=R0+0.00000011728*COS(0.23432298744+7084.89678111520*x);
R0:=R0+0.00000013079*COS(5.24353197586+17298.18232732620*x);
R0:=R0+0.00000013180*COS(3.37207825651+13745.34623902240*x);
R0:=R0+0.00000009097*COS(3.07004895769+1109.37855209340*x);
R0:=R0+0.00000010818*COS(2.45024712908+10239.58386601080*x);
R0:=R0+0.00000011438*COS(4.56838894696+29050.78374334920*x);
R0:=R0+0.00000008377*COS(5.78327612352+30639.85663863300*x);
R0:=R0+0.00000008193*COS(1.95023111860+22003.91463486980*x);
R0:=R0+0.00000009308*COS(1.61615909286+2352.86615377180*x);
R0:=R0+0.00000010652*COS(1.95528396140+31441.67756975680*x);
R0:=R0+0.00000010357*COS(1.20234990061+15874.61759536320*x);
R0:=R0+0.00000009585*COS(1.46639856228+19999.97290154599*x);
R0:=R0+0.00000006506*COS(2.17390732263+14143.49524243060*x);
R0:=R0+0.00000007562*COS(1.13789564977+8624.21265092720*x);
R0:=R0+0.00000006434*COS(0.84419623033+6283.07584999140*x);
R0:=R0+0.00000005898*COS(0.01093731110+8635.94200376320*x);
R0:=R0+0.00000005632*COS(3.94956548631+12566.15169998280*x);
R0:=R0+0.00000005523*COS(1.27394296557+18307.80723204360*x);
R0:=R0+0.00000004488*COS(2.47835729057+191.44826611160*x);
R0:=R0+0.00000004529*COS(4.73027770400+19896.88012732740*x);
R0:=R0+0.00000006193*COS(3.25881250939+6872.67311951120*x);
R0:=R0+0.00000006070*COS(0.35337419942+21228.39202354580*x);
R0:=R0+0.00000004315*COS(2.59737099519+4551.95349705880*x);
R0:=R0+0.00000006005*COS(3.37874723475+35371.88726597640*x);
R0:=R0+0.00000003852*COS(1.01162850357+9786.68735533500*x);
R0:=R0+0.00000004033*COS(0.00050855580+801.82093112380*x);
R0:=R0+0.00000003920*COS(5.56542869407+10596.18207843420*x);
R0:=R0+0.00000002709*COS(5.80195530112+7064.12138562280*x);
R0:=R0+0.00000003216*COS(0.39767254848+10186.98722641120*x);
R0:=R0+0.00000003089*COS(6.26174762876+14945.31617355440*x);
R0:=R0+0.00000002982*COS(4.21196716354+28521.09277825460*x);
R0:=R0+0.00000003284*COS(0.70709821006+10742.97651130560*x);
R0:=R0+0.00000003484*COS(4.79878191875+39302.09696219600*x);
R0:=R0+0.00000003172*COS(1.80518954174+25158.60171976540*x);
R0:=R0+0.00000002463*COS(0.68708153678+10988.80815753500*x);
R0:=R0+0.00000002374*COS(3.77948685343+21535.94964451540*x);
R0:=R0+0.00000002198*COS(2.82996372521+8662.24032356300*x);
R0:=R0+0.00000001958*COS(5.41763804167+16496.36139620240*x);
R0:=R0+0.00000001876*COS(2.63426768393+29580.47470844380*x);
R0:=R0+0.00000001902*COS(2.85782199133+3532.06069281140*x);
R0:=R0+0.00000001706*COS(3.67573010379+26.29831979980*x);
R0:=R0+0.00000001817*COS(0.41611036449+4705.73230754360*x);
R0:=R0+0.00000001858*COS(1.50368318296+10021.83728009940*x);
R0:=R0+0.00000002087*COS(6.22112874639+43232.30665841560*x);
R0:=R0+0.00000001950*COS(2.21447019683+19786.67380610799*x);
R0:=R0+0.00000001497*COS(0.00134773824+17277.40693183380*x);
R0:=R0+0.00000001819*COS(3.23144993268+29088.81141598500*x);
R0:=R0+0.00000001423*COS(5.85979618707+9676.48103411560*x);
R0:=R0+0.00000001223*COS(5.55818994329+6770.71060124560*x);
R0:=R0+0.00000001140*COS(5.92088900094+13936.79450513400*x);
R0:=R0+0.00000001484*COS(2.47665429253+31749.23519072640*x);
R0:=R0+0.00000001185*COS(1.42087628351+4732.03062734340*x);
R0:=R0+0.00000001323*COS(2.48821075422+9690.70812811720*x);
R0:=R0+0.00000001249*COS(1.88323673734+19374.30270923360*x);
R0:=R0+0.00000001270*COS(5.24647873116+19360.07561523199*x);
R0:=R0+0.00000001402*COS(5.17536780118+10316.37832042960*x);
R0:=R0+0.00000001042*COS(3.05454698508+25934.12433108940*x);
R0:=R0+0.00000001174*COS(1.42913732999+18875.52586977400*x);
R0:=R0+0.00000001278*COS(1.35747287297+47162.51635463520*x);
R0:=R0+0.00000000917*COS(6.26337648765+20618.01935853360*x);
R0:=R0+0.00000000905*COS(1.12740203561+12592.45001978260*x);
R0:=R0+0.00000001093*COS(4.64451720605+33019.02111220460*x);
R0:=R0+0.00000001014*COS(1.09259406433+1059.38193018920*x);
R0:=R0+0.00000000783*COS(2.02118183873+24356.78078864160*x);
R0:=R0+0.00000000779*COS(0.41585274010+3340.61242669980*x);
R0:=R0+0.00000000700*COS(1.14936815714+16983.99614745660*x);
R0:=R0+0.00000000878*COS(0.87852464964+38734.37832446560*x);
R0:=R0+0.00000000623*COS(0.89976912165+17778.11626694899*x);
R0:=R0+0.00000000608*COS(1.58476225197+9573.38825989700*x);
R0:=R0+0.00000000800*COS(3.94213003073+10138.50394764370*x);
R0:=R0+0.00000000760*COS(1.31851313748+9967.45389998160*x);
R0:=R0+0.00000000802*COS(2.78173370208+51092.72605085480*x);
R0:=R0+0.00000000664*COS(4.45864682400+3128.38876509580*x);
R0:=R0+0.00000000674*COS(5.11214939998+382.89653222320*x);
R0:=R0+0.00000000530*COS(0.85392938403+10234.06094170340*x);
R0:=R0+0.00000000509*COS(3.56809374595+28286.99048486120*x);
R0:=R0+0.00000000600*COS(4.25927726907+41962.52073693740*x);
R0:=R0+0.00000000601*COS(5.78144137895+213.29909543800*x);
R0:=R0+0.00000000595*COS(2.83045104588+22805.73556599360*x);
R0:=R0+0.00000000673*COS(6.06079908421+36949.23080842420*x);
R0:=R0+0.00000000535*COS(5.85422519711+9103.90699411760*x);
R0:=R0+0.00000000544*COS(5.44806074800+3723.50895892300*x);
R0:=R0+0.00000000492*COS(3.83802404893+27991.40181316000*x);
R0:=R0+0.00000000635*COS(0.76494024849+8094.52168583260*x);
R0:=R0+0.00000000434*COS(6.22214487735+27197.28169366760*x);
R0:=R0+0.00000000459*COS(3.55062885479+20213.27199698400*x);
R0:=R0+0.00000000398*COS(6.16269975784+10426.58464164900*x);
R0:=R0+0.00000000378*COS(2.41665947591+18844.61174413899*x);
R0:=R0+0.00000000421*COS(4.86552697954+9146.79006902100*x);
R0:=R0+0.00000000500*COS(4.20351458644+55022.93574707440*x);
R0:=R0+0.00000000404*COS(4.95834410782+37410.56723987860*x);
R0:=R0+0.00000000402*COS(2.97963246945+10220.39909321180*x);
R0:=R0+0.00000000464*COS(2.59869499733+18734.40542291960*x);
R0:=R0+0.00000000352*COS(0.08963076359+10103.07922499160*x);
R0:=R0+0.00000000348*COS(4.90260339364+18830.38465013739*x);
R0:=R0+0.00000000338*COS(3.22520096478+24150.08005134500*x);
R0:=R0+0.00000000375*COS(6.17532088136+26087.90314157420*x);
R0:=R0+0.00000000425*COS(1.20052578280+40879.44050464380*x);
R0:=R0+0.00000000408*COS(3.12833060705+9050.81084180320*x);
R0:=R0+0.00000000385*COS(1.94284690176+283.85931886520*x);
R0:=R0+0.00000000337*COS(4.87838699272+12432.04265039780*x);
R0:=R0+0.00000000326*COS(4.27369741426+26735.94526221320*x);
R0:=R0+0.00000000309*COS(0.50597475053+38204.68735937100*x);
R0:=R0+0.00000000329*COS(3.88430599153+29864.33402730900*x);
R0:=R0+0.00000000313*COS(1.36138752543+10192.51015071860*x);
R0:=R0+0.00000000347*COS(3.58439807209+27490.69247804480*x);
R0:=R0+0.00000000251*COS(3.78618457047+10063.72234907640*x);
R0:=R0+0.00000000244*COS(3.83523342668+9411.46461508720*x);
R0:=R0+0.00000000281*COS(4.50895206233+32217.20018108080*x);
R0:=R0+0.00000000237*COS(0.87748812245+6681.22485339960*x);
R0:=R0+0.00000000315*COS(5.62657778233+58953.14544329400*x);
R0:=R0+0.00000000311*COS(4.15626121491+10175.15251057320*x);
R0:=R0+0.00000000247*COS(2.53637594113+16522.65971600220*x);
R0:=R0+0.00000000219*COS(5.08729383251+7058.59846131540*x);
R0:=R0+0.00000000291*COS(3.72567217056+29999.95935231900*x);
R0:=R0+0.00000000267*COS(2.97685503991+19573.37471066999*x);
R0:=R0+0.00000000280*COS(3.70200084294+47623.85278608960*x);
R0:=R0+0.00000000239*COS(3.94545782067+9580.50180689780*x);
R0:=R0+0.00000000246*COS(2.18244883930+9161.01716302260*x);
R0:=R0+0.00000000253*COS(2.69506547016+3442.57494496540*x);
R0:=R0+0.00000000265*COS(2.62811801237+44809.65020086340*x);
R0:=R0+0.00000000194*COS(4.78926136175+33794.54372352860*x);
R0:=R0+0.00000000187*COS(3.65620881095+20452.86941222180*x);
R0:=R0+0.00000000224*COS(2.43601863127+9992.87290377220*x);
R0:=R0+0.00000000193*COS(2.55112161845+2379.16447357160*x);
R0:=R0+0.00000000201*COS(1.90356905733+1551.04522264800*x);
R0:=R0+0.00000000176*COS(4.29837616553+10137.01947493540*x);
R0:=R0+0.00000000184*COS(6.16061560223+36147.40987730040*x);
R0:=R0+0.00000000175*COS(2.71984797040+20809.46762464520*x);
R0:=R0+0.00000000186*COS(2.55098927966+14919.01785375460*x);
R0:=R0+0.00000000161*COS(4.13272567123+23958.63178523340*x);
R0:=R0+0.00000000221*COS(4.83552377614+20277.00789528740*x);
R0:=R0+0.00000000160*COS(1.81472642729+10787.63034454580*x);
R0:=R0+0.00000000199*COS(5.74259798330+30666.15495843280*x);
R0:=R0+0.00000000160*COS(4.46270605493+18947.70451835760*x);
R0:=R0+0.00000000187*COS(2.98688597588+2218.75710418680*x);
R0:=R0+0.00000000189*COS(5.34607810282+10007.09999777380*x);
R0:=R0+0.00000000198*COS(0.77846666692+62883.35513951360*x);
R0:=R0+0.00000000144*COS(5.00261963924+9264.10993724120*x);
R0:=R0+0.00000000171*COS(2.05212624568+7255.56965173440*x);
R0:=R0+0.00000000188*COS(4.08173534559+48739.85989708300*x);
R0:=R0+0.00000000146*COS(3.94191715702+6309.37416979120*x);
R0:=R0+0.00000000146*COS(5.06313558118+39264.06928956020*x);
R0:=R0+0.00000000135*COS(5.93689169614+37724.75341974820*x);
R0:=R0+0.00000000139*COS(2.81266025896+20.77539549240*x);
R0:=R0+0.00000000177*COS(5.16224804657+9835.91193829520*x);
R0:=R0+0.00000000119*COS(1.37254262864+40077.61957352000*x);
R0:=R0+0.00000000120*COS(0.21443767468+31022.75317085620*x);
R0:=R0+0.00000000128*COS(2.92458887798+7.11354700080*x);
R0:=R0+0.00000000150*COS(5.73646272556+632.78373931320*x);
R0:=R0+0.00000000106*COS(0.62224833817+11272.66747640020*x);
R0:=R0+0.00000000114*COS(2.63301326520+17468.85519794540*x);
R0:=R0+0.00000000123*COS(6.22518843711+53285.18483524180*x);
R0:=R0+0.00000000107*COS(1.17258978900+43071.89928903080*x);
R0:=R0+0.00000000103*COS(1.09613781581+41654.96311596780*x);
R0:=R0+0.00000000109*COS(2.01412667085+20419.45754542119*x);
R0:=R0+0.00000000102*COS(4.23406964348+10251.31321884680*x);
R0:=R0+0.00000000116*COS(1.27731728606+10199.05845220940*x);
R0:=R0+0.00000000103*COS(5.25887538465+9830.38901398780*x);
R0:=R0+0.00000000112*COS(2.24436894064+18204.71445782499*x);
R0:=R0+0.00000000111*COS(2.23547857955+8521.11987670860*x);
R0:=R0+0.00000000118*COS(0.23754207200+10497.14486507620*x);
R0:=R0+0.00000000123*COS(0.88054816668+34596.36465465240*x);
R0:=R0+0.00000000102*COS(4.39438646620+18300.69368504279*x);
R0:=R0+0.00000000131*COS(6.01711652115+9367.20271145980*x);
R0:=R0+0.00000000100*COS(5.00532389609+10175.25787357520*x);
R0:=R0+0.00000000107*COS(0.41270197502+40853.14218484400*x);
R0:=R0+0.00000000132*COS(5.45008342761+11506.76976979360*x);
R0:=R0+0.00000000098*COS(1.07722950958+13553.89797291080*x);
R0:=R0+0.00000000094*COS(2.91720097590+44007.82926973960*x);
R0:=R0+0.00000000097*COS(1.04004223634+68050.42387851159*x);
R0:=R0+0.00000000127*COS(2.20215372683+66813.56483573320*x);
R0:=R0+0.00000000111*COS(1.57823839032+29043.67019634839*x);
R0:=R0+0.00000000118*COS(2.33268176890+18314.92077904440*x);
R0:=R0+0.00000000090*COS(2.42353056125+32858.61374281979*x);
R0:=R0+0.00000000109*COS(3.82796787296+19470.28193645139*x);
R0:=R0+0.00000000111*COS(4.47666957576+29057.89729034999*x);
R0:=R0+0.00000000101*COS(3.41528493660+19264.09638801420*x);
R0:=R0+0.00000000092*COS(3.66289799512+22645.32819660879*x);
R0:=R0+0.00000000094*COS(6.07530805791+10846.06928552420*x);
R0:=R0+0.00000000114*COS(4.02718653431+7576.56007357400*x);
R0:=R0+0.00000000087*COS(6.01842459303+17085.95866572220*x);
R0:=R0+0.00000000109*COS(5.46886607309+52670.06959330260*x);
R0:=R0+0.00000000107*COS(0.54805946713+34363.36559755600*x);
R0:=R0+0.00000000108*COS(5.44460610707+19050.79729257620*x);
R0:=R0+0.00000000076*COS(6.15177368654+27682.14074415640*x);
R0:=R0+0.00000000107*COS(4.80525404063+8144.27871130440*x);
R0:=R0+0.00000000073*COS(1.60549217847+20956.26205751660*x);
R0:=R0+0.00000000097*COS(5.13542051130+22779.43724619380*x);
R0:=R0+0.00000000068*COS(2.31300447144+8631.32619792800*x);
R0:=R0+0.00000000091*COS(4.28652743953+10110.19277199240*x);
R0:=R0+0.00000000093*COS(5.27290609264+522.57741809380*x);
R0:=R0+0.00000000071*COS(3.65565961690+11764.33076885900*x);
R0:=R0+0.00000000089*COS(1.79712963206+45585.17281218740*x);
R0:=R0+0.00000000067*COS(2.25900071584+9360.08916445900*x);
R0:=R0+0.00000000085*COS(0.67062144972+56600.27928952220*x);
R0:=R0+0.00000000080*COS(1.58278081077+19992.85935454519*x);
R0:=R0+0.00000000065*COS(6.23472325597+10419.47109464820*x);
R0:=R0+0.00000000064*COS(0.53356325917+17248.42530185440*x);
R0:=R0+0.00000000085*COS(4.52011215904+29786.66025688100*x);
R0:=R0+0.00000000068*COS(4.48235266554+10632.77019008620*x);
R0:=R0+0.00000000064*COS(4.33495700921+47938.03896595920*x);
R0:=R0+0.00000000071*COS(3.03858484137+11787.10597030980*x);
R0:=R0+0.00000000087*COS(4.81823063172+2107.03450754240*x);
R0:=R0+0.00000000070*COS(2.35648061034+11794.15220700780*x);
R0:=R0+0.00000000080*COS(2.33248094128+38526.57435087200*x);
R0:=R0+0.00000000070*COS(3.70454061100+8734.41897214660*x);
R0:=R0+0.00000000077*COS(4.49569185467+20007.08644854680*x);
R0:=R0+0.00000000072*COS(1.19410424468+10217.21769947410*x);
R0:=R0+0.00000000068*COS(2.01841060183+14128.24277124560*x);
R0:=R0+0.00000000064*COS(5.39293951654+7880.08915333899*x);
R0:=R0+0.00000000066*COS(3.20467071127+14765.23904326980*x);
R0:=R0+0.00000000080*COS(3.41620457770+48417.97290558199*x);
R0:=R0+0.00000000080*COS(3.39651161571+245.83164622940*x);
R0:=R0+0.00000000066*COS(5.85414440204+9793.80090233580*x);
R0:=R0+0.00000000082*COS(3.62592908644+70743.77453195279*x);
R0:=R0+0.00000000058*COS(4.95174942212+30110.16567353840*x);
R0:=R0+0.00000000079*COS(6.24161471033+6037.24420376200*x);
R0:=R0+0.00000000069*COS(5.50183658445+19793.78735310880*x);
R0:=R0+0.00000000056*COS(1.24148350566+10207.76262190360*x);
R0:=R0+0.00000000070*COS(2.45123308846+10218.80847051840*x);
R0:=R0+0.00000000064*COS(5.53983104501+10735.86296430480*x);
R0:=R0+0.00000000054*COS(3.62259713240+27461.71084806540*x);
R0:=R0+0.00000000073*COS(1.75882480924+1589.07289528380*x);
R0:=R0+0.00000000075*COS(3.38244819846+4214.06901508480*x);
R0:=R0+0.00000000054*COS(0.64971567468+9929.42622734580*x);
R0:=R0+0.00000000054*COS(3.40959637230+18418.01355326299*x);
R0:=R0+0.00000000056*COS(3.65815006538+14169.79356223040*x);
R0:=R0+0.00000000056*COS(0.71243223808+9896.89367655440*x);
R0:=R0+0.00000000052*COS(1.33348131940+20400.27277262220*x);
R0:=R0+0.00000000067*COS(3.12806595400+5481.25491886760*x);
R0:=R0+0.00000000058*COS(0.54482893546+28313.28880466100*x);
R0:=R0+0.00000000054*COS(0.15603935681+19580.48825767080*x);
R0:=R0+0.00000000051*COS(3.37515473510+9256.99639024040*x);
R0:=R0+0.00000000063*COS(3.38848970950+49515.38250840700*x);
R0:=R0+0.00000000069*COS(4.90917651401+63498.47038145279*x);
R0:=R0+0.00000000057*COS(5.07437742030+18521.10632748160*x);
R0:=R0+0.00000000050*COS(1.59156823654+18631.31264870099*x);
R0:=R0+0.00000000054*COS(6.25816208666+37674.99639427640*x);
R0:=R0+0.00000000057*COS(5.48065460919+24383.07910844140*x);
R0:=R0+0.00000000045*COS(1.10466490660+10408.25693067160*x);
R0:=R0+0.00000000051*COS(3.61196470313+426.59819087600*x);
R0:=R0+0.00000000057*COS(2.09567711267+60530.48898574180*x);
R0:=R0+0.00000000060*COS(5.94659889997+13897.66359620120*x);
R0:=R0+0.00000000051*COS(5.47238517720+57837.13833230060*x);
R0:=R0+0.00000000051*COS(2.32438478428+19779.56025910719*x);
R0:=R0+0.00000000052*COS(3.23766328818+18940.59097135679*x);
R0:=R0+0.00000000043*COS(5.74921510909+51868.24866217880*x);
R0:=R0+0.00000000048*COS(1.12206254877+9779.57380833420*x);
R0:=R0+0.00000000058*COS(3.08646083897+12074.48840752400*x);
R0:=R0+0.00000000046*COS(4.07536026888+7863.94251078820*x);
R0:=R0+0.00000000045*COS(4.75746520642+7856.89627409019*x);
R0:=R0+0.00000000054*COS(4.43528236634+8617.09910392640*x);
R0:=R0+0.00000000050*COS(3.70569982975+42456.78404709160*x);
R0:=R0+0.00000000044*COS(1.29248911155+69166.43098950500*x);
R0:=R0+0.00000000046*COS(0.41229872114+7564.83072073800*x);
R0:=R0+0.00000000044*COS(6.17937388307+13341.67431130680*x);
R0:=R0+0.00000000053*COS(4.71388531889+53445.59220462660*x);
R0:=R0+0.00000000041*COS(3.48003037828+37895.42629036740*x);
R0:=R0+0.00000000040*COS(1.23305546260+10228.53801739600*x);
R0:=R0+0.00000000053*COS(5.04979874661+74673.98422817240*x);
R0:=R0+0.00000000039*COS(1.36646013032+21202.09370374600*x);
R0:=R0+0.00000000039*COS(2.15376025201+8947.71806758460*x);
R0:=R0+0.00000000041*COS(6.17532984460+65236.22129328540*x);
R0:=R0+0.00000000052*COS(1.29052331493+90394.82301305079*x);
R0:=R0+0.00000000039*COS(0.70253732683+18093.37469954999*x);
R0:=R0+0.00000000052*COS(1.18164377451+10211.80107350270*x);
R0:=R0+0.00000000047*COS(1.78672260794+10401.21069397360*x);
R0:=R0+0.00000000040*COS(3.66961416802+10198.03307502600*x);
R0:=R0+0.00000000051*COS(2.71698589018+94325.03270927040*x);
R0:=R0+0.00000000036*COS(1.25091711620+10323.49186743040*x);
R0:=R0+0.00000000049*COS(1.21335959420+9721.62225375220*x);
R0:=R0+0.00000000042*COS(6.05968230173+105460.99111839019*x);
R0:=R0+0.00000000046*COS(5.06978748275+20350.30502114640*x);
R0:=R0+0.00000000040*COS(1.97645050921+32243.49850088060*x);
R0:=R0+0.00000000036*COS(4.96702216961+36301.18868778519*x);
R0:=R0+0.00000000037*COS(5.29642935562+38.02767263580*x);
R0:=R0+0.00000000039*COS(0.52064327313+26709.64694241340*x);
R0:=R0+0.00000000035*COS(2.34112124655+58946.51688439399*x);
R0:=R0+0.00000000034*COS(1.82989750626+17675.02349273040*x);
R0:=R0+0.00000000034*COS(0.76493664110+55798.45835839840*x);
R0:=R0+0.00000000035*COS(1.09353675147+69159.80243060499*x);
R0:=R0+0.00000000031*COS(5.59148330297+10639.88373708700*x);
R0:=R0+0.00000000032*COS(3.32960781870+71519.29714327680*x);
R0:=R0+0.00000000031*COS(5.98191446392+24341.52831745660*x);
R0:=R0+0.00000000031*COS(0.68615213145+10202.23984594710*x);
R0:=R0+0.00000000030*COS(4.42039942947+10459.11719244040*x);
R0:=R0+0.00000000029*COS(1.30367701539+20103.06567576459*x);
R0:=R0+0.00000000031*COS(4.51793347997+2957.71589447660*x);
R0:=R0+0.00000000035*COS(4.05634321290+19903.99367432819*x);
R0:=R0+0.00000000030*COS(1.32113757427+574.34479833480*x);
R0:=R0+0.00000000029*COS(3.36506645849+10288.06714477830*x);
R0:=R0+0.00000000029*COS(1.40019042576+9988.94075050910*x);
R0:=R0+0.00000000032*COS(0.21932095318+24978.52458948080*x);
R0:=R0+0.00000000034*COS(5.22945947227+8673.96967639900*x);
R0:=R0+0.00000000039*COS(4.50883171158+16004.69810374360*x);
R0:=R0+0.00000000028*COS(2.32945945641+11392.48008525060*x);
R0:=R0+0.00000000034*COS(3.92498967835+536.80451209540*x);
R0:=R0+0.00000000032*COS(5.46972716255+64607.84893354619*x);
R0:=R0+0.00000000028*COS(2.38858990128+20235.12282631040*x);
R0:=R0+0.00000000030*COS(3.34585843979+39793.76025465480*x);
R0:=R0+0.00000000026*COS(5.36096904409+1478.86657406440*x);

LOCAL R1:=0;
R1:=R1+0.00034551039*COS(0.89198710598+10213.28554621100*x);
R1:=R1+0.00000234203*COS(1.77224942714+20426.57109242200*x);
R1:=R1-0.00000233998;
R1:=R1+0.00000023864*COS(1.11274502648+9437.76293488700*x);
R1:=R1+0.00000010568*COS(4.59168210921+1577.34354244780*x);
R1:=R1+0.00000009124*COS(4.53540907003+10404.73381232260*x);
R1:=R1+0.00000006599*COS(5.97703999838+5507.55323866740*x);
R1:=R1+0.00000004667*COS(3.87683960551+9153.90361602180*x);
R1:=R1+0.00000003840*COS(5.66196924375+13367.97263110660*x);
R1:=R1+0.00000002666*COS(2.82413291285+10206.17199921020*x);
R1:=R1+0.00000002194*COS(2.05314419626+775.52261132400*x);
R1:=R1+0.00000002094*COS(2.55137285015+18837.49819713819*x);
R1:=R1+0.00000001782*COS(2.64808558644+30639.85663863300*x);
R1:=R1+0.00000001845*COS(1.87612936641+11015.10647733480*x);
R1:=R1+0.00000001303*COS(0.20613045603+11322.66409830440*x);
R1:=R1+0.00000001169*COS(0.79431893441+17298.18232732620*x);
R1:=R1+0.00000001001*COS(6.16555101536+10239.58386601080*x);
R1:=R1+0.00000000915*COS(4.59854496966+1109.37855209340*x);
R1:=R1+0.00000000884*COS(0.66706834422+18073.70493865020*x);
R1:=R1+0.00000000849*COS(5.58641571940+12566.15169998280*x);
R1:=R1+0.00000001071*COS(4.94792017474+6283.07584999140*x);
R1:=R1+0.00000000887*COS(2.47785193216+3154.68708489560*x);
R1:=R1+0.00000000904*COS(0.81413053841+10596.18207843420*x);
R1:=R1+0.00000000818*COS(0.90016838097+5661.33204915220*x);
R1:=R1+0.00000000845*COS(5.48504338112+529.69096509460*x);
R1:=R1+0.00000000824*COS(3.74837629121+7084.89678111520*x);
R1:=R1+0.00000000652*COS(5.07444932607+22003.91463486980*x);
R1:=R1+0.00000000847*COS(0.44119876869+8635.94200376320*x);
R1:=R1+0.00000000638*COS(4.10125791268+191.44826611160*x);
R1:=R1+0.00000000615*COS(3.14417599741+10186.98722641120*x);
R1:=R1+0.00000000527*COS(5.86792949279+2352.86615377180*x);
R1:=R1+0.00000000520*COS(5.33201358267+14143.49524243060*x);
R1:=R1+0.00000000576*COS(2.25212731258+21228.39202354580*x);
R1:=R1+0.00000000662*COS(2.86880467345+8624.21265092720*x);
R1:=R1+0.00000000554*COS(2.17186191243+18307.80723204360*x);
R1:=R1+0.00000000515*COS(4.34331395104+9786.68735533500*x);
R1:=R1+0.00000000501*COS(5.56479589366+10742.97651130560*x);
R1:=R1+0.00000000426*COS(1.02161443120+7064.12138562280*x);
R1:=R1+0.00000000418*COS(1.26803034691+9676.48103411560*x);
R1:=R1+0.00000000391*COS(0.78974645621+9690.70812811720*x);
R1:=R1+0.00000000334*COS(3.18175822557+10988.80815753500*x);
R1:=R1+0.00000000375*COS(0.66142254036+19360.07561523199*x);
R1:=R1+0.00000000364*COS(0.19369831864+19374.30270923360*x);
R1:=R1+0.00000000313*COS(1.09734397626+4551.95349705880*x);
R1:=R1+0.00000000330*COS(0.58817502306+16496.36139620240*x);
R1:=R1+0.00000000339*COS(5.76768761396+10021.83728009940*x);
R1:=R1+0.00000000291*COS(3.65846764668+25158.60171976540*x);
R1:=R1+0.00000000223*COS(4.33581625553+19786.67380610799*x);
R1:=R1+0.00000000266*COS(3.57408827667+801.82093112380*x);
R1:=R1+0.00000000274*COS(5.73346687248+11790.62908865880*x);
R1:=R1+0.00000000275*COS(5.65814317085+19896.88012732740*x);
R1:=R1+0.00000000212*COS(4.27038489878+4705.73230754360*x);
R1:=R1+0.00000000230*COS(6.13406345590+1059.38193018920*x);
R1:=R1+0.00000000204*COS(4.87348390351+7860.41939243920*x);
R1:=R1+0.00000000241*COS(1.13551531894+26.29831979980*x);
R1:=R1+0.00000000206*COS(0.31907973682+382.89653222320*x);
R1:=R1+0.00000000216*COS(2.54741101724+19651.04848109800*x);
R1:=R1+0.00000000212*COS(3.15264941106+14945.31617355440*x);
R1:=R1+0.00000000163*COS(1.13604744392+13936.79450513400*x);
R1:=R1+0.00000000151*COS(5.11341268743+28521.09277825460*x);
R1:=R1+0.00000000151*COS(0.81278755582+6770.71060124560*x);
R1:=R1+0.00000000150*COS(5.02227334847+29088.81141598500*x);
R1:=R1+0.00000000146*COS(1.37568138685+10220.39909321180*x);
R1:=R1+0.00000000127*COS(4.49298610074+3532.06069281140*x);
R1:=R1+0.00000000121*COS(6.26589208179+29580.47470844380*x);
R1:=R1+0.00000000147*COS(6.16092774714+8662.24032356300*x);
R1:=R1+0.00000000114*COS(0.00114012635+25934.12433108940*x);
R1:=R1+0.00000000115*COS(3.56897715344+24356.78078864160*x);
R1:=R1+0.00000000124*COS(0.67547060274+3723.50895892300*x);
R1:=R1+0.00000000145*COS(0.36415036222+9146.79006902100*x);
R1:=R1+0.00000000104*COS(4.27865011376+9573.38825989700*x);
R1:=R1+0.00000000136*COS(5.09581116181+19367.18916223280*x);
R1:=R1+0.00000000102*COS(1.53637788668+17277.40693183380*x);
R1:=R1+0.00000000117*COS(0.57543238496+9999.98645077300*x);
R1:=R1+0.00000000092*COS(0.22936081655+18830.38465013739*x);
R1:=R1+0.00000000112*COS(4.04771058036+9103.90699411760*x);
R1:=R1+0.00000000098*COS(3.78447692407+213.29909543800*x);
R1:=R1+0.00000000085*COS(5.84471458481+10234.06094170340*x);
R1:=R1+0.00000000079*COS(0.64440357793+18844.61174413899*x);
R1:=R1+0.00000000084*COS(0.56950139213+9683.59458111640*x);
R1:=R1+0.00000000107*COS(1.77067111589+17778.11626694899*x);
R1:=R1+0.00000000081*COS(6.19048382717+20618.01935853360*x);
R1:=R1+0.00000000087*COS(0.15771136594+33019.02111220460*x);
R1:=R1+0.00000000082*COS(4.80683817059+3930.20969621960*x);
R1:=R1+0.00000000086*COS(2.21505615071+8094.52168583260*x);
R1:=R1+0.00000000064*COS(2.69215119482+16983.99614745660*x);
R1:=R1+0.00000000069*COS(0.83385751986+3128.38876509580*x);
R1:=R1+0.00000000081*COS(4.88025042367+4732.03062734340*x);
R1:=R1+0.00000000059*COS(3.34348033725+10787.63034454580*x);
R1:=R1+0.00000000061*COS(0.04044699966+9161.01716302260*x);
R1:=R1+0.00000000064*COS(4.13127333938+9992.87290377220*x);
R1:=R1+0.00000000060*COS(6.24603986632+32217.20018108080*x);
R1:=R1+0.00000000054*COS(3.38449893196+10426.58464164900*x);
R1:=R1+0.00000000054*COS(5.15939119644+28286.99048486120*x);
R1:=R1+0.00000000063*COS(4.32339245083+12592.45001978260*x);
R1:=R1+0.00000000060*COS(4.48753846170+18875.52586977400*x);
R1:=R1+0.00000000057*COS(3.64912085313+10007.09999777380*x);
R1:=R1+0.00000000049*COS(5.10267262491+19573.37471066999*x);
R1:=R1+0.00000000047*COS(5.79444960738+68050.42387851159*x);
R1:=R1+0.00000000052*COS(3.56658420552+7255.56965173440*x);
R1:=R1+0.00000000050*COS(1.61783309819+36949.23080842420*x);
R1:=R1+0.00000000053*COS(2.64370544855+15874.61759536320*x);
R1:=R1+0.00000000040*COS(3.93466530964+20419.45754542119*x);
R1:=R1+0.00000000051*COS(0.79154899901+23581.25817731760*x);
R1:=R1+0.00000000038*COS(1.77428239418+10103.07922499160*x);
R1:=R1+0.00000000049*COS(1.12423644455+3442.57494496540*x);
R1:=R1+0.00000000040*COS(5.22874487975+21535.94964451540*x);
R1:=R1+0.00000000038*COS(1.12473430132+7.11354700080*x);
R1:=R1+0.00000000038*COS(0.11510547453+11272.66747640020*x);
R1:=R1+0.00000000036*COS(2.02476324983+7058.59846131540*x);
R1:=R1+0.00000000047*COS(0.05589432390+12432.04265039780*x);
R1:=R1+0.00000000034*COS(3.45481114998+9830.38901398780*x);
R1:=R1+0.00000000045*COS(4.59817214088+10192.51015071860*x);
R1:=R1+0.00000000037*COS(4.93959675364+3340.61242669980*x);
R1:=R1+0.00000000044*COS(0.70533027806+20213.27199698400*x);
R1:=R1+0.00000000034*COS(2.16487642765+64460.69868196140*x);
R1:=R1+0.00000000031*COS(1.57612397319+36147.40987730040*x);
R1:=R1+0.00000000028*COS(2.56454760402+94138.32702008578*x);
R1:=R1+0.00000000033*COS(1.08907268562+29864.33402730900*x);
R1:=R1+0.00000000029*COS(0.59718407064+59728.66805461800*x);
R1:=R1+0.00000000031*COS(3.04423979263+40879.44050464380*x);
R1:=R1+0.00000000035*COS(0.32247158762+1589.07289528380*x);
R1:=R1+0.00000000031*COS(3.27727318906+19992.85935454519*x);
R1:=R1+0.00000000027*COS(5.83705748551+17085.95866572220*x);
R1:=R1+0.00000000032*COS(2.64260788260+41962.52073693740*x);
R1:=R1+0.00000000028*COS(4.90613317287+29050.78374334920*x);
R1:=R1+0.00000000025*COS(4.55050389739+14919.01785375460*x);
R1:=R1+0.00000000028*COS(3.58851614957+40853.14218484400*x);
R1:=R1+0.00000000029*COS(2.79705093386+20007.08644854680*x);
R1:=R1+0.00000000033*COS(0.93862065616+15720.83878487840*x);
R1:=R1+0.00000000024*COS(2.74970637101+18947.70451835760*x);
R1:=R1+0.00000000024*COS(4.38966861409+46386.99374331120*x);
R1:=R1+0.00000000024*COS(0.73361964525+9411.46461508720*x);
R1:=R1+0.00000000028*COS(4.19559784013+37674.99639427640*x);
R1:=R1+0.00000000023*COS(1.00023735538+22779.43724619380*x);
R1:=R1+0.00000000026*COS(0.46990555736+13745.34623902240*x);
R1:=R1+0.00000000028*COS(4.65181292126+1551.04522264800*x);
R1:=R1+0.00000000025*COS(4.18690270765+44007.82926973960*x);
R1:=R1+0.00000000022*COS(0.98102807789+426.59819087600*x);
R1:=R1+0.00000000030*COS(1.24986033487+27461.71084806540*x);
R1:=R1+0.00000000027*COS(3.94986823486+17468.85519794540*x);
R1:=R1+0.00000000021*COS(6.09897508157+18300.69368504279*x);
R1:=R1+0.00000000025*COS(4.75875623888+27991.40181316000*x);
R1:=R1+0.00000000022*COS(2.95281481673+40077.61957352000*x);
R1:=R1+0.00000000028*COS(6.12038264955+38500.27603107220*x);
R1:=R1+0.00000000022*COS(4.11184201321+19779.56025910719*x);
R1:=R1+0.00000000027*COS(3.72446446080+19793.78735310880*x);
R1:=R1+0.00000000020*COS(4.27086627368+31441.67756975680*x);
R1:=R1+0.00000000022*COS(4.99040169444+31022.75317085620*x);
R1:=R1+0.00000000023*COS(1.33505132122+65236.22129328540*x);
R1:=R1+0.00000000021*COS(4.46897353468+53285.18483524180*x);
R1:=R1+0.00000000020*COS(4.15140915983+2218.75710418680*x);
R1:=R1+0.00000000025*COS(2.18447182965+27511.46787353720*x);
R1:=R1+0.00000000019*COS(1.43653410349+27197.28169366760*x);
R1:=R1+0.00000000027*COS(1.22555218015+42430.48572729180*x);
R1:=R1+0.00000000019*COS(3.65054338893+49515.38250840700*x);
R1:=R1+0.00000000022*COS(5.88380811711+10218.80847051840*x);
R1:=R1+0.00000000018*COS(2.29853355765+19264.09638801420*x);
R1:=R1+0.00000000017*COS(5.44429906531+6681.22485339960*x);
R1:=R1+0.00000000020*COS(3.68116637773+14128.24277124560*x);
R1:=R1+0.00000000021*COS(4.30316190532+44809.65020086340*x);
R1:=R1+0.00000000020*COS(2.48583613985+33794.54372352860*x);
R1:=R1+0.00000000017*COS(3.02735393984+28528.20632525540*x);
R1:=R1+0.00000000019*COS(5.92656850674+22805.73556599360*x);
R1:=R1+0.00000000022*COS(5.30827572791+10207.76262190360*x);
R1:=R1+0.00000000020*COS(0.75829381378+18314.92077904440*x);
R1:=R1+0.00000000017*COS(5.63315744126+16522.65971600220*x);
R1:=R1+0.00000000016*COS(1.71021408448+536.80451209540*x);
R1:=R1+0.00000000015*COS(5.27016880041+53445.59220462660*x);
R1:=R1+0.00000000017*COS(5.61443395877+47938.03896595920*x);
R1:=R1+0.00000000015*COS(5.81110284451+43071.89928903080*x);
R1:=R1+0.00000000015*COS(4.96237667003+19999.97290154599*x);
R1:=R1+0.00000000018*COS(0.55618686515+14765.23904326980*x);
R1:=R1+0.00000000014*COS(3.48144272414+29786.66025688100*x);
R1:=R1+0.00000000015*COS(5.84132627836+10228.53801739600*x);
R1:=R1+0.00000000016*COS(1.05720065324+26735.94526221320*x);
R1:=R1+0.00000000014*COS(6.08462030302+35371.88726597640*x);
R1:=R1+0.00000000014*COS(2.84532871890+574.34479833480*x);
R1:=R1+0.00000000015*COS(5.34517715140+10198.03307502600*x);
R1:=R1+0.00000000013*COS(0.45004137509+20452.86941222180*x);

LOCAL R2:=0;
R2:=R2+0.00001406587*COS(5.06366395190+10213.28554621100*x);
R2:=R2+0.00000015529*COS(5.47321687981+20426.57109242200*x);
R2:=R2+0.00000013059;
R2:=R2+0.00000001099*COS(2.78883988292+9437.76293488700*x);
R2:=R2+0.00000000488*COS(6.27806914496+1577.34354244780*x);
R2:=R2+0.00000000361*COS(6.11914188253+10404.73381232260*x);
R2:=R2+0.00000000310*COS(1.38984998403+5507.55323866740*x);
R2:=R2+0.00000000389*COS(1.95017779915+11015.10647733480*x);
R2:=R2+0.00000000372*COS(2.33222828423+775.52261132400*x);
R2:=R2+0.00000000207*COS(5.63406721595+10239.58386601080*x);
R2:=R2+0.00000000168*COS(1.10765197296+13367.97263110660*x);
R2:=R2+0.00000000175*COS(6.16674652950+30639.85663863300*x);
R2:=R2+0.00000000168*COS(3.64495311632+7084.89678111520*x);
R2:=R2+0.00000000120*COS(5.85815843789+9153.90361602180*x);
R2:=R2+0.00000000160*COS(2.21564938463+3154.68708489560*x);
R2:=R2+0.00000000118*COS(2.62358866565+8635.94200376320*x);
R2:=R2+0.00000000112*COS(2.36235956804+10596.18207843420*x);
R2:=R2+0.00000000092*COS(0.72664449269+12566.15169998280*x);
R2:=R2+0.00000000067*COS(3.76089669118+18837.49819713819*x);
R2:=R2+0.00000000065*COS(2.47983709990+11790.62908865880*x);
R2:=R2+0.00000000048*COS(4.26620187144+2352.86615377180*x);
R2:=R2+0.00000000048*COS(5.50898189550+191.44826611160*x);
R2:=R2+0.00000000048*COS(2.54730918293+17298.18232732620*x);
R2:=R2+0.00000000046*COS(3.40293459332+14143.49524243060*x);
R2:=R2+0.00000000041*COS(1.83997113019+11322.66409830440*x);
R2:=R2+0.00000000037*COS(6.17871126027+1109.37855209340*x);
R2:=R2+0.00000000039*COS(4.77190210316+18073.70493865020*x);
R2:=R2+0.00000000035*COS(3.10133256432+4705.73230754360*x);
R2:=R2+0.00000000046*COS(3.30090415967+6283.07584999140*x);
R2:=R2+0.00000000034*COS(3.91721765773+10021.83728009940*x);
R2:=R2+0.00000000034*COS(3.24663787383+22003.91463486980*x);
R2:=R2+0.00000000042*COS(3.39360926939+14945.31617355440*x);
R2:=R2+0.00000000044*COS(4.42979374073+7860.41939243920*x);
R2:=R2+0.00000000034*COS(2.16381407025+16496.36139620240*x);
R2:=R2+0.00000000031*COS(0.45714618479+26.29831979980*x);
R2:=R2+0.00000000035*COS(3.62868651241+801.82093112380*x);
R2:=R2+0.00000000032*COS(1.84138997078+382.89653222320*x);
R2:=R2+0.00000000025*COS(3.32908650295+18307.80723204360*x);
R2:=R2+0.00000000026*COS(3.64313769818+29088.81141598500*x);
R2:=R2+0.00000000029*COS(3.82967178810+10186.98722641120*x);
R2:=R2+0.00000000022*COS(3.17741520378+28521.09277825460*x);
R2:=R2+0.00000000021*COS(2.52643834111+529.69096509460*x);
R2:=R2+0.00000000025*COS(5.71401244457+21202.09370374600*x);
R2:=R2+0.00000000021*COS(3.77813434325+21228.39202354580*x);
R2:=R2+0.00000000019*COS(5.24505118517+19896.88012732740*x);
R2:=R2+0.00000000018*COS(4.62463651925+19651.04848109800*x);
R2:=R2+0.00000000016*COS(3.35893297896+28286.99048486120*x);
R2:=R2+0.00000000015*COS(5.05571633205+33019.02111220460*x);
R2:=R2+0.00000000014*COS(2.83786355803+19786.67380610799*x);
R2:=R2+0.00000000014*COS(1.79922718553+9830.38901398780*x);
R2:=R2+0.00000000014*COS(3.14801263138+19367.18916223280*x);
R2:=R2+0.00000000014*COS(3.57896195191+10988.80815753500*x);
R2:=R2+0.00000000013*COS(3.06303088617+10742.97651130560*x);
R2:=R2+0.00000000013*COS(5.43981998532+25158.60171976540*x);
R2:=R2+0.00000000015*COS(4.83166312889+18875.52586977400*x);
R2:=R2+0.00000000012*COS(2.54141086214+7064.12138562280*x);
R2:=R2+0.00000000012*COS(4.45255110769+15720.83878487840*x);
R2:=R2+0.00000000010*COS(1.87933121728+24356.78078864160*x);
R2:=R2+0.00000000011*COS(2.58708635685+9103.90699411760*x);
R2:=R2+0.00000000010*COS(2.17901309900+3723.50895892300*x);
R2:=R2+0.00000000008*COS(3.63520673832+1059.38193018920*x);
R2:=R2+0.00000000008*COS(4.67523115598+25934.12433108940*x);
R2:=R2+0.00000000009*COS(5.97856553283+9683.59458111640*x);

LOCAL R3:=0;
R3:=R3+0.00000049582*COS(3.22263554520+10213.28554621100*x);
R3:=R3+0.00000000831*COS(3.21219077104+20426.57109242200*x);
R3:=R3-0.00000000112;
R3:=R3+0.00000000013*COS(3.77448689585+30639.85663863300*x);
R3:=R3+0.00000000009*COS(4.19802043629+10239.58386601080*x);
R3:=R3+0.00000000006*COS(0.20714935358+10186.98722641120*x);
R3:=R3+0.00000000005*COS(0.68781956122+8635.94200376320*x);

LOCAL R4:=0;
R4:=R4+0.00000000573*COS(0.92229697820+10213.28554621100*x);
R4:=R4+0.00000000040*COS(0.95468912157+20426.57109242200*x);
R4:=R4-0.00000000006;

LOCAL R5:=0;
R5:=R5+0.00000000045*COS(0.30032866722+10213.28554621100*x);
R5:=R5+0.00000000002*COS(5.29627718483+20426.57109242200*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;
