Trong các vấn đề căn bản về chuyển động của mặt trời, thì chúng ta cần phải tính toán chính xác sắc nét thì mới có thể tính đúng số tích nhật khi lập phương trình thái ất.Cho tới nay, đại đa số người ta chỉ dựa vào truyền thuyết về các hành tinh thẳng hàng.
Vốn gốc, khi tính toán thì người ta có thể chấp nhận sai số vài phút, nhưng sau 10 năm để lập phương trình thái ất thì vài phút nhân lên vài chuc triệu, sẽ là sai sót khổng lồ.
Nên người tự xưng là "Hiểu bản chất cốt lõi" thì fix lỗi, nâng độ chính xác từ 13 chữ số sau dấu phẩy lên 18 chữ số, để phù hợp với tính toán thái ất đi. Chả lẽ hiểu mà không làm được à? Hay là thùng rỗng kêu to?
function Earth_L0($t) // 559 terms of order 0
{
$L0 = 1.75347045673;
$L0 += 0.03341656456*cos(4.66925680417 + 6283.0758499914*$t);
$L0 += 0.00034894275*cos(4.62610241759 + 12566.1516999828*$t);
$L0 += 0.00003417571*cos(2.82886579606 + 3.523118349*$t);
$L0 += 0.00003497056*cos(2.74411800971 + 5753.3848848968*$t);
$L0 += 0.00003135896*cos(3.62767041758 + 77713.7714681205*$t);
$L0 += 0.00002676218*cos(4.41808351397 + 7860.4193924392*$t);
$L0 += 0.00002342687*cos(6.13516237631 + 3930.2096962196*$t);
$L0 += 0.00001273166*cos(2.03709655772 + 529.6909650946*$t);
$L0 += 0.00001324292*cos(0.74246356352 + 11506.7697697936*$t);
$L0 += 0.00000901855*cos(2.04505443513 + 26.2983197998*$t);
$L0 += 0.00001199167*cos(1.10962944315 + 1577.3435424478*$t);
$L0 += 0.00000857223*cos(3.50849156957 + 398.1490034082*$t);
$L0 += 0.00000779786*cos(1.17882652114 + 5223.6939198022*$t);
$L0 += 0.00000990250*cos(5.23268129594 + 5884.9268465832*$t);
$L0 += 0.00000753141*cos(2.53339053818 + 5507.5532386674*$t);
$L0 += 0.00000505264*cos(4.58292563052 + 18849.2275499742*$t);
$L0 += 0.00000492379*cos(4.20506639861 + 775.522611324*$t);
$L0 += 0.00000356655*cos(2.91954116867 + 0.0673103028*$t);
$L0 += 0.00000284125*cos(1.89869034186 + 796.2980068164*$t);
$L0 += 0.00000242810*cos(0.34481140906 + 5486.777843175*$t);
$L0 += 0.00000317087*cos(5.84901952218 + 11790.6290886588*$t);
$L0 += 0.00000271039*cos(0.31488607649 + 10977.078804699*$t);
$L0 += 0.00000206160*cos(4.80646606059 + 2544.3144198834*$t);
$L0 += 0.00000205385*cos(1.86947813692 + 5573.1428014331*$t);
$L0 += 0.00000202261*cos(2.45767795458 + 6069.7767545534*$t);
$L0 += 0.00000126184*cos(1.08302630210 + 20.7753954924*$t);
$L0 += 0.00000155516*cos(0.83306073807 + 213.299095438*$t);
$L0 += 0.00000115132*cos(0.64544911683 + 0.9803210682*$t);
$L0 += 0.00000102851*cos(0.63599846727 + 4694.0029547076*$t);
$L0 += 0.00000101724*cos(4.26679821365 + 7.1135470008*$t);
$L0 += 0.00000099206*cos(6.20992940258 + 2146.1654164752*$t);
$L0 += 0.00000132212*cos(3.41118275555 + 2942.4634232916*$t);
$L0 += 0.00000097607*cos(0.68101272270 + 155.4203994342*$t);
$L0 += 0.00000085128*cos(1.29870743025 + 6275.9623029906*$t);
$L0 += 0.00000074651*cos(1.75508916159 + 5088.6288397668*$t);
$L0 += 0.00000101895*cos(0.97569221824 + 15720.8387848784*$t);
$L0 += 0.00000084711*cos(3.67080093025 + 71430.69561812909*$t);
$L0 += 0.00000073547*cos(4.67926565481 + 801.8209311238*$t);
$L0 += 0.00000073874*cos(3.50319443167 + 3154.6870848956*$t);
$L0 += 0.00000078756*cos(3.03698313141 + 12036.4607348882*$t);
$L0 += 0.00000079637*cos(1.80791330700 + 17260.1546546904*$t);
$L0 += 0.00000085803*cos(5.98322631256 + 161000.6857376741*$t);
$L0 += 0.00000056963*cos(2.78430398043 + 6286.5989683404*$t);
$L0 += 0.00000061148*cos(1.81839811024 + 7084.8967811152*$t);
$L0 += 0.00000069627*cos(0.83297596966 + 9437.762934887*$t);
$L0 += 0.00000056116*cos(4.38694880779 + 14143.4952424306*$t);
$L0 += 0.00000062449*cos(3.97763880587 + 8827.3902698748*$t);
$L0 += 0.00000051145*cos(0.28306864501 + 5856.4776591154*$t);
$L0 += 0.00000055577*cos(3.47006009062 + 6279.5527316424*$t);
$L0 += 0.00000041036*cos(5.36817351402 + 8429.2412664666*$t);
$L0 += 0.00000051605*cos(1.33282746983 + 1748.016413067*$t);
$L0 += 0.00000051992*cos(0.18914945834 + 12139.5535091068*$t);
$L0 += 0.00000049000*cos(0.48735065033 + 1194.4470102246*$t);
$L0 += 0.00000039200*cos(6.16832995016 + 10447.3878396044*$t);
$L0 += 0.00000035566*cos(1.77597314691 + 6812.766815086*$t);
$L0 += 0.00000036770*cos(6.04133859347 + 10213.285546211*$t);
$L0 += 0.00000036596*cos(2.56955238628 + 1059.3819301892*$t);
$L0 += 0.00000033291*cos(0.59309499459 + 17789.845619785*$t);
$L0 += 0.00000035954*cos(1.70876111898 + 2352.8661537718*$t);
$L0 += 0.00000040938*cos(2.39850881707 + 19651.048481098*$t);
$L0 += 0.00000030047*cos(2.73975123935 + 1349.8674096588*$t);
$L0 += 0.00000030412*cos(0.44294464135 + 83996.84731811189*$t);
$L0 += 0.00000023663*cos(0.48473567763 + 8031.0922630584*$t);
$L0 += 0.00000023574*cos(2.06527720049 + 3340.6124266998*$t);
$L0 += 0.00000021089*cos(4.14825464101 + 951.7184062506*$t);
$L0 += 0.00000024738*cos(0.21484762138 + 3.5904286518*$t);
$L0 += 0.00000025352*cos(3.16470953405 + 4690.4798363586*$t);
$L0 += 0.00000022820*cos(5.22197888032 + 4705.7323075436*$t);
$L0 += 0.00000021419*cos(1.42563735525 + 16730.4636895958*$t);
$L0 += 0.00000021891*cos(5.55594302562 + 553.5694028424*$t);
$L0 += 0.00000017481*cos(4.56052900359 + 135.0650800354*$t);
$L0 += 0.00000019925*cos(5.22208471269 + 12168.0026965746*$t);
$L0 += 0.00000019860*cos(5.77470167653 + 6309.3741697912*$t);
$L0 += 0.00000020300*cos(0.37133792946 + 283.8593188652*$t);
$L0 += 0.00000014421*cos(4.19315332546 + 242.728603974*$t);
$L0 += 0.00000016225*cos(5.98837722564 + 11769.8536931664*$t);
$L0 += 0.00000015077*cos(4.19567181073 + 6256.7775301916*$t);
$L0 += 0.00000019124*cos(3.82219996949 + 23581.2581773176*$t);
$L0 += 0.00000018888*cos(5.38626880969 + 149854.40013480789*$t);
$L0 += 0.00000014346*cos(3.72355084422 + 38.0276726358*$t);
$L0 += 0.00000017898*cos(2.21490735647 + 13367.9726311066*$t);
$L0 += 0.00000012054*cos(2.62229588349 + 955.5997416086*$t);
$L0 += 0.00000011287*cos(0.17739328092 + 4164.311989613*$t);
$L0 += 0.00000013971*cos(4.40138139996 + 6681.2248533996*$t);
$L0 += 0.00000013621*cos(1.88934471407 + 7632.9432596502*$t);
$L0 += 0.00000012503*cos(1.13052412208 + 5.5229243074*$t);
$L0 += 0.00000010498*cos(5.35909518669 + 1592.5960136328*$t);
$L0 += 0.00000009803*cos(0.99947478995 + 11371.7046897582*$t);
$L0 += 0.00000009220*cos(4.57138609781 + 4292.3308329504*$t);
$L0 += 0.00000010327*cos(6.19982566125 + 6438.4962494256*$t);
$L0 += 0.00000012003*cos(1.00351456700 + 632.7837393132*$t);
$L0 += 0.00000010827*cos(0.32734520222 + 103.0927742186*$t);
$L0 += 0.00000008356*cos(4.53902685948 + 25132.3033999656*$t);
$L0 += 0.00000010005*cos(6.02914963280 + 5746.271337896*$t);
$L0 += 0.00000008409*cos(3.29946744189 + 7234.794256242*$t);
$L0 += 0.00000008006*cos(5.82145271907 + 28.4491874678*$t);
$L0 += 0.00000010523*cos(0.93871805506 + 11926.2544136688*$t);
$L0 += 0.00000007686*cos(3.12142363172 + 7238.67559160*$t);
$L0 += 0.00000009378*cos(2.62414241032 + 5760.4984318976*$t);
$L0 += 0.00000008127*cos(6.11228001785 + 4732.0306273434*$t);
$L0 += 0.00000009232*cos(0.48343968736 + 522.5774180938*$t);
$L0 += 0.00000009802*cos(5.24413991147 + 27511.4678735372*$t);
$L0 += 0.00000007871*cos(0.99590177926 + 5643.1785636774*$t);
$L0 += 0.00000008123*cos(6.27053013650 + 426.598190876*$t);
$L0 += 0.00000009048*cos(5.33686335897 + 6386.16862421*$t);
$L0 += 0.00000008620*cos(4.16538210888 + 7058.5984613154*$t);
$L0 += 0.00000006297*cos(4.71724819317 + 6836.6452528338*$t);
$L0 += 0.00000007575*cos(3.97382858911 + 11499.6562227928*$t);
$L0 += 0.00000007756*cos(2.95729056763 + 23013.5395395872*$t);
$L0 += 0.00000007314*cos(0.60652505806 + 11513.8833167944*$t);
$L0 += 0.00000005955*cos(2.87641047971 + 6283.14316029419*$t);
$L0 += 0.00000006534*cos(5.79072926033 + 18073.7049386502*$t);
$L0 += 0.00000007188*cos(3.99831508699 + 74.7815985673*$t);
$L0 += 0.00000007346*cos(4.38582365437 + 316.3918696566*$t);
$L0 += 0.00000005413*cos(5.39199024641 + 419.4846438752*$t);
$L0 += 0.00000005127*cos(2.36062848786 + 10973.55568635*$t);
$L0 += 0.00000007056*cos(0.32258441903 + 263.0839233728*$t);
$L0 += 0.00000006625*cos(3.66475158672 + 17298.1823273262*$t);
$L0 += 0.00000006762*cos(5.91132535899 + 90955.5516944961*$t);
$L0 += 0.00000004938*cos(5.73672165674 + 9917.6968745098*$t);
$L0 += 0.00000005547*cos(2.45152597661 + 12352.8526045448*$t);
$L0 += 0.00000005958*cos(3.32051344676 + 6283.0085396886*$t);
$L0 += 0.00000004471*cos(2.06385999536 + 7079.3738568078*$t);
$L0 += 0.00000006153*cos(1.45823331144 + 233141.31440436149*$t);
$L0 += 0.00000004348*cos(4.42342175480 + 5216.5803728014*$t);
$L0 += 0.00000006123*cos(1.07494905258 + 19804.8272915828*$t);
$L0 += 0.00000004488*cos(3.65285037150 + 206.1855484372*$t);
$L0 += 0.00000004020*cos(0.83995823171 + 20.3553193988*$t);
$L0 += 0.00000005188*cos(4.06503864016 + 6208.2942514241*$t);
$L0 += 0.00000005307*cos(0.38217636096 + 31441.6775697568*$t);
$L0 += 0.00000003785*cos(2.34369213733 + 3.881335358*$t);
$L0 += 0.00000004497*cos(3.27230796845 + 11015.1064773348*$t);
$L0 += 0.00000004132*cos(0.92128915753 + 3738.761430108*$t);
$L0 += 0.00000003521*cos(5.97844807108 + 3894.1818295422*$t);
$L0 += 0.00000004215*cos(1.90601120623 + 245.8316462294*$t);
$L0 += 0.00000003701*cos(5.03069397926 + 536.8045120954*$t);
$L0 += 0.00000003865*cos(1.82634360607 + 11856.2186514245*$t);
$L0 += 0.00000003652*cos(1.01838584934 + 16200.7727245012*$t);
$L0 += 0.00000003390*cos(0.97785123922 + 8635.9420037632*$t);
$L0 += 0.00000003737*cos(2.95380107829 + 3128.3887650958*$t);
$L0 += 0.00000003507*cos(3.71291946325 + 6290.1893969922*$t);
$L0 += 0.00000003086*cos(3.64646921512 + 10.6366653498*$t);
$L0 += 0.00000003397*cos(1.10590684017 + 14712.317116458*$t);
$L0 += 0.00000003334*cos(0.83684924911 + 6496.3749454294*$t);
$L0 += 0.00000002805*cos(2.58504514144 + 14314.1681130498*$t);
$L0 += 0.00000003650*cos(1.08344142571 + 88860.05707098669*$t);
$L0 += 0.00000003388*cos(3.20185096055 + 5120.6011455836*$t);
$L0 += 0.00000003252*cos(3.47859752062 + 6133.5126528568*$t);
$L0 += 0.00000002553*cos(3.94869034189 + 1990.745017041*$t);
$L0 += 0.00000003520*cos(2.05559692878 + 244287.60000722769*$t);
$L0 += 0.00000002565*cos(1.56071784900 + 23543.23050468179*$t);
$L0 += 0.00000002621*cos(3.85639359951 + 266.6070417218*$t);
$L0 += 0.00000002955*cos(3.39692949667 + 9225.539273283*$t);
$L0 += 0.00000002876*cos(6.02635617464 + 154717.60988768269*$t);
$L0 += 0.00000002395*cos(1.16131956403 + 10984.1923516998*$t);
$L0 += 0.00000003161*cos(1.32798718453 + 10873.9860304804*$t);
$L0 += 0.00000003163*cos(5.08946464629 + 21228.3920235458*$t);
$L0 += 0.00000002361*cos(4.27212906992 + 6040.3472460174*$t);
$L0 += 0.00000003030*cos(1.80209931347 + 35371.8872659764*$t);
$L0 += 0.00000002343*cos(3.57689860500 + 10969.9652576982*$t);
$L0 += 0.00000002618*cos(2.57870156528 + 22483.84857449259*$t);
$L0 += 0.00000002113*cos(3.71393780256 + 65147.6197681377*$t);
$L0 += 0.00000002019*cos(0.81393923319 + 170.6728706192*$t);
$L0 += 0.00000002003*cos(0.38091017375 + 6172.869528772*$t);
$L0 += 0.00000002506*cos(3.74379142438 + 10575.4066829418*$t);
$L0 += 0.00000002381*cos(0.10581361289 + 7.046236698*$t);
$L0 += 0.00000001949*cos(4.86892513469 + 36.0278666774*$t);
$L0 += 0.00000002074*cos(4.22794774570 + 5650.2921106782*$t);
$L0 += 0.00000001924*cos(5.59460549860 + 6282.0955289232*$t);
$L0 += 0.00000001949*cos(1.07002512703 + 5230.807466803*$t);
$L0 += 0.00000001988*cos(5.19736046771 + 6262.300454499*$t);
$L0 += 0.00000001887*cos(3.74365662683 + 23.8784377478*$t);
$L0 += 0.00000001787*cos(1.25929682929 + 12559.038152982*$t);
$L0 += 0.00000001883*cos(1.90364058477 + 15.252471185*$t);
$L0 += 0.00000001816*cos(3.68083868442 + 15110.4661198662*$t);
$L0 += 0.00000001701*cos(4.41105895380 + 110.2063212194*$t);
$L0 += 0.00000001990*cos(3.93295788548 + 6206.8097787158*$t);
$L0 += 0.00000002103*cos(0.75354917468 + 13521.7514415914*$t);
$L0 += 0.00000001774*cos(0.48747535361 + 1551.045222648*$t);
$L0 += 0.00000001882*cos(0.86684493432 + 22003.9146348698*$t);
$L0 += 0.00000001924*cos(1.22898324132 + 709.9330485583*$t);
$L0 += 0.00000002009*cos(4.62850921980 + 6037.244203762*$t);
$L0 += 0.00000001924*cos(0.60231842508 + 6284.0561710596*$t);
$L0 += 0.00000001596*cos(3.98332956992 + 13916.0191096416*$t);
$L0 += 0.00000001664*cos(4.41939715469 + 8662.240323563*$t);
$L0 += 0.00000001971*cos(1.04560500503 + 18209.33026366019*$t);
$L0 += 0.00000001942*cos(4.31335979989 + 6244.9428143536*$t);
$L0 += 0.00000001476*cos(0.93271367331 + 2379.1644735716*$t);
$L0 += 0.00000001810*cos(0.49112137707 + 1.4844727083*$t);
$L0 += 0.00000001346*cos(1.51574702235 + 4136.9104335162*$t);
$L0 += 0.00000001528*cos(5.61835711404 + 6127.6554505572*$t);
$L0 += 0.00000001791*cos(3.22187270126 + 39302.096962196*$t);
$L0 += 0.00000001747*cos(3.05638656738 + 18319.5365848796*$t);
$L0 += 0.00000001431*cos(4.51153808594 + 20426.571092422*$t);
$L0 += 0.00000001695*cos(0.22047718414 + 25158.6017197654*$t);
$L0 += 0.00000001242*cos(4.46665769933 + 17256.6315363414*$t);
$L0 += 0.00000001463*cos(4.69242679213 + 14945.3161735544*$t);
$L0 += 0.00000001205*cos(1.86912144659 + 4590.910180489*$t);
$L0 += 0.00000001192*cos(2.74227166898 + 12569.6748183318*$t);
$L0 += 0.00000001222*cos(5.18120087482 + 5333.9002410216*$t);
$L0 += 0.00000001390*cos(5.42894648983 + 143571.32428481648*$t);
$L0 += 0.00000001473*cos(1.70479245805 + 11712.9553182308*$t);
$L0 += 0.00000001362*cos(2.61069503292 + 6062.6632075526*$t);
$L0 += 0.00000001148*cos(6.03001800540 + 3634.6210245184*$t);
$L0 += 0.00000001198*cos(5.15294130422 + 10177.2576795336*$t);
$L0 += 0.00000001266*cos(0.11421493643 + 18422.62935909819*$t);
$L0 += 0.00000001411*cos(1.09908857534 + 3496.032826134*$t);
$L0 += 0.00000001349*cos(2.99805109633 + 17654.7805397496*$t);
$L0 += 0.00000001253*cos(2.79850152848 + 167283.76158766549*$t);
$L0 += 0.00000001311*cos(1.60942984879 + 5481.2549188676*$t);
$L0 += 0.00000001079*cos(6.20304501787 + 3.2863574178*$t);
$L0 += 0.00000001181*cos(1.20653776978 + 131.5419616864*$t);
$L0 += 0.00000001254*cos(5.45103277798 + 6076.8903015542*$t);
$L0 += 0.00000001035*cos(2.32142722747 + 7342.4577801806*$t);
$L0 += 0.00000001117*cos(0.38838354256 + 949.1756089698*$t);
$L0 += 0.00000000966*cos(3.18341890851 + 11087.2851259184*$t);
$L0 += 0.00000001171*cos(3.39635049962 + 12562.6285816338*$t);
$L0 += 0.00000001121*cos(0.72627490378 + 220.4126424388*$t);
$L0 += 0.00000001024*cos(2.19378315386 + 11403.676995575*$t);
$L0 += 0.00000000888*cos(3.91173199285 + 4686.8894077068*$t);
$L0 += 0.00000000910*cos(1.98802695087 + 735.8765135318*$t);
$L0 += 0.00000000830*cos(0.48984915507 + 24072.9214697764*$t);
$L0 += 0.00000001096*cos(6.17377835617 + 5436.9930152402*$t);
$L0 += 0.00000000908*cos(0.44959639433 + 7477.522860216*$t);
$L0 += 0.00000000974*cos(1.52996238356 + 9623.6882766912*$t);
$L0 += 0.00000000840*cos(1.79543266333 + 5429.8794682394*$t);
$L0 += 0.00000000778*cos(6.17699177946 + 38.1330356378*$t);
$L0 += 0.00000000776*cos(4.09855402433 + 14.2270940016*$t);
$L0 += 0.00000001068*cos(4.64200173735 + 43232.3066584156*$t);
$L0 += 0.00000000954*cos(1.49988435748 + 1162.4747044078*$t);
$L0 += 0.00000000907*cos(0.86986870809 + 10344.2950653858*$t);
$L0 += 0.00000000931*cos(4.06044689031 + 28766.924424484*$t);
$L0 += 0.00000000739*cos(5.04368197372 + 639.897286314*$t);
$L0 += 0.00000000937*cos(3.46884698960 + 1589.0728952838*$t);
$L0 += 0.00000000763*cos(5.86304932998 + 16858.4825329332*$t);
$L0 += 0.00000000953*cos(4.20801492835 + 11190.377900137*$t);
$L0 += 0.00000000708*cos(1.72899988940 + 13095.8426650774*$t);
$L0 += 0.00000000969*cos(1.64439522215 + 29088.811415985*$t);
$L0 += 0.00000000717*cos(0.16688678895 + 11.729352836*$t);
$L0 += 0.00000000962*cos(3.53092337542 + 12416.5885028482*$t);
$L0 += 0.00000000747*cos(5.77866940346 + 12592.4500197826*$t);
$L0 += 0.00000000672*cos(1.91095796194 + 3.9321532631*$t);
$L0 += 0.00000000671*cos(5.46240843677 + 18052.9295431578*$t);
$L0 += 0.00000000675*cos(6.28311558823 + 4535.0594369244*$t);
$L0 += 0.00000000684*cos(0.39975012080 + 5849.3641121146*$t);
$L0 += 0.00000000799*cos(0.29851185294 + 12132.439962106*$t);
$L0 += 0.00000000758*cos(0.96370823331 + 1052.2683831884*$t);
$L0 += 0.00000000782*cos(5.33878339919 + 13517.8701062334*$t);
$L0 += 0.00000000730*cos(1.70106160291 + 17267.26820169119*$t);
$L0 += 0.00000000749*cos(2.59599901875 + 11609.8625440122*$t);
$L0 += 0.00000000734*cos(2.78417782952 + 640.8776073822*$t);
$L0 += 0.00000000688*cos(5.15048287468 + 16496.3613962024*$t);
$L0 += 0.00000000770*cos(1.62469589333 + 4701.1165017084*$t);
$L0 += 0.00000000633*cos(2.20587893893 + 25934.1243310894*$t);
$L0 += 0.00000000760*cos(4.21317219403 + 377.3736079158*$t);
$L0 += 0.00000000584*cos(2.13420121623 + 10557.5941608238*$t);
$L0 += 0.00000000574*cos(0.24250054587 + 9779.1086761254*$t);
$L0 += 0.00000000573*cos(3.16435264609 + 533.2140834436*$t);
$L0 += 0.00000000685*cos(3.19344289472 + 12146.6670561076*$t);
$L0 += 0.00000000675*cos(0.96179233959 + 10454.5013866052*$t);
$L0 += 0.00000000648*cos(1.46327342555 + 6268.8487559898*$t);
$L0 += 0.00000000589*cos(2.50543543638 + 3097.88382272579*$t);
$L0 += 0.00000000551*cos(5.28099026956 + 9388.0059094152*$t);
$L0 += 0.00000000696*cos(3.65342150016 + 4804.209275927*$t);
$L0 += 0.00000000669*cos(2.51030077026 + 2388.8940204492*$t);
$L0 += 0.00000000550*cos(0.06883864342 + 20199.094959633*$t);
$L0 += 0.00000000629*cos(4.13350995675 + 45892.73043315699*$t);
$L0 += 0.00000000678*cos(6.09190163533 + 135.62532501*$t);
$L0 += 0.00000000593*cos(1.50136257618 + 226858.23855437008*$t);
$L0 += 0.00000000542*cos(3.58573645173 + 6148.010769956*$t);
$L0 += 0.00000000682*cos(5.02203067788 + 17253.04110768959*$t);
$L0 += 0.00000000565*cos(4.29309238610 + 11933.3679606696*$t);
$L0 += 0.00000000486*cos(0.77746204893 + 27.4015560968*$t);
$L0 += 0.00000000503*cos(0.58963565969 + 15671.0817594066*$t);
$L0 += 0.00000000616*cos(4.06539884128 + 227.476132789*$t);
$L0 += 0.00000000583*cos(6.12695541996 + 18875.525869774*$t);
$L0 += 0.00000000537*cos(2.15056440980 + 21954.15760939799*$t);
$L0 += 0.00000000669*cos(6.06986269566 + 47162.5163546352*$t);
$L0 += 0.00000000475*cos(0.40343842110 + 6915.8595893046*$t);
$L0 += 0.00000000540*cos(2.83444222174 + 5326.7866940208*$t);
$L0 += 0.00000000530*cos(5.26359885263 + 10988.808157535*$t);
$L0 += 0.00000000582*cos(3.24533095664 + 153.7788104848*$t);
$L0 += 0.00000000641*cos(3.24711791371 + 2107.0345075424*$t);
$L0 += 0.00000000621*cos(3.09698523779 + 33019.0211122046*$t);
$L0 += 0.00000000466*cos(3.14982372198 + 10440.2742926036*$t);
$L0 += 0.00000000466*cos(0.90708835657 + 5966.6839803348*$t);
$L0 += 0.00000000528*cos(0.81926454470 + 813.5502839598*$t);
$L0 += 0.00000000603*cos(3.81378921927 + 316428.22867391503*$t);
$L0 += 0.00000000559*cos(1.81894804124 + 17996.0311682222*$t);
$L0 += 0.00000000437*cos(2.28625594435 + 6303.8512454838*$t);
$L0 += 0.00000000518*cos(4.86069178322 + 20597.2439630412*$t);
$L0 += 0.00000000424*cos(6.23520018693 + 6489.2613984286*$t);
$L0 += 0.00000000518*cos(6.17617826756 + 0.2438174835*$t);
$L0 += 0.00000000404*cos(5.72804304258 + 5642.1982426092*$t);
$L0 += 0.00000000458*cos(1.34117773915 + 6287.0080032545*$t);
$L0 += 0.00000000548*cos(5.68454458320 + 155427.54293624099*$t);
$L0 += 0.00000000547*cos(1.03391472061 + 3646.3503773544*$t);
$L0 += 0.00000000428*cos(4.69800981138 + 846.0828347512*$t);
$L0 += 0.00000000413*cos(6.02520699406 + 6279.4854213396*$t);
$L0 += 0.00000000534*cos(3.03030638223 + 66567.48586525429*$t);
$L0 += 0.00000000383*cos(1.49056949125 + 19800.9459562248*$t);
$L0 += 0.00000000410*cos(5.28319622279 + 18451.07854656599*$t);
$L0 += 0.00000000352*cos(4.68891600359 + 4907.3020501456*$t);
$L0 += 0.00000000480*cos(5.36572651091 + 348.924420448*$t);
$L0 += 0.00000000344*cos(5.89157452896 + 6546.1597733642*$t);
$L0 += 0.00000000340*cos(0.37557426440 + 13119.72110282519*$t);
$L0 += 0.00000000434*cos(4.98417785901 + 6702.5604938666*$t);
$L0 += 0.00000000332*cos(2.68902519126 + 29296.6153895786*$t);
$L0 += 0.00000000448*cos(2.16478480251 + 5905.7022420756*$t);
$L0 += 0.00000000344*cos(2.06546633735 + 49.7570254718*$t);
$L0 += 0.00000000315*cos(1.24023811803 + 4061.2192153944*$t);
$L0 += 0.00000000324*cos(2.30897526929 + 5017.508371365*$t);
$L0 += 0.00000000413*cos(0.17171692962 + 6286.6662786432*$t);
$L0 += 0.00000000431*cos(3.86601101393 + 12489.8856287072*$t);
$L0 += 0.00000000349*cos(4.55372342974 + 4933.2084403326*$t);
$L0 += 0.00000000323*cos(0.41971136084 + 10770.8932562618*$t);
$L0 += 0.00000000341*cos(2.68612860807 + 11.0457002639*$t);
$L0 += 0.00000000316*cos(3.52936906658 + 17782.7320727842*$t);
$L0 += 0.00000000315*cos(5.63357264999 + 568.8218740274*$t);
$L0 += 0.00000000340*cos(3.83571212349 + 10660.6869350424*$t);
$L0 += 0.00000000297*cos(0.62691416712 + 20995.3929664494*$t);
$L0 += 0.00000000405*cos(1.00085779471 + 16460.33352952499*$t);
$L0 += 0.00000000414*cos(1.21998752076 + 51092.7260508548*$t);
$L0 += 0.00000000336*cos(4.71465945226 + 6179.9830757728*$t);
$L0 += 0.00000000361*cos(3.71227508354 + 28237.2334593894*$t);
$L0 += 0.00000000385*cos(6.21925225757 + 24356.7807886416*$t);
$L0 += 0.00000000327*cos(1.05606504715 + 11919.140866668*$t);
$L0 += 0.00000000327*cos(6.14222420989 + 6254.6266625236*$t);
$L0 += 0.00000000268*cos(2.47224339737 + 664.75604513*$t);
$L0 += 0.00000000269*cos(1.86207884109 + 23141.5583829246*$t);
$L0 += 0.00000000345*cos(0.93461290184 + 6058.7310542895*$t);
$L0 += 0.00000000296*cos(4.51687557180 + 6418.1409300268*$t);
$L0 += 0.00000000353*cos(4.50033653082 + 36949.2308084242*$t);
$L0 += 0.00000000260*cos(4.04963546305 + 6525.8044539654*$t);
$L0 += 0.00000000298*cos(2.20046722622 + 156137.47598479928*$t);
$L0 += 0.00000000253*cos(3.49900838384 + 29864.334027309*$t);
$L0 += 0.00000000254*cos(2.44901693835 + 5331.3574437408*$t);
$L0 += 0.00000000296*cos(0.84347588787 + 5729.506447149*$t);
$L0 += 0.00000000298*cos(1.29194706125 + 22805.7355659936*$t);
$L0 += 0.00000000241*cos(2.00721280805 + 16737.5772365966*$t);
$L0 += 0.00000000311*cos(1.23668016334 + 6281.5913772831*$t);
$L0 += 0.00000000240*cos(2.51650377121 + 6245.0481773556*$t);
$L0 += 0.00000000332*cos(3.55576945724 + 7668.6374249425*$t);
$L0 += 0.00000000264*cos(4.44052061202 + 12964.300703391*$t);
$L0 += 0.00000000257*cos(1.79654471948 + 11080.1715789176*$t);
$L0 += 0.00000000260*cos(3.33077598420 + 5888.4499649322*$t);
$L0 += 0.00000000285*cos(0.30886361430 + 11823.1616394502*$t);
$L0 += 0.00000000290*cos(5.70141882483 + 77.673770428*$t);
$L0 += 0.00000000255*cos(4.00939664440 + 5881.4037282342*$t);
$L0 += 0.00000000253*cos(4.73318493678 + 16723.350142595*$t);
$L0 += 0.00000000228*cos(0.95333661324 + 5540.0857894588*$t);
$L0 += 0.00000000319*cos(1.38633229189 + 163096.18036118349*$t);
$L0 += 0.00000000224*cos(1.65156322696 + 10027.9031957292*$t);
$L0 += 0.00000000226*cos(0.34106460604 + 17796.9591667858*$t);
$L0 += 0.00000000236*cos(4.19817431922 + 19.66976089979*$t);
$L0 += 0.00000000280*cos(4.14080268970 + 12539.853380183*$t);
$L0 += 0.00000000275*cos(5.50306930248 + 32.5325507914*$t);
$L0 += 0.00000000223*cos(5.23334210294 + 56.8983749356*$t);
$L0 += 0.00000000217*cos(6.08587881787 + 6805.6532680852*$t);
$L0 += 0.00000000280*cos(4.52472044653 + 6016.4688082696*$t);
$L0 += 0.00000000227*cos(5.06509843737 + 6277.552925684*$t);
$L0 += 0.00000000226*cos(5.17755154305 + 11720.0688652316*$t);
$L0 += 0.00000000245*cos(3.96486270306 + 22.7752014508*$t);
$L0 += 0.00000000220*cos(4.72078081970 + 6.62855890001*$t);
$L0 += 0.00000000207*cos(5.71701403951 + 41.5507909848*$t);
$L0 += 0.00000000204*cos(3.91227411250 + 2699.7348193176*$t);
$L0 += 0.00000000209*cos(0.86881969011 + 6321.1035226272*$t);
$L0 += 0.00000000200*cos(2.11984445273 + 4274.5183108324*$t);
$L0 += 0.00000000200*cos(5.39839888163 + 6019.9919266186*$t);
$L0 += 0.00000000209*cos(5.67606291663 + 11293.4706743556*$t);
$L0 += 0.00000000252*cos(1.64965729351 + 9380.9596727172*$t);
$L0 += 0.00000000275*cos(5.04826903506 + 73.297125859*$t);
$L0 += 0.00000000208*cos(1.88207277133 + 11300.5842213564*$t);
$L0 += 0.00000000272*cos(0.74640926842 + 1975.492545856*$t);
$L0 += 0.00000000199*cos(3.30836672397 + 22743.4093795164*$t);
$L0 += 0.00000000269*cos(4.48560812155 + 64471.99124174489*$t);
$L0 += 0.00000000192*cos(2.17464236325 + 5863.5912061162*$t);
$L0 += 0.00000000228*cos(5.85373115869 + 128.0188433374*$t);
$L0 += 0.00000000261*cos(2.64321183295 + 55022.9357470744*$t);
$L0 += 0.00000000220*cos(5.75012110079 + 29.429508536*$t);
$L0 += 0.00000000187*cos(4.03230554718 + 467.9649903544*$t);
$L0 += 0.00000000200*cos(5.60556112058 + 1066.49547719*$t);
$L0 += 0.00000000231*cos(1.09802712785 + 12341.8069042809*$t);
$L0 += 0.00000000199*cos(0.29500625200 + 149.5631971346*$t);
$L0 += 0.00000000249*cos(5.10473210814 + 7875.6718636242*$t);
$L0 += 0.00000000208*cos(0.93013835019 + 14919.0178537546*$t);
$L0 += 0.00000000179*cos(0.87104393079 + 12721.572099417*$t);
$L0 += 0.00000000203*cos(1.56920753653 + 28286.9904848612*$t);
$L0 += 0.00000000179*cos(2.47036386443 + 16062.1845261168*$t);
$L0 += 0.00000000198*cos(3.54061588502 + 30.914125635*$t);
$L0 += 0.00000000171*cos(3.45356518113 + 5327.4761083828*$t);
$L0 += 0.00000000183*cos(0.72325421604 + 6272.0301497275*$t);
$L0 += 0.00000000216*cos(2.97174580686 + 19402.7969528166*$t);
$L0 += 0.00000000168*cos(2.51550550242 + 23937.856389741*$t);
$L0 += 0.00000000195*cos(0.09045393425 + 156.4007205024*$t);
$L0 += 0.00000000179*cos(4.49471798090 + 31415.379249957*$t);
$L0 += 0.00000000216*cos(0.42177594328 + 23539.7073863328*$t);
$L0 += 0.00000000189*cos(0.37542530191 + 9814.6041002912*$t);
$L0 += 0.00000000218*cos(2.36835880025 + 16627.3709153772*$t);
$L0 += 0.00000000166*cos(4.23182968446 + 16840.67001081519*$t);
$L0 += 0.00000000200*cos(2.02153258098 + 16097.6799502826*$t);
$L0 += 0.00000000169*cos(0.91318727000 + 95.9792272178*$t);
$L0 += 0.00000000211*cos(5.73370637657 + 151.8972810852*$t);
$L0 += 0.00000000204*cos(0.42643085174 + 515.463871093*$t);
$L0 += 0.00000000212*cos(3.00233538977 + 12043.574281889*$t);
$L0 += 0.00000000192*cos(5.46153589821 + 6379.0550772092*$t);
$L0 += 0.00000000165*cos(1.38698167064 + 4171.4255366138*$t);
$L0 += 0.00000000160*cos(6.23798383332 + 202.2533951741*$t);
$L0 += 0.00000000215*cos(0.20889073407 + 5621.8429232104*$t);
$L0 += 0.00000000181*cos(4.12439203622 + 13341.6743113068*$t);
$L0 += 0.00000000153*cos(1.24460848836 + 29826.3063546732*$t);
$L0 += 0.00000000150*cos(3.12999753018 + 799.8211251654*$t);
$L0 += 0.00000000175*cos(4.55671604437 + 239424.39025435288*$t);
$L0 += 0.00000000192*cos(1.33928820063 + 394.6258850592*$t);
$L0 += 0.00000000149*cos(2.65697593276 + 21.335640467*$t);
$L0 += 0.00000000146*cos(5.58021191726 + 412.3710968744*$t);
$L0 += 0.00000000156*cos(3.75650175503 + 12323.4230960088*$t);
$L0 += 0.00000000143*cos(3.75708566606 + 58864.5439181463*$t);
$L0 += 0.00000000143*cos(3.28248547724 + 29.8214381488*$t);
$L0 += 0.00000000144*cos(1.07862546598 + 1265.5674786264*$t);
$L0 += 0.00000000148*cos(0.23389236655 + 10021.8372800994*$t);
$L0 += 0.00000000193*cos(5.92751083086 + 40879.4405046438*$t);
$L0 += 0.00000000140*cos(4.97612440269 + 158.9435177832*$t);
$L0 += 0.00000000148*cos(2.61640453469 + 17157.0618804718*$t);
$L0 += 0.00000000141*cos(3.66871308723 + 26084.0218062162*$t);
$L0 += 0.00000000147*cos(5.09968173403 + 661.232926781*$t);
$L0 += 0.00000000146*cos(4.96885605695 + 57375.8019008462*$t);
$L0 += 0.00000000142*cos(0.78678347839 + 12779.4507954208*$t);
$L0 += 0.00000000134*cos(4.79432636012 + 111.1866422876*$t);
$L0 += 0.00000000140*cos(1.27748013377 + 107.6635239386*$t);
$L0 += 0.00000000169*cos(2.74893543762 + 26735.9452622132*$t);
$L0 += 0.00000000165*cos(3.95288000638 + 6357.8574485587*$t);
$L0 += 0.00000000183*cos(5.43418358741 + 369.6998159404*$t);
$L0 += 0.00000000134*cos(3.09132862833 + 17.812522118*$t);
$L0 += 0.00000000132*cos(3.05633896779 + 22490.9621214934*$t);
$L0 += 0.00000000134*cos(4.09472795832 + 6599.467719648*$t);
$L0 += 0.00000000181*cos(4.22950689891 + 966.9708774356*$t);
$L0 += 0.00000000152*cos(5.28885894415 + 12669.2444742014*$t);
$L0 += 0.00000000150*cos(5.86819430908 + 97238.62754448749*$t);
$L0 += 0.00000000142*cos(5.87266532526 + 22476.73502749179*$t);
$L0 += 0.00000000145*cos(5.07330784304 + 87.30820453981*$t);
$L0 += 0.00000000133*cos(5.65471067133 + 31.9723058168*$t);
$L0 += 0.00000000124*cos(2.83326217072 + 12566.2190102856*$t);
$L0 += 0.00000000135*cos(3.12861731644 + 32217.2001810808*$t);
$L0 += 0.00000000137*cos(0.86487461904 + 9924.8104215106*$t);
$L0 += 0.00000000172*cos(1.98369595114 + 174242.4659640497*$t);
$L0 += 0.00000000170*cos(4.41115280254 + 327574.51427678125*$t);
$L0 += 0.00000000151*cos(0.46542099527 + 39609.6545831656*$t);
$L0 += 0.00000000148*cos(2.13439571118 + 491.6632924588*$t);
$L0 += 0.00000000153*cos(3.78801830344 + 17363.24742890899*$t);
$L0 += 0.00000000165*cos(5.31654110459 + 16943.7627850338*$t);
$L0 += 0.00000000165*cos(4.06747587817 + 58953.145443294*$t);
$L0 += 0.00000000118*cos(0.63846333239 + 6.0659156298*$t);
$L0 += 0.00000000159*cos(0.86086959274 + 221995.02880149524*$t);
$L0 += 0.00000000119*cos(5.96432932413 + 1385.8952763362*$t);
$L0 += 0.00000000114*cos(5.16516114595 + 25685.872802808*$t);
$L0 += 0.00000000112*cos(3.39403722178 + 21393.5419698576*$t);
$L0 += 0.00000000112*cos(4.92889233335 + 56.8032621698*$t);
$L0 += 0.00000000119*cos(2.40637635942 + 18635.9284545362*$t);
$L0 += 0.00000000115*cos(0.23374479051 + 418.9243989006*$t);
$L0 += 0.00000000122*cos(0.93575234049 + 24492.40611365159*$t);
$L0 += 0.00000000115*cos(4.58880032176 + 26709.6469424134*$t);
$L0 += 0.00000000130*cos(4.85539251000 + 22345.2603761082*$t);
$L0 += 0.00000000140*cos(1.09413073202 + 44809.6502008634*$t);
$L0 += 0.00000000112*cos(6.05401806281 + 433.7117378768*$t);
$L0 += 0.00000000104*cos(1.54931540602 + 127.9515330346*$t);
$L0 += 0.00000000105*cos(4.82620858888 + 33794.5437235286*$t);
$L0 += 0.00000000102*cos(4.12448497391 + 15664.03552270859*$t);
$L0 += 0.00000000107*cos(4.67919356465 + 77690.75950573849*$t);
$L0 += 0.00000000118*cos(4.52320170120 + 19004.6479494084*$t);
$L0 += 0.00000000107*cos(5.71774478555 + 77736.78343050249*$t);
$L0 += 0.00000000143*cos(1.81201813018 + 4214.0690150848*$t);
$L0 += 0.00000000125*cos(1.14419195615 + 625.6701923124*$t);
$L0 += 0.00000000124*cos(3.27736514057 + 12566.08438968*$t);
$L0 += 0.00000000110*cos(1.08682570828 + 2787.0430238574*$t);
$L0 += 0.00000000105*cos(1.78318141871 + 18139.2945014159*$t);
$L0 += 0.00000000102*cos(4.75119578149 + 12242.6462833254*$t);
$L0 += 0.00000000137*cos(1.43510636754 + 86464.61331683119*$t);
$L0 += 0.00000000101*cos(4.91289409429 + 401.6721217572*$t);
$L0 += 0.00000000129*cos(1.23567904485 + 12029.3471878874*$t);
$L0 += 0.00000000138*cos(2.45654707999 + 7576.560073574*$t);
$L0 += 0.00000000103*cos(0.40004073416 + 90279.92316810328*$t);
$L0 += 0.00000000108*cos(0.98989774940 + 5636.0650166766*$t);
$L0 += 0.00000000117*cos(5.17362872063 + 34520.3093093808*$t);
$L0 += 0.00000000100*cos(3.95534628189 + 5547.1993364596*$t);
$L0 += 0.00000000098*cos(1.28118280598 + 21548.9623692918*$t);
$L0 += 0.00000000097*cos(3.34717130592 + 16310.9790457206*$t);
$L0 += 0.00000000098*cos(4.37041908717 + 34513.2630726828*$t);
$L0 += 0.00000000125*cos(2.72164432960 + 24065.80792277559*$t);
$L0 += 0.00000000102*cos(0.66938025772 + 10239.5838660108*$t);
$L0 += 0.00000000119*cos(1.21689479331 + 1478.8665740644*$t);
$L0 += 0.00000000094*cos(1.99595224256 + 13362.4497067992*$t);
$L0 += 0.00000000094*cos(4.30965982872 + 26880.3198130326*$t);
$L0 += 0.00000000095*cos(2.89807657534 + 34911.412076091*$t);
$L0 += 0.00000000106*cos(1.00156653590 + 16522.6597160022*$t);
$L0 += 0.00000000097*cos(0.89642320201 + 71980.63357473118*$t);
$L0 += 0.00000000116*cos(4.19967201116 + 206.7007372966*$t);
$L0 += 0.00000000099*cos(1.37437847718 + 1039.0266107904*$t);
$L0 += 0.00000000126*cos(3.21642544972 + 305281.94307104882*$t);
$L0 += 0.00000000094*cos(0.68997876060 + 7834.1210726394*$t);
$L0 += 0.00000000094*cos(5.58132218606 + 3104.9300594238*$t);
$L0 += 0.00000000095*cos(3.03823741110 + 8982.810669309*$t);
$L0 += 0.00000000108*cos(0.52696637156 + 276.7457718644*$t);
$L0 += 0.00000000124*cos(3.43899862683 + 172146.97134054029*$t);
$L0 += 0.00000000102*cos(1.04031728553 + 95143.1329209781*$t);
$L0 += 0.00000000104*cos(3.39218586218 + 290.972865866*$t);
$L0 += 0.00000000110*cos(3.68205877433 + 22380.755800274*$t);
$L0 += 0.00000000117*cos(0.78475956902 + 83286.91426955358*$t);
$L0 += 0.00000000083*cos(0.18241793425 + 15141.390794312*$t);
$L0 += 0.00000000089*cos(4.45371820659 + 792.7748884674*$t);
$L0 += 0.00000000082*cos(4.80703651241 + 6819.8803620868*$t);
$L0 += 0.00000000087*cos(3.43122851097 + 27707.5424942948*$t);
$L0 += 0.00000000101*cos(5.32081603011 + 2301.58581590939*$t);
$L0 += 0.00000000082*cos(0.87060089842 + 10241.2022911672*$t);
$L0 += 0.00000000086*cos(4.61919461931 + 36147.4098773004*$t);
$L0 += 0.00000000095*cos(2.87032884659 + 23020.65308658799*$t);
$L0 += 0.00000000088*cos(3.21133165690 + 33326.5787331742*$t);
$L0 += 0.00000000080*cos(1.84900424847 + 21424.4666443034*$t);
$L0 += 0.00000000101*cos(4.18796434479 + 30666.1549584328*$t);
$L0 += 0.00000000107*cos(5.77864921649 + 34115.1140692746*$t);
$L0 += 0.00000000104*cos(1.08739495962 + 6288.5987742988*$t);
$L0 += 0.00000000110*cos(3.32898859416 + 72140.62866668739*$t);
$L0 += 0.00000000087*cos(4.40657711727 + 142.1786270362*$t);
$L0 += 0.00000000109*cos(1.94546030825 + 24279.10701821359*$t);
$L0 += 0.00000000087*cos(4.32472045435 + 742.9900605326*$t);
$L0 += 0.00000000107*cos(4.91580912547 + 277.0349937414*$t);
$L0 += 0.00000000088*cos(2.10180220766 + 26482.1708096244*$t);
$L0 += 0.00000000086*cos(4.01887374432 + 12491.3701014155*$t);
$L0 += 0.00000000106*cos(5.49092372854 + 62883.3551395136*$t);
$L0 += 0.00000000080*cos(6.19781316983 + 6709.6740408674*$t);
$L0 += 0.00000000088*cos(2.09872810657 + 238004.52415723629*$t);
$L0 += 0.00000000083*cos(4.90662164029 + 51.28033786241*$t);
$L0 += 0.00000000095*cos(4.13387406591 + 18216.443810661*$t);
$L0 += 0.00000000078*cos(6.06949391680 + 148434.53403769129*$t);
$L0 += 0.00000000079*cos(3.03048221644 + 838.9692877504*$t);
$L0 += 0.00000000074*cos(5.49813051211 + 29026.48522950779*$t);
$L0 += 0.00000000073*cos(3.05008665738 + 567.7186377304*$t);
$L0 += 0.00000000084*cos(0.46604373274 + 45.1412196366*$t);
$L0 += 0.00000000093*cos(2.52267536308 + 48739.859897083*$t);
$L0 += 0.00000000076*cos(1.76418124905 + 41654.9631159678*$t);
$L0 += 0.00000000067*cos(5.77851227793 + 6311.5250374592*$t);
$L0 += 0.00000000062*cos(3.32967880172 + 15508.6151232744*$t);
$L0 += 0.00000000079*cos(5.59773841328 + 71960.38658322369*$t);
$L0 += 0.00000000057*cos(3.90629505268 + 5999.2165311262*$t);
$L0 += 0.00000000061*cos(0.05695043232 + 7856.89627409019*$t);
$L0 += 0.00000000061*cos(5.63297958433 + 7863.9425107882*$t);
$L0 += 0.00000000065*cos(3.72178394016 + 12573.2652469836*$t);
$L0 += 0.00000000057*cos(4.18217219541 + 26087.9031415742*$t);
$L0 += 0.00000000066*cos(3.92262333487 + 69853.35207568129*$t);
$L0 += 0.00000000053*cos(5.51119362045 + 77710.24834977149*$t);
$L0 += 0.00000000053*cos(4.88573986961 + 77717.29458646949*$t);
$L0 += 0.00000000062*cos(2.88876342225 + 9411.4646150872*$t);
$L0 += 0.00000000051*cos(1.12657183874 + 82576.98122099529*$t);
$L0 += 0.00000000045*cos(2.95671076719 + 24602.61243487099*$t);
$L0 += 0.00000000040*cos(5.55145719241 + 12565.1713789146*$t);
$L0 += 0.00000000039*cos(1.20838190039 + 18842.11400297339*$t);
$L0 += 0.00000000045*cos(3.18590558749 + 45585.1728121874*$t);
$L0 += 0.00000000049*cos(2.44790934886 + 13613.804277336*$t);
return $L0;
}
function Earth_L1($t) // 341 terms of order 1
{
$L1 = 6283.31966747491;
$L1 += 0.00206058863*cos(2.67823455584 + 6283.0758499914*$t);
$L1 += 0.00004303430*cos(2.63512650414 + 12566.1516999828*$t);
$L1 += 0.00000425264*cos(1.59046980729 + 3.523118349*$t);
$L1 += 0.00000108977*cos(2.96618001993 + 1577.3435424478*$t);
$L1 += 0.00000093478*cos(2.59212835365 + 18849.2275499742*$t);
$L1 += 0.00000119261*cos(5.79557487799 + 26.2983197998*$t);
$L1 += 0.00000072122*cos(1.13846158196 + 529.6909650946*$t);
$L1 += 0.00000067768*cos(1.87472304791 + 398.1490034082*$t);
$L1 += 0.00000067327*cos(4.40918235168 + 5507.5532386674*$t);
$L1 += 0.00000059027*cos(2.88797038460 + 5223.6939198022*$t);
$L1 += 0.00000055976*cos(2.17471680261 + 155.4203994342*$t);
$L1 += 0.00000045407*cos(0.39803079805 + 796.2980068164*$t);
$L1 += 0.00000036369*cos(0.46624739835 + 775.522611324*$t);
$L1 += 0.00000028958*cos(2.64707383882 + 7.1135470008*$t);
$L1 += 0.00000019097*cos(1.84628332577 + 5486.777843175*$t);
$L1 += 0.00000020844*cos(5.34138275149 + 0.9803210682*$t);
$L1 += 0.00000018508*cos(4.96855124577 + 213.299095438*$t);
$L1 += 0.00000016233*cos(0.03216483047 + 2544.3144198834*$t);
$L1 += 0.00000017293*cos(2.99116864949 + 6275.9623029906*$t);
$L1 += 0.00000015832*cos(1.43049285325 + 2146.1654164752*$t);
$L1 += 0.00000014615*cos(1.20532366323 + 10977.078804699*$t);
$L1 += 0.00000011877*cos(3.25804815607 + 5088.6288397668*$t);
$L1 += 0.00000011514*cos(2.07502418155 + 4694.0029547076*$t);
$L1 += 0.00000009721*cos(4.23925472239 + 1349.8674096588*$t);
$L1 += 0.00000009969*cos(1.30262991097 + 6286.5989683404*$t);
$L1 += 0.00000009452*cos(2.69957062864 + 242.728603974*$t);
$L1 += 0.00000012461*cos(2.83432285512 + 1748.016413067*$t);
$L1 += 0.00000011808*cos(5.27379790480 + 1194.4470102246*$t);
$L1 += 0.00000008577*cos(5.64475868067 + 951.7184062506*$t);
$L1 += 0.00000010641*cos(0.76614199202 + 553.5694028424*$t);
$L1 += 0.00000007576*cos(5.30062664886 + 2352.8661537718*$t);
$L1 += 0.00000005834*cos(1.76649917904 + 1059.3819301892*$t);
$L1 += 0.00000006385*cos(2.65033984967 + 9437.762934887*$t);
$L1 += 0.00000005223*cos(5.66135767624 + 71430.69561812909*$t);
$L1 += 0.00000005305*cos(0.90857521574 + 3154.6870848956*$t);
$L1 += 0.00000006101*cos(4.66632584188 + 4690.4798363586*$t);
$L1 += 0.00000004330*cos(0.24102555403 + 6812.766815086*$t);
$L1 += 0.00000005041*cos(1.42490103709 + 6438.4962494256*$t);
$L1 += 0.00000004259*cos(0.77355900599 + 10447.3878396044*$t);
$L1 += 0.00000005198*cos(1.85353197345 + 801.8209311238*$t);
$L1 += 0.00000003744*cos(2.00119516488 + 8031.0922630584*$t);
$L1 += 0.00000003558*cos(2.42901552681 + 14143.4952424306*$t);
$L1 += 0.00000003372*cos(3.86210700128 + 1592.5960136328*$t);
$L1 += 0.00000003374*cos(0.88776219727 + 12036.4607348882*$t);
$L1 += 0.00000003175*cos(3.18785710594 + 4705.7323075436*$t);
$L1 += 0.00000003221*cos(0.61599835472 + 8429.2412664666*$t);
$L1 += 0.00000004132*cos(5.23992859705 + 7084.8967811152*$t);
$L1 += 0.00000002970*cos(6.07026318493 + 4292.3308329504*$t);
$L1 += 0.00000002900*cos(2.32464208411 + 20.3553193988*$t);
$L1 += 0.00000003504*cos(4.79975694359 + 6279.5527316424*$t);
$L1 += 0.00000002950*cos(1.43108874817 + 5746.271337896*$t);
$L1 += 0.00000002697*cos(4.80368225199 + 7234.794256242*$t);
$L1 += 0.00000002531*cos(6.22290682655 + 6836.6452528338*$t);
$L1 += 0.00000002745*cos(0.93466065396 + 5760.4984318976*$t);
$L1 += 0.00000003250*cos(3.39954640038 + 7632.9432596502*$t);
$L1 += 0.00000002277*cos(5.00277837672 + 17789.845619785*$t);
$L1 += 0.00000002075*cos(3.95534978634 + 10213.285546211*$t);
$L1 += 0.00000002061*cos(2.22411683077 + 5856.4776591154*$t);
$L1 += 0.00000002252*cos(5.67166499885 + 11499.6562227928*$t);
$L1 += 0.00000002148*cos(5.20184578235 + 11513.8833167944*$t);
$L1 += 0.00000001886*cos(0.53198320577 + 3340.6124266998*$t);
$L1 += 0.00000001875*cos(4.73511970207 + 83996.84731811189*$t);
$L1 += 0.00000002060*cos(2.54987293999 + 25132.3033999656*$t);
$L1 += 0.00000001794*cos(1.47435409831 + 4164.311989613*$t);
$L1 += 0.00000001778*cos(3.02473091781 + 5.5229243074*$t);
$L1 += 0.00000002029*cos(0.90960209983 + 6256.7775301916*$t);
$L1 += 0.00000002075*cos(2.26767270157 + 522.5774180938*$t);
$L1 += 0.00000001772*cos(3.02622802353 + 5753.3848848968*$t);
$L1 += 0.00000001569*cos(6.12410242782 + 5216.5803728014*$t);
$L1 += 0.00000001590*cos(4.63713748247 + 3.2863574178*$t);
$L1 += 0.00000001542*cos(4.20004448567 + 13367.9726311066*$t);
$L1 += 0.00000001427*cos(1.19088061711 + 3894.1818295422*$t);
$L1 += 0.00000001375*cos(3.09301252193 + 135.0650800354*$t);
$L1 += 0.00000001359*cos(4.24532506641 + 426.598190876*$t);
$L1 += 0.00000001340*cos(5.76511818622 + 6040.3472460174*$t);
$L1 += 0.00000001284*cos(3.08524663344 + 5643.1785636774*$t);
$L1 += 0.00000001250*cos(3.07748157144 + 11926.2544136688*$t);
$L1 += 0.00000001551*cos(3.07665451458 + 6681.2248533996*$t);
$L1 += 0.00000001268*cos(2.09196018331 + 6290.1893969922*$t);
$L1 += 0.00000001144*cos(3.24444699514 + 12168.0026965746*$t);
$L1 += 0.00000001248*cos(3.44504937285 + 536.8045120954*$t);
$L1 += 0.00000001118*cos(2.31829670425 + 16730.4636895958*$t);
$L1 += 0.00000001105*cos(5.31966001019 + 23.8784377478*$t);
$L1 += 0.00000001051*cos(3.75015946014 + 7860.4193924392*$t);
$L1 += 0.00000001025*cos(2.44688534235 + 1990.745017041*$t);
$L1 += 0.00000000962*cos(0.81771017882 + 3.881335358*$t);
$L1 += 0.00000000910*cos(0.41727865299 + 7079.3738568078*$t);
$L1 += 0.00000000883*cos(5.16833917651 + 11790.6290886588*$t);
$L1 += 0.00000000957*cos(4.07673573735 + 6127.6554505572*$t);
$L1 += 0.00000001110*cos(3.90096793825 + 11506.7697697936*$t);
$L1 += 0.00000000802*cos(3.88778875582 + 10973.55568635*$t);
$L1 += 0.00000000780*cos(2.39934293755 + 1589.0728952838*$t);
$L1 += 0.00000000758*cos(1.30034364248 + 103.0927742186*$t);
$L1 += 0.00000000749*cos(4.96275803300 + 6496.3749454294*$t);
$L1 += 0.00000000765*cos(3.36312388424 + 36.0278666774*$t);
$L1 += 0.00000000915*cos(5.41543742089 + 206.1855484372*$t);
$L1 += 0.00000000776*cos(2.57589093871 + 11371.7046897582*$t);
$L1 += 0.00000000772*cos(3.98369209464 + 955.5997416086*$t);
$L1 += 0.00000000749*cos(5.17890001805 + 10969.9652576982*$t);
$L1 += 0.00000000806*cos(0.34218864254 + 9917.6968745098*$t);
$L1 += 0.00000000728*cos(5.20962563787 + 38.0276726358*$t);
$L1 += 0.00000000685*cos(2.77592961854 + 20.7753954924*$t);
$L1 += 0.00000000636*cos(4.28242193632 + 28.4491874678*$t);
$L1 += 0.00000000608*cos(5.63278508906 + 10984.1923516998*$t);
$L1 += 0.00000000704*cos(5.60738823665 + 3738.761430108*$t);
$L1 += 0.00000000685*cos(0.38876148682 + 15.252471185*$t);
$L1 += 0.00000000601*cos(0.73489602442 + 419.4846438752*$t);
$L1 += 0.00000000716*cos(2.65279791438 + 6309.3741697912*$t);
$L1 += 0.00000000584*cos(5.54502568227 + 17298.1823273262*$t);
$L1 += 0.00000000650*cos(1.13379656406 + 7058.5984613154*$t);
$L1 += 0.00000000688*cos(2.59683891779 + 3496.032826134*$t);
$L1 += 0.00000000485*cos(0.44467180946 + 12352.8526045448*$t);
$L1 += 0.00000000528*cos(2.74936967681 + 3930.2096962196*$t);
$L1 += 0.00000000597*cos(5.27668281777 + 10575.4066829418*$t);
$L1 += 0.00000000583*cos(3.18929067810 + 4732.0306273434*$t);
$L1 += 0.00000000526*cos(5.01697321546 + 5884.9268465832*$t);
$L1 += 0.00000000540*cos(1.29175137075 + 640.8776073822*$t);
$L1 += 0.00000000473*cos(5.49953306970 + 5230.807466803*$t);
$L1 += 0.00000000406*cos(5.21248452189 + 220.4126424388*$t);
$L1 += 0.00000000395*cos(1.87474483222 + 16200.7727245012*$t);
$L1 += 0.00000000370*cos(3.84921354713 + 18073.7049386502*$t);
$L1 += 0.00000000367*cos(0.88533542778 + 6283.14316029419*$t);
$L1 += 0.00000000379*cos(0.37983009325 + 10177.2576795336*$t);
$L1 += 0.00000000356*cos(3.84145204913 + 11712.9553182308*$t);
$L1 += 0.00000000374*cos(5.01577520608 + 7.046236698*$t);
$L1 += 0.00000000381*cos(4.30250406634 + 6062.6632075526*$t);
$L1 += 0.00000000471*cos(0.86381834647 + 6069.7767545534*$t);
$L1 += 0.00000000367*cos(1.32943839763 + 6283.0085396886*$t);
$L1 += 0.00000000460*cos(5.19667219575 + 6284.0561710596*$t);
$L1 += 0.00000000333*cos(5.54256205741 + 4686.8894077068*$t);
$L1 += 0.00000000341*cos(4.36522989934 + 7238.67559160*$t);
$L1 += 0.00000000336*cos(4.00205876835 + 3097.88382272579*$t);
$L1 += 0.00000000359*cos(6.22679790284 + 245.8316462294*$t);
$L1 += 0.00000000307*cos(2.35299010924 + 170.6728706192*$t);
$L1 += 0.00000000343*cos(3.77164927143 + 6076.8903015542*$t);
$L1 += 0.00000000296*cos(5.44152227481 + 17260.1546546904*$t);
$L1 += 0.00000000328*cos(0.13837875384 + 11015.1064773348*$t);
$L1 += 0.00000000268*cos(1.13904550630 + 12569.6748183318*$t);
$L1 += 0.00000000263*cos(0.00538633678 + 4136.9104335162*$t);
$L1 += 0.00000000282*cos(5.04399837480 + 7477.522860216*$t);
$L1 += 0.00000000288*cos(3.13401177517 + 12559.038152982*$t);
$L1 += 0.00000000259*cos(0.93882269387 + 5642.1982426092*$t);
$L1 += 0.00000000292*cos(1.98420020514 + 12132.439962106*$t);
$L1 += 0.00000000247*cos(3.84244798532 + 5429.8794682394*$t);
$L1 += 0.00000000245*cos(5.70467521726 + 65147.6197681377*$t);
$L1 += 0.00000000241*cos(0.99480969552 + 3634.6210245184*$t);
$L1 += 0.00000000246*cos(3.06168069935 + 110.2063212194*$t);
$L1 += 0.00000000239*cos(6.11855909114 + 11856.2186514245*$t);
$L1 += 0.00000000263*cos(0.66348415419 + 21228.3920235458*$t);
$L1 += 0.00000000262*cos(1.51070507866 + 12146.6670561076*$t);
$L1 += 0.00000000230*cos(1.75927314884 + 9779.1086761254*$t);
$L1 += 0.00000000223*cos(2.00967043606 + 6172.869528772*$t);
$L1 += 0.00000000246*cos(1.10411690865 + 6282.0955289232*$t);
$L1 += 0.00000000221*cos(3.03945240854 + 8635.9420037632*$t);
$L1 += 0.00000000214*cos(4.03840869663 + 14314.1681130498*$t);
$L1 += 0.00000000236*cos(5.46915070580 + 13916.0191096416*$t);
$L1 += 0.00000000224*cos(4.68408089456 + 24072.9214697764*$t);
$L1 += 0.00000000212*cos(2.13695625494 + 5849.3641121146*$t);
$L1 += 0.00000000207*cos(3.07724246401 + 11.729352836*$t);
$L1 += 0.00000000207*cos(6.10306282747 + 23543.23050468179*$t);
$L1 += 0.00000000266*cos(1.00709566823 + 2388.8940204492*$t);
$L1 += 0.00000000217*cos(6.27837036335 + 17267.26820169119*$t);
$L1 += 0.00000000204*cos(2.34615348695 + 266.6070417218*$t);
$L1 += 0.00000000195*cos(5.55015549753 + 6133.5126528568*$t);
$L1 += 0.00000000188*cos(2.52667166175 + 6525.8044539654*$t);
$L1 += 0.00000000185*cos(0.90960768344 + 18319.5365848796*$t);
$L1 += 0.00000000177*cos(1.73429218289 + 154717.60988768269*$t);
$L1 += 0.00000000187*cos(4.76483647432 + 4535.0594369244*$t);
$L1 += 0.00000000186*cos(4.63080493407 + 10440.2742926036*$t);
$L1 += 0.00000000215*cos(2.81255454560 + 7342.4577801806*$t);
$L1 += 0.00000000172*cos(1.45551888559 + 9225.539273283*$t);
$L1 += 0.00000000162*cos(3.30661909388 + 639.897286314*$t);
$L1 += 0.00000000168*cos(2.17671416605 + 27.4015560968*$t);
$L1 += 0.00000000160*cos(1.68164180475 + 15110.4661198662*$t);
$L1 += 0.00000000158*cos(0.13519771874 + 13095.8426650774*$t);
$L1 += 0.00000000183*cos(0.56281322071 + 13517.8701062334*$t);
$L1 += 0.00000000179*cos(3.58450811616 + 87.30820453981*$t);
$L1 += 0.00000000152*cos(2.84070476818 + 5650.2921106782*$t);
$L1 += 0.00000000182*cos(0.44065530624 + 17253.04110768959*$t);
$L1 += 0.00000000160*cos(5.95767264171 + 4701.1165017084*$t);
$L1 += 0.00000000142*cos(1.46290137520 + 11087.2851259184*$t);
$L1 += 0.00000000142*cos(2.04464036087 + 20426.571092422*$t);
$L1 += 0.00000000131*cos(5.40912137746 + 2699.7348193176*$t);
$L1 += 0.00000000144*cos(2.07312090485 + 25158.6017197654*$t);
$L1 += 0.00000000147*cos(6.15106982168 + 9623.6882766912*$t);
$L1 += 0.00000000141*cos(5.55739979498 + 10454.5013866052*$t);
$L1 += 0.00000000135*cos(0.06098110407 + 16723.350142595*$t);
$L1 += 0.00000000124*cos(5.81218025669 + 17256.6315363414*$t);
$L1 += 0.00000000124*cos(2.36293551623 + 4933.2084403326*$t);
$L1 += 0.00000000126*cos(3.47435905118 + 22483.84857449259*$t);
$L1 += 0.00000000159*cos(5.63954754618 + 5729.506447149*$t);
$L1 += 0.00000000123*cos(3.92815963256 + 17996.0311682222*$t);
$L1 += 0.00000000148*cos(3.02509280598 + 1551.045222648*$t);
$L1 += 0.00000000120*cos(5.91904349732 + 6206.8097787158*$t);
$L1 += 0.00000000134*cos(3.11122937825 + 21954.15760939799*$t);
$L1 += 0.00000000119*cos(5.52141123450 + 709.9330485583*$t);
$L1 += 0.00000000122*cos(3.00813429479 + 19800.9459562248*$t);
$L1 += 0.00000000127*cos(1.37618620001 + 14945.3161735544*$t);
$L1 += 0.00000000141*cos(2.56889468729 + 1052.2683831884*$t);
$L1 += 0.00000000123*cos(2.83671175442 + 11919.140866668*$t);
$L1 += 0.00000000118*cos(0.81934438215 + 5331.3574437408*$t);
$L1 += 0.00000000151*cos(2.68731829165 + 11769.8536931664*$t);
$L1 += 0.00000000119*cos(5.08835797638 + 5481.2549188676*$t);
$L1 += 0.00000000153*cos(2.46021790779 + 11933.3679606696*$t);
$L1 += 0.00000000108*cos(1.04936452145 + 11403.676995575*$t);
$L1 += 0.00000000128*cos(0.99794735107 + 8827.3902698748*$t);
$L1 += 0.00000000144*cos(2.54869747042 + 227.476132789*$t);
$L1 += 0.00000000150*cos(4.50631437136 + 2379.1644735716*$t);
$L1 += 0.00000000107*cos(1.79272017026 + 13119.72110282519*$t);
$L1 += 0.00000000107*cos(4.43556814486 + 18422.62935909819*$t);
$L1 += 0.00000000109*cos(0.29269062317 + 16737.5772365966*$t);
$L1 += 0.00000000141*cos(3.18979826258 + 6262.300454499*$t);
$L1 += 0.00000000122*cos(4.23040027813 + 29.429508536*$t);
$L1 += 0.00000000111*cos(5.16954029551 + 17782.7320727842*$t);
$L1 += 0.00000000100*cos(3.52213872761 + 18052.9295431578*$t);
$L1 += 0.00000000108*cos(1.08514212991 + 16858.4825329332*$t);
$L1 += 0.00000000106*cos(1.96085248410 + 74.7815985673*$t);
$L1 += 0.00000000110*cos(2.30582372873 + 16460.33352952499*$t);
$L1 += 0.00000000097*cos(3.50918940210 + 5333.9002410216*$t);
$L1 += 0.00000000099*cos(3.56417337974 + 735.8765135318*$t);
$L1 += 0.00000000094*cos(5.01857894228 + 3128.3887650958*$t);
$L1 += 0.00000000097*cos(1.65579893894 + 533.2140834436*$t);
$L1 += 0.00000000092*cos(0.89217162285 + 29296.6153895786*$t);
$L1 += 0.00000000123*cos(3.16062050433 + 9380.9596727172*$t);
$L1 += 0.00000000102*cos(1.20493500565 + 23020.65308658799*$t);
$L1 += 0.00000000088*cos(2.21296088224 + 12721.572099417*$t);
$L1 += 0.00000000089*cos(1.54264720310 + 20199.094959633*$t);
$L1 += 0.00000000113*cos(4.83320707870 + 16496.3613962024*$t);
$L1 += 0.00000000121*cos(6.19860353182 + 9388.0059094152*$t);
$L1 += 0.00000000089*cos(4.08082274765 + 22805.7355659936*$t);
$L1 += 0.00000000098*cos(1.09181832830 + 12043.574281889*$t);
$L1 += 0.00000000086*cos(1.13655027605 + 143571.32428481648*$t);
$L1 += 0.00000000088*cos(5.96980472191 + 107.6635239386*$t);
$L1 += 0.00000000082*cos(5.01340404594 + 22003.9146348698*$t);
$L1 += 0.00000000094*cos(1.69615700473 + 23006.42599258639*$t);
$L1 += 0.00000000081*cos(3.00657814365 + 2118.7638603784*$t);
$L1 += 0.00000000098*cos(1.39215287161 + 8662.240323563*$t);
$L1 += 0.00000000077*cos(3.33555190840 + 15720.8387848784*$t);
$L1 += 0.00000000082*cos(5.86880116464 + 2787.0430238574*$t);
$L1 += 0.00000000076*cos(5.67183650604 + 14.2270940016*$t);
$L1 += 0.00000000081*cos(6.16619455699 + 1039.0266107904*$t);
$L1 += 0.00000000076*cos(3.21449884756 + 111.1866422876*$t);
$L1 += 0.00000000078*cos(1.37531518377 + 21947.11137270*$t);
$L1 += 0.00000000074*cos(3.58814195051 + 11609.8625440122*$t);
$L1 += 0.00000000077*cos(4.84846488388 + 22743.4093795164*$t);
$L1 += 0.00000000090*cos(1.48869013606 + 15671.0817594066*$t);
$L1 += 0.00000000082*cos(3.48618399109 + 29088.811415985*$t);
$L1 += 0.00000000069*cos(3.55746476593 + 4590.910180489*$t);
$L1 += 0.00000000069*cos(1.93625656075 + 135.62532501*$t);
$L1 += 0.00000000070*cos(2.66548322237 + 18875.525869774*$t);
$L1 += 0.00000000069*cos(5.41478093731 + 26735.9452622132*$t);
$L1 += 0.00000000079*cos(5.15154513662 + 12323.4230960088*$t);
$L1 += 0.00000000094*cos(3.62899392448 + 77713.7714681205*$t);
$L1 += 0.00000000078*cos(4.17011182047 + 1066.49547719*$t);
$L1 += 0.00000000071*cos(3.89435637865 + 22779.4372461938*$t);
$L1 += 0.00000000063*cos(4.53968787714 + 8982.810669309*$t);
$L1 += 0.00000000069*cos(0.96028230548 + 14919.0178537546*$t);
$L1 += 0.00000000076*cos(3.29092216589 + 2942.4634232916*$t);
$L1 += 0.00000000063*cos(4.09167842893 + 16062.1845261168*$t);
$L1 += 0.00000000065*cos(3.34580407184 + 51.28033786241*$t);
$L1 += 0.00000000065*cos(5.75757544877 + 52670.0695933026*$t);
$L1 += 0.00000000068*cos(5.75884067555 + 21424.4666443034*$t);
$L1 += 0.00000000057*cos(5.45122399850 + 12592.4500197826*$t);
$L1 += 0.00000000057*cos(5.25043362558 + 20995.3929664494*$t);
$L1 += 0.00000000073*cos(0.53299090807 + 2301.58581590939*$t);
$L1 += 0.00000000070*cos(4.31243357502 + 19402.7969528166*$t);
$L1 += 0.00000000067*cos(2.53852336668 + 377.3736079158*$t);
$L1 += 0.00000000056*cos(3.20816844695 + 24889.5747959916*$t);
$L1 += 0.00000000053*cos(3.17816599142 + 18451.07854656599*$t);
$L1 += 0.00000000053*cos(3.61529270216 + 77.673770428*$t);
$L1 += 0.00000000053*cos(0.45467549335 + 30666.1549584328*$t);
$L1 += 0.00000000061*cos(0.14807288453 + 23013.5395395872*$t);
$L1 += 0.00000000051*cos(3.32803972907 + 56.8983749356*$t);
$L1 += 0.00000000052*cos(3.41177624177 + 23141.5583829246*$t);
$L1 += 0.00000000058*cos(3.13638677202 + 309.2783226558*$t);
$L1 += 0.00000000070*cos(2.50592323465 + 31415.379249957*$t);
$L1 += 0.00000000052*cos(5.10673376738 + 17796.9591667858*$t);
$L1 += 0.00000000067*cos(6.27917920454 + 22345.2603761082*$t);
$L1 += 0.00000000050*cos(0.42577644151 + 25685.872802808*$t);
$L1 += 0.00000000048*cos(0.70204553333 + 1162.4747044078*$t);
$L1 += 0.00000000066*cos(3.64350022359 + 15265.8865193004*$t);
$L1 += 0.00000000050*cos(5.74382917440 + 19.66976089979*$t);
$L1 += 0.00000000050*cos(4.69825387775 + 28237.2334593894*$t);
$L1 += 0.00000000047*cos(5.74015846442 + 12139.5535091068*$t);
$L1 += 0.00000000054*cos(1.97301333704 + 23581.2581773176*$t);
$L1 += 0.00000000049*cos(4.98223579027 + 10021.8372800994*$t);
$L1 += 0.00000000046*cos(5.41431705539 + 33019.0211122046*$t);
$L1 += 0.00000000051*cos(1.23882053879 + 12539.853380183*$t);
$L1 += 0.00000000046*cos(2.41369976086 + 98068.53671630539*$t);
$L1 += 0.00000000044*cos(0.80750593746 + 167283.76158766549*$t);
$L1 += 0.00000000045*cos(4.39613584445 + 433.7117378768*$t);
$L1 += 0.00000000044*cos(2.57358208785 + 12964.300703391*$t);
$L1 += 0.00000000046*cos(0.26142733448 + 11.0457002639*$t);
$L1 += 0.00000000045*cos(2.46230645202 + 51868.2486621788*$t);
$L1 += 0.00000000048*cos(0.89551707131 + 56600.2792895222*$t);
$L1 += 0.00000000057*cos(1.86416707010 + 25287.7237993998*$t);
$L1 += 0.00000000042*cos(5.26377513431 + 26084.0218062162*$t);
$L1 += 0.00000000049*cos(3.17757670611 + 6303.8512454838*$t);
$L1 += 0.00000000052*cos(3.65266055509 + 7872.1487452752*$t);
$L1 += 0.00000000040*cos(1.81891629936 + 34596.3646546524*$t);
$L1 += 0.00000000043*cos(1.94164978061 + 1903.4368125012*$t);
$L1 += 0.00000000041*cos(0.74461854136 + 23937.856389741*$t);
$L1 += 0.00000000048*cos(6.26034008181 + 28286.9904848612*$t);
$L1 += 0.00000000045*cos(5.45575017530 + 60530.4889857418*$t);
$L1 += 0.00000000040*cos(2.92105728682 + 21548.9623692918*$t);
$L1 += 0.00000000040*cos(0.04502010161 + 38526.574350872*$t);
$L1 += 0.00000000053*cos(3.64791042082 + 11925.2740926006*$t);
$L1 += 0.00000000041*cos(5.04048954693 + 27832.0382192832*$t);
$L1 += 0.00000000042*cos(5.19292937193 + 19004.6479494084*$t);
$L1 += 0.00000000040*cos(2.57120233428 + 24356.7807886416*$t);
$L1 += 0.00000000038*cos(3.49190341464 + 226858.23855437008*$t);
$L1 += 0.00000000039*cos(4.61184303844 + 95.9792272178*$t);
$L1 += 0.00000000043*cos(2.20648228147 + 13521.7514415914*$t);
$L1 += 0.00000000040*cos(5.83461945819 + 16193.65917750039*$t);
$L1 += 0.00000000045*cos(3.73714372195 + 7875.6718636242*$t);
$L1 += 0.00000000043*cos(1.14078465002 + 49.7570254718*$t);
$L1 += 0.00000000037*cos(1.29390383811 + 310.8407988684*$t);
$L1 += 0.00000000038*cos(0.95970925950 + 664.75604513*$t);
$L1 += 0.00000000037*cos(4.27532649462 + 6709.6740408674*$t);
$L1 += 0.00000000038*cos(2.20108541046 + 28628.3362260996*$t);
$L1 += 0.00000000039*cos(0.85957361635 + 16522.6597160022*$t);
$L1 += 0.00000000040*cos(4.35214003837 + 48739.859897083*$t);
$L1 += 0.00000000036*cos(1.68167662194 + 10344.2950653858*$t);
$L1 += 0.00000000040*cos(5.13217319067 + 15664.03552270859*$t);
$L1 += 0.00000000036*cos(3.72187132496 + 30774.5016425748*$t);
$L1 += 0.00000000036*cos(3.32158458257 + 16207.886271502*$t);
$L1 += 0.00000000045*cos(3.94202418608 + 10988.808157535*$t);
$L1 += 0.00000000039*cos(1.51948786199 + 12029.3471878874*$t);
$L1 += 0.00000000026*cos(3.87685883180 + 6262.7205305926*$t);
$L1 += 0.00000000024*cos(4.91804163466 + 19651.048481098*$t);
$L1 += 0.00000000023*cos(0.29300197709 + 13362.4497067992*$t);
$L1 += 0.00000000021*cos(3.18605672363 + 6277.552925684*$t);
$L1 += 0.00000000021*cos(6.07546891132 + 18139.2945014159*$t);
$L1 += 0.00000000022*cos(2.31199937177 + 6303.4311693902*$t);
$L1 += 0.00000000021*cos(3.58418394393 + 18209.33026366019*$t);
$L1 += 0.00000000026*cos(2.06801296900 + 12573.2652469836*$t);
$L1 += 0.00000000021*cos(1.56857722317 + 13341.6743113068*$t);
$L1 += 0.00000000024*cos(5.72605158675 + 29864.334027309*$t);
$L1 += 0.00000000024*cos(1.40237993205 + 14712.317116458*$t);
$L1 += 0.00000000025*cos(5.71466092822 + 25934.1243310894*$t);
return $L1*$t;
}
function Earth_L2($t) // 142 terms of order 2
{
$L2 = 0.00052918870;
$L2 += 0.00008719837*cos(1.07209665242 + 6283.0758499914*$t);
$L2 += 0.00000309125*cos(0.86728818832 + 12566.1516999828*$t);
$L2 += 0.00000027339*cos(0.05297871691 + 3.523118349*$t);
$L2 += 0.00000016334*cos(5.18826691036 + 26.2983197998*$t);
$L2 += 0.00000015752*cos(3.68457889430 + 155.4203994342*$t);
$L2 += 0.00000009541*cos(0.75742297675 + 18849.2275499742*$t);
$L2 += 0.00000008937*cos(2.05705419118 + 77713.7714681205*$t);
$L2 += 0.00000006952*cos(0.82673305410 + 775.522611324*$t);
$L2 += 0.00000005064*cos(4.66284525271 + 1577.3435424478*$t);
$L2 += 0.00000004061*cos(1.03057162962 + 7.1135470008*$t);
$L2 += 0.00000003463*cos(5.14074632811 + 796.2980068164*$t);
$L2 += 0.00000003169*cos(6.05291851171 + 5507.5532386674*$t);
$L2 += 0.00000003020*cos(1.19246506441 + 242.728603974*$t);
$L2 += 0.00000002886*cos(6.11652627155 + 529.6909650946*$t);
$L2 += 0.00000003810*cos(3.44050803490 + 5573.1428014331*$t);
$L2 += 0.00000002714*cos(0.30637881025 + 398.1490034082*$t);
$L2 += 0.00000002371*cos(4.38118838167 + 5223.6939198022*$t);
$L2 += 0.00000002538*cos(2.27992810679 + 553.5694028424*$t);
$L2 += 0.00000002079*cos(3.75435330484 + 0.9803210682*$t);
$L2 += 0.00000001675*cos(0.90216407959 + 951.7184062506*$t);
$L2 += 0.00000001534*cos(5.75900462759 + 1349.8674096588*$t);
$L2 += 0.00000001224*cos(2.97328088405 + 2146.1654164752*$t);
$L2 += 0.00000001449*cos(4.36415913970 + 1748.016413067*$t);
$L2 += 0.00000001341*cos(3.72061130861 + 1194.4470102246*$t);
$L2 += 0.00000001254*cos(2.94846826628 + 6438.4962494256*$t);
$L2 += 0.00000000999*cos(5.98640014468 + 6286.5989683404*$t);
$L2 += 0.00000000917*cos(4.79788687522 + 5088.6288397668*$t);
$L2 += 0.00000000828*cos(3.31321076572 + 213.299095438*$t);
$L2 += 0.00000001103*cos(1.27104454479 + 161000.6857376741*$t);
$L2 += 0.00000000762*cos(3.41582762988 + 5486.777843175*$t);
$L2 += 0.00000001044*cos(0.60409577691 + 3154.6870848956*$t);
$L2 += 0.00000000887*cos(5.23465144638 + 7084.8967811152*$t);
$L2 += 0.00000000645*cos(1.60096192515 + 2544.3144198834*$t);
$L2 += 0.00000000681*cos(3.43155669169 + 4694.0029547076*$t);
$L2 += 0.00000000605*cos(2.47806340546 + 10977.078804699*$t);
$L2 += 0.00000000706*cos(6.19393222575 + 4690.4798363586*$t);
$L2 += 0.00000000643*cos(1.98042503148 + 801.8209311238*$t);
$L2 += 0.00000000502*cos(1.44394375363 + 6836.6452528338*$t);
$L2 += 0.00000000490*cos(2.34129524194 + 1592.5960136328*$t);
$L2 += 0.00000000458*cos(1.30876448575 + 4292.3308329504*$t);
$L2 += 0.00000000431*cos(0.03526421494 + 7234.794256242*$t);
$L2 += 0.00000000379*cos(3.17030522615 + 6309.3741697912*$t);
$L2 += 0.00000000348*cos(0.99049550009 + 6040.3472460174*$t);
$L2 += 0.00000000386*cos(1.57019797263 + 71430.69561812909*$t);
$L2 += 0.00000000347*cos(0.67013291338 + 1059.3819301892*$t);
$L2 += 0.00000000458*cos(3.81499443681 + 149854.40013480789*$t);
$L2 += 0.00000000302*cos(1.91760044838 + 10447.3878396044*$t);
$L2 += 0.00000000307*cos(3.55343347416 + 8031.0922630584*$t);
$L2 += 0.00000000395*cos(4.93701776616 + 7632.9432596502*$t);
$L2 += 0.00000000314*cos(3.18093696547 + 2352.8661537718*$t);
$L2 += 0.00000000282*cos(4.41936437052 + 9437.762934887*$t);
$L2 += 0.00000000276*cos(2.71314254553 + 3894.1818295422*$t);
$L2 += 0.00000000298*cos(2.52037474210 + 6127.6554505572*$t);
$L2 += 0.00000000230*cos(1.37790215549 + 4705.7323075436*$t);
$L2 += 0.00000000252*cos(0.55330133471 + 6279.5527316424*$t);
$L2 += 0.00000000255*cos(5.26570187369 + 6812.766815086*$t);
$L2 += 0.00000000275*cos(0.67264264272 + 25132.3033999656*$t);
$L2 += 0.00000000178*cos(0.92820785174 + 1990.745017041*$t);
$L2 += 0.00000000221*cos(0.63897368842 + 6256.7775301916*$t);
$L2 += 0.00000000155*cos(0.77319790838 + 14143.4952424306*$t);
$L2 += 0.00000000150*cos(2.40470465561 + 426.598190876*$t);
$L2 += 0.00000000196*cos(6.06877865012 + 640.8776073822*$t);
$L2 += 0.00000000137*cos(2.21679460145 + 8429.2412664666*$t);
$L2 += 0.00000000127*cos(3.26094223174 + 17789.845619785*$t);
$L2 += 0.00000000128*cos(5.47237279946 + 12036.4607348882*$t);
$L2 += 0.00000000122*cos(2.16291082757 + 10213.285546211*$t);
$L2 += 0.00000000118*cos(0.45789822268 + 7058.5984613154*$t);
$L2 += 0.00000000141*cos(2.34932647403 + 11506.7697697936*$t);
$L2 += 0.00000000100*cos(0.85621569847 + 6290.1893969922*$t);
$L2 += 0.00000000092*cos(5.10587476002 + 7079.3738568078*$t);
$L2 += 0.00000000126*cos(2.65428307012 + 88860.05707098669*$t);
$L2 += 0.00000000106*cos(5.85646710022 + 7860.4193924392*$t);
$L2 += 0.00000000084*cos(3.57457554262 + 16730.4636895958*$t);
$L2 += 0.00000000089*cos(4.21433259618 + 83996.84731811189*$t);
$L2 += 0.00000000097*cos(5.57938280855 + 13367.9726311066*$t);
$L2 += 0.00000000102*cos(2.05853060226 + 87.30820453981*$t);
$L2 += 0.00000000080*cos(4.73792651816 + 11926.2544136688*$t);
$L2 += 0.00000000080*cos(5.41418965044 + 10973.55568635*$t);
$L2 += 0.00000000106*cos(4.10978997399 + 3496.032826134*$t);
$L2 += 0.00000000102*cos(3.62650006043 + 244287.60000722769*$t);
$L2 += 0.00000000075*cos(4.89483161769 + 5643.1785636774*$t);
$L2 += 0.00000000087*cos(0.42863750683 + 11015.1064773348*$t);
$L2 += 0.00000000069*cos(1.88908760720 + 10177.2576795336*$t);
$L2 += 0.00000000089*cos(1.35567273119 + 6681.2248533996*$t);
$L2 += 0.00000000066*cos(0.99455837265 + 6525.8044539654*$t);
$L2 += 0.00000000067*cos(5.51240997070 + 3097.88382272579*$t);
$L2 += 0.00000000076*cos(2.72016814799 + 4164.311989613*$t);
$L2 += 0.00000000063*cos(1.44349902540 + 9917.6968745098*$t);
$L2 += 0.00000000078*cos(3.51469733747 + 11856.2186514245*$t);
$L2 += 0.00000000085*cos(0.50956043858 + 10575.4066829418*$t);
$L2 += 0.00000000067*cos(3.62043033405 + 16496.3613962024*$t);
$L2 += 0.00000000055*cos(5.24637517308 + 3340.6124266998*$t);
$L2 += 0.00000000048*cos(5.43966777314 + 20426.571092422*$t);
$L2 += 0.00000000064*cos(5.79535817813 + 2388.8940204492*$t);
$L2 += 0.00000000046*cos(5.43499966519 + 6275.9623029906*$t);
$L2 += 0.00000000050*cos(3.86263598617 + 5729.506447149*$t);
$L2 += 0.00000000044*cos(1.52269529228 + 12168.0026965746*$t);
$L2 += 0.00000000057*cos(4.96352373486 + 14945.3161735544*$t);
$L2 += 0.00000000045*cos(1.00861230160 + 8635.9420037632*$t);
$L2 += 0.00000000043*cos(3.30685683359 + 9779.1086761254*$t);
$L2 += 0.00000000042*cos(0.63481258930 + 2699.7348193176*$t);
$L2 += 0.00000000041*cos(5.67996766641 + 11712.9553182308*$t);
$L2 += 0.00000000056*cos(4.34024451468 + 90955.5516944961*$t);
$L2 += 0.00000000041*cos(5.81722212845 + 709.9330485583*$t);
$L2 += 0.00000000053*cos(6.17052087143 + 233141.31440436149*$t);
$L2 += 0.00000000037*cos(3.12495025087 + 16200.7727245012*$t);
$L2 += 0.00000000035*cos(5.76973458495 + 12569.6748183318*$t);
$L2 += 0.00000000037*cos(0.31656444326 + 24356.7807886416*$t);
$L2 += 0.00000000035*cos(0.96229051027 + 17298.1823273262*$t);
$L2 += 0.00000000033*cos(5.23130355867 + 5331.3574437408*$t);
$L2 += 0.00000000035*cos(0.62517020593 + 25158.6017197654*$t);
$L2 += 0.00000000035*cos(0.80004512129 + 13916.0191096416*$t);
$L2 += 0.00000000037*cos(2.89336088688 + 12721.572099417*$t);
$L2 += 0.00000000030*cos(4.50198402401 + 23543.23050468179*$t);
$L2 += 0.00000000030*cos(5.31355708693 + 18319.5365848796*$t);
$L2 += 0.00000000029*cos(3.47275229977 + 13119.72110282519*$t);
$L2 += 0.00000000029*cos(3.11002782516 + 4136.9104335162*$t);
$L2 += 0.00000000032*cos(5.52273255667 + 5753.3848848968*$t);
$L2 += 0.00000000035*cos(3.79699996680 + 143571.32428481648*$t);
$L2 += 0.00000000026*cos(1.50634201907 + 154717.60988768269*$t);
$L2 += 0.00000000030*cos(3.53519084118 + 6284.0561710596*$t);
$L2 += 0.00000000023*cos(4.41808025967 + 5884.9268465832*$t);
$L2 += 0.00000000025*cos(1.38477355808 + 65147.6197681377*$t);
$L2 += 0.00000000023*cos(3.49782549797 + 7477.522860216*$t);
$L2 += 0.00000000019*cos(3.14329413716 + 6496.3749454294*$t);
$L2 += 0.00000000019*cos(2.20135125199 + 18073.7049386502*$t);
$L2 += 0.00000000019*cos(4.95020255309 + 3930.2096962196*$t);
$L2 += 0.00000000019*cos(0.57998702747 + 31415.379249957*$t);
$L2 += 0.00000000021*cos(1.75474323399 + 12139.5535091068*$t);
$L2 += 0.00000000019*cos(3.92233070499 + 19651.048481098*$t);
$L2 += 0.00000000014*cos(0.98131213224 + 12559.038152982*$t);
$L2 += 0.00000000019*cos(4.93309333729 + 2942.4634232916*$t);
$L2 += 0.00000000016*cos(5.55997534558 + 8827.3902698748*$t);
$L2 += 0.00000000013*cos(1.68808165516 + 4535.0594369244*$t);
$L2 += 0.00000000013*cos(0.33982116161 + 4933.2084403326*$t);
$L2 += 0.00000000012*cos(1.85426309994 + 5856.4776591154*$t);
$L2 += 0.00000000010*cos(4.82763996845 + 13095.8426650774*$t);
$L2 += 0.00000000011*cos(5.38005490571 + 11790.6290886588*$t);
$L2 += 0.00000000010*cos(1.40815507226 + 10988.808157535*$t);
$L2 += 0.00000000011*cos(3.05005267431 + 17260.1546546904*$t);
$L2 += 0.00000000010*cos(4.93364992366 + 12352.8526045448*$t);
return $L2*$t*$t;
}
function Earth_L3($t) // 22 terms of order 3
{
$L3 = 0.00000289226*cos(5.84384198723 + 6283.0758499914*$t);
$L3 += 0.00000034955;
$L3 += 0.00000016819*cos(5.48766912348 + 12566.1516999828*$t);
$L3 += 0.00000002962*cos(5.19577265202 + 155.4203994342*$t);
$L3 += 0.00000001288*cos(4.72200252235 + 3.523118349*$t);
$L3 += 0.00000000635*cos(5.96925937141 + 242.728603974*$t);
$L3 += 0.00000000714*cos(5.30045809128 + 18849.2275499742*$t);
$L3 += 0.00000000402*cos(3.78682982419 + 553.5694028424*$t);
$L3 += 0.00000000072*cos(4.29768126180 + 6286.5989683404*$t);
$L3 += 0.00000000067*cos(0.90721687647 + 6127.6554505572*$t);
$L3 += 0.00000000036*cos(5.24029648014 + 6438.4962494256*$t);
$L3 += 0.00000000024*cos(5.16003960716 + 25132.3033999656*$t);
$L3 += 0.00000000023*cos(3.01921570335 + 6309.3741697912*$t);
$L3 += 0.00000000017*cos(5.82863573502 + 6525.8044539654*$t);
$L3 += 0.00000000017*cos(3.67772863930 + 71430.69561812909*$t);
$L3 += 0.00000000009*cos(4.58467294499 + 1577.3435424478*$t);
$L3 += 0.00000000008*cos(1.40626662824 + 11856.2186514245*$t);
$L3 += 0.00000000008*cos(5.07561257196 + 6256.7775301916*$t);
$L3 += 0.00000000007*cos(2.82473374405 + 83996.84731811189*$t);
$L3 += 0.00000000005*cos(2.71488713339 + 10977.078804699*$t);
$L3 += 0.00000000005*cos(3.76879847273 + 12036.4607348882*$t);
$L3 += 0.00000000005*cos(4.28412873331 + 6275.9623029906*$t);
return $L3*$t*$t*$t;
}
function Earth_L4($t) // 11 terms of order 4
{
$L4 = 0.00000114084;
$L4 += 0.00000007717*cos(4.13446589358 + 6283.0758499914*$t);
$L4 += 0.00000000765*cos(3.83803776214 + 12566.1516999828*$t);
$L4 += 0.00000000420*cos(0.41925861858 + 155.4203994342*$t);
$L4 += 0.00000000040*cos(3.59847585840 + 18849.2275499742*$t);
$L4 += 0.00000000041*cos(3.14398414077 + 3.523118349*$t);
$L4 += 0.00000000035*cos(5.00298940826 + 5573.1428014331*$t);
$L4 += 0.00000000013*cos(0.48794833701 + 77713.7714681205*$t);
$L4 += 0.00000000010*cos(5.64801766350 + 6127.6554505572*$t);
$L4 += 0.00000000008*cos(2.84160570605 + 161000.6857376741*$t);
$L4 += 0.00000000002*cos(0.54912904658 + 6438.4962494256*$t);
return $L4*$t*$t*$t*$t;
}
function Earth_L5($t) // 5 terms of order 5
{
$L5 = 0.00000000878;
$L5 += 0.00000000172*cos(2.76579069510 + 6283.0758499914*$t);
$L5 += 0.00000000050*cos(2.01353298182 + 155.4203994342*$t);
$L5 += 0.00000000028*cos(2.21496423926 + 12566.1516999828*$t);
$L5 += 0.00000000005*cos(1.75600058765 + 18849.2275499742*$t);
return $L5*$t*$t*$t*$t*$t;
}
Read more:
http://tuvilyso.org/.../#ixzz4RdZDEh16
TuViLySo.Org
]Sau khi đã bình xong, chúng ta sẽ xét tới phương trình chuyển động của sao Thủy, Hỏa, Mộc, Kim, Thổ, và từ đó giải phương trình để tìm thời điểm các hành tinh thẳng hàng.
Sửa bởi MikeDo: 02/12/2016 - 07:47