//Heliocentric longitude of Earth
EXPORT Learth(x)
BEGIN
LOCAL L0:=0;
L0:=L0+1.75347045673;
L0:=L0+0.03341656456*COS(4.66925680417+6283.07584999140*x);
L0:=L0+0.00034894275*COS(4.62610241759+12566.15169998280*x);
L0:=L0+0.00003417571*COS(2.82886579606+3.52311834900*x);
L0:=L0+0.00003497056*COS(2.74411800971+5753.38488489680*x);
L0:=L0+0.00003135896*COS(3.62767041758+77713.77146812050*x);
L0:=L0+0.00002676218*COS(4.41808351397+7860.41939243920*x);
L0:=L0+0.00002342687*COS(6.13516237631+3930.20969621960*x);
L0:=L0+0.00001273166*COS(2.03709655772+529.69096509460*x);
L0:=L0+0.00001324292*COS(0.74246356352+11506.76976979360*x);
L0:=L0+0.00000901855*COS(2.04505443513+26.29831979980*x);
L0:=L0+0.00001199167*COS(1.10962944315+1577.34354244780*x);
L0:=L0+0.00000857223*COS(3.50849156957+398.14900340820*x);
L0:=L0+0.00000779786*COS(1.17882652114+5223.69391980220*x);
L0:=L0+0.00000990250*COS(5.23268129594+5884.92684658320*x);
L0:=L0+0.00000753141*COS(2.53339053818+5507.55323866740*x);
L0:=L0+0.00000505264*COS(4.58292563052+18849.22754997420*x);
L0:=L0+0.00000492379*COS(4.20506639861+775.52261132400*x);
L0:=L0+0.00000356655*COS(2.91954116867+0.06731030280*x);
L0:=L0+0.00000284125*COS(1.89869034186+796.29800681640*x);
L0:=L0+0.00000242810*COS(0.34481140906+5486.77784317500*x);
L0:=L0+0.00000317087*COS(5.84901952218+11790.62908865880*x);
L0:=L0+0.00000271039*COS(0.31488607649+10977.07880469900*x);
L0:=L0+0.00000206160*COS(4.80646606059+2544.31441988340*x);
L0:=L0+0.00000205385*COS(1.86947813692+5573.14280143310*x);
L0:=L0+0.00000202261*COS(2.45767795458+6069.77675455340*x);
L0:=L0+0.00000126184*COS(1.08302630210+20.77539549240*x);
L0:=L0+0.00000155516*COS(0.83306073807+213.29909543800*x);
L0:=L0+0.00000115132*COS(0.64544911683+0.98032106820*x);
L0:=L0+0.00000102851*COS(0.63599846727+4694.00295470760*x);
L0:=L0+0.00000101724*COS(4.26679821365+7.11354700080*x);
L0:=L0+0.00000099206*COS(6.20992940258+2146.16541647520*x);
L0:=L0+0.00000132212*COS(3.41118275555+2942.46342329160*x);
L0:=L0+0.00000097607*COS(0.68101272270+155.42039943420*x);
L0:=L0+0.00000085128*COS(1.29870743025+6275.96230299060*x);
L0:=L0+0.00000074651*COS(1.75508916159+5088.62883976680*x);
L0:=L0+0.00000101895*COS(0.97569221824+15720.83878487840*x);
L0:=L0+0.00000084711*COS(3.67080093025+71430.69561812909*x);
L0:=L0+0.00000073547*COS(4.67926565481+801.82093112380*x);
L0:=L0+0.00000073874*COS(3.50319443167+3154.68708489560*x);
L0:=L0+0.00000078756*COS(3.03698313141+12036.46073488820*x);
L0:=L0+0.00000079637*COS(1.80791330700+17260.15465469040*x);
L0:=L0+0.00000085803*COS(5.98322631256+161000.68573767410*x);
L0:=L0+0.00000056963*COS(2.78430398043+6286.59896834040*x);
L0:=L0+0.00000061148*COS(1.81839811024+7084.89678111520*x);
L0:=L0+0.00000069627*COS(0.83297596966+9437.76293488700*x);
L0:=L0+0.00000056116*COS(4.38694880779+14143.49524243060*x);
L0:=L0+0.00000062449*COS(3.97763880587+8827.39026987480*x);
L0:=L0+0.00000051145*COS(0.28306864501+5856.47765911540*x);
L0:=L0+0.00000055577*COS(3.47006009062+6279.55273164240*x);
L0:=L0+0.00000041036*COS(5.36817351402+8429.24126646660*x);
L0:=L0+0.00000051605*COS(1.33282746983+1748.01641306700*x);
L0:=L0+0.00000051992*COS(0.18914945834+12139.55350910680*x);
L0:=L0+0.00000049000*COS(0.48735065033+1194.44701022460*x);
L0:=L0+0.00000039200*COS(6.16832995016+10447.38783960440*x);
L0:=L0+0.00000035566*COS(1.77597314691+6812.76681508600*x);
L0:=L0+0.00000036770*COS(6.04133859347+10213.28554621100*x);
L0:=L0+0.00000036596*COS(2.56955238628+1059.38193018920*x);
L0:=L0+0.00000033291*COS(0.59309499459+17789.84561978500*x);
L0:=L0+0.00000035954*COS(1.70876111898+2352.86615377180*x);
L0:=L0+0.00000040938*COS(2.39850881707+19651.04848109800*x);
L0:=L0+0.00000030047*COS(2.73975123935+1349.86740965880*x);
L0:=L0+0.00000030412*COS(0.44294464135+83996.84731811189*x);
L0:=L0+0.00000023663*COS(0.48473567763+8031.09226305840*x);
L0:=L0+0.00000023574*COS(2.06527720049+3340.61242669980*x);
L0:=L0+0.00000021089*COS(4.14825464101+951.71840625060*x);
L0:=L0+0.00000024738*COS(0.21484762138+3.59042865180*x);
L0:=L0+0.00000025352*COS(3.16470953405+4690.47983635860*x);
L0:=L0+0.00000022820*COS(5.22197888032+4705.73230754360*x);
L0:=L0+0.00000021419*COS(1.42563735525+16730.46368959580*x);
L0:=L0+0.00000021891*COS(5.55594302562+553.56940284240*x);
L0:=L0+0.00000017481*COS(4.56052900359+135.06508003540*x);
L0:=L0+0.00000019925*COS(5.22208471269+12168.00269657460*x);
L0:=L0+0.00000019860*COS(5.77470167653+6309.37416979120*x);
L0:=L0+0.00000020300*COS(0.37133792946+283.85931886520*x);
L0:=L0+0.00000014421*COS(4.19315332546+242.72860397400*x);
L0:=L0+0.00000016225*COS(5.98837722564+11769.85369316640*x);
L0:=L0+0.00000015077*COS(4.19567181073+6256.77753019160*x);
L0:=L0+0.00000019124*COS(3.82219996949+23581.25817731760*x);
L0:=L0+0.00000018888*COS(5.38626880969+149854.40013480789*x);
L0:=L0+0.00000014346*COS(3.72355084422+38.02767263580*x);
L0:=L0+0.00000017898*COS(2.21490735647+13367.97263110660*x);
L0:=L0+0.00000012054*COS(2.62229588349+955.59974160860*x);
L0:=L0+0.00000011287*COS(0.17739328092+4164.31198961300*x);
L0:=L0+0.00000013971*COS(4.40138139996+6681.22485339960*x);
L0:=L0+0.00000013621*COS(1.88934471407+7632.94325965020*x);
L0:=L0+0.00000012503*COS(1.13052412208+5.52292430740*x);
L0:=L0+0.00000010498*COS(5.35909518669+1592.59601363280*x);
L0:=L0+0.00000009803*COS(0.99947478995+11371.70468975820*x);
L0:=L0+0.00000009220*COS(4.57138609781+4292.33083295040*x);
L0:=L0+0.00000010327*COS(6.19982566125+6438.49624942560*x);
L0:=L0+0.00000012003*COS(1.00351456700+632.78373931320*x);
L0:=L0+0.00000010827*COS(0.32734520222+103.09277421860*x);
L0:=L0+0.00000008356*COS(4.53902685948+25132.30339996560*x);
L0:=L0+0.00000010005*COS(6.02914963280+5746.27133789600*x);
L0:=L0+0.00000008409*COS(3.29946744189+7234.79425624200*x);
L0:=L0+0.00000008006*COS(5.82145271907+28.44918746780*x);
L0:=L0+0.00000010523*COS(0.93871805506+11926.25441366880*x);
L0:=L0+0.00000007686*COS(3.12142363172+7238.67559160000*x);
L0:=L0+0.00000009378*COS(2.62414241032+5760.49843189760*x);
L0:=L0+0.00000008127*COS(6.11228001785+4732.03062734340*x);
L0:=L0+0.00000009232*COS(0.48343968736+522.57741809380*x);
L0:=L0+0.00000009802*COS(5.24413991147+27511.46787353720*x);
L0:=L0+0.00000007871*COS(0.99590177926+5643.17856367740*x);
L0:=L0+0.00000008123*COS(6.27053013650+426.59819087600*x);
L0:=L0+0.00000009048*COS(5.33686335897+6386.16862421000*x);
L0:=L0+0.00000008620*COS(4.16538210888+7058.59846131540*x);
L0:=L0+0.00000006297*COS(4.71724819317+6836.64525283380*x);
L0:=L0+0.00000007575*COS(3.97382858911+11499.65622279280*x);
L0:=L0+0.00000007756*COS(2.95729056763+23013.53953958720*x);
L0:=L0+0.00000007314*COS(0.60652505806+11513.88331679440*x);
L0:=L0+0.00000005955*COS(2.87641047971+6283.14316029419*x);
L0:=L0+0.00000006534*COS(5.79072926033+18073.70493865020*x);
L0:=L0+0.00000007188*COS(3.99831508699+74.78159856730*x);
L0:=L0+0.00000007346*COS(4.38582365437+316.39186965660*x);
L0:=L0+0.00000005413*COS(5.39199024641+419.48464387520*x);
L0:=L0+0.00000005127*COS(2.36062848786+10973.55568635000*x);
L0:=L0+0.00000007056*COS(0.32258441903+263.08392337280*x);
L0:=L0+0.00000006625*COS(3.66475158672+17298.18232732620*x);
L0:=L0+0.00000006762*COS(5.91132535899+90955.55169449610*x);
L0:=L0+0.00000004938*COS(5.73672165674+9917.69687450980*x);
L0:=L0+0.00000005547*COS(2.45152597661+12352.85260454480*x);
L0:=L0+0.00000005958*COS(3.32051344676+6283.00853968860*x);
L0:=L0+0.00000004471*COS(2.06385999536+7079.37385680780*x);
L0:=L0+0.00000006153*COS(1.45823331144+233141.31440436149*x);
L0:=L0+0.00000004348*COS(4.42342175480+5216.58037280140*x);
L0:=L0+0.00000006123*COS(1.07494905258+19804.82729158280*x);
L0:=L0+0.00000004488*COS(3.65285037150+206.18554843720*x);
L0:=L0+0.00000004020*COS(0.83995823171+20.35531939880*x);
L0:=L0+0.00000005188*COS(4.06503864016+6208.29425142410*x);
L0:=L0+0.00000005307*COS(0.38217636096+31441.67756975680*x);
L0:=L0+0.00000003785*COS(2.34369213733+3.88133535800*x);
L0:=L0+0.00000004497*COS(3.27230796845+11015.10647733480*x);
L0:=L0+0.00000004132*COS(0.92128915753+3738.76143010800*x);
L0:=L0+0.00000003521*COS(5.97844807108+3894.18182954220*x);
L0:=L0+0.00000004215*COS(1.90601120623+245.83164622940*x);
L0:=L0+0.00000003701*COS(5.03069397926+536.80451209540*x);
L0:=L0+0.00000003865*COS(1.82634360607+11856.21865142450*x);
L0:=L0+0.00000003652*COS(1.01838584934+16200.77272450120*x);
L0:=L0+0.00000003390*COS(0.97785123922+8635.94200376320*x);
L0:=L0+0.00000003737*COS(2.95380107829+3128.38876509580*x);
L0:=L0+0.00000003507*COS(3.71291946325+6290.18939699220*x);
L0:=L0+0.00000003086*COS(3.64646921512+10.63666534980*x);
L0:=L0+0.00000003397*COS(1.10590684017+14712.31711645800*x);
L0:=L0+0.00000003334*COS(0.83684924911+6496.37494542940*x);
L0:=L0+0.00000002805*COS(2.58504514144+14314.16811304980*x);
L0:=L0+0.00000003650*COS(1.08344142571+88860.05707098669*x);
L0:=L0+0.00000003388*COS(3.20185096055+5120.60114558360*x);
L0:=L0+0.00000003252*COS(3.47859752062+6133.51265285680*x);
L0:=L0+0.00000002553*COS(3.94869034189+1990.74501704100*x);
L0:=L0+0.00000003520*COS(2.05559692878+244287.60000722769*x);
L0:=L0+0.00000002565*COS(1.56071784900+23543.23050468179*x);
L0:=L0+0.00000002621*COS(3.85639359951+266.60704172180*x);
L0:=L0+0.00000002955*COS(3.39692949667+9225.53927328300*x);
L0:=L0+0.00000002876*COS(6.02635617464+154717.60988768269*x);
L0:=L0+0.00000002395*COS(1.16131956403+10984.19235169980*x);
L0:=L0+0.00000003161*COS(1.32798718453+10873.98603048040*x);
L0:=L0+0.00000003163*COS(5.08946464629+21228.39202354580*x);
L0:=L0+0.00000002361*COS(4.27212906992+6040.34724601740*x);
L0:=L0+0.00000003030*COS(1.80209931347+35371.88726597640*x);
L0:=L0+0.00000002343*COS(3.57689860500+10969.96525769820*x);
L0:=L0+0.00000002618*COS(2.57870156528+22483.84857449259*x);
L0:=L0+0.00000002113*COS(3.71393780256+65147.61976813770*x);
L0:=L0+0.00000002019*COS(0.81393923319+170.67287061920*x);
L0:=L0+0.00000002003*COS(0.38091017375+6172.86952877200*x);
L0:=L0+0.00000002506*COS(3.74379142438+10575.40668294180*x);
L0:=L0+0.00000002381*COS(0.10581361289+7.04623669800*x);
L0:=L0+0.00000001949*COS(4.86892513469+36.02786667740*x);
L0:=L0+0.00000002074*COS(4.22794774570+5650.29211067820*x);
L0:=L0+0.00000001924*COS(5.59460549860+6282.09552892320*x);
L0:=L0+0.00000001949*COS(1.07002512703+5230.80746680300*x);
L0:=L0+0.00000001988*COS(5.19736046771+6262.30045449900*x);
L0:=L0+0.00000001887*COS(3.74365662683+23.87843774780*x);
L0:=L0+0.00000001787*COS(1.25929682929+12559.03815298200*x);
L0:=L0+0.00000001883*COS(1.90364058477+15.25247118500*x);
L0:=L0+0.00000001816*COS(3.68083868442+15110.46611986620*x);
L0:=L0+0.00000001701*COS(4.41105895380+110.20632121940*x);
L0:=L0+0.00000001990*COS(3.93295788548+6206.80977871580*x);
L0:=L0+0.00000002103*COS(0.75354917468+13521.75144159140*x);
L0:=L0+0.00000001774*COS(0.48747535361+1551.04522264800*x);
L0:=L0+0.00000001882*COS(0.86684493432+22003.91463486980*x);
L0:=L0+0.00000001924*COS(1.22898324132+709.93304855830*x);
L0:=L0+0.00000002009*COS(4.62850921980+6037.24420376200*x);
L0:=L0+0.00000001924*COS(0.60231842508+6284.05617105960*x);
L0:=L0+0.00000001596*COS(3.98332956992+13916.01910964160*x);
L0:=L0+0.00000001664*COS(4.41939715469+8662.24032356300*x);
L0:=L0+0.00000001971*COS(1.04560500503+18209.33026366019*x);
L0:=L0+0.00000001942*COS(4.31335979989+6244.94281435360*x);
L0:=L0+0.00000001476*COS(0.93271367331+2379.16447357160*x);
L0:=L0+0.00000001810*COS(0.49112137707+1.48447270830*x);
L0:=L0+0.00000001346*COS(1.51574702235+4136.91043351620*x);
L0:=L0+0.00000001528*COS(5.61835711404+6127.65545055720*x);
L0:=L0+0.00000001791*COS(3.22187270126+39302.09696219600*x);
L0:=L0+0.00000001747*COS(3.05638656738+18319.53658487960*x);
L0:=L0+0.00000001431*COS(4.51153808594+20426.57109242200*x);
L0:=L0+0.00000001695*COS(0.22047718414+25158.60171976540*x);
L0:=L0+0.00000001242*COS(4.46665769933+17256.63153634140*x);
L0:=L0+0.00000001463*COS(4.69242679213+14945.31617355440*x);
L0:=L0+0.00000001205*COS(1.86912144659+4590.91018048900*x);
L0:=L0+0.00000001192*COS(2.74227166898+12569.67481833180*x);
L0:=L0+0.00000001222*COS(5.18120087482+5333.90024102160*x);
L0:=L0+0.00000001390*COS(5.42894648983+143571.32428481648*x);
L0:=L0+0.00000001473*COS(1.70479245805+11712.95531823080*x);
L0:=L0+0.00000001362*COS(2.61069503292+6062.66320755260*x);
L0:=L0+0.00000001148*COS(6.03001800540+3634.62102451840*x);
L0:=L0+0.00000001198*COS(5.15294130422+10177.25767953360*x);
L0:=L0+0.00000001266*COS(0.11421493643+18422.62935909819*x);
L0:=L0+0.00000001411*COS(1.09908857534+3496.03282613400*x);
L0:=L0+0.00000001349*COS(2.99805109633+17654.78053974960*x);
L0:=L0+0.00000001253*COS(2.79850152848+167283.76158766549*x);
L0:=L0+0.00000001311*COS(1.60942984879+5481.25491886760*x);
L0:=L0+0.00000001079*COS(6.20304501787+3.28635741780*x);
L0:=L0+0.00000001181*COS(1.20653776978+131.54196168640*x);
L0:=L0+0.00000001254*COS(5.45103277798+6076.89030155420*x);
L0:=L0+0.00000001035*COS(2.32142722747+7342.45778018060*x);
L0:=L0+0.00000001117*COS(0.38838354256+949.17560896980*x);
L0:=L0+0.00000000966*COS(3.18341890851+11087.28512591840*x);
L0:=L0+0.00000001171*COS(3.39635049962+12562.62858163380*x);
L0:=L0+0.00000001121*COS(0.72627490378+220.41264243880*x);
L0:=L0+0.00000001024*COS(2.19378315386+11403.67699557500*x);
L0:=L0+0.00000000888*COS(3.91173199285+4686.88940770680*x);
L0:=L0+0.00000000910*COS(1.98802695087+735.87651353180*x);
L0:=L0+0.00000000830*COS(0.48984915507+24072.92146977640*x);
L0:=L0+0.00000001096*COS(6.17377835617+5436.99301524020*x);
L0:=L0+0.00000000908*COS(0.44959639433+7477.52286021600*x);
L0:=L0+0.00000000974*COS(1.52996238356+9623.68827669120*x);
L0:=L0+0.00000000840*COS(1.79543266333+5429.87946823940*x);
L0:=L0+0.00000000778*COS(6.17699177946+38.13303563780*x);
L0:=L0+0.00000000776*COS(4.09855402433+14.22709400160*x);
L0:=L0+0.00000001068*COS(4.64200173735+43232.30665841560*x);
L0:=L0+0.00000000954*COS(1.49988435748+1162.47470440780*x);
L0:=L0+0.00000000907*COS(0.86986870809+10344.29506538580*x);
L0:=L0+0.00000000931*COS(4.06044689031+28766.92442448400*x);
L0:=L0+0.00000000739*COS(5.04368197372+639.89728631400*x);
L0:=L0+0.00000000937*COS(3.46884698960+1589.07289528380*x);
L0:=L0+0.00000000763*COS(5.86304932998+16858.48253293320*x);
L0:=L0+0.00000000953*COS(4.20801492835+11190.37790013700*x);
L0:=L0+0.00000000708*COS(1.72899988940+13095.84266507740*x);
L0:=L0+0.00000000969*COS(1.64439522215+29088.81141598500*x);
L0:=L0+0.00000000717*COS(0.16688678895+11.72935283600*x);
L0:=L0+0.00000000962*COS(3.53092337542+12416.58850284820*x);
L0:=L0+0.00000000747*COS(5.77866940346+12592.45001978260*x);
L0:=L0+0.00000000672*COS(1.91095796194+3.93215326310*x);
L0:=L0+0.00000000671*COS(5.46240843677+18052.92954315780*x);
L0:=L0+0.00000000675*COS(6.28311558823+4535.05943692440*x);
L0:=L0+0.00000000684*COS(0.39975012080+5849.36411211460*x);
L0:=L0+0.00000000799*COS(0.29851185294+12132.43996210600*x);
L0:=L0+0.00000000758*COS(0.96370823331+1052.26838318840*x);
L0:=L0+0.00000000782*COS(5.33878339919+13517.87010623340*x);
L0:=L0+0.00000000730*COS(1.70106160291+17267.26820169119*x);
L0:=L0+0.00000000749*COS(2.59599901875+11609.86254401220*x);
L0:=L0+0.00000000734*COS(2.78417782952+640.87760738220*x);
L0:=L0+0.00000000688*COS(5.15048287468+16496.36139620240*x);
L0:=L0+0.00000000770*COS(1.62469589333+4701.11650170840*x);
L0:=L0+0.00000000633*COS(2.20587893893+25934.12433108940*x);
L0:=L0+0.00000000760*COS(4.21317219403+377.37360791580*x);
L0:=L0+0.00000000584*COS(2.13420121623+10557.59416082380*x);
L0:=L0+0.00000000574*COS(0.24250054587+9779.10867612540*x);
L0:=L0+0.00000000573*COS(3.16435264609+533.21408344360*x);
L0:=L0+0.00000000685*COS(3.19344289472+12146.66705610760*x);
L0:=L0+0.00000000675*COS(0.96179233959+10454.50138660520*x);
L0:=L0+0.00000000648*COS(1.46327342555+6268.84875598980*x);
L0:=L0+0.00000000589*COS(2.50543543638+3097.88382272579*x);
L0:=L0+0.00000000551*COS(5.28099026956+9388.00590941520*x);
L0:=L0+0.00000000696*COS(3.65342150016+4804.20927592700*x);
L0:=L0+0.00000000669*COS(2.51030077026+2388.89402044920*x);
L0:=L0+0.00000000550*COS(0.06883864342+20199.09495963300*x);
L0:=L0+0.00000000629*COS(4.13350995675+45892.73043315699*x);
L0:=L0+0.00000000678*COS(6.09190163533+135.62532501000*x);
L0:=L0+0.00000000593*COS(1.50136257618+226858.23855437008*x);
L0:=L0+0.00000000542*COS(3.58573645173+6148.01076995600*x);
L0:=L0+0.00000000682*COS(5.02203067788+17253.04110768959*x);
L0:=L0+0.00000000565*COS(4.29309238610+11933.36796066960*x);
L0:=L0+0.00000000486*COS(0.77746204893+27.40155609680*x);
L0:=L0+0.00000000503*COS(0.58963565969+15671.08175940660*x);
L0:=L0+0.00000000616*COS(4.06539884128+227.47613278900*x);
L0:=L0+0.00000000583*COS(6.12695541996+18875.52586977400*x);
L0:=L0+0.00000000537*COS(2.15056440980+21954.15760939799*x);
L0:=L0+0.00000000669*COS(6.06986269566+47162.51635463520*x);
L0:=L0+0.00000000475*COS(0.40343842110+6915.85958930460*x);
L0:=L0+0.00000000540*COS(2.83444222174+5326.78669402080*x);
L0:=L0+0.00000000530*COS(5.26359885263+10988.80815753500*x);
L0:=L0+0.00000000582*COS(3.24533095664+153.77881048480*x);
L0:=L0+0.00000000641*COS(3.24711791371+2107.03450754240*x);
L0:=L0+0.00000000621*COS(3.09698523779+33019.02111220460*x);
L0:=L0+0.00000000466*COS(3.14982372198+10440.27429260360*x);
L0:=L0+0.00000000466*COS(0.90708835657+5966.68398033480*x);
L0:=L0+0.00000000528*COS(0.81926454470+813.55028395980*x);
L0:=L0+0.00000000603*COS(3.81378921927+316428.22867391503*x);
L0:=L0+0.00000000559*COS(1.81894804124+17996.03116822220*x);
L0:=L0+0.00000000437*COS(2.28625594435+6303.85124548380*x);
L0:=L0+0.00000000518*COS(4.86069178322+20597.24396304120*x);
L0:=L0+0.00000000424*COS(6.23520018693+6489.26139842860*x);
L0:=L0+0.00000000518*COS(6.17617826756+0.24381748350*x);
L0:=L0+0.00000000404*COS(5.72804304258+5642.19824260920*x);
L0:=L0+0.00000000458*COS(1.34117773915+6287.00800325450*x);
L0:=L0+0.00000000548*COS(5.68454458320+155427.54293624099*x);
L0:=L0+0.00000000547*COS(1.03391472061+3646.35037735440*x);
L0:=L0+0.00000000428*COS(4.69800981138+846.08283475120*x);
L0:=L0+0.00000000413*COS(6.02520699406+6279.48542133960*x);
L0:=L0+0.00000000534*COS(3.03030638223+66567.48586525429*x);
L0:=L0+0.00000000383*COS(1.49056949125+19800.94595622480*x);
L0:=L0+0.00000000410*COS(5.28319622279+18451.07854656599*x);
L0:=L0+0.00000000352*COS(4.68891600359+4907.30205014560*x);
L0:=L0+0.00000000480*COS(5.36572651091+348.92442044800*x);
L0:=L0+0.00000000344*COS(5.89157452896+6546.15977336420*x);
L0:=L0+0.00000000340*COS(0.37557426440+13119.72110282519*x);
L0:=L0+0.00000000434*COS(4.98417785901+6702.56049386660*x);
L0:=L0+0.00000000332*COS(2.68902519126+29296.61538957860*x);
L0:=L0+0.00000000448*COS(2.16478480251+5905.70224207560*x);
L0:=L0+0.00000000344*COS(2.06546633735+49.75702547180*x);
L0:=L0+0.00000000315*COS(1.24023811803+4061.21921539440*x);
L0:=L0+0.00000000324*COS(2.30897526929+5017.50837136500*x);
L0:=L0+0.00000000413*COS(0.17171692962+6286.66627864320*x);
L0:=L0+0.00000000431*COS(3.86601101393+12489.88562870720*x);
L0:=L0+0.00000000349*COS(4.55372342974+4933.20844033260*x);
L0:=L0+0.00000000323*COS(0.41971136084+10770.89325626180*x);
L0:=L0+0.00000000341*COS(2.68612860807+11.04570026390*x);
L0:=L0+0.00000000316*COS(3.52936906658+17782.73207278420*x);
L0:=L0+0.00000000315*COS(5.63357264999+568.82187402740*x);
L0:=L0+0.00000000340*COS(3.83571212349+10660.68693504240*x);
L0:=L0+0.00000000297*COS(0.62691416712+20995.39296644940*x);
L0:=L0+0.00000000405*COS(1.00085779471+16460.33352952499*x);
L0:=L0+0.00000000414*COS(1.21998752076+51092.72605085480*x);
L0:=L0+0.00000000336*COS(4.71465945226+6179.98307577280*x);
L0:=L0+0.00000000361*COS(3.71227508354+28237.23345938940*x);
L0:=L0+0.00000000385*COS(6.21925225757+24356.78078864160*x);
L0:=L0+0.00000000327*COS(1.05606504715+11919.14086666800*x);
L0:=L0+0.00000000327*COS(6.14222420989+6254.62666252360*x);
L0:=L0+0.00000000268*COS(2.47224339737+664.75604513000*x);
L0:=L0+0.00000000269*COS(1.86207884109+23141.55838292460*x);
L0:=L0+0.00000000345*COS(0.93461290184+6058.73105428950*x);
L0:=L0+0.00000000296*COS(4.51687557180+6418.14093002680*x);
L0:=L0+0.00000000353*COS(4.50033653082+36949.23080842420*x);
L0:=L0+0.00000000260*COS(4.04963546305+6525.80445396540*x);
L0:=L0+0.00000000298*COS(2.20046722622+156137.47598479928*x);
L0:=L0+0.00000000253*COS(3.49900838384+29864.33402730900*x);
L0:=L0+0.00000000254*COS(2.44901693835+5331.35744374080*x);
L0:=L0+0.00000000296*COS(0.84347588787+5729.50644714900*x);
L0:=L0+0.00000000298*COS(1.29194706125+22805.73556599360*x);
L0:=L0+0.00000000241*COS(2.00721280805+16737.57723659660*x);
L0:=L0+0.00000000311*COS(1.23668016334+6281.59137728310*x);
L0:=L0+0.00000000240*COS(2.51650377121+6245.04817735560*x);
L0:=L0+0.00000000332*COS(3.55576945724+7668.63742494250*x);
L0:=L0+0.00000000264*COS(4.44052061202+12964.30070339100*x);
L0:=L0+0.00000000257*COS(1.79654471948+11080.17157891760*x);
L0:=L0+0.00000000260*COS(3.33077598420+5888.44996493220*x);
L0:=L0+0.00000000285*COS(0.30886361430+11823.16163945020*x);
L0:=L0+0.00000000290*COS(5.70141882483+77.67377042800*x);
L0:=L0+0.00000000255*COS(4.00939664440+5881.40372823420*x);
L0:=L0+0.00000000253*COS(4.73318493678+16723.35014259500*x);
L0:=L0+0.00000000228*COS(0.95333661324+5540.08578945880*x);
L0:=L0+0.00000000319*COS(1.38633229189+163096.18036118349*x);
L0:=L0+0.00000000224*COS(1.65156322696+10027.90319572920*x);
L0:=L0+0.00000000226*COS(0.34106460604+17796.95916678580*x);
L0:=L0+0.00000000236*COS(4.19817431922+19.66976089979*x);
L0:=L0+0.00000000280*COS(4.14080268970+12539.85338018300*x);
L0:=L0+0.00000000275*COS(5.50306930248+32.53255079140*x);
L0:=L0+0.00000000223*COS(5.23334210294+56.89837493560*x);
L0:=L0+0.00000000217*COS(6.08587881787+6805.65326808520*x);
L0:=L0+0.00000000280*COS(4.52472044653+6016.46880826960*x);
L0:=L0+0.00000000227*COS(5.06509843737+6277.55292568400*x);
L0:=L0+0.00000000226*COS(5.17755154305+11720.06886523160*x);
L0:=L0+0.00000000245*COS(3.96486270306+22.77520145080*x);
L0:=L0+0.00000000220*COS(4.72078081970+6.62855890001*x);
L0:=L0+0.00000000207*COS(5.71701403951+41.55079098480*x);
L0:=L0+0.00000000204*COS(3.91227411250+2699.73481931760*x);
L0:=L0+0.00000000209*COS(0.86881969011+6321.10352262720*x);
L0:=L0+0.00000000200*COS(2.11984445273+4274.51831083240*x);
L0:=L0+0.00000000200*COS(5.39839888163+6019.99192661860*x);
L0:=L0+0.00000000209*COS(5.67606291663+11293.47067435560*x);
L0:=L0+0.00000000252*COS(1.64965729351+9380.95967271720*x);
L0:=L0+0.00000000275*COS(5.04826903506+73.29712585900*x);
L0:=L0+0.00000000208*COS(1.88207277133+11300.58422135640*x);
L0:=L0+0.00000000272*COS(0.74640926842+1975.49254585600*x);
L0:=L0+0.00000000199*COS(3.30836672397+22743.40937951640*x);
L0:=L0+0.00000000269*COS(4.48560812155+64471.99124174489*x);
L0:=L0+0.00000000192*COS(2.17464236325+5863.59120611620*x);
L0:=L0+0.00000000228*COS(5.85373115869+128.01884333740*x);
L0:=L0+0.00000000261*COS(2.64321183295+55022.93574707440*x);
L0:=L0+0.00000000220*COS(5.75012110079+29.42950853600*x);
L0:=L0+0.00000000187*COS(4.03230554718+467.96499035440*x);
L0:=L0+0.00000000200*COS(5.60556112058+1066.49547719000*x);
L0:=L0+0.00000000231*COS(1.09802712785+12341.80690428090*x);
L0:=L0+0.00000000199*COS(0.29500625200+149.56319713460*x);
L0:=L0+0.00000000249*COS(5.10473210814+7875.67186362420*x);
L0:=L0+0.00000000208*COS(0.93013835019+14919.01785375460*x);
L0:=L0+0.00000000179*COS(0.87104393079+12721.57209941700*x);
L0:=L0+0.00000000203*COS(1.56920753653+28286.99048486120*x);
L0:=L0+0.00000000179*COS(2.47036386443+16062.18452611680*x);
L0:=L0+0.00000000198*COS(3.54061588502+30.91412563500*x);
L0:=L0+0.00000000171*COS(3.45356518113+5327.47610838280*x);
L0:=L0+0.00000000183*COS(0.72325421604+6272.03014972750*x);
L0:=L0+0.00000000216*COS(2.97174580686+19402.79695281660*x);
L0:=L0+0.00000000168*COS(2.51550550242+23937.85638974100*x);
L0:=L0+0.00000000195*COS(0.09045393425+156.40072050240*x);
L0:=L0+0.00000000179*COS(4.49471798090+31415.37924995700*x);
L0:=L0+0.00000000216*COS(0.42177594328+23539.70738633280*x);
L0:=L0+0.00000000189*COS(0.37542530191+9814.60410029120*x);
L0:=L0+0.00000000218*COS(2.36835880025+16627.37091537720*x);
L0:=L0+0.00000000166*COS(4.23182968446+16840.67001081519*x);
L0:=L0+0.00000000200*COS(2.02153258098+16097.67995028260*x);
L0:=L0+0.00000000169*COS(0.91318727000+95.97922721780*x);
L0:=L0+0.00000000211*COS(5.73370637657+151.89728108520*x);
L0:=L0+0.00000000204*COS(0.42643085174+515.46387109300*x);
L0:=L0+0.00000000212*COS(3.00233538977+12043.57428188900*x);
L0:=L0+0.00000000192*COS(5.46153589821+6379.05507720920*x);
L0:=L0+0.00000000165*COS(1.38698167064+4171.42553661380*x);
L0:=L0+0.00000000160*COS(6.23798383332+202.25339517410*x);
L0:=L0+0.00000000215*COS(0.20889073407+5621.84292321040*x);
L0:=L0+0.00000000181*COS(4.12439203622+13341.67431130680*x);
L0:=L0+0.00000000153*COS(1.24460848836+29826.30635467320*x);
L0:=L0+0.00000000150*COS(3.12999753018+799.82112516540*x);
L0:=L0+0.00000000175*COS(4.55671604437+239424.39025435288*x);
L0:=L0+0.00000000192*COS(1.33928820063+394.62588505920*x);
L0:=L0+0.00000000149*COS(2.65697593276+21.33564046700*x);
L0:=L0+0.00000000146*COS(5.58021191726+412.37109687440*x);
L0:=L0+0.00000000156*COS(3.75650175503+12323.42309600880*x);
L0:=L0+0.00000000143*COS(3.75708566606+58864.54391814630*x);
L0:=L0+0.00000000143*COS(3.28248547724+29.82143814880*x);
L0:=L0+0.00000000144*COS(1.07862546598+1265.56747862640*x);
L0:=L0+0.00000000148*COS(0.23389236655+10021.83728009940*x);
L0:=L0+0.00000000193*COS(5.92751083086+40879.44050464380*x);
L0:=L0+0.00000000140*COS(4.97612440269+158.94351778320*x);
L0:=L0+0.00000000148*COS(2.61640453469+17157.06188047180*x);
L0:=L0+0.00000000141*COS(3.66871308723+26084.02180621620*x);
L0:=L0+0.00000000147*COS(5.09968173403+661.23292678100*x);
L0:=L0+0.00000000146*COS(4.96885605695+57375.80190084620*x);
L0:=L0+0.00000000142*COS(0.78678347839+12779.45079542080*x);
L0:=L0+0.00000000134*COS(4.79432636012+111.18664228760*x);
L0:=L0+0.00000000140*COS(1.27748013377+107.66352393860*x);
L0:=L0+0.00000000169*COS(2.74893543762+26735.94526221320*x);
L0:=L0+0.00000000165*COS(3.95288000638+6357.85744855870*x);
L0:=L0+0.00000000183*COS(5.43418358741+369.69981594040*x);
L0:=L0+0.00000000134*COS(3.09132862833+17.81252211800*x);
L0:=L0+0.00000000132*COS(3.05633896779+22490.96212149340*x);
L0:=L0+0.00000000134*COS(4.09472795832+6599.46771964800*x);
L0:=L0+0.00000000181*COS(4.22950689891+966.97087743560*x);
L0:=L0+0.00000000152*COS(5.28885894415+12669.24447420140*x);
L0:=L0+0.00000000150*COS(5.86819430908+97238.62754448749*x);
L0:=L0+0.00000000142*COS(5.87266532526+22476.73502749179*x);
L0:=L0+0.00000000145*COS(5.07330784304+87.30820453981*x);
L0:=L0+0.00000000133*COS(5.65471067133+31.97230581680*x);
L0:=L0+0.00000000124*COS(2.83326217072+12566.21901028560*x);
L0:=L0+0.00000000135*COS(3.12861731644+32217.20018108080*x);
L0:=L0+0.00000000137*COS(0.86487461904+9924.81042151060*x);
L0:=L0+0.00000000172*COS(1.98369595114+174242.46596404970*x);
L0:=L0+0.00000000170*COS(4.41115280254+327574.51427678125*x);
L0:=L0+0.00000000151*COS(0.46542099527+39609.65458316560*x);
L0:=L0+0.00000000148*COS(2.13439571118+491.66329245880*x);
L0:=L0+0.00000000153*COS(3.78801830344+17363.24742890899*x);
L0:=L0+0.00000000165*COS(5.31654110459+16943.76278503380*x);
L0:=L0+0.00000000165*COS(4.06747587817+58953.14544329400*x);
L0:=L0+0.00000000118*COS(0.63846333239+6.06591562980*x);
L0:=L0+0.00000000159*COS(0.86086959274+221995.02880149524*x);
L0:=L0+0.00000000119*COS(5.96432932413+1385.89527633620*x);
L0:=L0+0.00000000114*COS(5.16516114595+25685.87280280800*x);
L0:=L0+0.00000000112*COS(3.39403722178+21393.54196985760*x);
L0:=L0+0.00000000112*COS(4.92889233335+56.80326216980*x);
L0:=L0+0.00000000119*COS(2.40637635942+18635.92845453620*x);
L0:=L0+0.00000000115*COS(0.23374479051+418.92439890060*x);
L0:=L0+0.00000000122*COS(0.93575234049+24492.40611365159*x);
L0:=L0+0.00000000115*COS(4.58880032176+26709.64694241340*x);
L0:=L0+0.00000000130*COS(4.85539251000+22345.26037610820*x);
L0:=L0+0.00000000140*COS(1.09413073202+44809.65020086340*x);
L0:=L0+0.00000000112*COS(6.05401806281+433.71173787680*x);
L0:=L0+0.00000000104*COS(1.54931540602+127.95153303460*x);
L0:=L0+0.00000000105*COS(4.82620858888+33794.54372352860*x);
L0:=L0+0.00000000102*COS(4.12448497391+15664.03552270859*x);
L0:=L0+0.00000000107*COS(4.67919356465+77690.75950573849*x);
L0:=L0+0.00000000118*COS(4.52320170120+19004.64794940840*x);
L0:=L0+0.00000000107*COS(5.71774478555+77736.78343050249*x);
L0:=L0+0.00000000143*COS(1.81201813018+4214.06901508480*x);
L0:=L0+0.00000000125*COS(1.14419195615+625.67019231240*x);
L0:=L0+0.00000000124*COS(3.27736514057+12566.08438968000*x);
L0:=L0+0.00000000110*COS(1.08682570828+2787.04302385740*x);
L0:=L0+0.00000000105*COS(1.78318141871+18139.29450141590*x);
L0:=L0+0.00000000102*COS(4.75119578149+12242.64628332540*x);
L0:=L0+0.00000000137*COS(1.43510636754+86464.61331683119*x);
L0:=L0+0.00000000101*COS(4.91289409429+401.67212175720*x);
L0:=L0+0.00000000129*COS(1.23567904485+12029.34718788740*x);
L0:=L0+0.00000000138*COS(2.45654707999+7576.56007357400*x);
L0:=L0+0.00000000103*COS(0.40004073416+90279.92316810328*x);
L0:=L0+0.00000000108*COS(0.98989774940+5636.06501667660*x);
L0:=L0+0.00000000117*COS(5.17362872063+34520.30930938080*x);
L0:=L0+0.00000000100*COS(3.95534628189+5547.19933645960*x);
L0:=L0+0.00000000098*COS(1.28118280598+21548.96236929180*x);
L0:=L0+0.00000000097*COS(3.34717130592+16310.97904572060*x);
L0:=L0+0.00000000098*COS(4.37041908717+34513.26307268280*x);
L0:=L0+0.00000000125*COS(2.72164432960+24065.80792277559*x);
L0:=L0+0.00000000102*COS(0.66938025772+10239.58386601080*x);
L0:=L0+0.00000000119*COS(1.21689479331+1478.86657406440*x);
L0:=L0+0.00000000094*COS(1.99595224256+13362.44970679920*x);
L0:=L0+0.00000000094*COS(4.30965982872+26880.31981303260*x);
L0:=L0+0.00000000095*COS(2.89807657534+34911.41207609100*x);
L0:=L0+0.00000000106*COS(1.00156653590+16522.65971600220*x);
L0:=L0+0.00000000097*COS(0.89642320201+71980.63357473118*x);
L0:=L0+0.00000000116*COS(4.19967201116+206.70073729660*x);
L0:=L0+0.00000000099*COS(1.37437847718+1039.02661079040*x);
L0:=L0+0.00000000126*COS(3.21642544972+305281.94307104882*x);
L0:=L0+0.00000000094*COS(0.68997876060+7834.12107263940*x);
L0:=L0+0.00000000094*COS(5.58132218606+3104.93005942380*x);
L0:=L0+0.00000000095*COS(3.03823741110+8982.81066930900*x);
L0:=L0+0.00000000108*COS(0.52696637156+276.74577186440*x);
L0:=L0+0.00000000124*COS(3.43899862683+172146.97134054029*x);
L0:=L0+0.00000000102*COS(1.04031728553+95143.13292097810*x);
L0:=L0+0.00000000104*COS(3.39218586218+290.97286586600*x);
L0:=L0+0.00000000110*COS(3.68205877433+22380.75580027400*x);
L0:=L0+0.00000000117*COS(0.78475956902+83286.91426955358*x);
L0:=L0+0.00000000083*COS(0.18241793425+15141.39079431200*x);
L0:=L0+0.00000000089*COS(4.45371820659+792.77488846740*x);
L0:=L0+0.00000000082*COS(4.80703651241+6819.88036208680*x);
L0:=L0+0.00000000087*COS(3.43122851097+27707.54249429480*x);
L0:=L0+0.00000000101*COS(5.32081603011+2301.58581590939*x);
L0:=L0+0.00000000082*COS(0.87060089842+10241.20229116720*x);
L0:=L0+0.00000000086*COS(4.61919461931+36147.40987730040*x);
L0:=L0+0.00000000095*COS(2.87032884659+23020.65308658799*x);
L0:=L0+0.00000000088*COS(3.21133165690+33326.57873317420*x);
L0:=L0+0.00000000080*COS(1.84900424847+21424.46664430340*x);
L0:=L0+0.00000000101*COS(4.18796434479+30666.15495843280*x);
L0:=L0+0.00000000107*COS(5.77864921649+34115.11406927460*x);
L0:=L0+0.00000000104*COS(1.08739495962+6288.59877429880*x);
L0:=L0+0.00000000110*COS(3.32898859416+72140.62866668739*x);
L0:=L0+0.00000000087*COS(4.40657711727+142.17862703620*x);
L0:=L0+0.00000000109*COS(1.94546030825+24279.10701821359*x);
L0:=L0+0.00000000087*COS(4.32472045435+742.99006053260*x);
L0:=L0+0.00000000107*COS(4.91580912547+277.03499374140*x);
L0:=L0+0.00000000088*COS(2.10180220766+26482.17080962440*x);
L0:=L0+0.00000000086*COS(4.01887374432+12491.37010141550*x);
L0:=L0+0.00000000106*COS(5.49092372854+62883.35513951360*x);
L0:=L0+0.00000000080*COS(6.19781316983+6709.67404086740*x);
L0:=L0+0.00000000088*COS(2.09872810657+238004.52415723629*x);
L0:=L0+0.00000000083*COS(4.90662164029+51.28033786241*x);
L0:=L0+0.00000000095*COS(4.13387406591+18216.44381066100*x);
L0:=L0+0.00000000078*COS(6.06949391680+148434.53403769129*x);
L0:=L0+0.00000000079*COS(3.03048221644+838.96928775040*x);
L0:=L0+0.00000000074*COS(5.49813051211+29026.48522950779*x);
L0:=L0+0.00000000073*COS(3.05008665738+567.71863773040*x);
L0:=L0+0.00000000084*COS(0.46604373274+45.14121963660*x);
L0:=L0+0.00000000093*COS(2.52267536308+48739.85989708300*x);
L0:=L0+0.00000000076*COS(1.76418124905+41654.96311596780*x);
L0:=L0+0.00000000067*COS(5.77851227793+6311.52503745920*x);
L0:=L0+0.00000000062*COS(3.32967880172+15508.61512327440*x);
L0:=L0+0.00000000079*COS(5.59773841328+71960.38658322369*x);
L0:=L0+0.00000000057*COS(3.90629505268+5999.21653112620*x);
L0:=L0+0.00000000061*COS(0.05695043232+7856.89627409019*x);
L0:=L0+0.00000000061*COS(5.63297958433+7863.94251078820*x);
L0:=L0+0.00000000065*COS(3.72178394016+12573.26524698360*x);
L0:=L0+0.00000000057*COS(4.18217219541+26087.90314157420*x);
L0:=L0+0.00000000066*COS(3.92262333487+69853.35207568129*x);
L0:=L0+0.00000000053*COS(5.51119362045+77710.24834977149*x);
L0:=L0+0.00000000053*COS(4.88573986961+77717.29458646949*x);
L0:=L0+0.00000000062*COS(2.88876342225+9411.46461508720*x);
L0:=L0+0.00000000051*COS(1.12657183874+82576.98122099529*x);
L0:=L0+0.00000000045*COS(2.95671076719+24602.61243487099*x);
L0:=L0+0.00000000040*COS(5.55145719241+12565.17137891460*x);
L0:=L0+0.00000000039*COS(1.20838190039+18842.11400297339*x);
L0:=L0+0.00000000045*COS(3.18590558749+45585.17281218740*x);
L0:=L0+0.00000000049*COS(2.44790934886+13613.80427733600*x);

LOCAL L1:=0;
L1:=L1+6283.31966747491;
L1:=L1+0.00206058863*COS(2.67823455584+6283.07584999140*x);
L1:=L1+0.00004303430*COS(2.63512650414+12566.15169998280*x);
L1:=L1+0.00000425264*COS(1.59046980729+3.52311834900*x);
L1:=L1+0.00000108977*COS(2.96618001993+1577.34354244780*x);
L1:=L1+0.00000093478*COS(2.59212835365+18849.22754997420*x);
L1:=L1+0.00000119261*COS(5.79557487799+26.29831979980*x);
L1:=L1+0.00000072122*COS(1.13846158196+529.69096509460*x);
L1:=L1+0.00000067768*COS(1.87472304791+398.14900340820*x);
L1:=L1+0.00000067327*COS(4.40918235168+5507.55323866740*x);
L1:=L1+0.00000059027*COS(2.88797038460+5223.69391980220*x);
L1:=L1+0.00000055976*COS(2.17471680261+155.42039943420*x);
L1:=L1+0.00000045407*COS(0.39803079805+796.29800681640*x);
L1:=L1+0.00000036369*COS(0.46624739835+775.52261132400*x);
L1:=L1+0.00000028958*COS(2.64707383882+7.11354700080*x);
L1:=L1+0.00000019097*COS(1.84628332577+5486.77784317500*x);
L1:=L1+0.00000020844*COS(5.34138275149+0.98032106820*x);
L1:=L1+0.00000018508*COS(4.96855124577+213.29909543800*x);
L1:=L1+0.00000016233*COS(0.03216483047+2544.31441988340*x);
L1:=L1+0.00000017293*COS(2.99116864949+6275.96230299060*x);
L1:=L1+0.00000015832*COS(1.43049285325+2146.16541647520*x);
L1:=L1+0.00000014615*COS(1.20532366323+10977.07880469900*x);
L1:=L1+0.00000011877*COS(3.25804815607+5088.62883976680*x);
L1:=L1+0.00000011514*COS(2.07502418155+4694.00295470760*x);
L1:=L1+0.00000009721*COS(4.23925472239+1349.86740965880*x);
L1:=L1+0.00000009969*COS(1.30262991097+6286.59896834040*x);
L1:=L1+0.00000009452*COS(2.69957062864+242.72860397400*x);
L1:=L1+0.00000012461*COS(2.83432285512+1748.01641306700*x);
L1:=L1+0.00000011808*COS(5.27379790480+1194.44701022460*x);
L1:=L1+0.00000008577*COS(5.64475868067+951.71840625060*x);
L1:=L1+0.00000010641*COS(0.76614199202+553.56940284240*x);
L1:=L1+0.00000007576*COS(5.30062664886+2352.86615377180*x);
L1:=L1+0.00000005834*COS(1.76649917904+1059.38193018920*x);
L1:=L1+0.00000006385*COS(2.65033984967+9437.76293488700*x);
L1:=L1+0.00000005223*COS(5.66135767624+71430.69561812909*x);
L1:=L1+0.00000005305*COS(0.90857521574+3154.68708489560*x);
L1:=L1+0.00000006101*COS(4.66632584188+4690.47983635860*x);
L1:=L1+0.00000004330*COS(0.24102555403+6812.76681508600*x);
L1:=L1+0.00000005041*COS(1.42490103709+6438.49624942560*x);
L1:=L1+0.00000004259*COS(0.77355900599+10447.38783960440*x);
L1:=L1+0.00000005198*COS(1.85353197345+801.82093112380*x);
L1:=L1+0.00000003744*COS(2.00119516488+8031.09226305840*x);
L1:=L1+0.00000003558*COS(2.42901552681+14143.49524243060*x);
L1:=L1+0.00000003372*COS(3.86210700128+1592.59601363280*x);
L1:=L1+0.00000003374*COS(0.88776219727+12036.46073488820*x);
L1:=L1+0.00000003175*COS(3.18785710594+4705.73230754360*x);
L1:=L1+0.00000003221*COS(0.61599835472+8429.24126646660*x);
L1:=L1+0.00000004132*COS(5.23992859705+7084.89678111520*x);
L1:=L1+0.00000002970*COS(6.07026318493+4292.33083295040*x);
L1:=L1+0.00000002900*COS(2.32464208411+20.35531939880*x);
L1:=L1+0.00000003504*COS(4.79975694359+6279.55273164240*x);
L1:=L1+0.00000002950*COS(1.43108874817+5746.27133789600*x);
L1:=L1+0.00000002697*COS(4.80368225199+7234.79425624200*x);
L1:=L1+0.00000002531*COS(6.22290682655+6836.64525283380*x);
L1:=L1+0.00000002745*COS(0.93466065396+5760.49843189760*x);
L1:=L1+0.00000003250*COS(3.39954640038+7632.94325965020*x);
L1:=L1+0.00000002277*COS(5.00277837672+17789.84561978500*x);
L1:=L1+0.00000002075*COS(3.95534978634+10213.28554621100*x);
L1:=L1+0.00000002061*COS(2.22411683077+5856.47765911540*x);
L1:=L1+0.00000002252*COS(5.67166499885+11499.65622279280*x);
L1:=L1+0.00000002148*COS(5.20184578235+11513.88331679440*x);
L1:=L1+0.00000001886*COS(0.53198320577+3340.61242669980*x);
L1:=L1+0.00000001875*COS(4.73511970207+83996.84731811189*x);
L1:=L1+0.00000002060*COS(2.54987293999+25132.30339996560*x);
L1:=L1+0.00000001794*COS(1.47435409831+4164.31198961300*x);
L1:=L1+0.00000001778*COS(3.02473091781+5.52292430740*x);
L1:=L1+0.00000002029*COS(0.90960209983+6256.77753019160*x);
L1:=L1+0.00000002075*COS(2.26767270157+522.57741809380*x);
L1:=L1+0.00000001772*COS(3.02622802353+5753.38488489680*x);
L1:=L1+0.00000001569*COS(6.12410242782+5216.58037280140*x);
L1:=L1+0.00000001590*COS(4.63713748247+3.28635741780*x);
L1:=L1+0.00000001542*COS(4.20004448567+13367.97263110660*x);
L1:=L1+0.00000001427*COS(1.19088061711+3894.18182954220*x);
L1:=L1+0.00000001375*COS(3.09301252193+135.06508003540*x);
L1:=L1+0.00000001359*COS(4.24532506641+426.59819087600*x);
L1:=L1+0.00000001340*COS(5.76511818622+6040.34724601740*x);
L1:=L1+0.00000001284*COS(3.08524663344+5643.17856367740*x);
L1:=L1+0.00000001250*COS(3.07748157144+11926.25441366880*x);
L1:=L1+0.00000001551*COS(3.07665451458+6681.22485339960*x);
L1:=L1+0.00000001268*COS(2.09196018331+6290.18939699220*x);
L1:=L1+0.00000001144*COS(3.24444699514+12168.00269657460*x);
L1:=L1+0.00000001248*COS(3.44504937285+536.80451209540*x);
L1:=L1+0.00000001118*COS(2.31829670425+16730.46368959580*x);
L1:=L1+0.00000001105*COS(5.31966001019+23.87843774780*x);
L1:=L1+0.00000001051*COS(3.75015946014+7860.41939243920*x);
L1:=L1+0.00000001025*COS(2.44688534235+1990.74501704100*x);
L1:=L1+0.00000000962*COS(0.81771017882+3.88133535800*x);
L1:=L1+0.00000000910*COS(0.41727865299+7079.37385680780*x);
L1:=L1+0.00000000883*COS(5.16833917651+11790.62908865880*x);
L1:=L1+0.00000000957*COS(4.07673573735+6127.65545055720*x);
L1:=L1+0.00000001110*COS(3.90096793825+11506.76976979360*x);
L1:=L1+0.00000000802*COS(3.88778875582+10973.55568635000*x);
L1:=L1+0.00000000780*COS(2.39934293755+1589.07289528380*x);
L1:=L1+0.00000000758*COS(1.30034364248+103.09277421860*x);
L1:=L1+0.00000000749*COS(4.96275803300+6496.37494542940*x);
L1:=L1+0.00000000765*COS(3.36312388424+36.02786667740*x);
L1:=L1+0.00000000915*COS(5.41543742089+206.18554843720*x);
L1:=L1+0.00000000776*COS(2.57589093871+11371.70468975820*x);
L1:=L1+0.00000000772*COS(3.98369209464+955.59974160860*x);
L1:=L1+0.00000000749*COS(5.17890001805+10969.96525769820*x);
L1:=L1+0.00000000806*COS(0.34218864254+9917.69687450980*x);
L1:=L1+0.00000000728*COS(5.20962563787+38.02767263580*x);
L1:=L1+0.00000000685*COS(2.77592961854+20.77539549240*x);
L1:=L1+0.00000000636*COS(4.28242193632+28.44918746780*x);
L1:=L1+0.00000000608*COS(5.63278508906+10984.19235169980*x);
L1:=L1+0.00000000704*COS(5.60738823665+3738.76143010800*x);
L1:=L1+0.00000000685*COS(0.38876148682+15.25247118500*x);
L1:=L1+0.00000000601*COS(0.73489602442+419.48464387520*x);
L1:=L1+0.00000000716*COS(2.65279791438+6309.37416979120*x);
L1:=L1+0.00000000584*COS(5.54502568227+17298.18232732620*x);
L1:=L1+0.00000000650*COS(1.13379656406+7058.59846131540*x);
L1:=L1+0.00000000688*COS(2.59683891779+3496.03282613400*x);
L1:=L1+0.00000000485*COS(0.44467180946+12352.85260454480*x);
L1:=L1+0.00000000528*COS(2.74936967681+3930.20969621960*x);
L1:=L1+0.00000000597*COS(5.27668281777+10575.40668294180*x);
L1:=L1+0.00000000583*COS(3.18929067810+4732.03062734340*x);
L1:=L1+0.00000000526*COS(5.01697321546+5884.92684658320*x);
L1:=L1+0.00000000540*COS(1.29175137075+640.87760738220*x);
L1:=L1+0.00000000473*COS(5.49953306970+5230.80746680300*x);
L1:=L1+0.00000000406*COS(5.21248452189+220.41264243880*x);
L1:=L1+0.00000000395*COS(1.87474483222+16200.77272450120*x);
L1:=L1+0.00000000370*COS(3.84921354713+18073.70493865020*x);
L1:=L1+0.00000000367*COS(0.88533542778+6283.14316029419*x);
L1:=L1+0.00000000379*COS(0.37983009325+10177.25767953360*x);
L1:=L1+0.00000000356*COS(3.84145204913+11712.95531823080*x);
L1:=L1+0.00000000374*COS(5.01577520608+7.04623669800*x);
L1:=L1+0.00000000381*COS(4.30250406634+6062.66320755260*x);
L1:=L1+0.00000000471*COS(0.86381834647+6069.77675455340*x);
L1:=L1+0.00000000367*COS(1.32943839763+6283.00853968860*x);
L1:=L1+0.00000000460*COS(5.19667219575+6284.05617105960*x);
L1:=L1+0.00000000333*COS(5.54256205741+4686.88940770680*x);
L1:=L1+0.00000000341*COS(4.36522989934+7238.67559160000*x);
L1:=L1+0.00000000336*COS(4.00205876835+3097.88382272579*x);
L1:=L1+0.00000000359*COS(6.22679790284+245.83164622940*x);
L1:=L1+0.00000000307*COS(2.35299010924+170.67287061920*x);
L1:=L1+0.00000000343*COS(3.77164927143+6076.89030155420*x);
L1:=L1+0.00000000296*COS(5.44152227481+17260.15465469040*x);
L1:=L1+0.00000000328*COS(0.13837875384+11015.10647733480*x);
L1:=L1+0.00000000268*COS(1.13904550630+12569.67481833180*x);
L1:=L1+0.00000000263*COS(0.00538633678+4136.91043351620*x);
L1:=L1+0.00000000282*COS(5.04399837480+7477.52286021600*x);
L1:=L1+0.00000000288*COS(3.13401177517+12559.03815298200*x);
L1:=L1+0.00000000259*COS(0.93882269387+5642.19824260920*x);
L1:=L1+0.00000000292*COS(1.98420020514+12132.43996210600*x);
L1:=L1+0.00000000247*COS(3.84244798532+5429.87946823940*x);
L1:=L1+0.00000000245*COS(5.70467521726+65147.61976813770*x);
L1:=L1+0.00000000241*COS(0.99480969552+3634.62102451840*x);
L1:=L1+0.00000000246*COS(3.06168069935+110.20632121940*x);
L1:=L1+0.00000000239*COS(6.11855909114+11856.21865142450*x);
L1:=L1+0.00000000263*COS(0.66348415419+21228.39202354580*x);
L1:=L1+0.00000000262*COS(1.51070507866+12146.66705610760*x);
L1:=L1+0.00000000230*COS(1.75927314884+9779.10867612540*x);
L1:=L1+0.00000000223*COS(2.00967043606+6172.86952877200*x);
L1:=L1+0.00000000246*COS(1.10411690865+6282.09552892320*x);
L1:=L1+0.00000000221*COS(3.03945240854+8635.94200376320*x);
L1:=L1+0.00000000214*COS(4.03840869663+14314.16811304980*x);
L1:=L1+0.00000000236*COS(5.46915070580+13916.01910964160*x);
L1:=L1+0.00000000224*COS(4.68408089456+24072.92146977640*x);
L1:=L1+0.00000000212*COS(2.13695625494+5849.36411211460*x);
L1:=L1+0.00000000207*COS(3.07724246401+11.72935283600*x);
L1:=L1+0.00000000207*COS(6.10306282747+23543.23050468179*x);
L1:=L1+0.00000000266*COS(1.00709566823+2388.89402044920*x);
L1:=L1+0.00000000217*COS(6.27837036335+17267.26820169119*x);
L1:=L1+0.00000000204*COS(2.34615348695+266.60704172180*x);
L1:=L1+0.00000000195*COS(5.55015549753+6133.51265285680*x);
L1:=L1+0.00000000188*COS(2.52667166175+6525.80445396540*x);
L1:=L1+0.00000000185*COS(0.90960768344+18319.53658487960*x);
L1:=L1+0.00000000177*COS(1.73429218289+154717.60988768269*x);
L1:=L1+0.00000000187*COS(4.76483647432+4535.05943692440*x);
L1:=L1+0.00000000186*COS(4.63080493407+10440.27429260360*x);
L1:=L1+0.00000000215*COS(2.81255454560+7342.45778018060*x);
L1:=L1+0.00000000172*COS(1.45551888559+9225.53927328300*x);
L1:=L1+0.00000000162*COS(3.30661909388+639.89728631400*x);
L1:=L1+0.00000000168*COS(2.17671416605+27.40155609680*x);
L1:=L1+0.00000000160*COS(1.68164180475+15110.46611986620*x);
L1:=L1+0.00000000158*COS(0.13519771874+13095.84266507740*x);
L1:=L1+0.00000000183*COS(0.56281322071+13517.87010623340*x);
L1:=L1+0.00000000179*COS(3.58450811616+87.30820453981*x);
L1:=L1+0.00000000152*COS(2.84070476818+5650.29211067820*x);
L1:=L1+0.00000000182*COS(0.44065530624+17253.04110768959*x);
L1:=L1+0.00000000160*COS(5.95767264171+4701.11650170840*x);
L1:=L1+0.00000000142*COS(1.46290137520+11087.28512591840*x);
L1:=L1+0.00000000142*COS(2.04464036087+20426.57109242200*x);
L1:=L1+0.00000000131*COS(5.40912137746+2699.73481931760*x);
L1:=L1+0.00000000144*COS(2.07312090485+25158.60171976540*x);
L1:=L1+0.00000000147*COS(6.15106982168+9623.68827669120*x);
L1:=L1+0.00000000141*COS(5.55739979498+10454.50138660520*x);
L1:=L1+0.00000000135*COS(0.06098110407+16723.35014259500*x);
L1:=L1+0.00000000124*COS(5.81218025669+17256.63153634140*x);
L1:=L1+0.00000000124*COS(2.36293551623+4933.20844033260*x);
L1:=L1+0.00000000126*COS(3.47435905118+22483.84857449259*x);
L1:=L1+0.00000000159*COS(5.63954754618+5729.50644714900*x);
L1:=L1+0.00000000123*COS(3.92815963256+17996.03116822220*x);
L1:=L1+0.00000000148*COS(3.02509280598+1551.04522264800*x);
L1:=L1+0.00000000120*COS(5.91904349732+6206.80977871580*x);
L1:=L1+0.00000000134*COS(3.11122937825+21954.15760939799*x);
L1:=L1+0.00000000119*COS(5.52141123450+709.93304855830*x);
L1:=L1+0.00000000122*COS(3.00813429479+19800.94595622480*x);
L1:=L1+0.00000000127*COS(1.37618620001+14945.31617355440*x);
L1:=L1+0.00000000141*COS(2.56889468729+1052.26838318840*x);
L1:=L1+0.00000000123*COS(2.83671175442+11919.14086666800*x);
L1:=L1+0.00000000118*COS(0.81934438215+5331.35744374080*x);
L1:=L1+0.00000000151*COS(2.68731829165+11769.85369316640*x);
L1:=L1+0.00000000119*COS(5.08835797638+5481.25491886760*x);
L1:=L1+0.00000000153*COS(2.46021790779+11933.36796066960*x);
L1:=L1+0.00000000108*COS(1.04936452145+11403.67699557500*x);
L1:=L1+0.00000000128*COS(0.99794735107+8827.39026987480*x);
L1:=L1+0.00000000144*COS(2.54869747042+227.47613278900*x);
L1:=L1+0.00000000150*COS(4.50631437136+2379.16447357160*x);
L1:=L1+0.00000000107*COS(1.79272017026+13119.72110282519*x);
L1:=L1+0.00000000107*COS(4.43556814486+18422.62935909819*x);
L1:=L1+0.00000000109*COS(0.29269062317+16737.57723659660*x);
L1:=L1+0.00000000141*COS(3.18979826258+6262.30045449900*x);
L1:=L1+0.00000000122*COS(4.23040027813+29.42950853600*x);
L1:=L1+0.00000000111*COS(5.16954029551+17782.73207278420*x);
L1:=L1+0.00000000100*COS(3.52213872761+18052.92954315780*x);
L1:=L1+0.00000000108*COS(1.08514212991+16858.48253293320*x);
L1:=L1+0.00000000106*COS(1.96085248410+74.78159856730*x);
L1:=L1+0.00000000110*COS(2.30582372873+16460.33352952499*x);
L1:=L1+0.00000000097*COS(3.50918940210+5333.90024102160*x);
L1:=L1+0.00000000099*COS(3.56417337974+735.87651353180*x);
L1:=L1+0.00000000094*COS(5.01857894228+3128.38876509580*x);
L1:=L1+0.00000000097*COS(1.65579893894+533.21408344360*x);
L1:=L1+0.00000000092*COS(0.89217162285+29296.61538957860*x);
L1:=L1+0.00000000123*COS(3.16062050433+9380.95967271720*x);
L1:=L1+0.00000000102*COS(1.20493500565+23020.65308658799*x);
L1:=L1+0.00000000088*COS(2.21296088224+12721.57209941700*x);
L1:=L1+0.00000000089*COS(1.54264720310+20199.09495963300*x);
L1:=L1+0.00000000113*COS(4.83320707870+16496.36139620240*x);
L1:=L1+0.00000000121*COS(6.19860353182+9388.00590941520*x);
L1:=L1+0.00000000089*COS(4.08082274765+22805.73556599360*x);
L1:=L1+0.00000000098*COS(1.09181832830+12043.57428188900*x);
L1:=L1+0.00000000086*COS(1.13655027605+143571.32428481648*x);
L1:=L1+0.00000000088*COS(5.96980472191+107.66352393860*x);
L1:=L1+0.00000000082*COS(5.01340404594+22003.91463486980*x);
L1:=L1+0.00000000094*COS(1.69615700473+23006.42599258639*x);
L1:=L1+0.00000000081*COS(3.00657814365+2118.76386037840*x);
L1:=L1+0.00000000098*COS(1.39215287161+8662.24032356300*x);
L1:=L1+0.00000000077*COS(3.33555190840+15720.83878487840*x);
L1:=L1+0.00000000082*COS(5.86880116464+2787.04302385740*x);
L1:=L1+0.00000000076*COS(5.67183650604+14.22709400160*x);
L1:=L1+0.00000000081*COS(6.16619455699+1039.02661079040*x);
L1:=L1+0.00000000076*COS(3.21449884756+111.18664228760*x);
L1:=L1+0.00000000078*COS(1.37531518377+21947.11137270000*x);
L1:=L1+0.00000000074*COS(3.58814195051+11609.86254401220*x);
L1:=L1+0.00000000077*COS(4.84846488388+22743.40937951640*x);
L1:=L1+0.00000000090*COS(1.48869013606+15671.08175940660*x);
L1:=L1+0.00000000082*COS(3.48618399109+29088.81141598500*x);
L1:=L1+0.00000000069*COS(3.55746476593+4590.91018048900*x);
L1:=L1+0.00000000069*COS(1.93625656075+135.62532501000*x);
L1:=L1+0.00000000070*COS(2.66548322237+18875.52586977400*x);
L1:=L1+0.00000000069*COS(5.41478093731+26735.94526221320*x);
L1:=L1+0.00000000079*COS(5.15154513662+12323.42309600880*x);
L1:=L1+0.00000000094*COS(3.62899392448+77713.77146812050*x);
L1:=L1+0.00000000078*COS(4.17011182047+1066.49547719000*x);
L1:=L1+0.00000000071*COS(3.89435637865+22779.43724619380*x);
L1:=L1+0.00000000063*COS(4.53968787714+8982.81066930900*x);
L1:=L1+0.00000000069*COS(0.96028230548+14919.01785375460*x);
L1:=L1+0.00000000076*COS(3.29092216589+2942.46342329160*x);
L1:=L1+0.00000000063*COS(4.09167842893+16062.18452611680*x);
L1:=L1+0.00000000065*COS(3.34580407184+51.28033786241*x);
L1:=L1+0.00000000065*COS(5.75757544877+52670.06959330260*x);
L1:=L1+0.00000000068*COS(5.75884067555+21424.46664430340*x);
L1:=L1+0.00000000057*COS(5.45122399850+12592.45001978260*x);
L1:=L1+0.00000000057*COS(5.25043362558+20995.39296644940*x);
L1:=L1+0.00000000073*COS(0.53299090807+2301.58581590939*x);
L1:=L1+0.00000000070*COS(4.31243357502+19402.79695281660*x);
L1:=L1+0.00000000067*COS(2.53852336668+377.37360791580*x);
L1:=L1+0.00000000056*COS(3.20816844695+24889.57479599160*x);
L1:=L1+0.00000000053*COS(3.17816599142+18451.07854656599*x);
L1:=L1+0.00000000053*COS(3.61529270216+77.67377042800*x);
L1:=L1+0.00000000053*COS(0.45467549335+30666.15495843280*x);
L1:=L1+0.00000000061*COS(0.14807288453+23013.53953958720*x);
L1:=L1+0.00000000051*COS(3.32803972907+56.89837493560*x);
L1:=L1+0.00000000052*COS(3.41177624177+23141.55838292460*x);
L1:=L1+0.00000000058*COS(3.13638677202+309.27832265580*x);
L1:=L1+0.00000000070*COS(2.50592323465+31415.37924995700*x);
L1:=L1+0.00000000052*COS(5.10673376738+17796.95916678580*x);
L1:=L1+0.00000000067*COS(6.27917920454+22345.26037610820*x);
L1:=L1+0.00000000050*COS(0.42577644151+25685.87280280800*x);
L1:=L1+0.00000000048*COS(0.70204553333+1162.47470440780*x);
L1:=L1+0.00000000066*COS(3.64350022359+15265.88651930040*x);
L1:=L1+0.00000000050*COS(5.74382917440+19.66976089979*x);
L1:=L1+0.00000000050*COS(4.69825387775+28237.23345938940*x);
L1:=L1+0.00000000047*COS(5.74015846442+12139.55350910680*x);
L1:=L1+0.00000000054*COS(1.97301333704+23581.25817731760*x);
L1:=L1+0.00000000049*COS(4.98223579027+10021.83728009940*x);
L1:=L1+0.00000000046*COS(5.41431705539+33019.02111220460*x);
L1:=L1+0.00000000051*COS(1.23882053879+12539.85338018300*x);
L1:=L1+0.00000000046*COS(2.41369976086+98068.53671630539*x);
L1:=L1+0.00000000044*COS(0.80750593746+167283.76158766549*x);
L1:=L1+0.00000000045*COS(4.39613584445+433.71173787680*x);
L1:=L1+0.00000000044*COS(2.57358208785+12964.30070339100*x);
L1:=L1+0.00000000046*COS(0.26142733448+11.04570026390*x);
L1:=L1+0.00000000045*COS(2.46230645202+51868.24866217880*x);
L1:=L1+0.00000000048*COS(0.89551707131+56600.27928952220*x);
L1:=L1+0.00000000057*COS(1.86416707010+25287.72379939980*x);
L1:=L1+0.00000000042*COS(5.26377513431+26084.02180621620*x);
L1:=L1+0.00000000049*COS(3.17757670611+6303.85124548380*x);
L1:=L1+0.00000000052*COS(3.65266055509+7872.14874527520*x);
L1:=L1+0.00000000040*COS(1.81891629936+34596.36465465240*x);
L1:=L1+0.00000000043*COS(1.94164978061+1903.43681250120*x);
L1:=L1+0.00000000041*COS(0.74461854136+23937.85638974100*x);
L1:=L1+0.00000000048*COS(6.26034008181+28286.99048486120*x);
L1:=L1+0.00000000045*COS(5.45575017530+60530.48898574180*x);
L1:=L1+0.00000000040*COS(2.92105728682+21548.96236929180*x);
L1:=L1+0.00000000040*COS(0.04502010161+38526.57435087200*x);
L1:=L1+0.00000000053*COS(3.64791042082+11925.27409260060*x);
L1:=L1+0.00000000041*COS(5.04048954693+27832.03821928320*x);
L1:=L1+0.00000000042*COS(5.19292937193+19004.64794940840*x);
L1:=L1+0.00000000040*COS(2.57120233428+24356.78078864160*x);
L1:=L1+0.00000000038*COS(3.49190341464+226858.23855437008*x);
L1:=L1+0.00000000039*COS(4.61184303844+95.97922721780*x);
L1:=L1+0.00000000043*COS(2.20648228147+13521.75144159140*x);
L1:=L1+0.00000000040*COS(5.83461945819+16193.65917750039*x);
L1:=L1+0.00000000045*COS(3.73714372195+7875.67186362420*x);
L1:=L1+0.00000000043*COS(1.14078465002+49.75702547180*x);
L1:=L1+0.00000000037*COS(1.29390383811+310.84079886840*x);
L1:=L1+0.00000000038*COS(0.95970925950+664.75604513000*x);
L1:=L1+0.00000000037*COS(4.27532649462+6709.67404086740*x);
L1:=L1+0.00000000038*COS(2.20108541046+28628.33622609960*x);
L1:=L1+0.00000000039*COS(0.85957361635+16522.65971600220*x);
L1:=L1+0.00000000040*COS(4.35214003837+48739.85989708300*x);
L1:=L1+0.00000000036*COS(1.68167662194+10344.29506538580*x);
L1:=L1+0.00000000040*COS(5.13217319067+15664.03552270859*x);
L1:=L1+0.00000000036*COS(3.72187132496+30774.50164257480*x);
L1:=L1+0.00000000036*COS(3.32158458257+16207.88627150200*x);
L1:=L1+0.00000000045*COS(3.94202418608+10988.80815753500*x);
L1:=L1+0.00000000039*COS(1.51948786199+12029.34718788740*x);
L1:=L1+0.00000000026*COS(3.87685883180+6262.72053059260*x);
L1:=L1+0.00000000024*COS(4.91804163466+19651.04848109800*x);
L1:=L1+0.00000000023*COS(0.29300197709+13362.44970679920*x);
L1:=L1+0.00000000021*COS(3.18605672363+6277.55292568400*x);
L1:=L1+0.00000000021*COS(6.07546891132+18139.29450141590*x);
L1:=L1+0.00000000022*COS(2.31199937177+6303.43116939020*x);
L1:=L1+0.00000000021*COS(3.58418394393+18209.33026366019*x);
L1:=L1+0.00000000026*COS(2.06801296900+12573.26524698360*x);
L1:=L1+0.00000000021*COS(1.56857722317+13341.67431130680*x);
L1:=L1+0.00000000024*COS(5.72605158675+29864.33402730900*x);
L1:=L1+0.00000000024*COS(1.40237993205+14712.31711645800*x);
L1:=L1+0.00000000025*COS(5.71466092822+25934.12433108940*x);

LOCAL L2:=0;
L2:=L2+0.00052918870;
L2:=L2+0.00008719837*COS(1.07209665242+6283.07584999140*x);
L2:=L2+0.00000309125*COS(0.86728818832+12566.15169998280*x);
L2:=L2+0.00000027339*COS(0.05297871691+3.52311834900*x);
L2:=L2+0.00000016334*COS(5.18826691036+26.29831979980*x);
L2:=L2+0.00000015752*COS(3.68457889430+155.42039943420*x);
L2:=L2+0.00000009541*COS(0.75742297675+18849.22754997420*x);
L2:=L2+0.00000008937*COS(2.05705419118+77713.77146812050*x);
L2:=L2+0.00000006952*COS(0.82673305410+775.52261132400*x);
L2:=L2+0.00000005064*COS(4.66284525271+1577.34354244780*x);
L2:=L2+0.00000004061*COS(1.03057162962+7.11354700080*x);
L2:=L2+0.00000003463*COS(5.14074632811+796.29800681640*x);
L2:=L2+0.00000003169*COS(6.05291851171+5507.55323866740*x);
L2:=L2+0.00000003020*COS(1.19246506441+242.72860397400*x);
L2:=L2+0.00000002886*COS(6.11652627155+529.69096509460*x);
L2:=L2+0.00000003810*COS(3.44050803490+5573.14280143310*x);
L2:=L2+0.00000002714*COS(0.30637881025+398.14900340820*x);
L2:=L2+0.00000002371*COS(4.38118838167+5223.69391980220*x);
L2:=L2+0.00000002538*COS(2.27992810679+553.56940284240*x);
L2:=L2+0.00000002079*COS(3.75435330484+0.98032106820*x);
L2:=L2+0.00000001675*COS(0.90216407959+951.71840625060*x);
L2:=L2+0.00000001534*COS(5.75900462759+1349.86740965880*x);
L2:=L2+0.00000001224*COS(2.97328088405+2146.16541647520*x);
L2:=L2+0.00000001449*COS(4.36415913970+1748.01641306700*x);
L2:=L2+0.00000001341*COS(3.72061130861+1194.44701022460*x);
L2:=L2+0.00000001254*COS(2.94846826628+6438.49624942560*x);
L2:=L2+0.00000000999*COS(5.98640014468+6286.59896834040*x);
L2:=L2+0.00000000917*COS(4.79788687522+5088.62883976680*x);
L2:=L2+0.00000000828*COS(3.31321076572+213.29909543800*x);
L2:=L2+0.00000001103*COS(1.27104454479+161000.68573767410*x);
L2:=L2+0.00000000762*COS(3.41582762988+5486.77784317500*x);
L2:=L2+0.00000001044*COS(0.60409577691+3154.68708489560*x);
L2:=L2+0.00000000887*COS(5.23465144638+7084.89678111520*x);
L2:=L2+0.00000000645*COS(1.60096192515+2544.31441988340*x);
L2:=L2+0.00000000681*COS(3.43155669169+4694.00295470760*x);
L2:=L2+0.00000000605*COS(2.47806340546+10977.07880469900*x);
L2:=L2+0.00000000706*COS(6.19393222575+4690.47983635860*x);
L2:=L2+0.00000000643*COS(1.98042503148+801.82093112380*x);
L2:=L2+0.00000000502*COS(1.44394375363+6836.64525283380*x);
L2:=L2+0.00000000490*COS(2.34129524194+1592.59601363280*x);
L2:=L2+0.00000000458*COS(1.30876448575+4292.33083295040*x);
L2:=L2+0.00000000431*COS(0.03526421494+7234.79425624200*x);
L2:=L2+0.00000000379*COS(3.17030522615+6309.37416979120*x);
L2:=L2+0.00000000348*COS(0.99049550009+6040.34724601740*x);
L2:=L2+0.00000000386*COS(1.57019797263+71430.69561812909*x);
L2:=L2+0.00000000347*COS(0.67013291338+1059.38193018920*x);
L2:=L2+0.00000000458*COS(3.81499443681+149854.40013480789*x);
L2:=L2+0.00000000302*COS(1.91760044838+10447.38783960440*x);
L2:=L2+0.00000000307*COS(3.55343347416+8031.09226305840*x);
L2:=L2+0.00000000395*COS(4.93701776616+7632.94325965020*x);
L2:=L2+0.00000000314*COS(3.18093696547+2352.86615377180*x);
L2:=L2+0.00000000282*COS(4.41936437052+9437.76293488700*x);
L2:=L2+0.00000000276*COS(2.71314254553+3894.18182954220*x);
L2:=L2+0.00000000298*COS(2.52037474210+6127.65545055720*x);
L2:=L2+0.00000000230*COS(1.37790215549+4705.73230754360*x);
L2:=L2+0.00000000252*COS(0.55330133471+6279.55273164240*x);
L2:=L2+0.00000000255*COS(5.26570187369+6812.76681508600*x);
L2:=L2+0.00000000275*COS(0.67264264272+25132.30339996560*x);
L2:=L2+0.00000000178*COS(0.92820785174+1990.74501704100*x);
L2:=L2+0.00000000221*COS(0.63897368842+6256.77753019160*x);
L2:=L2+0.00000000155*COS(0.77319790838+14143.49524243060*x);
L2:=L2+0.00000000150*COS(2.40470465561+426.59819087600*x);
L2:=L2+0.00000000196*COS(6.06877865012+640.87760738220*x);
L2:=L2+0.00000000137*COS(2.21679460145+8429.24126646660*x);
L2:=L2+0.00000000127*COS(3.26094223174+17789.84561978500*x);
L2:=L2+0.00000000128*COS(5.47237279946+12036.46073488820*x);
L2:=L2+0.00000000122*COS(2.16291082757+10213.28554621100*x);
L2:=L2+0.00000000118*COS(0.45789822268+7058.59846131540*x);
L2:=L2+0.00000000141*COS(2.34932647403+11506.76976979360*x);
L2:=L2+0.00000000100*COS(0.85621569847+6290.18939699220*x);
L2:=L2+0.00000000092*COS(5.10587476002+7079.37385680780*x);
L2:=L2+0.00000000126*COS(2.65428307012+88860.05707098669*x);
L2:=L2+0.00000000106*COS(5.85646710022+7860.41939243920*x);
L2:=L2+0.00000000084*COS(3.57457554262+16730.46368959580*x);
L2:=L2+0.00000000089*COS(4.21433259618+83996.84731811189*x);
L2:=L2+0.00000000097*COS(5.57938280855+13367.97263110660*x);
L2:=L2+0.00000000102*COS(2.05853060226+87.30820453981*x);
L2:=L2+0.00000000080*COS(4.73792651816+11926.25441366880*x);
L2:=L2+0.00000000080*COS(5.41418965044+10973.55568635000*x);
L2:=L2+0.00000000106*COS(4.10978997399+3496.03282613400*x);
L2:=L2+0.00000000102*COS(3.62650006043+244287.60000722769*x);
L2:=L2+0.00000000075*COS(4.89483161769+5643.17856367740*x);
L2:=L2+0.00000000087*COS(0.42863750683+11015.10647733480*x);
L2:=L2+0.00000000069*COS(1.88908760720+10177.25767953360*x);
L2:=L2+0.00000000089*COS(1.35567273119+6681.22485339960*x);
L2:=L2+0.00000000066*COS(0.99455837265+6525.80445396540*x);
L2:=L2+0.00000000067*COS(5.51240997070+3097.88382272579*x);
L2:=L2+0.00000000076*COS(2.72016814799+4164.31198961300*x);
L2:=L2+0.00000000063*COS(1.44349902540+9917.69687450980*x);
L2:=L2+0.00000000078*COS(3.51469733747+11856.21865142450*x);
L2:=L2+0.00000000085*COS(0.50956043858+10575.40668294180*x);
L2:=L2+0.00000000067*COS(3.62043033405+16496.36139620240*x);
L2:=L2+0.00000000055*COS(5.24637517308+3340.61242669980*x);
L2:=L2+0.00000000048*COS(5.43966777314+20426.57109242200*x);
L2:=L2+0.00000000064*COS(5.79535817813+2388.89402044920*x);
L2:=L2+0.00000000046*COS(5.43499966519+6275.96230299060*x);
L2:=L2+0.00000000050*COS(3.86263598617+5729.50644714900*x);
L2:=L2+0.00000000044*COS(1.52269529228+12168.00269657460*x);
L2:=L2+0.00000000057*COS(4.96352373486+14945.31617355440*x);
L2:=L2+0.00000000045*COS(1.00861230160+8635.94200376320*x);
L2:=L2+0.00000000043*COS(3.30685683359+9779.10867612540*x);
L2:=L2+0.00000000042*COS(0.63481258930+2699.73481931760*x);
L2:=L2+0.00000000041*COS(5.67996766641+11712.95531823080*x);
L2:=L2+0.00000000056*COS(4.34024451468+90955.55169449610*x);
L2:=L2+0.00000000041*COS(5.81722212845+709.93304855830*x);
L2:=L2+0.00000000053*COS(6.17052087143+233141.31440436149*x);
L2:=L2+0.00000000037*COS(3.12495025087+16200.77272450120*x);
L2:=L2+0.00000000035*COS(5.76973458495+12569.67481833180*x);
L2:=L2+0.00000000037*COS(0.31656444326+24356.78078864160*x);
L2:=L2+0.00000000035*COS(0.96229051027+17298.18232732620*x);
L2:=L2+0.00000000033*COS(5.23130355867+5331.35744374080*x);
L2:=L2+0.00000000035*COS(0.62517020593+25158.60171976540*x);
L2:=L2+0.00000000035*COS(0.80004512129+13916.01910964160*x);
L2:=L2+0.00000000037*COS(2.89336088688+12721.57209941700*x);
L2:=L2+0.00000000030*COS(4.50198402401+23543.23050468179*x);
L2:=L2+0.00000000030*COS(5.31355708693+18319.53658487960*x);
L2:=L2+0.00000000029*COS(3.47275229977+13119.72110282519*x);
L2:=L2+0.00000000029*COS(3.11002782516+4136.91043351620*x);
L2:=L2+0.00000000032*COS(5.52273255667+5753.38488489680*x);
L2:=L2+0.00000000035*COS(3.79699996680+143571.32428481648*x);
L2:=L2+0.00000000026*COS(1.50634201907+154717.60988768269*x);
L2:=L2+0.00000000030*COS(3.53519084118+6284.05617105960*x);
L2:=L2+0.00000000023*COS(4.41808025967+5884.92684658320*x);
L2:=L2+0.00000000025*COS(1.38477355808+65147.61976813770*x);
L2:=L2+0.00000000023*COS(3.49782549797+7477.52286021600*x);
L2:=L2+0.00000000019*COS(3.14329413716+6496.37494542940*x);
L2:=L2+0.00000000019*COS(2.20135125199+18073.70493865020*x);
L2:=L2+0.00000000019*COS(4.95020255309+3930.20969621960*x);
L2:=L2+0.00000000019*COS(0.57998702747+31415.37924995700*x);
L2:=L2+0.00000000021*COS(1.75474323399+12139.55350910680*x);
L2:=L2+0.00000000019*COS(3.92233070499+19651.04848109800*x);
L2:=L2+0.00000000014*COS(0.98131213224+12559.03815298200*x);
L2:=L2+0.00000000019*COS(4.93309333729+2942.46342329160*x);
L2:=L2+0.00000000016*COS(5.55997534558+8827.39026987480*x);
L2:=L2+0.00000000013*COS(1.68808165516+4535.05943692440*x);
L2:=L2+0.00000000013*COS(0.33982116161+4933.20844033260*x);
L2:=L2+0.00000000012*COS(1.85426309994+5856.47765911540*x);
L2:=L2+0.00000000010*COS(4.82763996845+13095.84266507740*x);
L2:=L2+0.00000000011*COS(5.38005490571+11790.62908865880*x);
L2:=L2+0.00000000010*COS(1.40815507226+10988.80815753500*x);
L2:=L2+0.00000000011*COS(3.05005267431+17260.15465469040*x);
L2:=L2+0.00000000010*COS(4.93364992366+12352.85260454480*x);

LOCAL L3:=0;
L3:=L3+0.00000289226*COS(5.84384198723+6283.07584999140*x);
L3:=L3+0.00000034955;
L3:=L3+0.00000016819*COS(5.48766912348+12566.15169998280*x);
L3:=L3+0.00000002962*COS(5.19577265202+155.42039943420*x);
L3:=L3+0.00000001288*COS(4.72200252235+3.52311834900*x);
L3:=L3+0.00000000635*COS(5.96925937141+242.72860397400*x);
L3:=L3+0.00000000714*COS(5.30045809128+18849.22754997420*x);
L3:=L3+0.00000000402*COS(3.78682982419+553.56940284240*x);
L3:=L3+0.00000000072*COS(4.29768126180+6286.59896834040*x);
L3:=L3+0.00000000067*COS(0.90721687647+6127.65545055720*x);
L3:=L3+0.00000000036*COS(5.24029648014+6438.49624942560*x);
L3:=L3+0.00000000024*COS(5.16003960716+25132.30339996560*x);
L3:=L3+0.00000000023*COS(3.01921570335+6309.37416979120*x);
L3:=L3+0.00000000017*COS(5.82863573502+6525.80445396540*x);
L3:=L3+0.00000000017*COS(3.67772863930+71430.69561812909*x);
L3:=L3+0.00000000009*COS(4.58467294499+1577.34354244780*x);
L3:=L3+0.00000000008*COS(1.40626662824+11856.21865142450*x);
L3:=L3+0.00000000008*COS(5.07561257196+6256.77753019160*x);
L3:=L3+0.00000000007*COS(2.82473374405+83996.84731811189*x);
L3:=L3+0.00000000005*COS(2.71488713339+10977.07880469900*x);
L3:=L3+0.00000000005*COS(3.76879847273+12036.46073488820*x);
L3:=L3+0.00000000005*COS(4.28412873331+6275.96230299060*x);

LOCAL L4:=0;
L4=-0.00000114084;
L4:=L4+0.00000007717*COS(4.13446589358+6283.07584999140*x);
L4:=L4+0.00000000765*COS(3.83803776214+12566.15169998280*x);
L4:=L4+0.00000000420*COS(0.41925861858+155.42039943420*x);
L4:=L4+0.00000000040*COS(3.59847585840+18849.22754997420*x);
L4:=L4+0.00000000041*COS(3.14398414077+3.52311834900*x);
L4:=L4+0.00000000035*COS(5.00298940826+5573.14280143310*x);
L4:=L4+0.00000000013*COS(0.48794833701+77713.77146812050*x);
L4:=L4+0.00000000010*COS(5.64801766350+6127.65545055720*x);
L4:=L4+0.00000000008*COS(2.84160570605+161000.68573767410*x);
L4:=L4+0.00000000002*COS(0.54912904658+6438.49624942560*x);

LOCAL L5:=0;
L5=-0.00000000878;
L5:=L5+0.00000000172*COS(2.76579069510+6283.07584999140*x);
L5:=L5+0.00000000050*COS(2.01353298182+155.42039943420*x);
L5:=L5+0.00000000028*COS(2.21496423926+12566.15169998280*x);
L5:=L5+0.00000000005*COS(1.75600058765+18849.22754997420*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 Earth
EXPORT Bearth(x)
BEGIN
LOCAL B0:=0;
B0:=B0+0.00000279620*COS(3.19870156017+84334.66158130829*x);
B0:=B0+0.00000101643*COS(5.42248619256+5507.55323866740*x);
B0:=B0+0.00000080445*COS(3.88013204458+5223.69391980220*x);
B0:=B0+0.00000043806*COS(3.70444689758+2352.86615377180*x);
B0:=B0+0.00000031933*COS(4.00026369781+1577.34354244780*x);
B0:=B0+0.00000022724*COS(3.98473831560+1047.74731175470*x);
B0:=B0+0.00000016392*COS(3.56456119782+5856.47765911540*x);
B0:=B0+0.00000018141*COS(4.98367470263+6283.07584999140*x);
B0:=B0+0.00000014443*COS(3.70275614914+9437.76293488700*x);
B0:=B0+0.00000014304*COS(3.41117857525+10213.28554621100*x);
B0:=B0+0.00000011246*COS(4.82820690530+14143.49524243060*x);
B0:=B0+0.00000010900*COS(2.08574562327+6812.76681508600*x);
B0:=B0+0.00000009714*COS(3.47303947752+4694.00295470760*x);
B0:=B0+0.00000010367*COS(4.05663927946+71092.88135493269*x);
B0:=B0+0.00000008775*COS(4.44016515669+5753.38488489680*x);
B0:=B0+0.00000008366*COS(4.99251512180+7084.89678111520*x);
B0:=B0+0.00000006921*COS(4.32559054073+6275.96230299060*x);
B0:=B0+0.00000009145*COS(1.14182646613+6620.89011318780*x);
B0:=B0+0.00000007194*COS(3.60193205752+529.69096509460*x);
B0:=B0+0.00000007698*COS(5.55425745881+167621.57585086189*x);
B0:=B0+0.00000005285*COS(2.48446991566+4705.73230754360*x);
B0:=B0+0.00000005208*COS(6.24992674537+18073.70493865020*x);
B0:=B0+0.00000004529*COS(2.33827747356+6309.37416979120*x);
B0:=B0+0.00000005579*COS(4.41023653738+7860.41939243920*x);
B0:=B0+0.00000004743*COS(0.70995680136+5884.92684658320*x);
B0:=B0+0.00000004301*COS(1.10255777773+6681.22485339960*x);
B0:=B0+0.00000003849*COS(1.82229412531+5486.77784317500*x);
B0:=B0+0.00000004093*COS(5.11700141207+13367.97263110660*x);
B0:=B0+0.00000003681*COS(0.43793170356+3154.68708489560*x);
B0:=B0+0.00000003420*COS(5.42034800952+6069.77675455340*x);
B0:=B0+0.00000003617*COS(6.04641937526+3930.20969621960*x);
B0:=B0+0.00000003670*COS(4.58210192227+12194.03291462090*x);
B0:=B0+0.00000002918*COS(1.95463881126+10977.07880469900*x);
B0:=B0+0.00000002797*COS(5.61259275048+11790.62908865880*x);
B0:=B0+0.00000002502*COS(0.60499729367+6496.37494542940*x);
B0:=B0+0.00000002319*COS(5.01648216014+1059.38193018920*x);
B0:=B0+0.00000002684*COS(1.39470396488+22003.91463486980*x);
B0:=B0+0.00000002428*COS(3.24183056052+78051.58573131690*x);
B0:=B0+0.00000002120*COS(4.30691000285+5643.17856367740*x);
B0:=B0+0.00000002257*COS(3.15557225618+90617.73743129970*x);
B0:=B0+0.00000001813*COS(3.75574218285+3340.61242669980*x);
B0:=B0+0.00000002226*COS(2.79699346659+12036.46073488820*x);
B0:=B0+0.00000001888*COS(0.86991545823+8635.94200376320*x);
B0:=B0+0.00000001517*COS(1.95852055701+398.14900340820*x);
B0:=B0+0.00000001581*COS(3.19976230948+5088.62883976680*x);
B0:=B0+0.00000001421*COS(6.25530883827+2544.31441988340*x);
B0:=B0+0.00000001595*COS(0.25619915135+17298.18232732620*x);
B0:=B0+0.00000001391*COS(4.69964175561+7058.59846131540*x);
B0:=B0+0.00000001478*COS(2.81808207569+25934.12433108940*x);
B0:=B0+0.00000001481*COS(3.65823554806+11506.76976979360*x);
B0:=B0+0.00000001693*COS(4.95689385293+156475.29024799570*x);
B0:=B0+0.00000001183*COS(1.29343061246+775.52261132400*x);
B0:=B0+0.00000001114*COS(2.37889311846+3738.76143010800*x);
B0:=B0+0.00000000994*COS(4.30088900425+9225.53927328300*x);
B0:=B0+0.00000000924*COS(3.06451026812+4164.31198961300*x);
B0:=B0+0.00000000867*COS(0.55606931068+8429.24126646660*x);
B0:=B0+0.00000000988*COS(5.97286104208+7079.37385680780*x);
B0:=B0+0.00000000824*COS(1.50984806173+10447.38783960440*x);
B0:=B0+0.00000000915*COS(0.12635654592+11015.10647733480*x);
B0:=B0+0.00000000742*COS(1.99159139281+26087.90314157420*x);
B0:=B0-0.00000001039;
B0:=B0+0.00000000850*COS(4.24120016095+29864.33402730900*x);
B0:=B0+0.00000000755*COS(2.89631873320+4732.03062734340*x);
B0:=B0+0.00000000714*COS(1.37548118603+2146.16541647520*x);
B0:=B0+0.00000000708*COS(1.91406542362+8031.09226305840*x);
B0:=B0+0.00000000746*COS(0.57893808616+796.29800681640*x);
B0:=B0+0.00000000802*COS(5.12339137230+2942.46342329160*x);
B0:=B0+0.00000000751*COS(1.67479850166+21228.39202354580*x);
B0:=B0+0.00000000602*COS(4.09976538826+64809.80550494129*x);
B0:=B0+0.00000000594*COS(3.49580704962+16496.36139620240*x);
B0:=B0+0.00000000592*COS(4.59481504319+4690.47983635860*x);
B0:=B0+0.00000000530*COS(5.73979295200+8827.39026987480*x);
B0:=B0+0.00000000503*COS(5.66433137112+33794.54372352860*x);
B0:=B0+0.00000000483*COS(1.57106522411+801.82093112380*x);
B0:=B0+0.00000000438*COS(0.06707733767+3128.38876509580*x);
B0:=B0+0.00000000423*COS(2.86944595927+12566.15169998280*x);
B0:=B0+0.00000000504*COS(3.26207669160+7632.94325965020*x);
B0:=B0+0.00000000552*COS(1.02926440457+239762.20451754928*x);
B0:=B0+0.00000000427*COS(3.67434378210+213.29909543800*x);
B0:=B0+0.00000000404*COS(1.46193297142+15720.83878487840*x);
B0:=B0+0.00000000503*COS(4.85802444134+6290.18939699220*x);
B0:=B0+0.00000000417*COS(0.81920713533+5216.58037280140*x);
B0:=B0+0.00000000365*COS(0.01002966162+12168.00269657460*x);
B0:=B0+0.00000000363*COS(1.28376436579+6206.80977871580*x);
B0:=B0+0.00000000353*COS(4.70059133110+7234.79425624200*x);
B0:=B0+0.00000000415*COS(0.96862624175+4136.91043351620*x);
B0:=B0+0.00000000387*COS(3.09145061418+25158.60171976540*x);
B0:=B0+0.00000000373*COS(2.65119262792+7342.45778018060*x);
B0:=B0+0.00000000361*COS(2.97762937739+9623.68827669120*x);
B0:=B0+0.00000000418*COS(3.75759994446+5230.80746680300*x);
B0:=B0+0.00000000396*COS(1.22507712354+6438.49624942560*x);
B0:=B0+0.00000000322*COS(1.21162178805+8662.24032356300*x);
B0:=B0+0.00000000284*COS(5.64170320068+1589.07289528380*x);
B0:=B0+0.00000000379*COS(1.72248432748+14945.31617355440*x);
B0:=B0+0.00000000320*COS(3.94161159962+7330.82316174610*x);
B0:=B0+0.00000000313*COS(5.47602376446+1194.44701022460*x);
B0:=B0+0.00000000292*COS(1.38971327603+11769.85369316640*x);
B0:=B0+0.00000000305*COS(0.80429352049+37724.75341974820*x);
B0:=B0+0.00000000257*COS(5.81382809757+426.59819087600*x);
B0:=B0+0.00000000265*COS(6.10358507671+6836.64525283380*x);
B0:=B0+0.00000000250*COS(4.56452895547+7477.52286021600*x);
B0:=B0+0.00000000266*COS(2.62926282354+7238.67559160000*x);
B0:=B0+0.00000000263*COS(6.22089501237+6133.51265285680*x);
B0:=B0+0.00000000306*COS(2.79682380531+1748.01641306700*x);
B0:=B0+0.00000000236*COS(2.46093023714+11371.70468975820*x);
B0:=B0+0.00000000316*COS(1.62662805006+250908.49012041549*x);
B0:=B0+0.00000000216*COS(3.68721275185+5849.36411211460*x);
B0:=B0+0.00000000230*COS(0.36165162947+5863.59120611620*x);
B0:=B0+0.00000000233*COS(5.03509933858+20426.57109242200*x);
B0:=B0+0.00000000200*COS(5.86073159059+4535.05943692440*x);
B0:=B0+0.00000000277*COS(4.65400292395+82239.16695779889*x);
B0:=B0+0.00000000209*COS(3.72323200804+10973.55568635000*x);
B0:=B0+0.00000000199*COS(5.05186622555+5429.87946823940*x);
B0:=B0+0.00000000256*COS(2.40923279770+19651.04848109800*x);
B0:=B0+0.00000000210*COS(4.50691909144+29088.81141598500*x);
B0:=B0+0.00000000181*COS(6.00294783127+4292.33083295040*x);
B0:=B0+0.00000000249*COS(0.12900984422+154379.79562448629*x);
B0:=B0+0.00000000209*COS(3.87759458598+17789.84561978500*x);
B0:=B0+0.00000000225*COS(3.18339652605+18875.52586977400*x);
B0:=B0+0.00000000191*COS(4.53897489299+18477.10876461230*x);
B0:=B0+0.00000000172*COS(2.09694183014+13095.84266507740*x);
B0:=B0+0.00000000182*COS(3.16107943500+16730.46368959580*x);
B0:=B0+0.00000000188*COS(2.22746128596+41654.96311596780*x);
B0:=B0+0.00000000164*COS(5.18686275017+5481.25491886760*x);
B0:=B0+0.00000000160*COS(2.49298855159+12592.45001978260*x);
B0:=B0+0.00000000155*COS(1.59595438230+10021.83728009940*x);
B0:=B0+0.00000000135*COS(0.21349051064+10988.80815753500*x);
B0:=B0+0.00000000178*COS(3.80375177970+23581.25817731760*x);
B0:=B0+0.00000000123*COS(1.66800739151+15110.46611986620*x);
B0:=B0+0.00000000122*COS(2.72678272244+18849.22754997420*x);
B0:=B0+0.00000000126*COS(1.17675512910+14919.01785375460*x);
B0:=B0+0.00000000142*COS(3.95053441332+337.81426319640*x);
B0:=B0+0.00000000116*COS(6.06340906229+6709.67404086740*x);
B0:=B0+0.00000000137*COS(3.52143246757+12139.55350910680*x);
B0:=B0+0.00000000136*COS(2.92179113542+32217.20018108080*x);
B0:=B0+0.00000000110*COS(3.51203379263+18052.92954315780*x);
B0:=B0+0.00000000147*COS(4.63371971408+22805.73556599360*x);
B0:=B0+0.00000000108*COS(5.45280814878+7.11354700080*x);
B0:=B0+0.00000000148*COS(0.65447253687+95480.94718417450*x);
B0:=B0+0.00000000119*COS(5.92110458985+33019.02111220460*x);
B0:=B0+0.00000000110*COS(5.34824206306+639.89728631400*x);
B0:=B0+0.00000000106*COS(3.71081682629+14314.16811304980*x);
B0:=B0+0.00000000139*COS(6.17607198418+24356.78078864160*x);
B0:=B0+0.00000000118*COS(5.59738712670+161338.50000087050*x);
B0:=B0+0.00000000117*COS(3.65065271640+45585.17281218740*x);
B0:=B0+0.00000000127*COS(4.74596574209+49515.38250840700*x);
B0:=B0+0.00000000120*COS(1.04211499785+6915.85958930460*x);
B0:=B0+0.00000000120*COS(5.60638811846+5650.29211067820*x);
B0:=B0+0.00000000115*COS(3.10668213289+14712.31711645800*x);
B0:=B0+0.00000000099*COS(0.69018940049+12779.45079542080*x);
B0:=B0+0.00000000097*COS(1.07908724794+9917.69687450980*x);
B0:=B0+0.00000000093*COS(2.62295197319+17260.15465469040*x);
B0:=B0+0.00000000099*COS(4.45774681732+4933.20844033260*x);
B0:=B0+0.00000000123*COS(1.37488922089+28286.99048486120*x);
B0:=B0+0.00000000121*COS(5.19767249813+27511.46787353720*x);
B0:=B0+0.00000000105*COS(0.87192267806+77375.95720492408*x);
B0:=B0+0.00000000087*COS(3.93637812950+17654.78053974960*x);
B0:=B0+0.00000000122*COS(2.23956068680+83997.09113559539*x);
B0:=B0+0.00000000087*COS(4.18201600952+22779.43724619380*x);
B0:=B0+0.00000000104*COS(4.59580877295+1349.86740965880*x);
B0:=B0+0.00000000102*COS(2.83545248411+12352.85260454480*x);
B0:=B0+0.00000000102*COS(3.97386522171+10818.13528691580*x);
B0:=B0+0.00000000101*COS(4.32892825857+36147.40987730040*x);
B0:=B0+0.00000000094*COS(5.00001709261+150192.21439800429*x);
B0:=B0+0.00000000077*COS(3.97199369296+1592.59601363280*x);
B0:=B0+0.00000000100*COS(6.07733097102+26735.94526221320*x);
B0:=B0+0.00000000086*COS(5.26029638250+28313.28880466100*x);
B0:=B0+0.00000000093*COS(4.31900620254+44809.65020086340*x);
B0:=B0+0.00000000076*COS(6.22743405935+13521.75144159140*x);
B0:=B0+0.00000000072*COS(1.55820597747+6256.77753019160*x);
B0:=B0+0.00000000082*COS(4.95202664555+10575.40668294180*x);
B0:=B0+0.00000000082*COS(1.69647647075+1990.74501704100*x);
B0:=B0+0.00000000075*COS(2.29836095644+3634.62102451840*x);
B0:=B0+0.00000000075*COS(2.66367876557+16200.77272450120*x);
B0:=B0+0.00000000087*COS(0.26630214764+31441.67756975680*x);
B0:=B0+0.00000000077*COS(2.25530954137+5235.32853823670*x);
B0:=B0+0.00000000076*COS(1.09869730846+12903.96596317920*x);
B0:=B0+0.00000000058*COS(4.28246138307+12559.03815298200*x);
B0:=B0+0.00000000064*COS(5.51112830114+173904.65170085328*x);
B0:=B0+0.00000000056*COS(2.60133794851+73188.37597844210*x);
B0:=B0+0.00000000055*COS(5.81483150022+143233.51002162008*x);
B0:=B0+0.00000000054*COS(3.38482031504+323049.11878710288*x);
B0:=B0+0.00000000039*COS(3.28500401343+71768.50988132549*x);
B0:=B0+0.00000000039*COS(3.11239910690+96900.81328129109*x);

LOCAL B1:=0;
B1:=B1+0.00000009030*COS(3.89729061890+5507.55323866740*x);
B1:=B1+0.00000006177*COS(1.73038850355+5223.69391980220*x);
B1:=B1+0.00000003800*COS(5.24404145734+2352.86615377180*x);
B1:=B1+0.00000002834*COS(2.47345037450+1577.34354244780*x);
B1:=B1+0.00000001817*COS(0.41874743765+6283.07584999140*x);
B1:=B1+0.00000001499*COS(1.83320979291+5856.47765911540*x);
B1:=B1+0.00000001466*COS(5.69401926017+5753.38488489680*x);
B1:=B1+0.00000001301*COS(2.18890066314+9437.76293488700*x);
B1:=B1+0.00000001233*COS(4.95222451476+10213.28554621100*x);
B1:=B1+0.00000001021*COS(0.12866660208+7860.41939243920*x);
B1:=B1+0.00000000982*COS(0.09005453285+14143.49524243060*x);
B1:=B1+0.00000000865*COS(1.73949953555+3930.20969621960*x);
B1:=B1+0.00000000581*COS(2.26949174067+5884.92684658320*x);
B1:=B1+0.00000000524*COS(5.65662503159+529.69096509460*x);
B1:=B1+0.00000000473*COS(6.22750969242+6309.37416979120*x);
B1:=B1+0.00000000451*COS(1.53288619213+18073.70493865020*x);
B1:=B1+0.00000000364*COS(3.61614477374+13367.97263110660*x);
B1:=B1+0.00000000372*COS(3.22470721320+6275.96230299060*x);
B1:=B1+0.00000000268*COS(2.34341267879+11790.62908865880*x);
B1:=B1+0.00000000322*COS(0.94084045832+6069.77675455340*x);
B1:=B1+0.00000000232*COS(0.26781182579+7058.59846131540*x);
B1:=B1+0.00000000216*COS(6.05952221329+10977.07880469900*x);
B1:=B1+0.00000000232*COS(2.93325646109+22003.91463486980*x);
B1:=B1+0.00000000204*COS(3.86264841382+6496.37494542940*x);
B1:=B1+0.00000000202*COS(2.81892511133+15720.83878487840*x);
B1:=B1+0.00000000185*COS(4.93512381859+12036.46073488820*x);
B1:=B1+0.00000000220*COS(3.99305643742+6812.76681508600*x);
B1:=B1+0.00000000166*COS(1.74970002999+11506.76976979360*x);
B1:=B1+0.00000000212*COS(1.57166285369+4694.00295470760*x);
B1:=B1+0.00000000157*COS(1.08259734788+5643.17856367740*x);
B1:=B1+0.00000000154*COS(5.99434678412+5486.77784317500*x);
B1:=B1+0.00000000144*COS(5.23285656085+78051.58573131690*x);
B1:=B1+0.00000000144*COS(1.16454655948+90617.73743129970*x);
B1:=B1+0.00000000137*COS(2.67760436027+6290.18939699220*x);
B1:=B1+0.00000000180*COS(2.06509026215+7084.89678111520*x);
B1:=B1+0.00000000121*COS(5.90212574947+9225.53927328300*x);
B1:=B1+0.00000000150*COS(2.00175038718+5230.80746680300*x);
B1:=B1+0.00000000149*COS(5.06157254516+17298.18232732620*x);
B1:=B1+0.00000000118*COS(5.39979058038+3340.61242669980*x);
B1:=B1+0.00000000161*COS(3.32421999691+6283.31966747490*x);
B1:=B1+0.00000000121*COS(4.36722193162+19651.04848109800*x);
B1:=B1+0.00000000116*COS(5.83462858507+4705.73230754360*x);
B1:=B1+0.00000000128*COS(4.35489873365+25934.12433108940*x);
B1:=B1+0.00000000143;
B1:=B1+0.00000000109*COS(2.52157834166+6438.49624942560*x);
B1:=B1+0.00000000099*COS(2.70727488041+5216.58037280140*x);
B1:=B1+0.00000000103*COS(0.93782340879+8827.39026987480*x);
B1:=B1+0.00000000082*COS(4.29214680390+8635.94200376320*x);
B1:=B1+0.00000000079*COS(2.24085737326+1059.38193018920*x);
B1:=B1+0.00000000097*COS(5.50959692365+29864.33402730900*x);
B1:=B1+0.00000000072*COS(0.21891639822+21228.39202354580*x);
B1:=B1+0.00000000071*COS(2.86755026812+6681.22485339960*x);
B1:=B1+0.00000000074*COS(2.20184828895+37724.75341974820*x);
B1:=B1+0.00000000063*COS(4.45586625948+7079.37385680780*x);
B1:=B1+0.00000000061*COS(0.63918772258+33794.54372352860*x);
B1:=B1+0.00000000047*COS(2.09070235724+3128.38876509580*x);
B1:=B1+0.00000000047*COS(3.32543843300+26087.90314157420*x);
B1:=B1+0.00000000049*COS(1.60680905005+6702.56049386660*x);
B1:=B1+0.00000000057*COS(0.11215813438+29088.81141598500*x);
B1:=B1+0.00000000056*COS(5.47982934911+775.52261132400*x);
B1:=B1+0.00000000050*COS(1.89396788463+12139.55350910680*x);
B1:=B1+0.00000000047*COS(2.97214907240+20426.57109242200*x);
B1:=B1+0.00000000041*COS(5.55329394890+11015.10647733480*x);
B1:=B1+0.00000000041*COS(5.91861144924+23581.25817731760*x);
B1:=B1+0.00000000045*COS(4.95273290181+5863.59120611620*x);
B1:=B1+0.00000000050*COS(3.62740835096+41654.96311596780*x);
B1:=B1+0.00000000037*COS(6.09033460601+64809.80550494129*x);
B1:=B1+0.00000000037*COS(5.86153655431+12566.15169998280*x);
B1:=B1+0.00000000046*COS(1.65798680284+25158.60171976540*x);
B1:=B1+0.00000000038*COS(2.00673650251+426.59819087600*x);
B1:=B1+0.00000000036*COS(6.24373396652+6283.14316029419*x);
B1:=B1+0.00000000036*COS(0.40465162918+6283.00853968860*x);
B1:=B1+0.00000000032*COS(6.03707103538+2942.46342329160*x);
B1:=B1+0.00000000041*COS(4.86809570283+1592.59601363280*x);
B1:=B1+0.00000000028*COS(4.38359423735+7632.94325965020*x);
B1:=B1+0.00000000028*COS(6.03334294232+17789.84561978500*x);
B1:=B1+0.00000000026*COS(3.88971333608+5331.35744374080*x);
B1:=B1+0.00000000026*COS(5.94932724051+16496.36139620240*x);
B1:=B1+0.00000000031*COS(1.44666331503+16730.46368959580*x);
B1:=B1+0.00000000026*COS(6.26376705837+23543.23050468179*x);
B1:=B1+0.00000000033*COS(0.93797239147+213.29909543800*x);
B1:=B1+0.00000000026*COS(3.71858432944+13095.84266507740*x);
B1:=B1+0.00000000027*COS(0.60565274405+10988.80815753500*x);
B1:=B1+0.00000000023*COS(4.44388985550+18849.22754997420*x);
B1:=B1+0.00000000028*COS(1.53862289477+6279.48542133960*x);
B1:=B1+0.00000000028*COS(1.96831814872+6286.66627864320*x);
B1:=B1+0.00000000028*COS(5.78094918529+15110.46611986620*x);
B1:=B1+0.00000000026*COS(2.48165809843+5729.50644714900*x);
B1:=B1+0.00000000020*COS(3.85655029499+9623.68827669120*x);
B1:=B1+0.00000000021*COS(5.83006047147+7234.79425624200*x);
B1:=B1+0.00000000021*COS(0.69628570421+398.14900340820*x);
B1:=B1+0.00000000022*COS(5.02222806555+6127.65545055720*x);
B1:=B1+0.00000000020*COS(3.47611265290+6148.01076995600*x);
B1:=B1+0.00000000020*COS(0.90769829044+5481.25491886760*x);
B1:=B1+0.00000000020*COS(0.03081589303+6418.14093002680*x);
B1:=B1+0.00000000020*COS(3.74220084927+1589.07289528380*x);
B1:=B1+0.00000000021*COS(4.00149269576+3154.68708489560*x);
B1:=B1+0.00000000018*COS(1.58348238359+2118.76386037840*x);
B1:=B1+0.00000000019*COS(0.85407021371+14712.31711645800*x);

LOCAL B2:=0;
B2:=B2+0.00000001662*COS(1.62703209173+84334.66158130829*x);
B2:=B2+0.00000000492*COS(2.41382223971+1047.74731175470*x);
B2:=B2+0.00000000344*COS(2.24353004539+5507.55323866740*x);
B2:=B2+0.00000000258*COS(6.00906896311+5223.69391980220*x);
B2:=B2+0.00000000131*COS(0.95447345240+6283.07584999140*x);
B2:=B2+0.00000000086*COS(1.67530247303+7860.41939243920*x);
B2:=B2+0.00000000090*COS(0.97606804452+1577.34354244780*x);
B2:=B2+0.00000000090*COS(0.37899871725+2352.86615377180*x);
B2:=B2+0.00000000089*COS(6.25807507963+10213.28554621100*x);
B2:=B2+0.00000000075*COS(0.84213523741+167621.57585086189*x);
B2:=B2+0.00000000052*COS(1.70501566089+14143.49524243060*x);
B2:=B2+0.00000000057*COS(6.15295833679+12194.03291462090*x);
B2:=B2+0.00000000051*COS(1.27616016740+5753.38488489680*x);
B2:=B2+0.00000000051*COS(5.37229738682+6812.76681508600*x);
B2:=B2+0.00000000034*COS(1.73672994279+7058.59846131540*x);
B2:=B2+0.00000000038*COS(2.77761031485+10988.80815753500*x);
B2:=B2+0.00000000046*COS(3.38617099014+156475.29024799570*x);
B2:=B2+0.00000000021*COS(1.95248349228+8827.39026987480*x);
B2:=B2+0.00000000018*COS(3.33419222028+8429.24126646660*x);
B2:=B2+0.00000000019*COS(4.32945160287+17789.84561978500*x);
B2:=B2+0.00000000017*COS(0.66191210656+6283.00853968860*x);
B2:=B2+0.00000000018*COS(3.74885333072+11769.85369316640*x);
B2:=B2+0.00000000017*COS(4.23058370776+10977.07880469900*x);
B2:=B2+0.00000000017*COS(1.78116162721+5486.77784317500*x);
B2:=B2+0.00000000021*COS(1.36972913918+12036.46073488820*x);
B2:=B2+0.00000000017*COS(2.79601092529+796.29800681640*x);
B2:=B2+0.00000000015*COS(0.43087848850+11790.62908865880*x);
B2:=B2+0.00000000017*COS(1.35132152761+78051.58573131690*x);
B2:=B2+0.00000000015*COS(1.17032155085+213.29909543800*x);
B2:=B2+0.00000000018*COS(2.85221514199+5088.62883976680*x);
B2:=B2+0.00000000017*COS(0.21780913672+6283.14316029419*x);
B2:=B2+0.00000000013*COS(1.21201504386+25132.30339996560*x);
B2:=B2+0.00000000012*COS(1.12953712197+90617.73743129970*x);
B2:=B2+0.00000000012*COS(5.13714452592+7079.37385680780*x);
B2:=B2+0.00000000013*COS(3.79842135217+4933.20844033260*x);
B2:=B2+0.00000000012*COS(4.89407978213+3738.76143010800*x);
B2:=B2+0.00000000015*COS(6.05682328852+398.14900340820*x);
B2:=B2+0.00000000014*COS(4.81029291856+4694.00295470760*x);
B2:=B2+0.00000000011*COS(0.61684523405+3128.38876509580*x);
B2:=B2+0.00000000011*COS(5.32876538500+6040.34724601740*x);
B2:=B2+0.00000000014*COS(5.27227350286+4535.05943692440*x);
B2:=B2+0.00000000011*COS(2.39292099451+5331.35744374080*x);
B2:=B2+0.00000000010*COS(4.45296532710+6525.80445396540*x);
B2:=B2+0.00000000014*COS(4.66400985037+8031.09226305840*x);
B2:=B2+0.00000000010*COS(3.22472385926+9437.76293488700*x);
B2:=B2+0.00000000011*COS(3.80913404437+801.82093112380*x);
B2:=B2+0.00000000010*COS(5.15032130575+11371.70468975820*x);
B2:=B2+0.00000000013*COS(0.98720797401+5729.50644714900*x);
B2:=B2+0.00000000009*COS(5.94191743597+7632.94325965020*x);

LOCAL B3:=0;
B3:=B3+0.00000000011*COS(0.23877262399+7860.41939243920*x);
B3:=B3+0.00000000009*COS(1.16069982609+5507.55323866740*x);
B3:=B3+0.00000000008*COS(1.65357552925+5884.92684658320*x);
B3:=B3+0.00000000008*COS(2.86720038197+7058.59846131540*x);
B3:=B3+0.00000000007*COS(3.04818741666+5486.77784317500*x);
B3:=B3+0.00000000007*COS(2.59437103785+529.69096509460*x);
B3:=B3+0.00000000008*COS(4.02863090524+6256.77753019160*x);
B3:=B3+0.00000000008*COS(2.42003508927+5753.38488489680*x);
B3:=B3+0.00000000006*COS(0.84181087594+6275.96230299060*x);
B3:=B3+0.00000000006*COS(5.40160929468+1577.34354244780*x);
B3:=B3+0.00000000007*COS(2.73399865247+6309.37416979120*x);

LOCAL B4:=0;
B4:=B4+0.00000000004*COS(0.79662198849+6438.49624942560*x);
B4:=B4+0.00000000005*COS(0.84308705203+1047.74731175470*x);
B4:=B4+0.00000000005*COS(0.05711572303+84334.66158130829*x);
B4:=B4+0.00000000003*COS(3.46779895686+6279.55273164240*x);
B4:=B4+0.00000000003*COS(2.89822201212+6127.65545055720*x);

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

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


//Heliocentric distance of Earth
EXPORT Rearth(x)
BEGIN
LOCAL R0:=0;
R0:=R0+1.00013988799;
R0:=R0+0.01670699626*COS(3.09846350771+6283.07584999140*x);
R0:=R0+0.00013956023*COS(3.05524609620+12566.15169998280*x);
R0:=R0+0.00003083720*COS(5.19846674381+77713.77146812050*x);
R0:=R0+0.00001628461*COS(1.17387749012+5753.38488489680*x);
R0:=R0+0.00001575568*COS(2.84685245825+7860.41939243920*x);
R0:=R0+0.00000924799*COS(5.45292234084+11506.76976979360*x);
R0:=R0+0.00000542444*COS(4.56409149777+3930.20969621960*x);
R0:=R0+0.00000472110*COS(3.66100022149+5884.92684658320*x);
R0:=R0+0.00000328780*COS(5.89983646482+5223.69391980220*x);
R0:=R0+0.00000345983*COS(0.96368617687+5507.55323866740*x);
R0:=R0+0.00000306784*COS(0.29867139512+5573.14280143310*x);
R0:=R0+0.00000174844*COS(3.01193636534+18849.22754997420*x);
R0:=R0+0.00000243189*COS(4.27349536153+11790.62908865880*x);
R0:=R0+0.00000211829*COS(5.84714540314+1577.34354244780*x);
R0:=R0+0.00000185752*COS(5.02194447178+10977.07880469900*x);
R0:=R0+0.00000109835*COS(5.05510636285+5486.77784317500*x);
R0:=R0+0.00000098316*COS(0.88681311277+6069.77675455340*x);
R0:=R0+0.00000086499*COS(5.68959778254+15720.83878487840*x);
R0:=R0+0.00000085825*COS(1.27083733351+161000.68573767410*x);
R0:=R0+0.00000062916*COS(0.92177108832+529.69096509460*x);
R0:=R0+0.00000057056*COS(2.01374292014+83996.84731811189*x);
R0:=R0+0.00000064903*COS(0.27250613787+17260.15465469040*x);
R0:=R0+0.00000049384*COS(3.24501240359+2544.31441988340*x);
R0:=R0+0.00000055736*COS(5.24159798933+71430.69561812909*x);
R0:=R0+0.00000042515*COS(6.01110242003+6275.96230299060*x);
R0:=R0+0.00000046963*COS(2.57805070386+775.52261132400*x);
R0:=R0+0.00000038968*COS(5.36071738169+4694.00295470760*x);
R0:=R0+0.00000044661*COS(5.53715807302+9437.76293488700*x);
R0:=R0+0.00000035660*COS(1.67468058995+12036.46073488820*x);
R0:=R0+0.00000031921*COS(0.18368229781+5088.62883976680*x);
R0:=R0+0.00000031846*COS(1.77775642085+398.14900340820*x);
R0:=R0+0.00000033193*COS(0.24370300098+7084.89678111520*x);
R0:=R0+0.00000038245*COS(2.39255343974+8827.39026987480*x);
R0:=R0+0.00000028464*COS(1.21344868176+6286.59896834040*x);
R0:=R0+0.00000037490*COS(0.82952922332+19651.04848109800*x);
R0:=R0+0.00000036957*COS(4.90107591914+12139.55350910680*x);
R0:=R0+0.00000034537*COS(1.84270693282+2942.46342329160*x);
R0:=R0+0.00000026275*COS(4.58896850401+10447.38783960440*x);
R0:=R0+0.00000024596*COS(3.78660875483+8429.24126646660*x);
R0:=R0+0.00000023587*COS(0.26866117066+796.29800681640*x);
R0:=R0+0.00000027793*COS(1.89934330904+6279.55273164240*x);
R0:=R0+0.00000023927*COS(4.99598548138+5856.47765911540*x);
R0:=R0+0.00000020349*COS(4.65267995431+2146.16541647520*x);
R0:=R0+0.00000023287*COS(2.80783650928+14143.49524243060*x);
R0:=R0+0.00000022103*COS(1.95004702988+3154.68708489560*x);
R0:=R0+0.00000019506*COS(5.38227371393+2352.86615377180*x);
R0:=R0+0.00000017958*COS(0.19871379385+6812.76681508600*x);
R0:=R0+0.00000017174*COS(4.43315560735+10213.28554621100*x);
R0:=R0+0.00000016190*COS(5.23160507859+17789.84561978500*x);
R0:=R0+0.00000017314*COS(6.15200787916+16730.46368959580*x);
R0:=R0+0.00000013814*COS(5.18962074032+8031.09226305840*x);
R0:=R0+0.00000018833*COS(0.67306674027+149854.40013480789*x);
R0:=R0+0.00000018331*COS(2.25348733734+23581.25817731760*x);
R0:=R0+0.00000013641*COS(3.68516118804+4705.73230754360*x);
R0:=R0+0.00000013139*COS(0.65289581324+13367.97263110660*x);
R0:=R0+0.00000010414*COS(4.33285688538+11769.85369316640*x);
R0:=R0+0.00000009978*COS(4.20126336355+6309.37416979120*x);
R0:=R0+0.00000010169*COS(1.59390681369+4690.47983635860*x);
R0:=R0+0.00000007564*COS(2.62560597390+6256.77753019160*x);
R0:=R0+0.00000009661*COS(3.67586791220+27511.46787353720*x);
R0:=R0+0.00000006743*COS(0.56270332741+3340.61242669980*x);
R0:=R0+0.00000008743*COS(6.06359123461+1748.01641306700*x);
R0:=R0+0.00000007786*COS(3.67371235637+12168.00269657460*x);
R0:=R0+0.00000006633*COS(5.66149277792+11371.70468975820*x);
R0:=R0+0.00000007712*COS(0.31242577789+7632.94325965020*x);
R0:=R0+0.00000006592*COS(3.13576266188+801.82093112380*x);
R0:=R0+0.00000007460*COS(5.64757188143+11926.25441366880*x);
R0:=R0+0.00000006933*COS(2.92384586400+6681.22485339960*x);
R0:=R0+0.00000006802*COS(1.42329806420+23013.53953958720*x);
R0:=R0+0.00000006115*COS(5.13393615454+1194.44701022460*x);
R0:=R0+0.00000006477*COS(2.64986648492+19804.82729158280*x);
R0:=R0+0.00000005233*COS(4.62434053374+6438.49624942560*x);
R0:=R0+0.00000006147*COS(3.02863936662+233141.31440436149*x);
R0:=R0+0.00000004608*COS(1.72194702724+7234.79425624200*x);
R0:=R0+0.00000004221*COS(1.55697533729+7238.67559160000*x);
R0:=R0+0.00000005314*COS(2.40716580847+11499.65622279280*x);
R0:=R0+0.00000005128*COS(5.32398965690+11513.88331679440*x);
R0:=R0+0.00000004770*COS(0.25554312006+11856.21865142450*x);
R0:=R0+0.00000005519*COS(2.09089154502+17298.18232732620*x);
R0:=R0+0.00000005625*COS(4.34052903053+90955.55169449610*x);
R0:=R0+0.00000004578*COS(4.46569641570+5746.27133789600*x);
R0:=R0+0.00000003788*COS(4.90729383510+4164.31198961300*x);
R0:=R0+0.00000005337*COS(5.09957905104+31441.67756975680*x);
R0:=R0+0.00000003967*COS(1.20054555174+1349.86740965880*x);
R0:=R0+0.00000004008*COS(3.03007204392+1059.38193018920*x);
R0:=R0+0.00000003476*COS(0.76080277030+10973.55568635000*x);
R0:=R0+0.00000004232*COS(1.05485713117+5760.49843189760*x);
R0:=R0+0.00000004582*COS(3.76570026763+6386.16862421000*x);
R0:=R0+0.00000003335*COS(3.13829943354+6836.64525283380*x);
R0:=R0+0.00000003418*COS(3.00072390334+4292.33083295040*x);
R0:=R0+0.00000003598*COS(5.70718084323+5643.17856367740*x);
R0:=R0+0.00000003237*COS(4.16448773994+9917.69687450980*x);
R0:=R0+0.00000004154*COS(2.59941292162+7058.59846131540*x);
R0:=R0+0.00000003362*COS(4.54577697964+4732.03062734340*x);
R0:=R0+0.00000002978*COS(1.30561268820+6283.14316029419*x);
R0:=R0+0.00000002765*COS(0.51311975679+26.29831979980*x);
R0:=R0+0.00000002802*COS(5.66263240521+8635.94200376320*x);
R0:=R0+0.00000002927*COS(5.73787481548+16200.77272450120*x);
R0:=R0+0.00000003164*COS(1.69140262657+11015.10647733480*x);
R0:=R0+0.00000002598*COS(2.96244118586+25132.30339996560*x);
R0:=R0+0.00000003519*COS(3.62639325753+244287.60000722769*x);
R0:=R0+0.00000002676*COS(4.20725700850+18073.70493865020*x);
R0:=R0+0.00000002978*COS(1.74971565805+6283.00853968860*x);
R0:=R0+0.00000002287*COS(1.06975704977+14314.16811304980*x);
R0:=R0+0.00000002863*COS(5.92838131397+14712.31711645800*x);
R0:=R0+0.00000003071*COS(0.23793217002+35371.88726597640*x);
R0:=R0+0.00000002656*COS(0.89959301780+12352.85260454480*x);
R0:=R0+0.00000002415*COS(2.79975176257+709.93304855830*x);
R0:=R0+0.00000002814*COS(3.51488206882+21228.39202354580*x);
R0:=R0+0.00000001977*COS(2.61358297550+951.71840625060*x);
R0:=R0+0.00000002548*COS(2.47684686575+6208.29425142410*x);
R0:=R0+0.00000001999*COS(0.56090388160+7079.37385680780*x);
R0:=R0+0.00000002305*COS(1.05376461628+22483.84857449259*x);
R0:=R0+0.00000001855*COS(2.86090681163+5216.58037280140*x);
R0:=R0+0.00000002157*COS(1.31396741861+154717.60988768269*x);
R0:=R0+0.00000001970*COS(4.36929875289+167283.76158766549*x);
R0:=R0+0.00000001635*COS(5.85571606764+10984.19235169980*x);
R0:=R0+0.00000001754*COS(2.14452408833+6290.18939699220*x);
R0:=R0+0.00000002154*COS(6.03828341543+10873.98603048040*x);
R0:=R0+0.00000001714*COS(3.70157691113+1592.59601363280*x);
R0:=R0+0.00000001541*COS(6.21598380732+23543.23050468179*x);
R0:=R0+0.00000001611*COS(1.99824499377+10969.96525769820*x);
R0:=R0+0.00000001712*COS(1.34295663542+3128.38876509580*x);
R0:=R0+0.00000001642*COS(5.55026665339+6496.37494542940*x);
R0:=R0+0.00000001502*COS(5.43948825854+155.42039943420*x);
R0:=R0+0.00000001827*COS(5.91227480261+3738.76143010800*x);
R0:=R0+0.00000001726*COS(2.16764983583+10575.40668294180*x);
R0:=R0+0.00000001532*COS(5.35683107070+13521.75144159140*x);
R0:=R0+0.00000001829*COS(1.66006148731+39302.09696219600*x);
R0:=R0+0.00000001605*COS(1.90928637633+6133.51265285680*x);
R0:=R0+0.00000001282*COS(2.46014880418+13916.01910964160*x);
R0:=R0+0.00000001211*COS(4.41360631550+3894.18182954220*x);
R0:=R0+0.00000001394*COS(1.77801929354+9225.53927328300*x);
R0:=R0+0.00000001571*COS(4.95512957592+25158.60171976540*x);
R0:=R0+0.00000001205*COS(1.19212540615+3.52311834900*x);
R0:=R0+0.00000001132*COS(2.69830084955+6040.34724601740*x);
R0:=R0+0.00000001504*COS(5.77002730341+18209.33026366019*x);
R0:=R0+0.00000001393*COS(1.62621805428+5120.60114558360*x);
R0:=R0+0.00000001077*COS(2.93931554233+17256.63153634140*x);
R0:=R0+0.00000001232*COS(0.71655165307+143571.32428481648*x);
R0:=R0+0.00000001087*COS(0.99769687939+955.59974160860*x);
R0:=R0+0.00000001068*COS(5.28472576231+65147.61976813770*x);
R0:=R0+0.00000000980*COS(5.10949204607+6172.86952877200*x);
R0:=R0+0.00000001169*COS(3.11664290862+14945.31617355440*x);
R0:=R0+0.00000001202*COS(4.02992510402+553.56940284240*x);
R0:=R0+0.00000000979*COS(2.00000879212+15110.46611986620*x);
R0:=R0+0.00000000962*COS(4.02380771400+6282.09552892320*x);
R0:=R0+0.00000000999*COS(3.62643002790+6262.30045449900*x);
R0:=R0+0.00000001030*COS(5.84989900289+213.29909543800*x);
R0:=R0+0.00000001014*COS(2.84221578218+8662.24032356300*x);
R0:=R0+0.00000001185*COS(1.51330541132+17654.78053974960*x);
R0:=R0+0.00000000967*COS(2.67081017562+5650.29211067820*x);
R0:=R0+0.00000001222*COS(2.65423784904+88860.05707098669*x);
R0:=R0+0.00000000981*COS(2.36370360283+6206.80977871580*x);
R0:=R0+0.00000001033*COS(0.13874927606+11712.95531823080*x);
R0:=R0+0.00000001103*COS(3.08477302937+43232.30665841560*x);
R0:=R0+0.00000000781*COS(2.53372735932+16496.36139620240*x);
R0:=R0+0.00000001019*COS(3.04569392376+6037.24420376200*x);
R0:=R0+0.00000000795*COS(5.80662989111+5230.80746680300*x);
R0:=R0+0.00000000813*COS(3.57710279439+10177.25767953360*x);
R0:=R0+0.00000000962*COS(5.31470594766+6284.05617105960*x);
R0:=R0+0.00000000721*COS(5.96264301567+12559.03815298200*x);
R0:=R0+0.00000000966*COS(2.74714939953+6244.94281435360*x);
R0:=R0+0.00000000921*COS(0.10155275926+29088.81141598500*x);
R0:=R0+0.00000000692*COS(3.89764447548+1589.07289528380*x);
R0:=R0+0.00000000719*COS(5.91791450402+4136.91043351620*x);
R0:=R0+0.00000000772*COS(4.05505682353+6127.65545055720*x);
R0:=R0+0.00000000712*COS(5.49291532439+22003.91463486980*x);
R0:=R0+0.00000000672*COS(1.60700490811+11087.28512591840*x);
R0:=R0+0.00000000690*COS(4.50539825563+426.59819087600*x);
R0:=R0+0.00000000854*COS(3.26104981596+20426.57109242200*x);
R0:=R0+0.00000000656*COS(4.32410182940+16858.48253293320*x);
R0:=R0+0.00000000840*COS(2.59572585222+28766.92442448400*x);
R0:=R0+0.00000000692*COS(0.61650089011+11403.67699557500*x);
R0:=R0+0.00000000700*COS(3.40901167143+7.11354700080*x);
R0:=R0+0.00000000726*COS(0.04243053594+5481.25491886760*x);
R0:=R0+0.00000000557*COS(4.78317696534+20199.09495963300*x);
R0:=R0+0.00000000649*COS(1.04027912958+6062.66320755260*x);
R0:=R0+0.00000000633*COS(5.70229959167+45892.73043315699*x);
R0:=R0+0.00000000592*COS(6.11836729658+9623.68827669120*x);
R0:=R0+0.00000000523*COS(3.62840021266+5333.90024102160*x);
R0:=R0+0.00000000604*COS(5.57734696185+10344.29506538580*x);
R0:=R0+0.00000000496*COS(2.21023499449+1990.74501704100*x);
R0:=R0+0.00000000691*COS(1.96071732602+12416.58850284820*x);
R0:=R0+0.00000000640*COS(1.59074172032+18319.53658487960*x);
R0:=R0+0.00000000625*COS(3.82362791378+13517.87010623340*x);
R0:=R0+0.00000000663*COS(5.08444996779+283.85931886520*x);
R0:=R0+0.00000000475*COS(1.17025894287+12569.67481833180*x);
R0:=R0+0.00000000664*COS(4.50029469969+47162.51635463520*x);
R0:=R0+0.00000000569*COS(0.16310365162+17267.26820169119*x);
R0:=R0+0.00000000568*COS(3.86100969474+6076.89030155420*x);
R0:=R0+0.00000000539*COS(4.83282276086+18422.62935909819*x);
R0:=R0+0.00000000466*COS(0.75872342878+7342.45778018060*x);
R0:=R0+0.00000000541*COS(3.07212190507+226858.23855437008*x);
R0:=R0+0.00000000458*COS(0.26774483096+4590.91018048900*x);
R0:=R0+0.00000000610*COS(1.53597051291+33019.02111220460*x);
R0:=R0+0.00000000617*COS(2.62356328726+11190.37790013700*x);
R0:=R0+0.00000000548*COS(4.55798855791+18875.52586977400*x);
R0:=R0+0.00000000633*COS(4.60110281228+66567.48586525429*x);
R0:=R0+0.00000000596*COS(5.78202396722+632.78373931320*x);
R0:=R0+0.00000000533*COS(5.01786882904+12132.43996210600*x);
R0:=R0+0.00000000603*COS(5.38458554802+316428.22867391503*x);
R0:=R0+0.00000000469*COS(0.59168241917+21954.15760939799*x);
R0:=R0+0.00000000548*COS(3.50613163558+17253.04110768959*x);
R0:=R0+0.00000000502*COS(0.98804327589+11609.86254401220*x);
R0:=R0+0.00000000568*COS(1.98497313089+7668.63742494250*x);
R0:=R0+0.00000000482*COS(1.62141803864+12146.66705610760*x);
R0:=R0+0.00000000391*COS(3.68718382989+18052.92954315780*x);
R0:=R0+0.00000000457*COS(3.77205737340+156137.47598479928*x);
R0:=R0+0.00000000401*COS(5.28260651958+15671.08175940660*x);
R0:=R0+0.00000000469*COS(1.80963184268+12562.62858163380*x);
R0:=R0+0.00000000508*COS(3.36399024699+20597.24396304120*x);
R0:=R0+0.00000000450*COS(5.66054299250+10454.50138660520*x);
R0:=R0+0.00000000375*COS(4.98534633105+9779.10867612540*x);
R0:=R0+0.00000000523*COS(0.97215560834+155427.54293624099*x);
R0:=R0+0.00000000403*COS(5.13939866506+1551.04522264800*x);
R0:=R0+0.00000000372*COS(3.69883738807+9388.00590941520*x);
R0:=R0+0.00000000367*COS(4.43875659716+4535.05943692440*x);
R0:=R0+0.00000000406*COS(4.20863156600+12592.45001978260*x);
R0:=R0+0.00000000360*COS(2.53924644657+242.72860397400*x);
R0:=R0+0.00000000471*COS(4.61907324819+5436.99301524020*x);
R0:=R0+0.00000000441*COS(5.83872966262+3496.03282613400*x);
R0:=R0+0.00000000385*COS(4.94496680973+24356.78078864160*x);
R0:=R0+0.00000000349*COS(6.15018231784+19800.94595622480*x);
R0:=R0+0.00000000355*COS(0.21895678106+5429.87946823940*x);
R0:=R0+0.00000000344*COS(5.62993724928+2379.16447357160*x);
R0:=R0+0.00000000380*COS(2.72105213143+11933.36796066960*x);
R0:=R0+0.00000000432*COS(0.24221790536+17996.03116822220*x);
R0:=R0+0.00000000378*COS(5.22517556974+7477.52286021600*x);
R0:=R0+0.00000000337*COS(5.10888041439+5849.36411211460*x);
R0:=R0+0.00000000315*COS(0.57827745123+10557.59416082380*x);
R0:=R0+0.00000000318*COS(4.49953141399+3634.62102451840*x);
R0:=R0+0.00000000323*COS(1.54274281393+10440.27429260360*x);
R0:=R0+0.00000000309*COS(5.76839284397+20.77539549240*x);
R0:=R0+0.00000000301*COS(2.34727604008+4686.88940770680*x);
R0:=R0+0.00000000414*COS(5.93237602310+51092.72605085480*x);
R0:=R0+0.00000000361*COS(2.16398609550+28237.23345938940*x);
R0:=R0+0.00000000288*COS(0.18376252189+13095.84266507740*x);
R0:=R0+0.00000000277*COS(5.12952205045+13119.72110282519*x);
R0:=R0+0.00000000327*COS(6.19222146204+6268.84875598980*x);
R0:=R0+0.00000000273*COS(0.30522428863+23141.55838292460*x);
R0:=R0+0.00000000267*COS(5.76152585786+5966.68398033480*x);
R0:=R0+0.00000000308*COS(5.99280509979+22805.73556599360*x);
R0:=R0+0.00000000345*COS(2.92489919444+36949.23080842420*x);
R0:=R0+0.00000000253*COS(5.20995219509+24072.92146977640*x);
R0:=R0+0.00000000342*COS(5.72702586209+16460.33352952499*x);
R0:=R0+0.00000000261*COS(2.00304796059+6148.01076995600*x);
R0:=R0+0.00000000238*COS(5.08264392839+6915.85958930460*x);
R0:=R0+0.00000000249*COS(2.94762789744+135.06508003540*x);
R0:=R0+0.00000000306*COS(3.89764686987+10988.80815753500*x);
R0:=R0+0.00000000305*COS(0.05827812117+4701.11650170840*x);
R0:=R0+0.00000000319*COS(2.95712862064+163096.18036118349*x);
R0:=R0+0.00000000209*COS(4.43768461442+6546.15977336420*x);
R0:=R0+0.00000000270*COS(2.06643178717+4804.20927592700*x);
R0:=R0+0.00000000217*COS(0.73691592312+6303.85124548380*x);
R0:=R0+0.00000000206*COS(0.32075959415+25934.12433108940*x);
R0:=R0+0.00000000218*COS(0.18428135264+28286.99048486120*x);
R0:=R0+0.00000000205*COS(5.21312087405+20995.39296644940*x);
R0:=R0+0.00000000199*COS(0.44384292491+16737.57723659660*x);
R0:=R0+0.00000000230*COS(6.06567392849+6287.00800325450*x);
R0:=R0+0.00000000219*COS(1.29194216300+5326.78669402080*x);
R0:=R0+0.00000000201*COS(1.74700937253+22743.40937951640*x);
R0:=R0+0.00000000207*COS(4.45440927276+6279.48542133960*x);
R0:=R0+0.00000000269*COS(6.05640445030+64471.99124174489*x);
R0:=R0+0.00000000190*COS(0.99256176518+29296.61538957860*x);
R0:=R0+0.00000000238*COS(5.42471431221+39609.65458316560*x);
R0:=R0+0.00000000262*COS(5.26961924198+522.57741809380*x);
R0:=R0+0.00000000210*COS(4.68618183158+6254.62666252360*x);
R0:=R0+0.00000000197*COS(2.80624554080+4933.20844033260*x);
R0:=R0+0.00000000252*COS(4.36220154608+40879.44050464380*x);
R0:=R0+0.00000000261*COS(1.07241516738+55022.93574707440*x);
R0:=R0+0.00000000189*COS(3.82966734476+419.48464387520*x);
R0:=R0+0.00000000185*COS(4.14324541379+5642.19824260920*x);
R0:=R0+0.00000000247*COS(3.44855612987+6702.56049386660*x);
R0:=R0+0.00000000205*COS(4.04424043223+536.80451209540*x);
R0:=R0+0.00000000191*COS(3.14082686083+16723.35014259500*x);
R0:=R0+0.00000000222*COS(5.16263907319+23539.70738633280*x);
R0:=R0+0.00000000180*COS(4.56214752149+6489.26139842860*x);
R0:=R0+0.00000000219*COS(0.80382553358+16627.37091537720*x);
R0:=R0+0.00000000227*COS(0.60156339452+5905.70224207560*x);
R0:=R0+0.00000000168*COS(0.88753528161+16062.18452611680*x);
R0:=R0+0.00000000158*COS(0.92127725775+23937.85638974100*x);
R0:=R0+0.00000000157*COS(4.69607868164+6805.65326808520*x);
R0:=R0+0.00000000207*COS(4.88410451334+6286.66627864320*x);
R0:=R0+0.00000000160*COS(4.95943826846+10021.83728009940*x);
R0:=R0+0.00000000166*COS(0.97126433565+3097.88382272579*x);
R0:=R0+0.00000000209*COS(5.75663411805+3646.35037735440*x);
R0:=R0+0.00000000175*COS(6.12762824412+239424.39025435288*x);
R0:=R0+0.00000000173*COS(3.13887234973+6179.98307577280*x);
R0:=R0+0.00000000157*COS(3.62822058179+18451.07854656599*x);
R0:=R0+0.00000000157*COS(4.67695912235+6709.67404086740*x);
R0:=R0+0.00000000146*COS(3.09506069735+4907.30205014560*x);
R0:=R0+0.00000000165*COS(2.27139128760+10660.68693504240*x);
R0:=R0+0.00000000201*COS(1.67701267433+2107.03450754240*x);
R0:=R0+0.00000000144*COS(3.96947747592+6019.99192661860*x);
R0:=R0+0.00000000171*COS(5.91302216729+6058.73105428950*x);
R0:=R0+0.00000000144*COS(2.13155655120+26084.02180621620*x);
R0:=R0+0.00000000151*COS(0.67417383554+2388.89402044920*x);
R0:=R0+0.00000000189*COS(5.07122281033+263.08392337280*x);
R0:=R0+0.00000000146*COS(5.10373877968+10770.89325626180*x);
R0:=R0+0.00000000187*COS(1.23915444627+19402.79695281660*x);
R0:=R0+0.00000000174*COS(0.08407293391+9380.95967271720*x);
R0:=R0+0.00000000137*COS(1.26247412309+12566.21901028560*x);
R0:=R0+0.00000000137*COS(3.52826010842+639.89728631400*x);
R0:=R0+0.00000000148*COS(1.76124372592+5888.44996493220*x);
R0:=R0+0.00000000164*COS(2.39195095081+6357.85744855870*x);
R0:=R0+0.00000000146*COS(2.43675816553+5881.40372823420*x);
R0:=R0+0.00000000161*COS(1.15721259372+26735.94526221320*x);
R0:=R0+0.00000000131*COS(2.51859277344+6599.46771964800*x);
R0:=R0+0.00000000153*COS(5.85203687779+6281.59137728310*x);
R0:=R0+0.00000000151*COS(3.72338532649+12669.24447420140*x);
R0:=R0+0.00000000132*COS(2.38417741883+6525.80445396540*x);
R0:=R0+0.00000000129*COS(0.75556744143+5017.50837136500*x);
R0:=R0+0.00000000127*COS(0.00254936441+10027.90319572920*x);
R0:=R0+0.00000000148*COS(2.85102145528+6418.14093002680*x);
R0:=R0+0.00000000143*COS(5.74460279367+26087.90314157420*x);
R0:=R0+0.00000000172*COS(0.41289962240+174242.46596404970*x);
R0:=R0+0.00000000136*COS(4.15497742275+6311.52503745920*x);
R0:=R0+0.00000000170*COS(5.98194913129+327574.51427678125*x);
R0:=R0+0.00000000124*COS(1.65497607604+32217.20018108080*x);
R0:=R0+0.00000000136*COS(2.48430783417+13341.67431130680*x);
R0:=R0+0.00000000165*COS(2.49667924600+58953.14544329400*x);
R0:=R0+0.00000000123*COS(3.45660563754+6277.55292568400*x);
R0:=R0+0.00000000117*COS(0.86065134175+6245.04817735560*x);
R0:=R0+0.00000000149*COS(5.61358280963+5729.50644714900*x);
R0:=R0+0.00000000153*COS(0.26860029950+245.83164622940*x);
R0:=R0+0.00000000128*COS(0.71204006588+103.09277421860*x);
R0:=R0+0.00000000159*COS(2.43166592149+221995.02880149524*x);
R0:=R0+0.00000000130*COS(2.80707316718+6016.46880826960*x);
R0:=R0+0.00000000137*COS(1.70657709294+12566.08438968000*x);
R0:=R0+0.00000000111*COS(1.56305648432+17782.73207278420*x);
R0:=R0+0.00000000113*COS(3.58302904101+25685.87280280800*x);
R0:=R0+0.00000000109*COS(3.26403795962+6819.88036208680*x);
R0:=R0+0.00000000122*COS(0.34120688217+1162.47470440780*x);
R0:=R0+0.00000000119*COS(5.84644718278+12721.57209941700*x);
R0:=R0+0.00000000144*COS(2.28899679126+12489.88562870720*x);
R0:=R0+0.00000000137*COS(5.82029768354+44809.65020086340*x);
R0:=R0+0.00000000107*COS(2.42818544140+5547.19933645960*x);
R0:=R0+0.00000000134*COS(1.26539982939+5331.35744374080*x);
R0:=R0+0.00000000103*COS(5.96518130595+6321.10352262720*x);
R0:=R0+0.00000000109*COS(0.33808549034+11300.58422135640*x);
R0:=R0+0.00000000129*COS(5.89187277327+12029.34718788740*x);
R0:=R0+0.00000000122*COS(5.77325634636+11919.14086666800*x);
R0:=R0+0.00000000107*COS(6.24998989350+77690.75950573849*x);
R0:=R0+0.00000000107*COS(1.00535580713+77736.78343050249*x);
R0:=R0+0.00000000143*COS(0.24122178432+4214.06901508480*x);
R0:=R0+0.00000000143*COS(0.88529649733+7576.56007357400*x);
R0:=R0+0.00000000107*COS(2.92124030496+31415.37924995700*x);
R0:=R0+0.00000000099*COS(5.70862227072+5540.08578945880*x);
R0:=R0+0.00000000110*COS(0.37528037383+5863.59120611620*x);
R0:=R0+0.00000000104*COS(4.44107178366+2118.76386037840*x);
R0:=R0+0.00000000098*COS(5.95877916706+4061.21921539440*x);
R0:=R0+0.00000000113*COS(1.24206857385+84672.47584450469*x);
R0:=R0+0.00000000124*COS(2.55619029867+12539.85338018300*x);
R0:=R0+0.00000000110*COS(3.66952094329+238004.52415723629*x);
R0:=R0+0.00000000112*COS(4.32512422943+97238.62754448749*x);
R0:=R0+0.00000000097*COS(3.70151541181+11720.06886523160*x);
R0:=R0+0.00000000120*COS(1.26895630252+12043.57428188900*x);
R0:=R0+0.00000000094*COS(2.56461130309+19004.64794940840*x);
R0:=R0+0.00000000117*COS(3.65425622684+34520.30930938080*x);
R0:=R0+0.00000000098*COS(0.13589994287+11080.17157891760*x);
R0:=R0+0.00000000097*COS(5.38330115253+7834.12107263940*x);
R0:=R0+0.00000000097*COS(2.46722096722+71980.63357473118*x);
R0:=R0+0.00000000095*COS(5.36958330451+6288.59877429880*x);
R0:=R0+0.00000000111*COS(5.01961920313+11823.16163945020*x);
R0:=R0+0.00000000090*COS(2.72299804525+26880.31981303260*x);
R0:=R0+0.00000000099*COS(0.90164266377+18635.92845453620*x);
R0:=R0+0.00000000126*COS(4.78722177847+305281.94307104882*x);
R0:=R0+0.00000000093*COS(0.21240380046+18139.29450141590*x);
R0:=R0+0.00000000124*COS(5.00979495566+172146.97134054029*x);
R0:=R0+0.00000000099*COS(5.67090026475+16522.65971600220*x);
R0:=R0+0.00000000092*COS(2.28180963676+12491.37010141550*x);
R0:=R0+0.00000000090*COS(4.50544881196+40077.61957352000*x);
R0:=R0+0.00000000100*COS(2.00639461612+12323.42309600880*x);
R0:=R0+0.00000000095*COS(5.68801979087+14919.01785375460*x);
R0:=R0+0.00000000087*COS(1.86043406047+27707.54249429480*x);
R0:=R0+0.00000000105*COS(3.02903468417+22345.26037610820*x);
R0:=R0+0.00000000087*COS(5.43970168638+6272.03014972750*x);
R0:=R0+0.00000000089*COS(1.63389387182+33326.57873317420*x);
R0:=R0+0.00000000082*COS(5.58298993353+10241.20229116720*x);
R0:=R0+0.00000000094*COS(5.47749711149+9924.81042151060*x);
R0:=R0+0.00000000082*COS(4.71988314145+15141.39079431200*x);
R0:=R0+0.00000000097*COS(5.61458778738+2787.04302385740*x);
R0:=R0+0.00000000096*COS(3.89073946348+6379.05507720920*x);
R0:=R0+0.00000000081*COS(3.13038482444+36147.40987730040*x);
R0:=R0+0.00000000110*COS(4.89978492291+72140.62866668739*x);
R0:=R0+0.00000000097*COS(5.20764563059+6303.43116939020*x);
R0:=R0+0.00000000082*COS(5.26342716139+9814.60410029120*x);
R0:=R0+0.00000000109*COS(2.35555589770+83286.91426955358*x);
R0:=R0+0.00000000097*COS(2.58492958057+30666.15495843280*x);
R0:=R0+0.00000000093*COS(1.32651591333+23020.65308658799*x);
R0:=R0+0.00000000078*COS(3.99588630754+11293.47067435560*x);
R0:=R0+0.00000000090*COS(0.57771932738+26482.17080962440*x);
R0:=R0+0.00000000106*COS(3.92012705073+62883.35513951360*x);
R0:=R0+0.00000000098*COS(2.94397773524+316.39186965660*x);
R0:=R0+0.00000000076*COS(3.96310417608+29026.48522950779*x);
R0:=R0+0.00000000078*COS(1.97068529306+90279.92316810328*x);
R0:=R0+0.00000000076*COS(0.23027966596+21424.46664430340*x);
R0:=R0+0.00000000080*COS(2.23099742212+266.60704172180*x);
R0:=R0+0.00000000079*COS(1.46227790922+8982.81066930900*x);
R0:=R0+0.00000000102*COS(4.92129953565+5621.84292321040*x);
R0:=R0+0.00000000100*COS(0.39243148321+24279.10701821359*x);
R0:=R0+0.00000000071*COS(1.52014858474+33794.54372352860*x);
R0:=R0+0.00000000076*COS(0.22880641443+57375.80190084620*x);
R0:=R0+0.00000000091*COS(0.96515913904+48739.85989708300*x);
R0:=R0+0.00000000075*COS(2.77638585157+12964.30070339100*x);
R0:=R0+0.00000000077*COS(5.18846946344+11520.99686379520*x);
R0:=R0+0.00000000068*COS(0.50006599129+4274.51831083240*x);
R0:=R0+0.00000000075*COS(2.07323762803+15664.03552270859*x);
R0:=R0+0.00000000074*COS(1.01884134928+6393.28217121080*x);
R0:=R0+0.00000000077*COS(0.46665178780+16207.88627150200*x);
R0:=R0+0.00000000081*COS(4.10452219483+161710.61878623239*x);
R0:=R0+0.00000000067*COS(3.83840630887+6262.72053059260*x);
R0:=R0+0.00000000071*COS(3.91415523291+7875.67186362420*x);
R0:=R0+0.00000000081*COS(0.91938383237+74.78159856730*x);
R0:=R0+0.00000000083*COS(4.69916218791+23006.42599258639*x);
R0:=R0+0.00000000063*COS(2.32556465878+6279.19451463340*x);
R0:=R0+0.00000000065*COS(5.41938745446+28628.33622609960*x);
R0:=R0+0.00000000065*COS(3.02336771694+5959.57043333400*x);
R0:=R0+0.00000000064*COS(3.31033198370+2636.72547263700*x);
R0:=R0+0.00000000064*COS(0.18375587519+1066.49547719000*x);
R0:=R0+0.00000000080*COS(5.81239171612+12341.80690428090*x);
R0:=R0+0.00000000066*COS(2.15105504851+38.02767263580*x);
R0:=R0+0.00000000062*COS(2.43313614978+10138.10951694860*x);
R0:=R0+0.00000000060*COS(3.16153906470+5490.30096152400*x);
R0:=R0+0.00000000069*COS(0.30764736334+7018.95236352320*x);
R0:=R0+0.00000000068*COS(2.24442548639+24383.07910844140*x);
R0:=R0+0.00000000078*COS(1.39649386463+9411.46461508720*x);
R0:=R0+0.00000000063*COS(0.72976362625+6286.95718534940*x);
R0:=R0+0.00000000073*COS(4.95125917731+6453.74872061060*x);
R0:=R0+0.00000000078*COS(0.32736023459+6528.90749622080*x);
R0:=R0+0.00000000059*COS(4.95362151577+35707.71008290740*x);
R0:=R0+0.00000000070*COS(2.37962727525+15508.61512327440*x);
R0:=R0+0.00000000073*COS(1.35229143111+5327.47610838280*x);
R0:=R0+0.00000000072*COS(5.91833527334+10881.09957748120*x);
R0:=R0+0.00000000059*COS(5.36231868425+10239.58386601080*x);
R0:=R0+0.00000000059*COS(1.63156134967+61306.01159706580*x);
R0:=R0+0.00000000054*COS(4.29491690425+21947.11137270000*x);
R0:=R0+0.00000000057*COS(5.89190132575+34513.26307268280*x);
R0:=R0+0.00000000074*COS(1.38235845304+9967.45389998160*x);
R0:=R0+0.00000000053*COS(3.86543309344+32370.97899156560*x);
R0:=R0+0.00000000055*COS(4.51794544854+34911.41207609100*x);
R0:=R0+0.00000000063*COS(5.41479412056+11502.83761653050*x);
R0:=R0+0.00000000063*COS(2.34416220742+11510.70192305670*x);
R0:=R0+0.00000000068*COS(0.77493931112+29864.33402730900*x);
R0:=R0+0.00000000060*COS(5.57024703495+5756.90800324580*x);
R0:=R0+0.00000000072*COS(2.80863088166+10866.87248347960*x);
R0:=R0+0.00000000061*COS(2.69736991384+82576.98122099529*x);
R0:=R0+0.00000000063*COS(5.32068807257+3116.65941225980*x);
R0:=R0+0.00000000052*COS(1.02278758099+6272.43918464160*x);
R0:=R0+0.00000000069*COS(5.00698550308+25287.72379939980*x);
R0:=R0+0.00000000066*COS(6.12047940728+12074.48840752400*x);
R0:=R0+0.00000000051*COS(2.59519527563+11396.56344857420*x);
R0:=R0+0.00000000056*COS(2.57995973521+17892.93839400359*x);
R0:=R0+0.00000000059*COS(0.44167237620+250570.67585721909*x);
R0:=R0+0.00000000059*COS(3.84070143543+5483.25472482600*x);
R0:=R0+0.00000000049*COS(0.54704693048+22594.05489571199*x);
R0:=R0+0.00000000065*COS(2.38423614501+52670.06959330260*x);
R0:=R0+0.00000000069*COS(5.34363738671+66813.56483573320*x);
R0:=R0+0.00000000057*COS(5.42770501007+310145.15282392364*x);
R0:=R0+0.00000000053*COS(1.17760296075+149.56319713460*x);
R0:=R0+0.00000000061*COS(4.02090887211+34596.36465465240*x);
R0:=R0+0.00000000049*COS(4.18361320516+18606.49894600020*x);
R0:=R0+0.00000000055*COS(0.83886167974+20452.86941222180*x);
R0:=R0+0.00000000050*COS(1.46327331958+37455.72649597440*x);
R0:=R0+0.00000000048*COS(4.53854727167+29822.78323632420*x);
R0:=R0+0.00000000058*COS(3.34847975377+33990.61834428620*x);
R0:=R0+0.00000000065*COS(1.45522693982+76251.32777062019*x);
R0:=R0+0.00000000056*COS(2.35650663692+37724.75341974820*x);
R0:=R0+0.00000000052*COS(2.61551081496+5999.21653112620*x);
R0:=R0+0.00000000053*COS(0.17334326094+77717.29458646949*x);
R0:=R0+0.00000000053*COS(0.79879700631+77710.24834977149*x);
R0:=R0+0.00000000047*COS(0.43240779709+735.87651353180*x);
R0:=R0+0.00000000053*COS(4.58763261686+11616.97609101300*x);
R0:=R0+0.00000000048*COS(6.20230111054+4171.42553661380*x);
R0:=R0+0.00000000052*COS(1.09723616404+640.87760738220*x);
R0:=R0+0.00000000057*COS(3.42008310383+50317.20343953080*x);
R0:=R0+0.00000000053*COS(1.01528448581+149144.46708624958*x);
R0:=R0+0.00000000047*COS(3.00924906195+52175.80628314840*x);
R0:=R0+0.00000000052*COS(2.03254070404+6293.71251534120*x);
R0:=R0+0.00000000048*COS(0.12356889734+13362.44970679920*x);
R0:=R0+0.00000000045*COS(3.37963782356+10763.77970926100*x);
R0:=R0+0.00000000047*COS(5.50981287869+12779.45079542080*x);
R0:=R0+0.00000000062*COS(5.45209070099+949.17560896980*x);
R0:=R0+0.00000000061*COS(2.93237974631+5791.41255753260*x);
R0:=R0+0.00000000044*COS(2.87440620802+8584.66166590080*x);
R0:=R0+0.00000000046*COS(4.03141796560+10667.80048204320*x);
R0:=R0+0.00000000047*COS(3.89902931422+3903.91137641980*x);
R0:=R0+0.00000000046*COS(2.75700467329+6993.00889854970*x);
R0:=R0+0.00000000045*COS(1.93386293300+206.18554843720*x);
R0:=R0+0.00000000047*COS(2.57670800912+11492.54267579200*x);
R0:=R0+0.00000000044*COS(3.62570223167+63658.87775083760*x);
R0:=R0+0.00000000051*COS(0.84536826273+12345.73905754400*x);
R0:=R0+0.00000000043*COS(0.01524970172+37853.87549938260*x);
R0:=R0+0.00000000041*COS(3.27146326065+8858.31494432060*x);
R0:=R0+0.00000000045*COS(3.03765521215+65236.22129328540*x);
R0:=R0+0.00000000047*COS(1.44447548944+21393.54196985760*x);
R0:=R0+0.00000000058*COS(5.45843180927+1975.49254585600*x);
R0:=R0+0.00000000050*COS(2.13285524146+12573.26524698360*x);
R0:=R0+0.00000000041*COS(1.32190847146+2547.83753823240*x);
R0:=R0+0.00000000047*COS(3.67579608544+28313.28880466100*x);
R0:=R0+0.00000000041*COS(2.24013475126+8273.82086703240*x);
R0:=R0+0.00000000047*COS(6.21438985953+10991.30589870060*x);
R0:=R0+0.00000000042*COS(3.01631817350+853.19638175200*x);
R0:=R0+0.00000000056*COS(1.09773690181+77376.20102240759*x);
R0:=R0+0.00000000040*COS(2.35698541041+2699.73481931760*x);
R0:=R0+0.00000000043*COS(5.28030898459+17796.95916678580*x);
R0:=R0+0.00000000054*COS(2.59175932091+22910.44676536859*x);
R0:=R0+0.00000000054*COS(0.88027764102+71960.38658322369*x);
R0:=R0+0.00000000055*COS(0.07988899477+83467.15635301729*x);
R0:=R0+0.00000000039*COS(1.12867321442+9910.58332750900*x);
R0:=R0+0.00000000040*COS(1.35670430524+27177.85152920020*x);
R0:=R0+0.00000000039*COS(4.39624220245+5618.31980486140*x);
R0:=R0+0.00000000042*COS(4.78798367468+7856.89627409019*x);
R0:=R0+0.00000000047*COS(2.75482175292+18202.21671665939*x);
R0:=R0+0.00000000039*COS(1.97008298629+24491.42579258340*x);
R0:=R0+0.00000000042*COS(4.04346599946+7863.94251078820*x);
R0:=R0+0.00000000038*COS(0.49178679251+38650.17350619900*x);
R0:=R0+0.00000000036*COS(4.86047906533+4157.19844261220*x);
R0:=R0+0.00000000043*COS(5.64354880978+1062.90504853820*x);
R0:=R0+0.00000000036*COS(3.98066313627+12565.17137891460*x);
R0:=R0+0.00000000042*COS(2.30753932657+6549.68289171320*x);
R0:=R0+0.00000000040*COS(5.39694918320+9498.21223063460*x);
R0:=R0+0.00000000040*COS(3.30603243754+23536.11695768099*x);
R0:=R0+0.00000000050*COS(6.15760345261+78051.34191383338*x);

LOCAL R1:=0;
R1:=R1+0.00103018608*COS(1.10748969588+6283.07584999140*x);
R1:=R1+0.00001721238*COS(1.06442301418+12566.15169998280*x);
R1:=R1-0.00000702215;
R1:=R1+0.00000032346*COS(1.02169059149+18849.22754997420*x);
R1:=R1+0.00000030799*COS(2.84353804832+5507.55323866740*x);
R1:=R1+0.00000024971*COS(1.31906709482+5223.69391980220*x);
R1:=R1+0.00000018485*COS(1.42429748614+1577.34354244780*x);
R1:=R1+0.00000010078*COS(5.91378194648+10977.07880469900*x);
R1:=R1+0.00000008634*COS(0.27146150602+5486.77784317500*x);
R1:=R1+0.00000008654*COS(1.42046854427+6275.96230299060*x);
R1:=R1+0.00000005069*COS(1.68613426734+5088.62883976680*x);
R1:=R1+0.00000004985*COS(6.01401770704+6286.59896834040*x);
R1:=R1+0.00000004669*COS(5.98724494073+529.69096509460*x);
R1:=R1+0.00000004395*COS(0.51800238019+4694.00295470760*x);
R1:=R1+0.00000003872*COS(4.74969833437+2544.31441988340*x);
R1:=R1+0.00000003750*COS(5.07097685568+796.29800681640*x);
R1:=R1+0.00000004100*COS(1.08424786092+9437.76293488700*x);
R1:=R1+0.00000003518*COS(0.02290216272+83996.84731811189*x);
R1:=R1+0.00000003436*COS(0.94937019624+71430.69561812909*x);
R1:=R1+0.00000003221*COS(6.15628775313+2146.16541647520*x);
R1:=R1+0.00000003414*COS(5.41218322538+775.52261132400*x);
R1:=R1+0.00000002863*COS(5.48432847146+10447.38783960440*x);
R1:=R1+0.00000002520*COS(0.24276941146+398.14900340820*x);
R1:=R1+0.00000002201*COS(4.95216196651+6812.76681508600*x);
R1:=R1+0.00000002186*COS(0.41991743105+8031.09226305840*x);
R1:=R1+0.00000002838*COS(3.42034351366+2352.86615377180*x);
R1:=R1+0.00000002554*COS(6.13241878525+6438.49624942560*x);
R1:=R1+0.00000001932*COS(5.31374608366+8429.24126646660*x);
R1:=R1+0.00000002429*COS(3.09164528262+4690.47983635860*x);
R1:=R1+0.00000001730*COS(1.53686208550+4705.73230754360*x);
R1:=R1+0.00000002250*COS(3.68863633842+7084.89678111520*x);
R1:=R1+0.00000002093*COS(1.28191783032+1748.01641306700*x);
R1:=R1+0.00000001441*COS(0.81656250862+14143.49524243060*x);
R1:=R1+0.00000001483*COS(3.22225357771+7234.79425624200*x);
R1:=R1+0.00000001754*COS(3.22883705112+6279.55273164240*x);
R1:=R1+0.00000001583*COS(4.09702349428+11499.65622279280*x);
R1:=R1+0.00000001575*COS(5.53890170575+3154.68708489560*x);
R1:=R1+0.00000001847*COS(1.82040335363+7632.94325965020*x);
R1:=R1+0.00000001504*COS(3.63293385726+11513.88331679440*x);
R1:=R1+0.00000001337*COS(4.64440864339+6836.64525283380*x);
R1:=R1+0.00000001275*COS(2.69341415363+1349.86740965880*x);
R1:=R1+0.00000001352*COS(6.15101580257+5746.27133789600*x);
R1:=R1+0.00000001125*COS(3.35673439497+17789.84561978500*x);
R1:=R1+0.00000001470*COS(3.65282991755+1194.44701022460*x);
R1:=R1+0.00000001177*COS(2.57676109092+13367.97263110660*x);
R1:=R1+0.00000001101*COS(4.49748696552+4292.33083295040*x);
R1:=R1+0.00000001234*COS(5.65036509521+5760.49843189760*x);
R1:=R1+0.00000000984*COS(0.65517395136+5856.47765911540*x);
R1:=R1+0.00000000928*COS(2.32420318751+10213.28554621100*x);
R1:=R1+0.00000001077*COS(5.82812169132+12036.46073488820*x);
R1:=R1+0.00000000916*COS(0.76613009583+16730.46368959580*x);
R1:=R1+0.00000000877*COS(1.50137505051+11926.25441366880*x);
R1:=R1+0.00000001023*COS(5.62076589825+6256.77753019160*x);
R1:=R1+0.00000000851*COS(0.65709335533+155.42039943420*x);
R1:=R1+0.00000000802*COS(4.10519132088+951.71840625060*x);
R1:=R1+0.00000000857*COS(1.41661697538+5753.38488489680*x);
R1:=R1+0.00000000994*COS(1.14418521187+1059.38193018920*x);
R1:=R1+0.00000000813*COS(1.63948433322+6681.22485339960*x);
R1:=R1+0.00000000662*COS(4.55200452260+5216.58037280140*x);
R1:=R1+0.00000000644*COS(4.19478168733+6040.34724601740*x);
R1:=R1+0.00000000626*COS(1.50767713598+5643.17856367740*x);
R1:=R1+0.00000000590*COS(6.18277145205+4164.31198961300*x);
R1:=R1+0.00000000635*COS(0.52413263542+6290.18939699220*x);
R1:=R1+0.00000000650*COS(0.97935690350+25132.30339996560*x);
R1:=R1+0.00000000568*COS(2.30125315873+10973.55568635000*x);
R1:=R1+0.00000000547*COS(5.27256412213+3340.61242669980*x);
R1:=R1+0.00000000547*COS(2.20144422886+1592.59601363280*x);
R1:=R1+0.00000000526*COS(0.92464258226+11371.70468975820*x);
R1:=R1+0.00000000490*COS(5.90951388655+3894.18182954220*x);
R1:=R1+0.00000000478*COS(1.66857963179+12168.00269657460*x);
R1:=R1+0.00000000516*COS(3.59803483887+10969.96525769820*x);
R1:=R1+0.00000000518*COS(3.97914412373+17298.18232732620*x);
R1:=R1+0.00000000534*COS(5.03740926442+9917.69687450980*x);
R1:=R1+0.00000000487*COS(2.50545369269+6127.65545055720*x);
R1:=R1+0.00000000416*COS(4.04828175503+10984.19235169980*x);
R1:=R1+0.00000000538*COS(5.54081539805+553.56940284240*x);
R1:=R1+0.00000000402*COS(2.16544019233+7860.41939243920*x);
R1:=R1+0.00000000553*COS(2.32177369366+11506.76976979360*x);
R1:=R1+0.00000000367*COS(3.39152532250+6496.37494542940*x);
R1:=R1+0.00000000360*COS(5.34379853282+7079.37385680780*x);
R1:=R1+0.00000000337*COS(3.61563704045+11790.62908865880*x);
R1:=R1+0.00000000456*COS(0.30754294809+801.82093112380*x);
R1:=R1+0.00000000417*COS(3.70009308674+10575.40668294180*x);
R1:=R1+0.00000000381*COS(5.82033971802+7058.59846131540*x);
R1:=R1+0.00000000321*COS(0.31988767355+16200.77272450120*x);
R1:=R1+0.00000000364*COS(1.08414306177+6309.37416979120*x);
R1:=R1+0.00000000294*COS(4.54798604957+11856.21865142450*x);
R1:=R1+0.00000000290*COS(1.26473978562+8635.94200376320*x);
R1:=R1+0.00000000399*COS(4.16998866302+26.29831979980*x);
R1:=R1+0.00000000262*COS(5.08316906342+10177.25767953360*x);
R1:=R1+0.00000000243*COS(2.25746091190+11712.95531823080*x);
R1:=R1+0.00000000237*COS(1.05070575346+242.72860397400*x);
R1:=R1+0.00000000275*COS(3.45319481756+5884.92684658320*x);
R1:=R1+0.00000000255*COS(5.38496831087+21228.39202354580*x);
R1:=R1+0.00000000307*COS(4.24313526604+3738.76143010800*x);
R1:=R1+0.00000000216*COS(3.46037894728+213.29909543800*x);
R1:=R1+0.00000000196*COS(0.69029243914+1990.74501704100*x);
R1:=R1+0.00000000198*COS(5.16301829964+12352.85260454480*x);
R1:=R1+0.00000000214*COS(3.91876200279+13916.01910964160*x);
R1:=R1+0.00000000212*COS(4.00861198517+5230.80746680300*x);
R1:=R1+0.00000000184*COS(5.59805976614+6283.14316029419*x);
R1:=R1+0.00000000184*COS(2.85275392124+7238.67559160000*x);
R1:=R1+0.00000000179*COS(2.54259058334+14314.16811304980*x);
R1:=R1+0.00000000225*COS(1.64458698399+4732.03062734340*x);
R1:=R1+0.00000000236*COS(5.58826125715+6069.77675455340*x);
R1:=R1+0.00000000187*COS(2.72805985443+6062.66320755260*x);
R1:=R1+0.00000000184*COS(6.04216273598+6283.00853968860*x);
R1:=R1+0.00000000230*COS(3.62591335086+6284.05617105960*x);
R1:=R1+0.00000000163*COS(2.19117396803+18073.70493865020*x);
R1:=R1+0.00000000172*COS(0.97612950740+3930.20969621960*x);
R1:=R1+0.00000000215*COS(1.04672844028+3496.03282613400*x);
R1:=R1+0.00000000169*COS(4.75084479006+17267.26820169119*x);
R1:=R1+0.00000000152*COS(0.19390712179+9779.10867612540*x);
R1:=R1+0.00000000182*COS(5.16288118255+17253.04110768959*x);
R1:=R1+0.00000000149*COS(0.80944184260+709.93304855830*x);
R1:=R1+0.00000000163*COS(2.19209570390+6076.89030155420*x);
R1:=R1+0.00000000186*COS(5.01159497089+11015.10647733480*x);
R1:=R1+0.00000000134*COS(0.97765485759+65147.61976813770*x);
R1:=R1+0.00000000141*COS(4.38421981312+4136.91043351620*x);
R1:=R1+0.00000000158*COS(4.60974280627+9623.68827669120*x);
R1:=R1+0.00000000133*COS(3.30508592837+154717.60988768269*x);
R1:=R1+0.00000000163*COS(6.11782626245+3.52311834900*x);
R1:=R1+0.00000000174*COS(1.58078542187+7.11354700080*x);
R1:=R1+0.00000000141*COS(0.49976927274+25158.60171976540*x);
R1:=R1+0.00000000124*COS(6.03440460031+9225.53927328300*x);
R1:=R1+0.00000000150*COS(5.30166336812+13517.87010623340*x);
R1:=R1+0.00000000127*COS(1.92389511438+22483.84857449259*x);
R1:=R1+0.00000000121*COS(2.37813129011+167283.76158766549*x);
R1:=R1+0.00000000120*COS(3.98423684853+4686.88940770680*x);
R1:=R1+0.00000000117*COS(5.81072642211+12569.67481833180*x);
R1:=R1+0.00000000122*COS(5.60973054224+5642.19824260920*x);
R1:=R1+0.00000000157*COS(3.40236426002+16496.36139620240*x);
R1:=R1+0.00000000129*COS(2.10705116371+1589.07289528380*x);
R1:=R1+0.00000000116*COS(0.55839966736+5849.36411211460*x);
R1:=R1+0.00000000123*COS(1.52961392771+12559.03815298200*x);
R1:=R1+0.00000000111*COS(0.44848279675+6172.86952877200*x);
R1:=R1+0.00000000123*COS(5.81645568991+6282.09552892320*x);
R1:=R1+0.00000000150*COS(4.26278409223+3128.38876509580*x);
R1:=R1+0.00000000106*COS(2.27437761356+5429.87946823940*x);
R1:=R1+0.00000000104*COS(4.42743707728+23543.23050468179*x);
R1:=R1+0.00000000121*COS(0.39459045915+12132.43996210600*x);
R1:=R1+0.00000000104*COS(2.41842602527+426.59819087600*x);
R1:=R1+0.00000000110*COS(5.80381480447+16858.48253293320*x);
R1:=R1+0.00000000100*COS(2.93805577485+4535.05943692440*x);
R1:=R1+0.00000000097*COS(3.97935904984+6133.51265285680*x);
R1:=R1+0.00000000110*COS(6.22339014386+12146.66705610760*x);
R1:=R1+0.00000000098*COS(0.87576563709+6525.80445396540*x);
R1:=R1+0.00000000098*COS(3.15248421301+10440.27429260360*x);
R1:=R1+0.00000000095*COS(2.46168411100+3097.88382272579*x);
R1:=R1+0.00000000088*COS(0.23371480284+13119.72110282519*x);
R1:=R1+0.00000000098*COS(5.77016493489+7342.45778018060*x);
R1:=R1+0.00000000092*COS(6.03915555063+20426.57109242200*x);
R1:=R1+0.00000000096*COS(5.56909292561+2388.89402044920*x);
R1:=R1+0.00000000081*COS(1.32131147691+5650.29211067820*x);
R1:=R1+0.00000000086*COS(3.94529200528+10454.50138660520*x);
R1:=R1+0.00000000076*COS(2.70729716925+143571.32428481648*x);
R1:=R1+0.00000000091*COS(5.64100034152+8827.39026987480*x);
R1:=R1+0.00000000076*COS(1.80783856698+28286.99048486120*x);
R1:=R1+0.00000000081*COS(1.90858992196+29088.81141598500*x);
R1:=R1+0.00000000075*COS(3.40955892978+5481.25491886760*x);
R1:=R1+0.00000000069*COS(4.49936170873+17256.63153634140*x);
R1:=R1+0.00000000088*COS(1.10098454357+11769.85369316640*x);
R1:=R1+0.00000000066*COS(2.78285801977+536.80451209540*x);
R1:=R1+0.00000000068*COS(3.88179770758+17260.15465469040*x);
R1:=R1+0.00000000084*COS(1.59303306354+9380.95967271720*x);
R1:=R1+0.00000000088*COS(3.88076636762+7477.52286021600*x);
R1:=R1+0.00000000061*COS(6.17558202197+11087.28512591840*x);
R1:=R1+0.00000000060*COS(4.34824715818+6206.80977871580*x);
R1:=R1+0.00000000082*COS(4.59843208943+9388.00590941520*x);
R1:=R1+0.00000000079*COS(1.63131230601+4933.20844033260*x);
R1:=R1+0.00000000078*COS(4.20905757484+5729.50644714900*x);
R1:=R1+0.00000000057*COS(5.48157926651+18319.53658487960*x);
R1:=R1+0.00000000060*COS(1.01261781084+12721.57209941700*x);
R1:=R1+0.00000000056*COS(1.63031935692+15720.83878487840*x);
R1:=R1+0.00000000055*COS(0.24926735018+15110.46611986620*x);
R1:=R1+0.00000000061*COS(5.93059279661+12539.85338018300*x);
R1:=R1+0.00000000055*COS(4.84298966314+13095.84266507740*x);
R1:=R1+0.00000000067*COS(6.11690589247+8662.24032356300*x);
R1:=R1+0.00000000054*COS(5.73750638571+3634.62102451840*x);
R1:=R1+0.00000000074*COS(1.05466745829+16460.33352952499*x);
R1:=R1+0.00000000053*COS(2.29084335688+16062.18452611680*x);
R1:=R1+0.00000000064*COS(2.13513767927+7875.67186362420*x);
R1:=R1+0.00000000067*COS(0.07096807518+14945.31617355440*x);
R1:=R1+0.00000000051*COS(2.31511194429+6262.72053059260*x);
R1:=R1+0.00000000057*COS(5.77055471237+12043.57428188900*x);
R1:=R1+0.00000000056*COS(4.41980790431+4701.11650170840*x);
R1:=R1+0.00000000059*COS(5.87963500073+5331.35744374080*x);
R1:=R1+0.00000000058*COS(2.30546168628+955.59974160860*x);
R1:=R1+0.00000000049*COS(1.93839278478+5333.90024102160*x);
R1:=R1+0.00000000048*COS(2.69973662261+6709.67404086740*x);
R1:=R1+0.00000000064*COS(1.64379897981+6262.30045449900*x);
R1:=R1+0.00000000046*COS(3.98449608961+98068.53671630539*x);
R1:=R1+0.00000000050*COS(3.68875893005+12323.42309600880*x);
R1:=R1+0.00000000045*COS(3.30068569697+22003.91463486980*x);
R1:=R1+0.00000000047*COS(1.26317154881+11919.14086666800*x);
R1:=R1+0.00000000045*COS(0.89150445122+51868.24866217880*x);
R1:=R1+0.00000000043*COS(1.61526242998+6277.55292568400*x);
R1:=R1+0.00000000043*COS(5.74295325645+11403.67699557500*x);
R1:=R1+0.00000000044*COS(3.43070646822+10021.83728009940*x);
R1:=R1+0.00000000056*COS(0.02481833774+15671.08175940660*x);
R1:=R1+0.00000000055*COS(3.14274403422+33019.02111220460*x);
R1:=R1+0.00000000045*COS(3.00877289177+8982.81066930900*x);
R1:=R1+0.00000000046*COS(0.73303568429+6303.43116939020*x);
R1:=R1+0.00000000049*COS(1.60455690285+6303.85124548380*x);
R1:=R1+0.00000000045*COS(0.40210030323+6805.65326808520*x);
R1:=R1+0.00000000053*COS(0.94869680175+10988.80815753500*x);
R1:=R1+0.00000000041*COS(1.61122384329+6819.88036208680*x);
R1:=R1+0.00000000055*COS(0.89439119424+11933.36796066960*x);
R1:=R1+0.00000000045*COS(3.88495384656+60530.48898574180*x);
R1:=R1+0.00000000040*COS(4.75740908001+38526.57435087200*x);
R1:=R1+0.00000000040*COS(1.49921251887+18451.07854656599*x);
R1:=R1+0.00000000040*COS(3.77498297228+26087.90314157420*x);
R1:=R1+0.00000000051*COS(1.70258603562+1551.04522264800*x);
R1:=R1+0.00000000039*COS(2.97100699926+2118.76386037840*x);
R1:=R1+0.00000000053*COS(5.19854123078+77713.77146812050*x);
R1:=R1+0.00000000047*COS(4.26356628717+21424.46664430340*x);
R1:=R1+0.00000000037*COS(0.62902722802+24356.78078864160*x);
R1:=R1+0.00000000036*COS(0.11087914947+10344.29506538580*x);
R1:=R1+0.00000000036*COS(0.77037556319+12029.34718788740*x);
R1:=R1+0.00000000035*COS(3.30933994515+24072.92146977640*x);
R1:=R1+0.00000000035*COS(5.93650887012+31570.79964939120*x);
R1:=R1+0.00000000036*COS(2.15108874765+30774.50164257480*x);
R1:=R1+0.00000000036*COS(1.75078825382+16207.88627150200*x);
R1:=R1+0.00000000033*COS(5.06264177921+226858.23855437008*x);
R1:=R1+0.00000000034*COS(6.16891378800+24491.42579258340*x);
R1:=R1+0.00000000035*COS(3.19120695549+32217.20018108080*x);
R1:=R1+0.00000000034*COS(2.31528650443+55798.45835839840*x);
R1:=R1+0.00000000032*COS(4.21446357042+15664.03552270859*x);
R1:=R1+0.00000000039*COS(1.24979117796+6418.14093002680*x);
R1:=R1+0.00000000037*COS(4.11943655770+2787.04302385740*x);
R1:=R1+0.00000000032*COS(1.62887710890+639.89728631400*x);
R1:=R1+0.00000000038*COS(5.89832942685+640.87760738220*x);
R1:=R1+0.00000000032*COS(1.72442327688+27433.88921587499*x);
R1:=R1+0.00000000031*COS(2.78828943753+12139.55350910680*x);
R1:=R1+0.00000000035*COS(4.44608896525+18202.21671665939*x);
R1:=R1+0.00000000034*COS(3.96287980676+18216.44381066100*x);
R1:=R1+0.00000000033*COS(4.73611335874+16723.35014259500*x);
R1:=R1+0.00000000034*COS(1.43910280005+49515.38250840700*x);
R1:=R1+0.00000000031*COS(0.23302920161+23581.25817731760*x);
R1:=R1+0.00000000029*COS(2.02633840220+11609.86254401220*x);
R1:=R1+0.00000000030*COS(2.54923230240+9924.81042151060*x);
R1:=R1+0.00000000032*COS(4.91793198558+11300.58422135640*x);
R1:=R1+0.00000000028*COS(0.26187189577+13521.75144159140*x);
R1:=R1+0.00000000028*COS(3.84568936822+2699.73481931760*x);
R1:=R1+0.00000000029*COS(1.83149729794+29822.78323632420*x);
R1:=R1+0.00000000033*COS(4.60320094415+19004.64794940840*x);
R1:=R1+0.00000000027*COS(4.46183450287+6702.56049386660*x);
R1:=R1+0.00000000030*COS(4.46494072240+36147.40987730040*x);
R1:=R1+0.00000000027*COS(0.03211931363+6279.78949257360*x);
R1:=R1+0.00000000026*COS(5.46497324333+6245.04817735560*x);
R1:=R1+0.00000000035*COS(4.52695674113+36949.23080842420*x);
R1:=R1+0.00000000027*COS(3.52528177609+10770.89325626180*x);
R1:=R1+0.00000000026*COS(1.48499438453+11080.17157891760*x);
R1:=R1+0.00000000035*COS(2.82154380962+19402.79695281660*x);
R1:=R1+0.00000000025*COS(2.46339998836+6279.48542133960*x);
R1:=R1+0.00000000026*COS(4.97688894643+16737.57723659660*x);
R1:=R1+0.00000000026*COS(2.36136541526+17996.03116822220*x);
R1:=R1+0.00000000029*COS(4.15148654061+45892.73043315699*x);
R1:=R1+0.00000000026*COS(4.50714272714+17796.95916678580*x);
R1:=R1+0.00000000027*COS(4.72625223674+1066.49547719000*x);
R1:=R1+0.00000000025*COS(2.89309528854+6286.66627864320*x);
R1:=R1+0.00000000027*COS(0.37462444357+12964.30070339100*x);
R1:=R1+0.00000000029*COS(4.94860010533+5863.59120611620*x);
R1:=R1+0.00000000031*COS(3.93096113577+29864.33402730900*x);
R1:=R1+0.00000000024*COS(6.14987193584+18606.49894600020*x);
R1:=R1+0.00000000024*COS(3.74225964547+29026.48522950779*x);
R1:=R1+0.00000000025*COS(5.70460621565+27707.54249429480*x);
R1:=R1+0.00000000025*COS(5.33928840652+15141.39079431200*x);
R1:=R1+0.00000000027*COS(3.02320897140+6286.36220740920*x);
R1:=R1+0.00000000023*COS(0.28364955406+5327.47610838280*x);
R1:=R1+0.00000000026*COS(1.34240461687+18875.52586977400*x);
R1:=R1+0.00000000024*COS(1.33998410121+19800.94595622480*x);
R1:=R1+0.00000000025*COS(6.00172494004+6489.26139842860*x);
R1:=R1+0.00000000022*COS(1.81777974484+6288.59877429880*x);
R1:=R1+0.00000000022*COS(3.58603606640+6915.85958930460*x);
R1:=R1+0.00000000029*COS(2.09564449439+15265.88651930040*x);
R1:=R1+0.00000000022*COS(1.02173599251+11925.27409260060*x);
R1:=R1+0.00000000022*COS(4.74660932338+28230.18722269139*x);
R1:=R1+0.00000000021*COS(2.30688751432+5999.21653112620*x);
R1:=R1+0.00000000021*COS(3.22654944430+25934.12433108940*x);
R1:=R1+0.00000000021*COS(3.04956726238+6566.93516885660*x);
R1:=R1+0.00000000027*COS(5.35653084499+33794.54372352860*x);
R1:=R1+0.00000000028*COS(3.91168324815+18208.34994259200*x);
R1:=R1+0.00000000020*COS(1.52296293311+135.06508003540*x);
R1:=R1+0.00000000022*COS(4.66462839521+13362.44970679920*x);
R1:=R1+0.00000000019*COS(1.78121167862+156137.47598479928*x);
R1:=R1+0.00000000019*COS(2.99969102221+19651.04848109800*x);
R1:=R1+0.00000000019*COS(2.86664273362+18422.62935909819*x);
R1:=R1+0.00000000025*COS(0.94995632141+31415.37924995700*x);
R1:=R1+0.00000000019*COS(4.71432851499+77690.75950573849*x);
R1:=R1+0.00000000019*COS(2.54227398241+77736.78343050249*x);
R1:=R1+0.00000000020*COS(5.91915117116+48739.85989708300*x);

LOCAL R2:=0;
R2:=R2+0.00004359385*COS(5.78455133738+6283.07584999140*x);
R2:=R2+0.00000123633*COS(5.57934722157+12566.15169998280*x);
R2:=R2-0.00000012341;
R2:=R2+0.00000008792*COS(3.62777733395+77713.77146812050*x);
R2:=R2+0.00000005689*COS(1.86958905084+5573.14280143310*x);
R2:=R2+0.00000003301*COS(5.47027913302+18849.22754997420*x);
R2:=R2+0.00000001471*COS(4.48028885617+5507.55323866740*x);
R2:=R2+0.00000001013*COS(2.81456417694+5223.69391980220*x);
R2:=R2+0.00000000854*COS(3.10878241236+1577.34354244780*x);
R2:=R2+0.00000001102*COS(2.84173992403+161000.68573767410*x);
R2:=R2+0.00000000648*COS(5.47349498544+775.52261132400*x);
R2:=R2+0.00000000609*COS(1.37969434104+6438.49624942560*x);
R2:=R2+0.00000000499*COS(4.41649242250+6286.59896834040*x);
R2:=R2+0.00000000417*COS(0.90242451175+10977.07880469900*x);
R2:=R2+0.00000000402*COS(3.20376585290+5088.62883976680*x);
R2:=R2+0.00000000351*COS(1.81079227770+5486.77784317500*x);
R2:=R2+0.00000000467*COS(3.65753702738+7084.89678111520*x);
R2:=R2+0.00000000458*COS(5.38585314743+149854.40013480789*x);
R2:=R2+0.00000000304*COS(3.51701098693+796.29800681640*x);
R2:=R2+0.00000000266*COS(6.17413982699+6836.64525283380*x);
R2:=R2+0.00000000279*COS(1.84120501086+4694.00295470760*x);
R2:=R2+0.00000000260*COS(1.41629543251+2146.16541647520*x);
R2:=R2+0.00000000266*COS(3.13832905677+71430.69561812909*x);
R2:=R2+0.00000000321*COS(5.35313367048+3154.68708489560*x);
R2:=R2+0.00000000238*COS(2.17720020018+155.42039943420*x);
R2:=R2+0.00000000293*COS(4.61501268144+4690.47983635860*x);
R2:=R2+0.00000000229*COS(4.75969588070+7234.79425624200*x);
R2:=R2+0.00000000211*COS(0.21868065485+4705.73230754360*x);
R2:=R2+0.00000000201*COS(4.21905743357+1349.86740965880*x);
R2:=R2+0.00000000195*COS(4.57808285364+529.69096509460*x);
R2:=R2+0.00000000253*COS(2.81496293039+1748.01641306700*x);
R2:=R2+0.00000000182*COS(5.70454011389+6040.34724601740*x);
R2:=R2+0.00000000179*COS(6.02897097053+4292.33083295040*x);
R2:=R2+0.00000000186*COS(1.58690991244+6309.37416979120*x);
R2:=R2+0.00000000170*COS(2.90220009715+9437.76293488700*x);
R2:=R2+0.00000000166*COS(1.99984925026+8031.09226305840*x);
R2:=R2+0.00000000158*COS(0.04783713552+2544.31441988340*x);
R2:=R2+0.00000000197*COS(2.01083639502+1194.44701022460*x);
R2:=R2+0.00000000165*COS(5.78372596778+83996.84731811189*x);
R2:=R2+0.00000000214*COS(3.38285934319+7632.94325965020*x);
R2:=R2+0.00000000140*COS(0.36401486094+10447.38783960440*x);
R2:=R2+0.00000000151*COS(0.95153163031+6127.65545055720*x);
R2:=R2+0.00000000136*COS(1.48426306582+2352.86615377180*x);
R2:=R2+0.00000000127*COS(5.48475435134+951.71840625060*x);
R2:=R2+0.00000000126*COS(5.26866506592+6279.55273164240*x);
R2:=R2+0.00000000125*COS(3.75754889288+6812.76681508600*x);
R2:=R2+0.00000000101*COS(4.95015746147+398.14900340820*x);
R2:=R2+0.00000000102*COS(0.68468295277+1592.59601363280*x);
R2:=R2+0.00000000100*COS(1.14568935785+3894.18182954220*x);
R2:=R2+0.00000000129*COS(0.76540016965+553.56940284240*x);
R2:=R2+0.00000000109*COS(5.41063597567+6256.77753019160*x);
R2:=R2+0.00000000075*COS(5.84804322893+242.72860397400*x);
R2:=R2+0.00000000095*COS(1.94452244083+11856.21865142450*x);
R2:=R2+0.00000000077*COS(0.69373708195+8429.24126646660*x);
R2:=R2+0.00000000100*COS(5.19725292131+244287.60000722769*x);
R2:=R2+0.00000000080*COS(6.18440483705+1059.38193018920*x);
R2:=R2+0.00000000069*COS(5.25699888595+14143.49524243060*x);
R2:=R2+0.00000000085*COS(5.39484725499+25132.30339996560*x);
R2:=R2+0.00000000066*COS(0.51779993906+801.82093112380*x);
R2:=R2+0.00000000055*COS(5.16878202461+7058.59846131540*x);
R2:=R2+0.00000000051*COS(3.88759155247+12036.46073488820*x);
R2:=R2+0.00000000050*COS(5.57636570536+6290.18939699220*x);
R2:=R2+0.00000000061*COS(2.24359003264+8635.94200376320*x);
R2:=R2+0.00000000050*COS(5.54441900966+1990.74501704100*x);
R2:=R2+0.00000000056*COS(4.00301078040+13367.97263110660*x);
R2:=R2+0.00000000052*COS(4.13138898038+7860.41939243920*x);
R2:=R2+0.00000000052*COS(3.90943054011+26.29831979980*x);
R2:=R2+0.00000000041*COS(3.57128482780+7079.37385680780*x);
R2:=R2+0.00000000056*COS(2.76959005761+90955.55169449610*x);
R2:=R2+0.00000000042*COS(1.91461189199+7477.52286021600*x);
R2:=R2+0.00000000042*COS(0.42728171713+10213.28554621100*x);
R2:=R2+0.00000000042*COS(1.09413724455+709.93304855830*x);
R2:=R2+0.00000000039*COS(3.93298068961+10973.55568635000*x);
R2:=R2+0.00000000038*COS(6.17935925345+9917.69687450980*x);
R2:=R2+0.00000000049*COS(0.83021145241+11506.76976979360*x);
R2:=R2+0.00000000053*COS(1.45828359397+233141.31440436149*x);
R2:=R2+0.00000000047*COS(6.21568666789+6681.22485339960*x);
R2:=R2+0.00000000037*COS(0.36359309980+10177.25767953360*x);
R2:=R2+0.00000000035*COS(3.33024911524+5643.17856367740*x);
R2:=R2+0.00000000034*COS(5.63446915337+6525.80445396540*x);
R2:=R2+0.00000000035*COS(5.36033855038+25158.60171976540*x);
R2:=R2+0.00000000034*COS(5.36319798321+4933.20844033260*x);
R2:=R2+0.00000000033*COS(4.24722336872+12569.67481833180*x);
R2:=R2+0.00000000043*COS(5.26370903404+10575.40668294180*x);
R2:=R2+0.00000000042*COS(5.08837645072+11015.10647733480*x);
R2:=R2+0.00000000040*COS(1.98334703186+6284.05617105960*x);
R2:=R2+0.00000000042*COS(4.22496037505+88860.05707098669*x);
R2:=R2+0.00000000029*COS(3.19088628170+11926.25441366880*x);
R2:=R2+0.00000000029*COS(0.15217616684+12168.00269657460*x);
R2:=R2+0.00000000030*COS(1.61904744136+9779.10867612540*x);
R2:=R2+0.00000000027*COS(0.76388991416+1589.07289528380*x);
R2:=R2+0.00000000036*COS(2.74712003443+3738.76143010800*x);
R2:=R2+0.00000000033*COS(3.08807829566+3930.20969621960*x);
R2:=R2+0.00000000031*COS(5.34906619513+143571.32428481648*x);
R2:=R2+0.00000000025*COS(0.10240267494+22483.84857449259*x);
R2:=R2+0.00000000030*COS(3.47110495524+14945.31617355440*x);
R2:=R2+0.00000000024*COS(1.10425016019+4535.05943692440*x);
R2:=R2+0.00000000024*COS(1.58037259780+6496.37494542940*x);
R2:=R2+0.00000000023*COS(3.87710321433+6275.96230299060*x);
R2:=R2+0.00000000025*COS(3.94529778970+3128.38876509580*x);
R2:=R2+0.00000000023*COS(3.44685609601+4136.91043351620*x);
R2:=R2+0.00000000023*COS(3.83156029849+5753.38488489680*x);
R2:=R2+0.00000000022*COS(1.86956128067+16730.46368959580*x);
R2:=R2+0.00000000025*COS(2.42188933855+5729.50644714900*x);
R2:=R2+0.00000000020*COS(1.78208352927+17789.84561978500*x);
R2:=R2+0.00000000021*COS(4.30363087400+16858.48253293320*x);
R2:=R2+0.00000000021*COS(0.49258939822+29088.81141598500*x);
R2:=R2+0.00000000025*COS(1.33030250444+6282.09552892320*x);
R2:=R2+0.00000000027*COS(2.54785812264+3496.03282613400*x);
R2:=R2+0.00000000022*COS(1.11232521950+12721.57209941700*x);
R2:=R2+0.00000000021*COS(5.97759081637+7.11354700080*x);
R2:=R2+0.00000000019*COS(0.80292033311+16062.18452611680*x);
R2:=R2+0.00000000023*COS(4.12454848769+2388.89402044920*x);
R2:=R2+0.00000000022*COS(4.92663152168+18875.52586977400*x);
R2:=R2+0.00000000023*COS(5.68902059771+16460.33352952499*x);
R2:=R2+0.00000000023*COS(4.97346265647+17260.15465469040*x);
R2:=R2+0.00000000023*COS(3.03021283729+66567.48586525429*x);
R2:=R2+0.00000000016*COS(3.89740925257+5331.35744374080*x);
R2:=R2+0.00000000017*COS(3.08268671348+154717.60988768269*x);
R2:=R2+0.00000000016*COS(3.95085099736+3097.88382272579*x);
R2:=R2+0.00000000016*COS(3.99041783945+6283.14316029419*x);
R2:=R2+0.00000000020*COS(6.10644140189+167283.76158766549*x);
R2:=R2+0.00000000015*COS(4.09775914607+11712.95531823080*x);
R2:=R2+0.00000000016*COS(5.71769940700+17298.18232732620*x);
R2:=R2+0.00000000016*COS(3.28894009404+5884.92684658320*x);
R2:=R2+0.00000000015*COS(5.64785377164+12559.03815298200*x);
R2:=R2+0.00000000016*COS(4.43452080930+6283.00853968860*x);
R2:=R2+0.00000000014*COS(2.31721603062+5481.25491886760*x);
R2:=R2+0.00000000014*COS(4.43479032305+13517.87010623340*x);
R2:=R2+0.00000000014*COS(4.73209312936+7342.45778018060*x);
R2:=R2+0.00000000012*COS(0.64705975463+18073.70493865020*x);
R2:=R2+0.00000000011*COS(1.51443332200+16200.77272450120*x);
R2:=R2+0.00000000011*COS(0.88708889185+21228.39202354580*x);
R2:=R2+0.00000000014*COS(4.50116508534+640.87760738220*x);
R2:=R2+0.00000000011*COS(4.64339996198+11790.62908865880*x);
R2:=R2+0.00000000011*COS(1.31064298246+4164.31198961300*x);
R2:=R2+0.00000000009*COS(3.02238989305+23543.23050468179*x);
R2:=R2+0.00000000009*COS(2.04999402381+22003.91463486980*x);
R2:=R2+0.00000000009*COS(4.91488110218+213.29909543800*x);

LOCAL R3:=0;
R3:=R3+0.00000144595*COS(4.27319435148+6283.07584999140*x);
R3:=R3+0.00000006729*COS(3.91697608662+12566.15169998280*x);
R3:=R3+0.00000000774;
R3:=R3+0.00000000247*COS(3.73019298781+18849.22754997420*x);
R3:=R3+0.00000000036*COS(2.80081409050+6286.59896834040*x);
R3:=R3+0.00000000033*COS(5.62216602775+6127.65545055720*x);
R3:=R3+0.00000000019*COS(3.71292621802+6438.49624942560*x);
R3:=R3+0.00000000016*COS(4.26011484232+6525.80445396540*x);
R3:=R3+0.00000000016*COS(3.50416887054+6256.77753019160*x);
R3:=R3+0.00000000014*COS(3.62127621114+25132.30339996560*x);
R3:=R3+0.00000000011*COS(4.39200958819+4705.73230754360*x);
R3:=R3+0.00000000011*COS(5.22327127059+6040.34724601740*x);
R3:=R3+0.00000000010*COS(4.28045254647+83996.84731811189*x);
R3:=R3+0.00000000009*COS(1.56864096494+5507.55323866740*x);
R3:=R3+0.00000000011*COS(1.37795688024+6309.37416979120*x);
R3:=R3+0.00000000010*COS(5.19937959068+71430.69561812909*x);
R3:=R3+0.00000000009*COS(0.47275199930+6279.55273164240*x);
R3:=R3+0.00000000009*COS(0.74642756529+5729.50644714900*x);
R3:=R3+0.00000000007*COS(2.97374891560+775.52261132400*x);
R3:=R3+0.00000000007*COS(3.28615691021+7058.59846131540*x);
R3:=R3+0.00000000007*COS(2.19184402142+6812.76681508600*x);
R3:=R3+0.00000000005*COS(3.15419034438+529.69096509460*x);
R3:=R3+0.00000000006*COS(4.54725567047+1059.38193018920*x);
R3:=R3+0.00000000005*COS(1.51104406936+7079.37385680780*x);
R3:=R3+0.00000000007*COS(2.98052059053+6681.22485339960*x);
R3:=R3+0.00000000005*COS(2.30961231391+12036.46073488820*x);
R3:=R3+0.00000000005*COS(3.71102966917+6290.18939699220*x);

LOCAL R4:=0;
R4:=R4+0.00000003858*COS(2.56384387339+6283.07584999140*x);
R4:=R4+0.00000000306*COS(2.26769501230+12566.15169998280*x);
R4:=R4+0.00000000053*COS(3.44031471924+5573.14280143310*x);
R4:=R4+0.00000000015*COS(2.04794573436+18849.22754997420*x);
R4:=R4+0.00000000013*COS(2.05688873673+77713.77146812050*x);
R4:=R4+0.00000000007*COS(4.41218854480+161000.68573767410*x);
R4:=R4+0.00000000005*COS(5.26154653107+6438.49624942560*x);
R4:=R4+0.00000000005*COS(4.07695126049+6127.65545055720*x);
R4:=R4+0.00000000006*COS(3.81514213664+149854.40013480789*x);
R4:=R4+0.00000000003*COS(1.28175749811+6286.59896834040*x);

LOCAL R5:=0;
R5:=R5+0.00000000086*COS(1.21579741687+6283.07584999140*x);
R5:=R5+0.00000000012*COS(0.65617264033+12566.15169998280*x);
R5:=R5+0.00000000001*COS(0.38068797142+18849.22754997420*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;
