📄 stjup.pas
字号:
+ 0.00610599902 * cos(3.84115365600 + 1059.38193020000 * Tau)
+ 0.00282029465 * cos(2.57419879930 + 632.78373931000 * Tau)
+ 0.00187647391 * cos(2.07590380080 + 522.57741809000 * Tau)
+ 0.00086792941 * cos(0.71001090609 + 419.48464388000 * Tau)
+ 0.00072062869 * cos(0.21465694745 + 536.80451210000 * Tau)
+ 0.00065517227 * cos(5.97995850840 + 316.39186966000 * Tau)
+ 0.00030135275 * cos(2.16132058450 + 949.17560897000 * Tau)
+ 0.00029134620 * cos(1.67759243710 + 103.09277422000 * Tau)
+ 0.00023947340 * cos(0.27457854894 + 7.11354700080 * Tau)
+ 0.00023453209 * cos(3.54023147300 + 735.87651353000 * Tau)
+ 0.00022283710 * cos(4.19362773550 + 1589.07289530000 * Tau)
+ 0.00013032600 * cos(2.96043055740 + 1162.47470440000 * Tau)
+ 0.00012749004 * cos(2.71550102860 + 1052.26838320000 * Tau)
+ 0.00009703346 * cos(1.90669572400 + 206.18554844000 * Tau)
+ 0.00009161431 * cos(4.41352618940 + 213.29909544000 * Tau)
+ 0.00007894539 * cos(2.47907551400 + 426.59819088000 * Tau)
+ 0.00007057978 * cos(2.18184753110 + 1265.56747860000 * Tau)
+ 0.00006137755 * cos(6.26417542510 + 846.08283475000 * Tau)
+ 0.00005477093 * cos(5.65729325170 + 639.89728631000 * Tau)
+ 0.00004170012 * cos(2.01605033910 + 515.46387109000 * Tau)
+ 0.00004136890 * cos(2.72219979680 + 625.67019231000 * Tau)
+ 0.00003502519 * cos(0.56531297394 + 1066.49547720000 * Tau)
+ 0.00002616955 * cos(2.00993967130 + 1581.95934830000 * Tau)
+ 0.00002499966 * cos(4.55182055940 + 838.96928775000 * Tau)
+ 0.00002127644 * cos(6.12751461750 + 742.99006053000 * Tau)
+ 0.00001911876 * cos(0.85621927419 + 412.37109687000 * Tau)
+ 0.00001610549 * cos(3.08867789270 + 1368.66025280000 * Tau)
+ 0.00001479484 * cos(2.68026191370 + 1478.86657410000 * Tau)
+ 0.00001230708 * cos(1.89042979700 + 323.50541666000 * Tau)
+ 0.00001216810 * cos(1.80171561020 + 110.20632122000 * Tau)
+ 0.00001014959 * cos(1.38673237670 + 454.90936653000 * Tau)
+ 0.00000998579 * cos(2.87208940110 + 309.27832266000 * Tau)
+ 0.00000961072 * cos(4.54876989810 + 2118.76386040000 * Tau)
+ 0.00000885708 * cos(4.14785948470 + 533.62311836000 * Tau)
+ 0.00000821465 * cos(1.59342534400 + 1898.35121790000 * Tau)
+ 0.00000812036 * cos(5.94091899140 + 909.81873305000 * Tau)
+ 0.00000776700 * cos(3.67696954690 + 728.76296653000 * Tau)
+ 0.00000727162 * cos(3.98824686400 + 1155.36115740000 * Tau)
+ 0.00000655289 * cos(2.79065604220 + 1685.05212250000 * Tau)
+ 0.00000653981 * cos(3.38150775270 + 1692.16566950000 * Tau)
+ 0.00000620798 * cos(4.82284338960 + 956.28915597000 * Tau)
+ 0.00000614784 * cos(2.27624915600 + 942.06206197000 * Tau)
+ 0.00000562120 * cos(0.08095987241 + 543.91805910000 * Tau)
+ 0.00000542221 * cos(0.28360266386 + 525.75881183000 * Tau);
R1 := 0.01271801596 * cos(2.64937511120 + 529.69096509000 * Tau)
+ 0.00061661771 * cos(3.00076251020 + 1059.38193020000 * Tau)
+ 0.00053443592 * cos(3.89717644230 + 522.57741809000 * Tau)
+ 0.00041390257 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00031185167 * cos(4.88276663530 + 536.80451210000 * Tau)
+ 0.00011847190 * cos(2.41329588180 + 419.48464388000 * Tau)
+ 0.00009166360 * cos(4.75979408590 + 7.11354700080 * Tau)
+ 0.00003403605 * cos(3.34688538000 + 1589.07289530000 * Tau)
+ 0.00003203446 * cos(5.21083285480 + 735.87651353000 * Tau)
+ 0.00003175763 * cos(2.79297987070 + 103.09277422000 * Tau)
+ 0.00002806064 * cos(3.74223693580 + 515.46387109000 * Tau)
+ 0.00002676575 * cos(4.33052878700 + 1052.26838320000 * Tau)
+ 0.00002600003 * cos(3.63435101620 + 206.18554844000 * Tau)
+ 0.00002412207 * cos(1.46947308300 + 426.59819088000 * Tau)
+ 0.00002100507 * cos(3.92762682310 + 639.89728631000 * Tau)
+ 0.00001646182 * cos(5.30953510950 + 1066.49547720000 * Tau)
+ 0.00001641257 * cos(4.41628669820 + 625.67019231000 * Tau)
+ 0.00001049866 * cos(3.16113622960 + 213.29909544000 * Tau)
+ 0.00001024802 * cos(2.55432643020 + 412.37109687000 * Tau)
+ 0.00000806404 * cos(2.67750801380 + 632.78373931000 * Tau)
+ 0.00000740996 * cos(2.17094630560 + 1162.47470440000 * Tau)
+ 0.00000676928 * cos(6.24953479790 + 838.96928775000 * Tau)
+ 0.00000567076 * cos(4.57655414710 + 742.99006053000 * Tau)
+ 0.00000484689 * cos(2.46882793190 + 949.17560897000 * Tau)
+ 0.00000468895 * cos(4.70973463480 + 543.91805910000 * Tau)
+ 0.00000444683 * cos(0.40281181402 + 323.50541666000 * Tau)
+ 0.00000415894 * cos(5.36836018210 + 728.76296653000 * Tau)
+ 0.00000401738 * cos(4.60528841540 + 309.27832266000 * Tau)
+ 0.00000347378 * cos(4.68148808720 + 14.22709400200 * Tau)
+ 0.00000337555 * cos(3.16781951120 + 956.28915597000 * Tau)
+ 0.00000260753 * cos(5.34290306100 + 846.08283475000 * Tau)
+ 0.00000246603 * cos(3.92313823540 + 942.06206197000 * Tau)
+ 0.00000220084 * cos(4.84210964960 + 1368.66025280000 * Tau)
+ 0.00000203217 * cos(5.59995425430 + 1155.36115740000 * Tau)
+ 0.00000200190 * cos(4.43888814440 + 1045.15483620000 * Tau)
+ 0.00000197134 * cos(3.70551461390 + 2118.76386040000 * Tau)
+ 0.00000196005 * cos(3.75877587140 + 199.07200144000 * Tau)
+ 0.00000183504 * cos(4.26526769700 + 95.97922721800 * Tau)
+ 0.00000180134 * cos(4.40165491160 + 532.87235883000 * Tau)
+ 0.00000170225 * cos(4.84647488870 + 526.50957136000 * Tau)
+ 0.00000146335 * cos(6.12958365530 + 533.62311836000 * Tau)
+ 0.00000133483 * cos(1.32245735860 + 110.20632122000 * Tau)
+ 0.00000132076 * cos(4.51187950810 + 525.75881183000 * Tau);
R2 := 0.00079644833 * cos(1.35865896600 + 529.69096509000 * Tau)
+ 0.00008251618 * cos(5.77773935440 + 522.57741809000 * Tau)
+ 0.00007029864 * cos(3.27476965830 + 536.80451210000 * Tau)
+ 0.00005314006 * cos(1.83835109710 + 1059.38193020000 * Tau)
+ 0.00001860833 * cos(2.97682139370 + 7.11354700080 * Tau)
+ 0.00000964466 * cos(5.48031822020 + 515.46387109000 * Tau)
+ 0.00000836267 * cos(4.19889881720 + 419.48464388000 * Tau)
+ 0.00000497920 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000426570 * cos(2.22753101800 + 639.89728631000 * Tau)
+ 0.00000406453 * cos(3.78250730350 + 1066.49547720000 * Tau)
+ 0.00000377316 * cos(2.24248352870 + 1589.07289530000 * Tau)
+ 0.00000362943 * cos(5.36761847270 + 206.18554844000 * Tau)
+ 0.00000342048 * cos(6.09922969320 + 1052.26838320000 * Tau)
+ 0.00000339043 * cos(6.12690864040 + 625.67019231000 * Tau)
+ 0.00000332578 * cos(0.00328961161 + 426.59819088000 * Tau)
+ 0.00000279920 * cos(4.26162555830 + 412.37109687000 * Tau)
+ 0.00000257290 * cos(0.96295364983 + 632.78373931000 * Tau)
+ 0.00000229777 * cos(0.70530766213 + 735.87651353000 * Tau)
+ 0.00000200783 * cos(3.06850623370 + 543.91805910000 * Tau)
+ 0.00000199807 * cos(4.42884165320 + 103.09277422000 * Tau)
+ 0.00000138606 * cos(2.93235671610 + 14.22709400200 * Tau)
+ 0.00000113535 * cos(0.78713911289 + 728.76296653000 * Tau)
+ 0.00000094565 * cos(1.70498041070 + 838.96928775000 * Tau)
+ 0.00000086025 * cos(5.14434751990 + 323.50541666000 * Tau)
+ 0.00000083469 * cos(0.05834873484 + 309.27832266000 * Tau)
+ 0.00000080328 * cos(2.98122361800 + 742.99006053000 * Tau)
+ 0.00000075198 * cos(1.60495195910 + 956.28915597000 * Tau)
+ 0.00000070451 * cos(1.50988357480 + 213.29909544000 * Tau)
+ 0.00000066572 * cos(5.47307178080 + 199.07200144000 * Tau)
+ 0.00000061649 * cos(6.10137889850 + 1045.15483620000 * Tau)
+ 0.00000056203 * cos(0.95534810533 + 1162.47470440000 * Tau)
+ 0.00000051904 * cos(5.58435625610 + 942.06206197000 * Tau)
+ 0.00000050057 * cos(2.72063162320 + 532.87235883000 * Tau)
+ 0.00000044548 * cos(5.52445621410 + 508.35032409000 * Tau)
+ 0.00000044282 * cos(0.27118152557 + 526.50957136000 * Tau)
+ 0.00000039833 * cos(5.94566506230 + 95.97922721800 * Tau);
R3 := 0.00003519257 * cos(6.05800633850 + 529.69096509000 * Tau)
+ 0.00001073239 * cos(1.67321345760 + 536.80451210000 * Tau)
+ 0.00000915666 * cos(1.41329676120 + 522.57741809000 * Tau)
+ 0.00000341593 * cos(0.52296542656 + 1059.38193020000 * Tau)
+ 0.00000254893 * cos(1.19625473530 + 7.11354700080 * Tau)
+ 0.00000221512 * cos(0.95225226237 + 515.46387109000 * Tau)
+ 0.00000089729 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000069078 * cos(2.26885282310 + 1066.49547720000 * Tau)
+ 0.00000057827 * cos(1.41389745340 + 543.91805910000 * Tau)
+ 0.00000057653 * cos(0.52580117593 + 639.89728631000 * Tau)
+ 0.00000051079 * cos(5.98016364680 + 412.37109687000 * Tau)
+ 0.00000046935 * cos(1.57864237960 + 625.67019231000 * Tau)
+ 0.00000042824 * cos(6.11689609100 + 419.48464388000 * Tau)
+ 0.00000037477 * cos(1.18262762330 + 14.22709400200 * Tau)
+ 0.00000033816 * cos(1.66671706950 + 1052.26838320000 * Tau)
+ 0.00000033531 * cos(0.84784977903 + 206.18554844000 * Tau)
+ 0.00000031195 * cos(1.04290245900 + 1589.07289530000 * Tau)
+ 0.00000030023 * cos(4.63236245030 + 426.59819088000 * Tau)
+ 0.00000020804 * cos(2.50071243810 + 728.76296653000 * Tau)
+ 0.00000015023 * cos(0.89136998434 + 199.07200144000 * Tau)
+ 0.00000014466 * cos(0.96040197071 + 508.35032409000 * Tau)
+ 0.00000012969 * cos(1.50233788550 + 1045.15483620000 * Tau)
+ 0.00000012319 * cos(2.60952614500 + 735.87651353000 * Tau)
+ 0.00000011654 * cos(3.55513510120 + 323.50541666000 * Tau)
+ 0.00000011160 * cos(1.79041437550 + 309.27832266000 * Tau)
+ 0.00000010554 * cos(6.27845112680 + 956.28915597000 * Tau)
+ 0.00000009812 * cos(6.26016859520 + 103.09277422000 * Tau)
+ 0.00000009301 * cos(3.45126812480 + 838.96928775000 * Tau);
R4 := 0.00000128628 * cos(0.08419309557 + 536.80451210000 * Tau)
+ 0.00000113458 * cos(4.24858855780 + 529.69096509000 * Tau)
+ 0.00000082650 * cos(3.29754909410 + 522.57741809000 * Tau)
+ 0.00000037883 * cos(2.73326611140 + 515.46387109000 * Tau)
+ 0.00000026694 * cos(5.69142588560 + 7.11354700080 * Tau)
+ 0.00000017650 * cos(5.40012536920 + 1059.38193020000 * Tau)
+ 0.00000012612 * cos(6.01560416060 + 543.91805910000 * Tau)
+ 0.00000009287 * cos(0.76813946494 + 1066.49547720000 * Tau)
+ 0.00000008107 * cos(5.68228065710 + 14.22709400200 * Tau)
+ 0.00000006978 * cos(1.42751292060 + 412.37109687000 * Tau)
+ 0.00000006271 * cos(5.12286932530 + 639.89728631000 * Tau)
+ 0.00000005377 * cos(3.33501947270 + 625.67019231000 * Tau)
+ 0.00000002911 * cos(3.40334805050 + 1052.26838320000 * Tau)
+ 0.00000002593 * cos(4.16090412980 + 728.76296653000 * Tau)
+ 0.00000002562 * cos(2.89802035070 + 426.59819088000 * Tau);
R5 := 0.00000011188 * cos(4.75249399940 + 536.80451210000 * Tau)
+ 0.00000004255 * cos(5.91516229170 + 522.57741809000 * Tau)
+ 0.00000002079 * cos(5.56781555860 + 515.46387109000 * Tau)
+ 0.00000001908 * cos(4.29659647290 + 543.91805910000 * Tau)
+ 0.00000001875 * cos(3.69357495840 + 7.11354700080 * Tau)
+ 0.00000001612 * cos(4.13222808530 + 1059.38193020000 * Tau)
+ 0.00000001590 * cos(5.49312796170 + 1066.49547720000 * Tau);
Result := (R0 + R1*Tau + R2*Tau2 + R3*Tau3 + R4*Tau4 + R5*Tau5);
end;
{---------------------------------------------------------------------------}
function ComputeJupiter(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 + -