📄 stsaturn.pas
字号:
+ 0.00000082727 * cos(6.05030934790 + 216.48048918000 * Tau)
+ 0.00000081948 * cos(1.02477558310 + 117.31986822000 * Tau)
+ 0.00000074857 * cos(4.76178468160 + 210.11770170000 * Tau)
+ 0.00000067184 * cos(0.45648612616 + 522.57741809000 * Tau)
+ 0.00000066459 * cos(0.48297940601 + 10.29494073800 * Tau)
+ 0.00000063696 * cos(0.35179804917 + 323.50541666000 * Tau)
+ 0.00000060647 * cos(4.87517850190 + 632.78373931000 * Tau)
+ 0.00000053281 * cos(2.74730541390 + 529.69096509000 * Tau)
+ 0.00000045827 * cos(5.69296621750 + 440.82528488000 * Tau)
+ 0.00000045293 * cos(1.66856699800 + 202.25339517000 * Tau)
+ 0.00000042330 * cos(5.70768187700 + 88.86568021700 * Tau)
+ 0.00000032140 * cos(0.07050050346 + 63.73589830300 * Tau)
+ 0.00000031573 * cos(1.67190022210 + 302.16477566000 * Tau)
+ 0.00000031150 * cos(4.16379537690 + 191.95845444000 * Tau)
+ 0.00000026558 * cos(0.83256214407 + 224.34479570000 * Tau)
+ 0.00000024631 * cos(5.65564728570 + 735.87651353000 * Tau)
+ 0.00000020108 * cos(5.94364609980 + 217.23124870000 * Tau)
+ 0.00000017511 * cos(4.90014736800 + 625.67019231000 * Tau)
+ 0.00000017130 * cos(1.62593421270 + 742.99006053000 * Tau)
+ 0.00000016040 * cos(0.57886320845 + 515.46387109000 * Tau)
+ 0.00000014068 * cos(0.20675293700 + 838.96928775000 * Tau)
+ 0.00000013744 * cos(3.76497167300 + 195.13984817000 * Tau)
+ 0.00000012236 * cos(4.71789723980 + 203.00415470000 * Tau)
+ 0.00000011940 * cos(0.12620714199 + 234.63973644000 * Tau)
+ 0.00000011718 * cos(3.12098483550 + 846.08283475000 * Tau)
+ 0.00000011154 * cos(5.92216844780 + 536.80451210000 * Tau)
+ 0.00000011013 * cos(5.60207982770 + 728.76296653000 * Tau)
+ 0.00000010601 * cos(3.20327613030 + 1066.49547720000 * Tau)
+ 0.00000010240 * cos(4.98736656070 + 422.66603761000 * Tau)
+ 0.00000010072 * cos(0.25709351996 + 330.61896366000 * Tau)
+ 0.00000009962 * cos(4.15472049130 + 860.30992875000 * Tau)
+ 0.00000009490 * cos(0.46379969328 + 956.28915597000 * Tau)
+ 0.00000008287 * cos(2.13990364270 + 269.92144674000 * Tau)
+ 0.00000007730 * cos(5.24602742310 + 429.77958461000 * Tau)
+ 0.00000007550 * cos(4.03401153930 + 9.56122755560 * Tau)
+ 0.00000007238 * cos(5.39724715260 + 1052.26838320000 * Tau)
+ 0.00000006353 * cos(4.46211130730 + 284.14854074000 * Tau)
+ 0.00000006082 * cos(5.93416924840 + 405.25754987000 * Tau);
L3 := 0.00016038734 * cos(5.73945377420 + 7.11354700080 * Tau)
+ 0.00004249793 * cos(4.58539675600 + 213.29909544000 * Tau)
+ 0.00001906524 * cos(4.76082050210 + 220.41264244000 * Tau)
+ 0.00001465687 * cos(5.91326678320 + 206.18554844000 * Tau)
+ 0.00001162041 * cos(5.61973132430 + 14.22709400200 * Tau)
+ 0.00001066581 * cos(3.60816533140 + 426.59819088000 * Tau)
+ 0.00000239377 * cos(3.86088273440 + 433.71173788000 * Tau)
+ 0.00000236975 * cos(5.76826451460 + 199.07200144000 * Tau)
+ 0.00000165641 * cos(5.11641150220 + 3.18139373770 * Tau)
+ 0.00000151352 * cos(2.73594641860 + 639.89728631000 * Tau)
+ 0.00000131409 * cos(4.74327544610 + 227.52618944000 * Tau)
+ 0.00000063365 * cos(0.22850089497 + 419.48464388000 * Tau)
+ 0.00000061630 * cos(4.74287052460 + 103.09277422000 * Tau)
+ 0.00000040437 * cos(5.47298059140 + 21.34064100200 * Tau)
+ 0.00000040205 * cos(5.96420266720 + 95.97922721800 * Tau)
+ 0.00000038746 * cos(5.83386199530 + 110.20632122000 * Tau)
+ 0.00000028025 * cos(3.01235311510 + 647.01083331000 * Tau)
+ 0.00000025029 * cos(0.98808170740 + 3.93215326310 * Tau)
+ 0.00000019014 * cos(1.91614237460 + 853.19638175000 * Tau)
+ 0.00000018262 * cos(4.96738415930 + 10.29494073800 * Tau)
+ 0.00000018101 * cos(1.02506397060 + 412.37109687000 * Tau)
+ 0.00000017919 * cos(4.20376505350 + 216.48048918000 * Tau)
+ 0.00000017879 * cos(3.31913418970 + 309.27832266000 * Tau)
+ 0.00000016208 * cos(3.89825272750 + 440.82528488000 * Tau)
+ 0.00000015763 * cos(5.61667809630 + 117.31986822000 * Tau)
+ 0.00000012947 * cos(1.18068953940 + 88.86568021700 * Tau)
+ 0.00000011453 * cos(5.57520615100 + 11.04570026400 * Tau)
+ 0.00000010548 * cos(5.92906266270 + 191.95845444000 * Tau)
+ 0.00000010389 * cos(3.94838736950 + 209.36694217000 * Tau)
+ 0.00000008650 * cos(3.39335369700 + 302.16477566000 * Tau)
+ 0.00000007580 * cos(4.87736913160 + 323.50541666000 * Tau)
+ 0.00000006697 * cos(0.38198725552 + 632.78373931000 * Tau)
+ 0.00000006327 * cos(2.25492722760 + 522.57741809000 * Tau)
+ 0.00000005864 * cos(1.05621157680 + 210.11770170000 * Tau)
+ 0.00000005449 * cos(4.64268475490 + 234.63973644000 * Tau)
+ 0.00000003701 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000003602 * cos(2.30677010960 + 515.46387109000 * Tau)
+ 0.00000003229 * cos(2.20309400070 + 860.30992875000 * Tau)
+ 0.00000002850 * cos(0.58604395010 + 529.69096509000 * Tau)
+ 0.00000002583 * cos(4.93447677060 + 224.34479570000 * Tau)
+ 0.00000002543 * cos(0.42393884183 + 625.67019231000 * Tau)
+ 0.00000002421 * cos(4.76621391810 + 330.61896366000 * Tau)
+ 0.00000002296 * cos(3.34809165900 + 429.77958461000 * Tau)
+ 0.00000002213 * cos(3.19814958290 + 202.25339517000 * Tau)
+ 0.00000002194 * cos(1.18918501010 + 1066.49547720000 * Tau)
+ 0.00000002154 * cos(1.35488209140 + 405.25754987000 * Tau)
+ 0.00000002090 * cos(4.15631351320 + 223.59403618000 * Tau)
+ 0.00000002018 * cos(3.06693569700 + 654.12438032000 * Tau);
L4 := 0.00001661894 * cos(3.99826248980 + 7.11354700080 * Tau)
+ 0.00000257107 * cos(2.98436499010 + 220.41264244000 * Tau)
+ 0.00000236344 * cos(3.90241428080 + 14.22709400200 * Tau)
+ 0.00000149418 * cos(2.74110824210 + 213.29909544000 * Tau)
+ 0.00000113953 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00000109598 * cos(1.51515739250 + 206.18554844000 * Tau)
+ 0.00000068390 * cos(1.72120953340 + 426.59819088000 * Tau)
+ 0.00000040060 * cos(2.04644897410 + 433.71173788000 * Tau)
+ 0.00000037699 * cos(1.23795458360 + 199.07200144000 * Tau)
+ 0.00000031219 * cos(3.01094184090 + 227.52618944000 * Tau)
+ 0.00000015111 * cos(0.82897064529 + 639.89728631000 * Tau)
+ 0.00000009444 * cos(3.71485300870 + 21.34064100200 * Tau)
+ 0.00000005690 * cos(2.41995290630 + 419.48464388000 * Tau)
+ 0.00000005608 * cos(1.15607095740 + 647.01083331000 * Tau)
+ 0.00000004470 * cos(1.45120818750 + 95.97922721800 * Tau)
+ 0.00000004463 * cos(2.11783225180 + 440.82528488000 * Tau)
+ 0.00000003229 * cos(4.09278077830 + 110.20632122000 * Tau)
+ 0.00000002871 * cos(2.77203153870 + 412.37109687000 * Tau)
+ 0.00000002796 * cos(3.00730249560 + 88.86568021700 * Tau)
+ 0.00000002638 * cos(0.00255721254 + 853.19638175000 * Tau)
+ 0.00000002574 * cos(0.39246854091 + 103.09277422000 * Tau)
+ 0.00000002225 * cos(3.77689198140 + 117.31986822000 * Tau);
L5 := 0.00000123615 * cos(2.25923345730 + 7.11354700080 * Tau)
+ 0.00000034190 * cos(2.16250652690 + 14.22709400200 * Tau)
+ 0.00000027546 * cos(1.19868150220 + 220.41264244000 * Tau)
+ 0.00000005818 * cos(1.21584270180 + 227.52618944000 * Tau)
+ 0.00000005318 * cos(0.23550400093 + 433.71173788000 * Tau)
+ 0.00000003677 * cos(6.22669694360 + 426.59819088000 * Tau)
+ 0.00000003057 * cos(2.97372046320 + 199.07200144000 * Tau)
+ 0.00000002861 * cos(4.28710932680 + 206.18554844000 * 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.04330678040 * cos(3.60284428400 + 213.29909544000 * Tau)
+ 0.00240348303 * cos(2.85238489390 + 426.59819088000 * Tau)
+ 0.00084745939 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00034116063 * cos(0.57297307844 + 206.18554844000 * Tau)
+ 0.00030863357 * cos(3.48441504470 + 220.41264244000 * Tau)
+ 0.00014734070 * cos(2.11846597870 + 639.89728631000 * Tau)
+ 0.00009916668 * cos(5.79003189410 + 419.48464388000 * Tau)
+ 0.00006993564 * cos(4.73604689180 + 7.11354700080 * Tau)
+ 0.00004807587 * cos(5.43305315600 + 316.39186966000 * Tau)
+ 0.00004788392 * cos(4.96512927420 + 110.20632122000 * Tau)
+ 0.00003432125 * cos(2.73255752120 + 433.71173788000 * Tau)
+ 0.00001506129 * cos(6.01304536140 + 103.09277422000 * Tau)
+ 0.00001060298 * cos(5.63099292410 + 529.69096509000 * Tau)
+ 0.00000969071 * cos(5.20434966100 + 632.78373931000 * Tau)
+ 0.00000942050 * cos(1.39646678090 + 853.19638175000 * Tau)
+ 0.00000707645 * cos(3.80302329550 + 323.50541666000 * Tau)
+ 0.00000552313 * cos(5.13149109040 + 202.25339517000 * Tau)
+ 0.00000399675 * cos(3.35891413960 + 227.52618944000 * Tau)
+ 0.00000319380 * cos(3.62571550980 + 209.36694217000 * Tau)
+ 0.00000316063 * cos(1.99716764200 + 647.01083331000 * Tau)
+ 0.00000314225 * cos(0.46510272410 + 217.23124870000 * Tau)
+ 0.00000284494 * cos(4.88648481620 + 224.34479570000 * Tau)
+ 0.00000236442 * cos(2.13887472280 + 11.04570026400 * Tau)
+ 0.00000215354 * cos(5.94982610100 + 846.08283475000 * Tau)
+ 0.00000208522 * cos(2.12003893770 + 415.55249061000 * Tau)
+ 0.00000207213 * cos(0.73021462851 + 199.07200144000 * Tau)
+ 0.00000178958 * cos(2.95361514670 + 63.73589830300 * Tau)
+ 0.00000140585 * cos(0.64417620299 + 490.33408918000 * Tau)
+ 0.00000139240 * cos(4.59535168020 + 14.22709400200 * Tau)
+ 0.00000139140 * cos(1.99821990940 + 735.87651353000 * Tau)
+ 0.00000134884 * cos(5.24500819600 + 742.99006053000 * Tau)
+ 0.00000121669 * cos(3.11537140880 + 522.57741809000 * Tau)
+ 0.00000115524 * cos(3.10891547170 + 216.48048918000 * Tau)
+ 0.00000114218 * cos(0.96261442133 + 210.11770170000 * Tau);
B1 := 0.00397554998 * cos(5.33289992560 + 213.29909544000 * Tau)
+ 0.00049478641 * cos(3.14159265360 + 0.00000000000 * Tau)
+ 0.00018571607 * cos(6.09919206380 + 426.59819088000 * Tau)
+ 0.00014800587 * cos(2.30586060520 + 206.18554844000 * Tau)
+ 0.00009643981 * cos(1.69674660120 + 220.41264244000 * Tau)
+ 0.00003757161 * cos(1.25429514020 + 419.48464388000 * Tau)
+ 0.00002716647 * cos(5.91166664790 + 639.89728631000 * Tau)
+ 0.00001455309 * cos(0.85161616532 + 433.71173788000 * Tau)
+ 0.00001290595 * cos(2.91770857090 + 7.11354700080 * Tau)
+ 0.00000852630 * cos(0.43572078997 + 316.39186966000 * Tau)
+ 0.00000297726 * cos(0.91909206723 + 632.78373931000 * Tau)
+ 0.00000292185 * cos(5.31574251270 + 853.19638175000 * Tau)
+ 0.00000284386 * cos(1.61881754770 + 227.52618944000 * Tau)
+ 0.00000275090 * cos(3.88864137340 + 103.09277422000 * Tau)
+ 0.00000172359 * cos(0.05215146556 + 647.01083331000 * Tau)
+ 0.00000166237 * cos(2.44351613170 + 199.07200144000 * Tau)
+ 0.00000158220 * cos(5.20850125770 + 110.20632122000 * Tau)
+ 0.00000127731 * cos(1.20711452530 + 529.69096509000 * Tau)
+ 0.00000109839 * cos(2.45695551630 + 217.23124870000 * Tau)
+ 0.00000081759 * cos(2.75839171350 + 210.11770170000 * Tau)
+ 0.00000081010 * cos(2.86038377190 + 14.22709400200 * Tau)
+ 0.00000068658 * cos(1.65537623150 + 202.25339517000 * Tau)
+ 0.00000065161 * cos(1.25527521310 + 216.48048918000 * Tau)
+ 0.00000061024 * cos(1.25273412090 + 209.36694217000 * Tau)
+ 0.00000059281 * cos(1.82410768230 + 323.50541666000 * Tau)
+ 0.00000046386 * cos(0.81534705304 + 440.82528488000 * Tau)
+ 0.00000036163 * cos(1.81851057690 + 224.34479570000 * Tau)
+ 0.00000034041 * cos(2.83971298000 + 117.31986822000 * Tau)
+ 0.00000033114 * cos(1.30557080010 + 412.37109687000 * Tau)
+ 0.00000032164 * cos(1.18676132340 + 846.08283475000 * Tau)
+ 0.00000027282 * cos(4.64744847590 + 1066.49547720000 * Tau)
+ 0.00000027128 * cos(4.44228739190 + 11.04570026400 * Tau);
B2 := 0.00020629977 * cos(0.50482422817 + 213.29909544000 * Tau)
+ 0.00003719555 * cos(3.99833475830 + 206.18554844000 * Tau)
+ 0.00001627158 * cos(6.18189939500 + 220.41264244000 * Tau)
+ 0.00001346067 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000705842 * cos(3.03914308840 + 419.48464388000 * Tau)
+ 0.00000365042 * cos(5.09928680710 + 426.59819088000 * Tau)
+ 0.00000329632 * cos(5.27899210040 + 433.71173788000 * Tau)
+ 0.00000219335 * cos(3.82841533790 + 639.89728631000 * Tau)
+ 0.00000139393 * cos(1.04272623500 + 7.11354700080 * Tau)
+ 0.00000103980 * cos(6.15730992970 + 227.52618944000 * Tau)
+ 0.00000092961 * cos(1.97994412850 + 316.39186966000 * Tau)
+ 0.00000071242 * cos(4.14754353430 + 199.07200144000 * Tau)
+ 0.00000051927 * cos(2.88364833900 + 632.78373931000 * Tau)
+ 0.00000048961 * cos(4.43390206740 + 647.01083331000 * Tau)
+ 0.00000041373 * cos(3.15927770080 + 853.19638175000 * Tau)
+ 0.00000028602 * cos(4.52978327560 + 210.11770170000 * Tau)
+ 0.00000023969 * cos(1.11595912150 + 14.22709400200 * Tau)
+ 0.00000020511 * cos(4.35095844200 + 217.23124870000 * Tau)
+ 0.00000019532 * cos(5.30779711220 + 440.82528488000 * Tau)
+ 0.00000018263 * cos(0.85391476786 + 110.20632122000 * Tau)
+ 0.00000016840 * cos(5.68112084130 + 216.48048918000 * Tau)
+ 0.00000015742 * cos(4.25767226300 + 103.09277422000 * Tau)
+ 0.00000013613 * cos(2.99904334070 + 412.37109687000 * Tau)
+ 0.00000011567 * cos(2.52679928410 + 529.69096509000 * Tau)
+ 0.00000007963 * cos(3.31512423920 + 202.25339517000 * Tau)
+ 0.00000006648 * cos(5.55714129950 + 209.36694217000 * Tau)
+ 0.00000006599 * cos(0.28766025146 + 323.50541666000 * Tau)
+ 0.00000006312 * cos(1.16121321340 + 117.31986822000 * Tau)
+ 0.00000006192 * cos(3.61231886520 + 860.30992875000 * Tau);
B3 := 0.00000666252 * cos(1.99006340180 + 213.29909544000 * Tau)
+ 0.00000632350 * cos(5.69778316810 + 206.18554844000 * Tau)
+ 0.00000398051 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000187838 * cos(4.33779804810 + 220.41264244000 * Tau)
+ 0.00000091884 * cos(4.84104208220 + 419.48464388000 * Tau)
+ 0.00000051548 * cos(3.42149490330 + 433.71173788000 * Tau)
+ 0.00000042369 * cos(2.38073239060 + 426.59819088000 * Tau)
+ 0.00000025661 * cos(4.40167213110 + 227.52618944000 * Tau)
+ 0.00000020551 * cos(5.85313509870 + 199.07200144000 * Tau)
+ 0.00000018081 * cos(1.99321433230 + 639.89728631000 * Tau)
+ 0.00000010874 * cos(5.37344546550 + 7.11354700080 * Tau)
+ 0.00000009590 * cos(2.54901825870 + 647.01083331000 * Tau)
+ 0.00000007085 * cos(3.45518372720 + 316.39186966000 * Tau)
+ 0.00000006002 * cos(4.80055225130 + 632.78373931000 * Tau)
+ 0.00000005778 * cos(0.01680378777 + 210.11770170000 * Tau)
+ 0.00000005542 * cos(3.51756747770 + 440.82528488000 * Tau)
+ 0.00000004881 * cos(5.63719730880 + 14.22709400200 * Tau)
+ 0.00000004501 * cos(1.22424419010 + 853.19638175000 * Tau)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -