📄 stjup.pas
字号:
+ 0.00000058475 * cos(0.83216317444 + 199.07200144000 * Tau)
+ 0.00000056910 * cos(3.12292059850 + 213.29909544000 * Tau)
+ 0.00000048622 * cos(1.67283791620 + 309.27832266000 * Tau)
+ 0.00000040150 * cos(4.02485444740 + 21.34064100200 * Tau)
+ 0.00000039784 * cos(0.62416945827 + 323.50541666000 * Tau)
+ 0.00000035718 * cos(2.32581247000 + 728.76296653000 * Tau)
+ 0.00000029255 * cos(3.60838327800 + 10.29494073800 * Tau)
+ 0.00000027814 * cos(3.23992013740 + 838.96928775000 * Tau)
+ 0.00000025993 * cos(4.50118298290 + 742.99006053000 * Tau)
+ 0.00000025620 * cos(2.51240623860 + 1162.47470440000 * Tau)
+ 0.00000025194 * cos(1.21868110690 + 1045.15483620000 * Tau)
+ 0.00000023591 * cos(3.00532139310 + 956.28915597000 * Tau)
+ 0.00000019458 * cos(4.29028644670 + 532.87235883000 * Tau)
+ 0.00000017660 * cos(0.80953941560 + 508.35032409000 * Tau)
+ 0.00000017058 * cos(4.20001977720 + 2118.76386040000 * Tau)
+ 0.00000017040 * cos(1.83402146640 + 526.50957136000 * Tau)
+ 0.00000015355 * cos(5.81037986940 + 1596.18644230000 * Tau)
+ 0.00000015292 * cos(0.68174165476 + 942.06206197000 * Tau)
+ 0.00000014661 * cos(3.99989622590 + 117.31986822000 * Tau)
+ 0.00000013920 * cos(5.95169568480 + 316.39186966000 * Tau)
+ 0.00000013639 * cos(1.80336677960 + 302.16477566000 * Tau)
+ 0.00000013230 * cos(2.51856643600 + 88.86568021700 * Tau)
+ 0.00000012756 * cos(4.36856232410 + 1169.58825140000 * Tau)
+ 0.00000010986 * cos(4.43586634640 + 525.75881183000 * Tau)
+ 0.00000009681 * cos(1.71563161050 + 1581.95934830000 * Tau)
+ 0.00000009437 * cos(2.17684563460 + 1155.36115740000 * Tau)
+ 0.00000008812 * cos(3.29452783340 + 220.41264244000 * Tau)
+ 0.00000008690 * cos(3.31924493610 + 831.85574075000 * Tau)
+ 0.00000007823 * cos(5.75672228350 + 846.08283475000 * Tau)
+ 0.00000007549 * cos(2.70955516780 + 533.62311836000 * Tau)
+ 0.00000006685 * cos(2.17560093280 + 1265.56747860000 * Tau)
+ 0.00000006285 * cos(0.49939863541 + 949.17560897000 * Tau);
L3 := 0.00006501665 * cos(2.59862880480 + 7.11354700080 * Tau)
+ 0.00001356524 * cos(1.34635886410 + 529.69096509000 * Tau)
+ 0.00000470716 * cos(2.47503977880 + 14.22709400200 * Tau)
+ 0.00000416960 * cos(3.24451243210 + 536.80451210000 * Tau)
+ 0.00000352851 * cos(2.97360159000 + 522.57741809000 * Tau)
+ 0.00000154880 * cos(2.07565585820 + 1059.38193020000 * Tau)
+ 0.00000086771 * cos(2.51431584320 + 515.46387109000 * Tau)
+ 0.00000044378 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000033538 * cos(3.82633794500 + 1066.49547720000 * Tau)
+ 0.00000028457 * cos(2.44754756060 + 206.18554844000 * Tau)
+ 0.00000023737 * cos(1.27667172310 + 412.37109687000 * Tau)
+ 0.00000022644 * cos(2.98231326770 + 543.91805910000 * Tau)
+ 0.00000019798 * cos(2.10099934010 + 639.89728631000 * Tau)
+ 0.00000019740 * cos(1.40255938970 + 419.48464388000 * Tau)
+ 0.00000018768 * cos(1.59368403500 + 103.09277422000 * Tau)
+ 0.00000017033 * cos(2.30214681200 + 21.34064100200 * Tau)
+ 0.00000016774 * cos(2.59821460670 + 1589.07289530000 * Tau)
+ 0.00000016214 * cos(3.14521117300 + 625.67019231000 * Tau)
+ 0.00000016055 * cos(3.36030126300 + 1052.26838320000 * Tau)
+ 0.00000013392 * cos(2.75973892200 + 95.97922721800 * Tau)
+ 0.00000013234 * cos(2.53862244340 + 199.07200144000 * Tau)
+ 0.00000012611 * cos(6.26578110400 + 426.59819088000 * Tau)
+ 0.00000008701 * cos(1.76334960740 + 10.29494073800 * Tau)
+ 0.00000008637 * cos(2.26563256290 + 110.20632122000 * Tau)
+ 0.00000006725 * cos(3.42566433320 + 309.27832266000 * Tau)
+ 0.00000006527 * cos(4.03869562910 + 728.76296653000 * Tau)
+ 0.00000005675 * cos(2.52096417680 + 508.35032409000 * Tau)
+ 0.00000005399 * cos(2.91184687110 + 1045.15483620000 * Tau)
+ 0.00000005368 * cos(5.25196153540 + 323.50541666000 * Tau)
+ 0.00000003996 * cos(4.30290261180 + 88.86568021700 * Tau)
+ 0.00000003857 * cos(3.52381361550 + 302.16477566000 * Tau)
+ 0.00000003774 * cos(4.09125315150 + 735.87651353000 * Tau)
+ 0.00000003269 * cos(1.43175991270 + 956.28915597000 * Tau)
+ 0.00000002783 * cos(4.35817507670 + 1596.18644230000 * Tau)
+ 0.00000002661 * cos(1.25276590760 + 213.29909544000 * Tau)
+ 0.00000002656 * cos(5.01505839850 + 838.96928775000 * Tau)
+ 0.00000002553 * cos(2.23785673280 + 117.31986822000 * Tau)
+ 0.00000002371 * cos(2.89662409240 + 742.99006053000 * Tau)
+ 0.00000002279 * cos(2.35581871230 + 942.06206197000 * Tau);
L4 := 0.00000669483 * cos(0.85282421090 + 7.11354700080 * Tau)
+ 0.00000114019 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000099961 * cos(0.74258947751 + 14.22709400200 * Tau)
+ 0.00000050024 * cos(1.65346208250 + 536.80451210000 * Tau)
+ 0.00000043585 * cos(5.82026386620 + 529.69096509000 * Tau)
+ 0.00000031813 * cos(4.85829986650 + 522.57741809000 * Tau)
+ 0.00000014742 * cos(4.29061635780 + 515.46387109000 * Tau)
+ 0.00000008899 * cos(0.71478520741 + 1059.38193020000 * Tau)
+ 0.00000004957 * cos(1.29502259430 + 543.91805910000 * Tau)
+ 0.00000004484 * cos(2.31715516630 + 1066.49547720000 * Tau)
+ 0.00000004251 * cos(0.48326797501 + 21.34064100200 * Tau)
+ 0.00000003100 * cos(3.00245542680 + 412.37109687000 * Tau)
+ 0.00000002055 * cos(0.39858940218 + 639.89728631000 * Tau)
+ 0.00000001902 * cos(4.25925620270 + 199.07200144000 * Tau)
+ 0.00000001762 * cos(4.90536207310 + 625.67019231000 * Tau)
+ 0.00000001695 * cos(4.26147580800 + 206.18554844000 * Tau)
+ 0.00000001375 * cos(5.25546955670 + 1052.26838320000 * Tau)
+ 0.00000001203 * cos(4.71614633840 + 95.97922721800 * Tau)
+ 0.00000001086 * cos(1.28604571170 + 1589.07289530000 * Tau);
L5 := 0.00000049577 * cos(5.25658966180 + 7.11354700080 * Tau)
+ 0.00000015761 * cos(5.25126837480 + 14.22709400200 * Tau)
+ 0.00000004343 * cos(0.01461869263 + 536.80451210000 * Tau)
+ 0.00000001526 * cos(1.09739911440 + 522.57741809000 * Tau)
+ 0.00000000845 * cos(3.14159265360 + 0.00000000000 * Tau);
Result := (L0 + L1*Tau + L2*Tau2 + L3*Tau3 + L4*Tau4 + L5*Tau5);
end;
{---------------------------------------------------------------------------}
function GetLatitude(Tau, Tau2, Tau3, Tau4, Tau5 : Double) : Double;
var
B0, B1,
B2, B3,
B4, B5 : Double;
begin
B0 := 0.02268615703 * cos(3.55852606720 + 529.69096509000 * Tau)
+ 0.00110090358 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00109971634 * cos(3.90809347390 + 1059.38193020000 * Tau)
+ 0.00008101427 * cos(3.60509573370 + 522.57741809000 * Tau)
+ 0.00006437782 * cos(0.30627121409 + 536.80451210000 * Tau)
+ 0.00006043996 * cos(4.25883108790 + 1589.07289530000 * Tau)
+ 0.00001106880 * cos(2.98534421930 + 1162.47470440000 * Tau)
+ 0.00000944328 * cos(1.67522288400 + 426.59819088000 * Tau)
+ 0.00000941651 * cos(2.93619072400 + 1052.26838320000 * Tau)
+ 0.00000894088 * cos(1.75447429920 + 7.11354700080 * Tau)
+ 0.00000835861 * cos(5.17881973230 + 103.09277422000 * Tau)
+ 0.00000767280 * cos(2.15473594060 + 632.78373931000 * Tau)
+ 0.00000684220 * cos(3.67808770100 + 213.29909544000 * Tau)
+ 0.00000629223 * cos(0.64343282328 + 1066.49547720000 * Tau)
+ 0.00000558524 * cos(0.01354830508 + 846.08283475000 * Tau)
+ 0.00000531670 * cos(2.70305954350 + 110.20632122000 * Tau)
+ 0.00000464449 * cos(1.17337249190 + 949.17560897000 * Tau)
+ 0.00000431072 * cos(2.60825000490 + 419.48464388000 * Tau)
+ 0.00000351433 * cos(4.61062990710 + 2118.76386040000 * Tau)
+ 0.00000132160 * cos(4.77816990670 + 742.99006053000 * Tau)
+ 0.00000123148 * cos(3.34968181380 + 1692.16566950000 * Tau)
+ 0.00000116379 * cos(1.38688232030 + 323.50541666000 * Tau)
+ 0.00000115038 * cos(5.04892295440 + 316.39186966000 * Tau)
+ 0.00000103762 * cos(3.70103838110 + 515.46387109000 * Tau)
+ 0.00000103402 * cos(2.31878999570 + 1478.86657410000 * Tau)
+ 0.00000102420 * cos(3.15293785440 + 1581.95934830000 * Tau);
B1 := 0.00177351787 * cos(5.70166488490 + 529.69096509000 * Tau)
+ 0.00003230171 * cos(5.77941619340 + 1059.38193020000 * Tau)
+ 0.00003081364 * cos(5.47464296530 + 522.57741809000 * Tau)
+ 0.00002211914 * cos(4.73477480210 + 536.80451210000 * Tau)
+ 0.00001694232 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000346445 * cos(4.74595174110 + 1052.26838320000 * Tau)
+ 0.00000234264 * cos(5.18856099930 + 1066.49547720000 * Tau)
+ 0.00000196154 * cos(6.18554286640 + 7.11354700080 * Tau)
+ 0.00000150468 * cos(3.92721226090 + 1589.07289530000 * Tau)
+ 0.00000114128 * cos(3.43897271830 + 632.78373931000 * Tau)
+ 0.00000096667 * cos(2.91426304090 + 949.17560897000 * Tau)
+ 0.00000081671 * cos(5.07666097500 + 1162.47470440000 * Tau)
+ 0.00000076599 * cos(2.50522188660 + 103.09277422000 * Tau)
+ 0.00000076572 * cos(0.61288981445 + 419.48464388000 * Tau)
+ 0.00000073875 * cos(5.49958292150 + 515.46387109000 * Tau)
+ 0.00000060544 * cos(5.44740084360 + 213.29909544000 * Tau)
+ 0.00000049915 * cos(3.94799616570 + 735.87651353000 * Tau)
+ 0.00000046032 * cos(0.53850360901 + 110.20632122000 * Tau)
+ 0.00000045123 * cos(1.89516645240 + 846.08283475000 * Tau)
+ 0.00000036561 * cos(4.69828392840 + 543.91805910000 * Tau)
+ 0.00000036019 * cos(6.10952578760 + 316.39186966000 * Tau)
+ 0.00000031975 * cos(4.92452714630 + 1581.95934830000 * Tau);
B2 := 0.00008094051 * cos(1.46322843660 + 529.69096509000 * Tau)
+ 0.00000813244 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000742415 * cos(0.95691639003 + 522.57741809000 * Tau)
+ 0.00000398951 * cos(2.89888666450 + 536.80451210000 * Tau)
+ 0.00000342226 * cos(1.44683789730 + 1059.38193020000 * Tau)
+ 0.00000073948 * cos(0.40724675866 + 1052.26838320000 * Tau)
+ 0.00000046151 * cos(3.48036895770 + 1066.49547720000 * Tau)
+ 0.00000029717 * cos(1.92504171330 + 1589.07289530000 * Tau)
+ 0.00000029314 * cos(0.99088831805 + 515.46387109000 * Tau)
+ 0.00000022753 * cos(4.27124052440 + 7.11354700080 * Tau)
+ 0.00000013916 * cos(2.92242387340 + 543.91805910000 * Tau)
+ 0.00000012067 * cos(5.22168932480 + 632.78373931000 * Tau)
+ 0.00000010703 * cos(4.88024222480 + 949.17560897000 * Tau)
+ 0.00000006078 * cos(6.21089108430 + 1045.15483620000 * Tau);
B3 := 0.00000251624 * cos(3.38087923080 + 529.69096509000 * Tau)
+ 0.00000121738 * cos(2.73311837200 + 522.57741809000 * Tau)
+ 0.00000048694 * cos(1.03689996680 + 536.80451210000 * Tau)
+ 0.00000010988 * cos(2.31463561350 + 1052.26838320000 * Tau)
+ 0.00000008067 * cos(2.76729757620 + 515.46387109000 * Tau)
+ 0.00000007287 * cos(4.25268318970 + 1059.38193020000 * Tau)
+ 0.00000006205 * cos(1.78115827370 + 1066.49547720000 * Tau)
+ 0.00000003627 * cos(1.13028917220 + 543.91805910000 * Tau)
+ 0.00000002798 * cos(3.14159265360 + 0.00000000000 * Tau);
B4 := 0.00000015050 * cos(4.52956999640 + 522.57741809000 * Tau)
+ 0.00000005370 * cos(4.47427159140 + 529.69096509000 * Tau)
+ 0.00000004456 * cos(5.43908581050 + 536.80451210000 * Tau)
+ 0.00000003422 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000001833 * cos(4.51807036230 + 515.46387109000 * Tau)
+ 0.00000001322 * cos(4.20117611580 + 1052.26838320000 * Tau);
B5 := 0.00000001445 * cos(0.09198554072 + 522.57741809000 * 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 := 5.20887429470 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.25209327020 * cos(3.49108640020 + 529.69096509000 * Tau)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -