📄 stsaturn.pas
字号:
+ 0.00000003548 * cos(4.71299370890 + 412.37109687000 * Tau)
+ 0.00000002851 * cos(0.62679207578 + 103.09277422000 * Tau)
+ 0.00000002173 * cos(3.71982274460 + 216.48048918000 * Tau);
B4 := 0.00000080384 * cos(1.11918414680 + 206.18554844000 * Tau)
+ 0.00000031660 * cos(3.12218745100 + 213.29909544000 * Tau)
+ 0.00000017143 * cos(2.48073200410 + 220.41264244000 * Tau)
+ 0.00000011844 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000009005 * cos(0.38441424927 + 419.48464388000 * Tau)
+ 0.00000006164 * cos(1.56186379540 + 433.71173788000 * Tau)
+ 0.00000004775 * cos(2.63498295490 + 227.52618944000 * Tau)
+ 0.00000004660 * cos(1.28235639570 + 199.07200144000 * Tau)
+ 0.00000001487 * cos(1.43096671620 + 426.59819088000 * Tau)
+ 0.00000001424 * cos(0.66988083613 + 647.01083331000 * Tau)
+ 0.00000001145 * cos(1.72041928130 + 440.82528488000 * Tau)
+ 0.00000001075 * cos(6.18092274060 + 639.89728631000 * Tau);
B5 := 0.00000007895 * cos(2.81927558650 + 206.18554844000 * Tau)
+ 0.00000001014 * cos(0.51187210270 + 220.41264244000 * Tau);
Result := (B0 + B1*Tau + B2*Tau2 + B3*Tau3 + B4*Tau4 + B5*Tau5);
end;
{---------------------------------------------------------------------------}
function GetRadiusVector(Tau, Tau2, Tau3, Tau4, Tau5 : Double) : Double;
var
R0, R1,
R2, R3,
R4, R5 : Double;
begin
R0 := 9.55758135800 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.52921382465 * cos(2.39226219730 + 213.29909544000 * Tau)
+ 0.01873679934 * cos(5.23549605090 + 206.18554844000 * Tau)
+ 0.01464663959 * cos(1.64763045470 + 426.59819088000 * Tau)
+ 0.00821891059 * cos(5.93520025370 + 316.39186966000 * Tau)
+ 0.00547506899 * cos(5.01532628450 + 103.09277422000 * Tau)
+ 0.00371684449 * cos(2.27114833430 + 220.41264244000 * Tau)
+ 0.00361778433 * cos(3.13904303260 + 7.11354700080 * Tau)
+ 0.00140617548 * cos(5.70406652990 + 632.78373931000 * Tau)
+ 0.00108974737 * cos(3.29313595580 + 110.20632122000 * Tau)
+ 0.00069007015 * cos(5.94099622450 + 419.48464388000 * Tau)
+ 0.00061053350 * cos(0.94037761156 + 639.89728631000 * Tau)
+ 0.00048913044 * cos(1.55733388470 + 202.25339517000 * Tau)
+ 0.00034143794 * cos(0.19518550682 + 277.03499374000 * Tau)
+ 0.00032401718 * cos(5.47084606950 + 949.17560897000 * Tau)
+ 0.00020936573 * cos(0.46349163993 + 735.87651353000 * Tau)
+ 0.00020839118 * cos(1.52102590640 + 433.71173788000 * Tau)
+ 0.00020746678 * cos(5.33255667600 + 199.07200144000 * Tau)
+ 0.00015298457 * cos(3.05943652880 + 529.69096509000 * Tau)
+ 0.00014296479 * cos(2.60433537910 + 323.50541666000 * Tau)
+ 0.00012884128 * cos(1.64892310390 + 138.51749687000 * Tau)
+ 0.00011993314 * cos(5.98051421880 + 846.08283475000 * Tau)
+ 0.00011380261 * cos(1.73105746570 + 522.57741809000 * Tau)
+ 0.00009796061 * cos(5.20475864000 + 1265.56747860000 * Tau)
+ 0.00007752769 * cos(5.85191318900 + 95.97922721800 * Tau)
+ 0.00006770621 * cos(3.00433479280 + 14.22709400200 * Tau)
+ 0.00006465967 * cos(0.17733160145 + 1052.26838320000 * Tau)
+ 0.00005850443 * cos(1.45519636080 + 415.55249061000 * Tau)
+ 0.00005307481 * cos(0.59737534050 + 63.73589830300 * Tau)
+ 0.00004695746 * cos(2.14919036960 + 227.52618944000 * Tau)
+ 0.00004043988 * cos(1.64010323860 + 209.36694217000 * Tau)
+ 0.00003688132 * cos(0.78016133170 + 412.37109687000 * Tau)
+ 0.00003460943 * cos(1.85088802880 + 175.16605980000 * Tau)
+ 0.00003419551 * cos(4.94549148890 + 1581.95934830000 * Tau)
+ 0.00003400616 * cos(0.55386747515 + 350.33211960000 * Tau)
+ 0.00003376457 * cos(3.69528478830 + 224.34479570000 * Tau)
+ 0.00002976033 * cos(5.68467931120 + 210.11770170000 * Tau)
+ 0.00002885348 * cos(1.38764077630 + 838.96928775000 * Tau)
+ 0.00002881181 * cos(0.17960757891 + 853.19638175000 * Tau)
+ 0.00002507630 * cos(3.53851863260 + 742.99006053000 * Tau)
+ 0.00002448325 * cos(6.18412386320 + 1368.66025280000 * Tau)
+ 0.00002406138 * cos(2.96559220270 + 117.31986822000 * Tau)
+ 0.00002173959 * cos(0.01508587396 + 340.77089205000 * Tau)
+ 0.00002024483 * cos(5.05411271270 + 11.04570026400 * Tau);
R1 := 0.06182981282 * cos(0.25843515034 + 213.29909544000 * Tau)
+ 0.00506577574 * cos(0.71114650941 + 206.18554844000 * Tau)
+ 0.00341394136 * cos(5.79635773960 + 426.59819088000 * Tau)
+ 0.00188491375 * cos(0.47215719444 + 220.41264244000 * Tau)
+ 0.00186261540 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00143891176 * cos(1.40744864240 + 7.11354700080 * Tau)
+ 0.00049621111 * cos(6.01744469580 + 103.09277422000 * Tau)
+ 0.00020928189 * cos(5.09245654470 + 639.89728631000 * Tau)
+ 0.00019952612 * cos(1.17560125010 + 419.48464388000 * Tau)
+ 0.00018839639 * cos(1.60819563170 + 110.20632122000 * Tau)
+ 0.00013876565 * cos(0.75886204364 + 199.07200144000 * Tau)
+ 0.00012892827 * cos(5.94330258430 + 433.71173788000 * Tau)
+ 0.00005396699 * cos(1.28852405910 + 14.22709400200 * Tau)
+ 0.00004869308 * cos(0.86793894213 + 323.50541666000 * Tau)
+ 0.00004247455 * cos(0.39299384543 + 227.52618944000 * Tau)
+ 0.00003252084 * cos(1.25853470490 + 95.97922721800 * Tau)
+ 0.00003081408 * cos(3.43662557420 + 522.57741809000 * Tau)
+ 0.00002909411 * cos(4.60679154790 + 202.25339517000 * Tau)
+ 0.00002856006 * cos(2.16731405370 + 735.87651353000 * Tau)
+ 0.00001987689 * cos(2.45054204800 + 412.37109687000 * Tau)
+ 0.00001941309 * cos(6.02393385140 + 209.36694217000 * Tau)
+ 0.00001581446 * cos(1.29191789710 + 210.11770170000 * Tau)
+ 0.00001339511 * cos(4.30801821810 + 853.19638175000 * Tau)
+ 0.00001315590 * cos(1.25296446020 + 117.31986822000 * Tau)
+ 0.00001203085 * cos(1.86654673790 + 316.39186966000 * Tau)
+ 0.00001091088 * cos(0.07527246854 + 216.48048918000 * Tau)
+ 0.00000966012 * cos(0.47991379141 + 632.78373931000 * Tau)
+ 0.00000954403 * cos(5.15173410520 + 647.01083331000 * Tau)
+ 0.00000897512 * cos(0.98343776092 + 529.69096509000 * Tau)
+ 0.00000881827 * cos(1.88471724480 + 1052.26838320000 * Tau)
+ 0.00000874215 * cos(1.40224683860 + 224.34479570000 * Tau)
+ 0.00000784866 * cos(3.06377517460 + 838.96928775000 * Tau)
+ 0.00000739892 * cos(1.38225356690 + 625.67019231000 * Tau)
+ 0.00000658210 * cos(4.14362930980 + 309.27832266000 * Tau)
+ 0.00000649600 * cos(1.72489486160 + 742.99006053000 * Tau)
+ 0.00000612961 * cos(3.03307306770 + 63.73589830300 * Tau)
+ 0.00000599236 * cos(2.54924174760 + 217.23124870000 * Tau)
+ 0.00000502886 * cos(2.12958819480 + 3.93215326310 * Tau);
R2 := 0.00436902464 * cos(4.78671673040 + 213.29909544000 * Tau)
+ 0.00071922760 * cos(2.50069994870 + 206.18554844000 * Tau)
+ 0.00049766792 * cos(4.97168150870 + 220.41264244000 * Tau)
+ 0.00043220894 * cos(3.86940443790 + 426.59819088000 * Tau)
+ 0.00029645554 * cos(5.96310264280 + 7.11354700080 * Tau)
+ 0.00004720909 * cos(2.47527992420 + 199.07200144000 * Tau)
+ 0.00004141650 * cos(4.10670940820 + 433.71173788000 * Tau)
+ 0.00003789370 * cos(3.09771025070 + 639.89728631000 * Tau)
+ 0.00002963990 * cos(1.37206248850 + 103.09277422000 * Tau)
+ 0.00002556363 * cos(2.85065721530 + 419.48464388000 * Tau)
+ 0.00002326801 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00002208457 * cos(6.27588858710 + 110.20632122000 * Tau)
+ 0.00002187621 * cos(5.85545832220 + 14.22709400200 * Tau)
+ 0.00001956896 * cos(4.92448618040 + 227.52618944000 * Tau)
+ 0.00000923840 * cos(5.46392422740 + 323.50541666000 * Tau)
+ 0.00000705936 * cos(2.97081280100 + 95.97922721800 * Tau)
+ 0.00000546115 * cos(4.12854181520 + 412.37109687000 * Tau)
+ 0.00000431485 * cos(5.17825414610 + 522.57741809000 * Tau)
+ 0.00000405018 * cos(4.17294157870 + 209.36694217000 * Tau)
+ 0.00000390627 * cos(4.48106176890 + 216.48048918000 * Tau)
+ 0.00000373838 * cos(5.83435991810 + 117.31986822000 * Tau)
+ 0.00000360882 * cos(3.27703082370 + 647.01083331000 * Tau)
+ 0.00000356350 * cos(3.19152043940 + 210.11770170000 * Tau)
+ 0.00000325598 * cos(2.26867601660 + 853.19638175000 * Tau)
+ 0.00000206854 * cos(4.02188336740 + 735.87651353000 * Tau)
+ 0.00000204494 * cos(0.08774848590 + 202.25339517000 * Tau)
+ 0.00000180143 * cos(3.59704903950 + 632.78373931000 * Tau)
+ 0.00000178474 * cos(4.09716541450 + 440.82528488000 * Tau)
+ 0.00000153656 * cos(3.13470530380 + 625.67019231000 * Tau)
+ 0.00000147779 * cos(0.13614300541 + 302.16477566000 * Tau)
+ 0.00000133076 * cos(2.59350469420 + 191.95845444000 * Tau)
+ 0.00000131975 * cos(5.93293968940 + 309.27832266000 * Tau);
R3 := 0.00020315005 * cos(3.02186626040 + 213.29909544000 * Tau)
+ 0.00008923581 * cos(3.19144205750 + 220.41264244000 * Tau)
+ 0.00006908677 * cos(4.35174889350 + 206.18554844000 * Tau)
+ 0.00004087129 * cos(4.22406927380 + 7.11354700080 * Tau)
+ 0.00003879041 * cos(2.01056445990 + 426.59819088000 * Tau)
+ 0.00001070788 * cos(4.20360341240 + 199.07200144000 * Tau)
+ 0.00000907332 * cos(2.28344368030 + 433.71173788000 * Tau)
+ 0.00000606121 * cos(3.17458570530 + 227.52618944000 * Tau)
+ 0.00000596639 * cos(4.13455753350 + 14.22709400200 * Tau)
+ 0.00000483181 * cos(1.17345973260 + 639.89728631000 * Tau)
+ 0.00000393174 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000229472 * cos(4.69838526380 + 419.48464388000 * Tau)
+ 0.00000188250 * cos(4.59003889010 + 110.20632122000 * Tau)
+ 0.00000149508 * cos(3.20199444400 + 103.09277422000 * Tau)
+ 0.00000121442 * cos(3.76831374100 + 323.50541666000 * Tau)
+ 0.00000102146 * cos(4.70974422800 + 95.97922721800 * Tau)
+ 0.00000101215 * cos(5.81884137750 + 412.37109687000 * Tau)
+ 0.00000093078 * cos(1.43531270910 + 647.01083331000 * Tau)
+ 0.00000084347 * cos(2.63462379690 + 216.48048918000 * Tau)
+ 0.00000072601 * cos(4.15395598510 + 117.31986822000 * Tau)
+ 0.00000062198 * cos(2.31239345500 + 440.82528488000 * Tau)
+ 0.00000054829 * cos(0.30526468471 + 853.19638175000 * Tau)
+ 0.00000049536 * cos(2.38854232910 + 209.36694217000 * Tau)
+ 0.00000045145 * cos(4.37317047300 + 191.95845444000 * Tau)
+ 0.00000040671 * cos(0.68845183210 + 522.57741809000 * Tau)
+ 0.00000040498 * cos(1.83836569760 + 302.16477566000 * Tau)
+ 0.00000038089 * cos(5.94455115520 + 88.86568021700 * Tau)
+ 0.00000032243 * cos(4.01146349390 + 21.34064100200 * Tau);
R4 := 0.00001202050 * cos(1.41499446470 + 220.41264244000 * Tau)
+ 0.00000707796 * cos(1.16153570100 + 213.29909544000 * Tau)
+ 0.00000516121 * cos(6.23973568330 + 206.18554844000 * Tau)
+ 0.00000426664 * cos(2.46924890290 + 7.11354700080 * Tau)
+ 0.00000267736 * cos(0.18659206741 + 426.59819088000 * Tau)
+ 0.00000170171 * cos(5.95926972380 + 199.07200144000 * Tau)
+ 0.00000150339 * cos(0.47970167140 + 433.71173788000 * Tau)
+ 0.00000145113 * cos(1.44211060140 + 227.52618944000 * Tau)
+ 0.00000121033 * cos(2.40527320820 + 14.22709400200 * Tau)
+ 0.00000047332 * cos(5.56857488680 + 639.89728631000 * Tau)
+ 0.00000018954 * cos(5.85626429120 + 647.01083331000 * Tau)
+ 0.00000016668 * cos(0.52920774279 + 440.82528488000 * Tau)
+ 0.00000015745 * cos(2.90112466280 + 110.20632122000 * Tau)
+ 0.00000014724 * cos(0.29905316786 + 419.48464388000 * Tau)
+ 0.00000014074 * cos(1.30343550660 + 412.37109687000 * Tau)
+ 0.00000012708 * cos(2.09349305930 + 323.50541666000 * Tau)
+ 0.00000011320 * cos(0.21785507019 + 95.97922721800 * Tau)
+ 0.00000011133 * cos(2.46304825990 + 117.31986822000 * Tau)
+ 0.00000009552 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000009246 * cos(1.56496312830 + 88.86568021700 * Tau)
+ 0.00000009233 * cos(2.28127318070 + 21.34064100200 * Tau)
+ 0.00000008970 * cos(0.68301278041 + 216.48048918000 * Tau)
+ 0.00000008360 * cos(1.27239488460 + 234.63973644000 * Tau);
R5 := 0.00000128612 * cos(5.91282565140 + 220.41264244000 * Tau)
+ 0.00000032273 * cos(0.69256228602 + 7.11354700080 * Tau)
+ 0.00000026698 * cos(5.91428528630 + 227.52618944000 * Tau)
+ 0.00000020223 * cos(4.95136801770 + 433.71173788000 * Tau)
+ 0.00000019923 * cos(0.67370653385 + 14.22709400200 * Tau)
+ 0.00000014097 * cos(2.67074280190 + 206.18554844000 * Tau)
+ 0.00000013537 * cos(1.45669521410 + 199.07200144000 * Tau)
+ 0.00000013364 * cos(4.58826996370 + 426.59819088000 * Tau)
+ 0.00000007257 * cos(4.62966127160 + 213.29909544000 * Tau)
+ 0.00000004876 * cos(3.61448275000 + 639.89728631000 * Tau)
+ 0.00000003759 * cos(4.89624165040 + 440.82528488000 * Tau)
+ 0.00000003303 * cos(4.07190859540 + 647.01083331000 * Tau)
+ 0.00000003136 * cos(4.65661021910 + 191.95845444000 * Tau)
+ 0.00000002917 * cos(0.48665273315 + 323.50541666000 * Tau)
+ 0.00000002883 * cos(3.18003019200 + 419.48464388000 * Tau)
+ 0.00000002338 * cos(3.69553554330 + 88.86568021700 * Tau)
+ 0.00000002052 * cos(3.31663577370 + 95.97922721800 * Tau)
+ 0.00000002028 * cos(0.56025552769 + 117.31986822000 * Tau);
Result := (R0 + R1*Tau + R2*Tau2 + R3*Tau3 + R4*Tau4 + R5*Tau5);
end;
{---------------------------------------------------------------------------}
function ComputeSaturn(JD : Double) : TStEclipticalCord;
var
Tau,
Tau2,
Tau3,
Tau4,
Tau5 : Double;
begin
Tau := (JD - 2451545.0) / 365250.0;
Tau2 := sqr(Tau);
Tau3 := Tau * Tau2;
Tau4 := sqr(Tau2);
Tau5 := Tau2 * Tau3;
Result.L0 := GetLongitude(Tau, Tau2, Tau3, Tau4, Tau5);
Result.B0 := GetLatitude(Tau, Tau2, Tau3, Tau4, Tau5);
Result.R0 := GetRadiusVector(Tau, Tau2, Tau3, Tau4, Tau5);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -