📄 stsaturn.pas
字号:
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower SysTools
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 1996-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* ***** END LICENSE BLOCK ***** *)
{*********************************************************}
{* SysTools: StSaturn.pas 4.03 *}
{*********************************************************}
{* SysTools: Astronomical Routines (for Saturn) *}
{*********************************************************}
{$I StDefine.inc}
unit StSaturn;
interface
uses
StAstroP;
function ComputeSaturn(JD : Double) : TStEclipticalCord;
implementation
function GetLongitude(Tau, Tau2, Tau3, Tau4, Tau5 : Double) : Double;
var
L0, L1,
L2, L3,
L4, L5 : Double;
begin
L0 := 0.87401354029 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.11107659780 * cos(3.96205090190 + 213.29909544000 * Tau)
+ 0.01414150958 * cos(4.58581515870 + 7.11354700080 * Tau)
+ 0.00398379386 * cos(0.52112025957 + 206.18554844000 * Tau)
+ 0.00350769223 * cos(3.30329903020 + 426.59819088000 * Tau)
+ 0.00206816296 * cos(0.24658366938 + 103.09277422000 * Tau)
+ 0.00079271288 * cos(3.84007078530 + 220.41264244000 * Tau)
+ 0.00023990338 * cos(4.66976934860 + 110.20632122000 * Tau)
+ 0.00016573583 * cos(0.43719123541 + 419.48464388000 * Tau)
+ 0.00015820300 * cos(0.93808953760 + 632.78373931000 * Tau)
+ 0.00015053509 * cos(2.71670027880 + 639.89728631000 * Tau)
+ 0.00014906995 * cos(5.76903283840 + 316.39186966000 * Tau)
+ 0.00014609562 * cos(1.56518573690 + 3.93215326310 * Tau)
+ 0.00013160308 * cos(4.44891180180 + 14.22709400200 * Tau)
+ 0.00013005305 * cos(5.98119067060 + 11.04570026400 * Tau)
+ 0.00010725066 * cos(3.12939596470 + 202.25339517000 * Tau)
+ 0.00006126308 * cos(1.76328499660 + 277.03499374000 * Tau)
+ 0.00005863207 * cos(0.23657028777 + 529.69096509000 * Tau)
+ 0.00005227771 * cos(4.20783162380 + 3.18139373770 * Tau)
+ 0.00005019658 * cos(3.17787919530 + 433.71173788000 * Tau)
+ 0.00004592541 * cos(0.61976424374 + 199.07200144000 * Tau)
+ 0.00004005862 * cos(2.24479893940 + 63.73589830300 * Tau)
+ 0.00003873696 * cos(3.22282692570 + 138.51749687000 * Tau)
+ 0.00003269490 * cos(0.77491895787 + 949.17560897000 * Tau)
+ 0.00002953815 * cos(0.98280385206 + 95.97922721800 * Tau)
+ 0.00002461172 * cos(2.03163631210 + 735.87651353000 * Tau)
+ 0.00001758143 * cos(3.26580514770 + 522.57741809000 * Tau)
+ 0.00001640183 * cos(5.50504966220 + 846.08283475000 * Tau)
+ 0.00001580641 * cos(4.37266314120 + 309.27832266000 * Tau)
+ 0.00001391336 * cos(4.02331978120 + 323.50541666000 * Tau)
+ 0.00001123515 * cos(2.83726793570 + 415.55249061000 * Tau)
+ 0.00001087237 * cos(4.18343232480 + 2.44768055480 * Tau)
+ 0.00001017258 * cos(3.71698151810 + 227.52618944000 * Tau)
+ 0.00000956752 * cos(0.50740889886 + 1265.56747860000 * Tau)
+ 0.00000852677 * cos(3.42141350700 + 175.16605980000 * Tau)
+ 0.00000848643 * cos(3.19149825840 + 209.36694217000 * Tau)
+ 0.00000789205 * cos(5.00745123150 + 0.96320784650 * Tau)
+ 0.00000748811 * cos(2.14398149300 + 853.19638175000 * Tau)
+ 0.00000743584 * cos(5.25276954620 + 224.34479570000 * Tau)
+ 0.00000686965 * cos(1.74714407830 + 1052.26838320000 * Tau)
+ 0.00000654470 * cos(1.59889331510 + 0.04818410980 * Tau)
+ 0.00000633980 * cos(2.29889903020 + 412.37109687000 * Tau)
+ 0.00000624904 * cos(0.97046831256 + 210.11770170000 * Tau)
+ 0.00000579857 * cos(3.09259007050 + 74.78159856700 * Tau)
+ 0.00000546358 * cos(2.12678554210 + 350.33211960000 * Tau)
+ 0.00000542643 * cos(1.51824320510 + 9.56122755560 * Tau)
+ 0.00000529861 * cos(4.44938897120 + 117.31986822000 * Tau)
+ 0.00000478054 * cos(2.96488054340 + 137.03302416000 * Tau)
+ 0.00000474279 * cos(5.47527185990 + 742.99006053000 * Tau)
+ 0.00000451827 * cos(1.04436664240 + 490.33408918000 * Tau)
+ 0.00000448542 * cos(1.28990416160 + 127.47179661000 * Tau)
+ 0.00000372308 * cos(2.27819108630 + 217.23124870000 * Tau)
+ 0.00000354944 * cos(3.01286483030 + 838.96928775000 * Tau)
+ 0.00000347413 * cos(1.53928227760 + 340.77089205000 * Tau)
+ 0.00000343475 * cos(0.24604039134 + 0.52126486180 * Tau)
+ 0.00000330196 * cos(0.24715617844 + 1581.95934830000 * Tau)
+ 0.00000322185 * cos(0.96137456104 + 203.73786788000 * Tau)
+ 0.00000321543 * cos(2.57182354540 + 647.01083331000 * Tau)
+ 0.00000309001 * cos(3.49486734910 + 216.48048918000 * Tau)
+ 0.00000286688 * cos(2.37043745860 + 351.81659231000 * Tau)
+ 0.00000277775 * cos(0.40020408926 + 211.81462273000 * Tau)
+ 0.00000249116 * cos(1.47010534420 + 1368.66025280000 * Tau)
+ 0.00000226609 * cos(4.91003163140 + 12.53017297200 * Tau)
+ 0.00000220225 * cos(4.20422424870 + 200.76892247000 * Tau)
+ 0.00000208655 * cos(1.34516255300 + 625.67019231000 * Tau)
+ 0.00000207663 * cos(0.48349820488 + 1162.47470440000 * Tau)
+ 0.00000207659 * cos(1.28302218900 + 39.35687591500 * Tau)
+ 0.00000204500 * cos(6.01082206600 + 265.98929348000 * Tau)
+ 0.00000184690 * cos(3.50344404960 + 149.56319713000 * Tau)
+ 0.00000183511 * cos(0.97254952728 + 4.19278569400 * Tau)
+ 0.00000182454 * cos(5.49122292430 + 2.92076130680 * Tau)
+ 0.00000173914 * cos(1.86305806810 + 0.75075952540 * Tau)
+ 0.00000164541 * cos(0.44005517520 + 5.41662597140 * Tau)
+ 0.00000149299 * cos(5.73594349790 + 52.69019803900 * Tau)
+ 0.00000147526 * cos(1.53529320510 + 5.62907429250 * Tau)
+ 0.00000146068 * cos(6.23102544070 + 195.13984817000 * Tau)
+ 0.00000139666 * cos(4.29450260070 + 21.34064100200 * Tau)
+ 0.00000131283 * cos(4.06828961900 + 10.29494073800 * Tau)
+ 0.00000124969 * cos(6.27737805830 + 1898.35121790000 * Tau)
+ 0.00000122373 * cos(1.97588777200 + 4.66586644600 * Tau)
+ 0.00000118156 * cos(5.34072933900 + 554.06998748000 * Tau)
+ 0.00000117283 * cos(2.67920400580 + 1155.36115740000 * Tau)
+ 0.00000113747 * cos(5.59427544710 + 1059.38193020000 * Tau)
+ 0.00000112437 * cos(1.10502663530 + 191.20769491000 * Tau)
+ 0.00000110399 * cos(0.16604024090 + 1.48447270830 * Tau)
+ 0.00000109275 * cos(3.43812715690 + 536.80451210000 * Tau)
+ 0.00000106570 * cos(4.01156608510 + 956.28915597000 * Tau)
+ 0.00000103956 * cos(2.19210363070 + 88.86568021700 * Tau)
+ 0.00000102702 * cos(1.19748124060 + 1685.05212250000 * Tau)
+ 0.00000100631 * cos(4.96513666540 + 269.92144674000 * Tau);
L1 := 213.54295596000 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.01296855005 * cos(1.82820544700 + 213.29909544000 * Tau)
+ 0.00564347566 * cos(2.88500136430 + 7.11354700080 * Tau)
+ 0.00107678770 * cos(2.27769911870 + 206.18554844000 * Tau)
+ 0.00098323030 * cos(1.08070061330 + 426.59819088000 * Tau)
+ 0.00040254586 * cos(2.04128257090 + 220.41264244000 * Tau)
+ 0.00019941734 * cos(1.27954662740 + 103.09277422000 * Tau)
+ 0.00010511706 * cos(2.74880392800 + 14.22709400200 * Tau)
+ 0.00006939233 * cos(0.40493079985 + 639.89728631000 * Tau)
+ 0.00004803325 * cos(2.44194097670 + 419.48464388000 * Tau)
+ 0.00004056325 * cos(2.92166618780 + 110.20632122000 * Tau)
+ 0.00003768630 * cos(3.64965631460 + 3.93215326310 * Tau)
+ 0.00003384684 * cos(2.41694251650 + 3.18139373770 * Tau)
+ 0.00003302200 * cos(1.26256486710 + 433.71173788000 * Tau)
+ 0.00003071382 * cos(2.32739317750 + 199.07200144000 * Tau)
+ 0.00001953036 * cos(3.56394683300 + 11.04570026400 * Tau)
+ 0.00001249348 * cos(2.62803737520 + 95.97922721800 * Tau)
+ 0.00000921683 * cos(1.96089834250 + 227.52618944000 * Tau)
+ 0.00000705587 * cos(4.41689249330 + 529.69096509000 * Tau)
+ 0.00000649654 * cos(6.17418093660 + 202.25339517000 * Tau)
+ 0.00000627603 * cos(6.11088227170 + 309.27832266000 * Tau)
+ 0.00000486843 * cos(6.03998200310 + 853.19638175000 * Tau)
+ 0.00000478501 * cos(4.98776987980 + 522.57741809000 * Tau)
+ 0.00000468377 * cos(4.61707843910 + 63.73589830300 * Tau)
+ 0.00000417010 * cos(2.11708169280 + 323.50541666000 * Tau)
+ 0.00000407630 * cos(1.29949556680 + 209.36694217000 * Tau)
+ 0.00000352489 * cos(2.31707079460 + 632.78373931000 * Tau)
+ 0.00000343826 * cos(3.95854178570 + 412.37109687000 * Tau)
+ 0.00000339724 * cos(3.63396398750 + 316.39186966000 * Tau)
+ 0.00000335936 * cos(3.77173072710 + 735.87651353000 * Tau)
+ 0.00000331933 * cos(2.86077699880 + 210.11770170000 * Tau)
+ 0.00000289429 * cos(2.73263080240 + 117.31986822000 * Tau)
+ 0.00000280911 * cos(5.74398845420 + 2.44768055480 * Tau)
+ 0.00000265801 * cos(0.54344631312 + 647.01083331000 * Tau)
+ 0.00000230493 * cos(1.64428879620 + 216.48048918000 * Tau)
+ 0.00000191667 * cos(2.96512946580 + 224.34479570000 * Tau)
+ 0.00000172891 * cos(4.07695221040 + 846.08283475000 * Tau)
+ 0.00000167131 * cos(2.59745202660 + 21.34064100200 * Tau)
+ 0.00000136328 * cos(2.28580246630 + 10.29494073800 * Tau)
+ 0.00000131364 * cos(3.44108355650 + 742.99006053000 * Tau)
+ 0.00000127838 * cos(4.09533471250 + 217.23124870000 * Tau)
+ 0.00000108862 * cos(6.16141072260 + 415.55249061000 * Tau)
+ 0.00000097584 * cos(4.72845436680 + 838.96928775000 * Tau)
+ 0.00000093909 * cos(3.48397279900 + 1052.26838320000 * Tau)
+ 0.00000092482 * cos(3.94755499930 + 88.86568021700 * Tau)
+ 0.00000086600 * cos(1.21951325060 + 440.82528488000 * Tau)
+ 0.00000083463 * cos(3.11269504720 + 625.67019231000 * Tau)
+ 0.00000077588 * cos(6.24408938830 + 302.16477566000 * Tau)
+ 0.00000067106 * cos(0.28961738595 + 4.66586644600 * Tau)
+ 0.00000065843 * cos(5.64757042730 + 9.56122755560 * Tau)
+ 0.00000061900 * cos(4.29344363380 + 127.47179661000 * Tau)
+ 0.00000061557 * cos(1.82789612600 + 195.13984817000 * Tau)
+ 0.00000057780 * cos(2.47630552040 + 191.95845444000 * Tau)
+ 0.00000056919 * cos(5.01889578110 + 137.03302416000 * Tau)
+ 0.00000054585 * cos(0.28356341456 + 74.78159856700 * Tau)
+ 0.00000054160 * cos(5.12628572380 + 490.33408918000 * Tau)
+ 0.00000051425 * cos(1.45766406060 + 536.80451210000 * Tau)
+ 0.00000046799 * cos(1.17721211050 + 149.56319713000 * Tau)
+ 0.00000046649 * cos(5.14818326900 + 515.46387109000 * Tau)
+ 0.00000045891 * cos(2.23198878760 + 956.28915597000 * Tau)
+ 0.00000044444 * cos(2.70873627670 + 5.41662597140 * Tau)
+ 0.00000040400 * cos(0.41281520440 + 269.92144674000 * Tau)
+ 0.00000040380 * cos(3.88870105680 + 728.76296653000 * Tau)
+ 0.00000037969 * cos(0.64665967180 + 422.66603761000 * Tau)
+ 0.00000037768 * cos(2.53379013860 + 12.53017297200 * Tau)
+ 0.00000037191 * cos(3.78239026410 + 2.92076130680 * Tau)
+ 0.00000035116 * cos(6.08421794090 + 5.62907429250 * Tau)
+ 0.00000033778 * cos(3.21070688050 + 1368.66025280000 * Tau)
+ 0.00000033217 * cos(4.64063092110 + 277.03499374000 * Tau)
+ 0.00000033050 * cos(5.43038091190 + 1066.49547720000 * Tau)
+ 0.00000032857 * cos(0.30063884563 + 351.81659231000 * Tau)
+ 0.00000031876 * cos(4.38622923770 + 1155.36115740000 * Tau)
+ 0.00000031329 * cos(2.43455855530 + 52.69019803900 * Tau)
+ 0.00000030276 * cos(2.84067004930 + 203.00415470000 * Tau)
+ 0.00000030089 * cos(6.18684614310 + 284.14854074000 * Tau)
+ 0.00000029667 * cos(3.39052569130 + 1059.38193020000 * Tau)
+ 0.00000028913 * cos(2.02614760510 + 330.61896366000 * Tau)
+ 0.00000028264 * cos(2.74178954000 + 265.98929348000 * Tau)
+ 0.00000026493 * cos(4.51214170120 + 340.77089205000 * Tau);
L2 := 0.00116441181 * cos(1.17987850630 + 7.11354700080 * Tau)
+ 0.00091920844 * cos(0.07425261094 + 213.29909544000 * Tau)
+ 0.00090592251 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00015276909 * cos(4.06492007500 + 206.18554844000 * Tau)
+ 0.00010631396 * cos(0.25778277414 + 220.41264244000 * Tau)
+ 0.00010604979 * cos(5.40963595890 + 426.59819088000 * Tau)
+ 0.00004265368 * cos(1.04595556630 + 14.22709400200 * Tau)
+ 0.00001215527 * cos(2.91860042120 + 103.09277422000 * Tau)
+ 0.00001164684 * cos(4.60942128970 + 639.89728631000 * Tau)
+ 0.00001081967 * cos(5.69130351670 + 433.71173788000 * Tau)
+ 0.00001044754 * cos(4.04206453610 + 199.07200144000 * Tau)
+ 0.00001020079 * cos(0.63369182642 + 3.18139373770 * Tau)
+ 0.00000633582 * cos(4.38825410040 + 419.48464388000 * Tau)
+ 0.00000549329 * cos(5.57303134240 + 3.93215326310 * Tau)
+ 0.00000456914 * cos(1.26840971350 + 110.20632122000 * Tau)
+ 0.00000425100 * cos(0.20935499279 + 227.52618944000 * Tau)
+ 0.00000273739 * cos(4.28841011780 + 95.97922721800 * Tau)
+ 0.00000161571 * cos(1.38139149420 + 11.04570026400 * Tau)
+ 0.00000129494 * cos(1.56586884170 + 309.27832266000 * Tau)
+ 0.00000117008 * cos(3.88120915960 + 853.19638175000 * Tau)
+ 0.00000105415 * cos(4.90003203600 + 647.01083331000 * Tau)
+ 0.00000100967 * cos(0.89270493100 + 21.34064100200 * Tau)
+ 0.00000095659 * cos(2.91093561540 + 316.39186966000 * Tau)
+ 0.00000095227 * cos(5.62561150600 + 412.37109687000 * Tau)
+ 0.00000084860 * cos(5.73472777960 + 209.36694217000 * Tau)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -