📄 stjup.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: StJup.pas 4.03 *}
{*********************************************************}
{* SysTools: Astronomical Routines (for Jupiter) *}
{*********************************************************}
{$I StDefine.inc}
unit StJup;
interface
uses
StAstroP;
function ComputeJupiter(JD : Double) : TStEclipticalCord;
implementation
{--------------------------------------------------------------------------}
function GetLongitude(Tau, Tau2, Tau3, Tau4, Tau5 : Double) : Double;
var
L0, L1,
L2, L3,
L4, L5 : Double;
begin
L0 := 0.59954691495 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.09695898711 * cos(5.06191793110 + 529.69096509000 * Tau)
+ 0.00573610145 * cos(1.44406205980 + 7.11354700080 * Tau)
+ 0.00306389180 * cos(5.41734729980 + 1059.38193020000 * Tau)
+ 0.00097178280 * cos(4.14264708820 + 632.78373931000 * Tau)
+ 0.00072903096 * cos(3.64042909250 + 522.57741809000 * Tau)
+ 0.00064263986 * cos(3.41145185200 + 103.09277422000 * Tau)
+ 0.00039806051 * cos(2.29376744860 + 419.48464388000 * Tau)
+ 0.00038857780 * cos(1.27231724860 + 316.39186966000 * Tau)
+ 0.00027964622 * cos(1.78454589490 + 536.80451210000 * Tau)
+ 0.00013589738 * cos(5.77481031590 + 1589.07289530000 * Tau)
+ 0.00008768686 * cos(3.63000324420 + 949.17560897000 * Tau)
+ 0.00008246362 * cos(3.58227961650 + 206.18554844000 * Tau)
+ 0.00007368057 * cos(5.08101125610 + 735.87651353000 * Tau)
+ 0.00006263171 * cos(0.02497643742 + 213.29909544000 * Tau)
+ 0.00006114050 * cos(4.51319531670 + 1162.47470440000 * Tau)
+ 0.00005305457 * cos(4.18625053490 + 1052.26838320000 * Tau)
+ 0.00005305283 * cos(1.30671236850 + 14.22709400200 * Tau)
+ 0.00004905419 * cos(1.32084631680 + 110.20632122000 * Tau)
+ 0.00004647249 * cos(4.69958109500 + 3.93215326310 * Tau)
+ 0.00003045009 * cos(4.31675960320 + 426.59819088000 * Tau)
+ 0.00002610001 * cos(1.56667594850 + 846.08283475000 * Tau)
+ 0.00002028191 * cos(1.06376547380 + 3.18139373770 * Tau)
+ 0.00001920959 * cos(0.97168928755 + 639.89728631000 * Tau)
+ 0.00001764768 * cos(2.14148077770 + 1066.49547720000 * Tau)
+ 0.00001722983 * cos(3.88036008870 + 1265.56747860000 * Tau)
+ 0.00001633217 * cos(3.58201089760 + 515.46387109000 * Tau)
+ 0.00001431997 * cos(4.29683690270 + 625.67019231000 * Tau)
+ 0.00000973278 * cos(4.09764957060 + 95.97922721800 * Tau)
+ 0.00000884439 * cos(2.43701426120 + 412.37109687000 * Tau)
+ 0.00000732875 * cos(6.08534113240 + 838.96928775000 * Tau)
+ 0.00000731072 * cos(3.80591233960 + 1581.95934830000 * Tau)
+ 0.00000709190 * cos(1.29272573660 + 742.99006053000 * Tau)
+ 0.00000691928 * cos(6.13368222940 + 2118.76386040000 * Tau)
+ 0.00000614464 * cos(4.10853496760 + 1478.86657410000 * Tau)
+ 0.00000581902 * cos(4.53967717550 + 309.27832266000 * Tau)
+ 0.00000495224 * cos(3.75567461380 + 323.50541666000 * Tau)
+ 0.00000440854 * cos(2.95818460940 + 454.90936653000 * Tau)
+ 0.00000417266 * cos(1.03554430160 + 2.44768055480 * Tau)
+ 0.00000389864 * cos(4.89716105850 + 1692.16566950000 * Tau)
+ 0.00000375657 * cos(4.70299124830 + 1368.66025280000 * Tau)
+ 0.00000341006 * cos(5.71452525780 + 533.62311836000 * Tau)
+ 0.00000330458 * cos(4.74049819490 + 0.04818410980 * Tau)
+ 0.00000261540 * cos(1.87652461030 + 0.96320784650 * Tau)
+ 0.00000261009 * cos(0.82047246448 + 380.12776796000 * Tau)
+ 0.00000256568 * cos(3.72410724160 + 199.07200144000 * Tau)
+ 0.00000244170 * cos(5.22020878900 + 728.76296653000 * Tau)
+ 0.00000235141 * cos(1.22693908120 + 909.81873305000 * Tau)
+ 0.00000220382 * cos(1.65115016000 + 543.91805910000 * Tau)
+ 0.00000207327 * cos(1.85461666590 + 525.75881183000 * Tau)
+ 0.00000201996 * cos(1.80684574190 + 1375.77379980000 * Tau)
+ 0.00000197046 * cos(5.29252149020 + 1155.36115740000 * Tau)
+ 0.00000175191 * cos(3.72966554760 + 942.06206197000 * Tau)
+ 0.00000175184 * cos(3.22634903430 + 1898.35121790000 * Tau)
+ 0.00000174809 * cos(5.90973505280 + 956.28915597000 * Tau)
+ 0.00000157909 * cos(4.36483921770 + 1795.25844370000 * Tau)
+ 0.00000150502 * cos(3.90625022620 + 74.78159856700 * Tau)
+ 0.00000149368 * cos(4.37745104270 + 1685.05212250000 * Tau)
+ 0.00000141445 * cos(3.13568357860 + 491.55792946000 * Tau)
+ 0.00000137871 * cos(1.31797920780 + 1169.58825140000 * Tau)
+ 0.00000130531 * cos(4.16867945490 + 1045.15483620000 * Tau)
+ 0.00000117495 * cos(2.50022140890 + 1596.18644230000 * Tau)
+ 0.00000116757 * cos(3.38920921040 + 0.52126486180 * Tau)
+ 0.00000105895 * cos(4.55439798240 + 526.50957136000 * Tau);
L1 := 529.93480758000 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00489741194 * cos(4.22066689930 + 529.69096509000 * Tau)
+ 0.00228918538 * cos(6.02647464020 + 7.11354700080 * Tau)
+ 0.00027655380 * cos(4.57265956820 + 1059.38193020000 * Tau)
+ 0.00020720943 * cos(5.45938936290 + 522.57741809000 * Tau)
+ 0.00012105732 * cos(0.16985765041 + 536.80451210000 * Tau)
+ 0.00006068051 * cos(4.42419502010 + 103.09277422000 * Tau)
+ 0.00005433924 * cos(3.98478382570 + 419.48464388000 * Tau)
+ 0.00004237795 * cos(5.89009351270 + 14.22709400200 * Tau)
+ 0.00002211854 * cos(5.26771446620 + 206.18554844000 * Tau)
+ 0.00001745919 * cos(4.92669378490 + 1589.07289530000 * Tau)
+ 0.00001295769 * cos(5.55132765090 + 3.18139373770 * Tau)
+ 0.00001173129 * cos(5.85647304350 + 1052.26838320000 * Tau)
+ 0.00001163411 * cos(0.51450895328 + 3.93215326310 * Tau)
+ 0.00001098735 * cos(5.30704981590 + 515.46387109000 * Tau)
+ 0.00001007216 * cos(0.46478398551 + 735.87651353000 * Tau)
+ 0.00001003574 * cos(3.15040301820 + 426.59819088000 * Tau)
+ 0.00000847678 * cos(5.75805850450 + 110.20632122000 * Tau)
+ 0.00000827329 * cos(4.80312015730 + 213.29909544000 * Tau)
+ 0.00000816397 * cos(0.58643054886 + 1066.49547720000 * Tau)
+ 0.00000725447 * cos(5.51827471470 + 639.89728631000 * Tau)
+ 0.00000567845 * cos(5.98867049450 + 625.67019231000 * Tau)
+ 0.00000474181 * cos(4.13245269170 + 412.37109687000 * Tau)
+ 0.00000412930 * cos(5.73652891260 + 95.97922721800 * Tau)
+ 0.00000345249 * cos(4.24159565410 + 632.78373931000 * Tau)
+ 0.00000335817 * cos(3.73248749050 + 1162.47470440000 * Tau)
+ 0.00000234340 * cos(4.03469970330 + 949.17560897000 * Tau)
+ 0.00000234066 * cos(6.24302226650 + 309.27832266000 * Tau)
+ 0.00000198525 * cos(1.50458442830 + 838.96928775000 * Tau)
+ 0.00000194784 * cos(2.21879010910 + 323.50541666000 * Tau)
+ 0.00000186899 * cos(6.08620565910 + 742.99006053000 * Tau)
+ 0.00000183938 * cos(6.27963588820 + 543.91805910000 * Tau)
+ 0.00000171380 * cos(5.41655983840 + 199.07200144000 * Tau)
+ 0.00000130771 * cos(0.62643377351 + 728.76296653000 * Tau)
+ 0.00000115393 * cos(0.68019050174 + 846.08283475000 * Tau)
+ 0.00000115047 * cos(5.28641699140 + 2118.76386040000 * Tau)
+ 0.00000107575 * cos(4.49282760120 + 956.28915597000 * Tau)
+ 0.00000079686 * cos(5.82412400270 + 1045.15483620000 * Tau)
+ 0.00000071643 * cos(5.34162650320 + 942.06206197000 * Tau)
+ 0.00000069618 * cos(5.97263450280 + 532.87235883000 * Tau)
+ 0.00000066824 * cos(5.73365126530 + 21.34064100200 * Tau)
+ 0.00000065635 * cos(0.12924191430 + 526.50957136000 * Tau)
+ 0.00000064850 * cos(6.08803490290 + 1581.95934830000 * Tau)
+ 0.00000058509 * cos(0.58626971028 + 1155.36115740000 * Tau)
+ 0.00000057939 * cos(0.99453087342 + 1596.18644230000 * Tau)
+ 0.00000057368 * cos(5.96851304800 + 1169.58825140000 * Tau)
+ 0.00000056600 * cos(1.41198438840 + 533.62311836000 * Tau)
+ 0.00000054935 * cos(5.42806383720 + 10.29494073800 * Tau)
+ 0.00000052309 * cos(5.72661448390 + 117.31986822000 * Tau)
+ 0.00000052016 * cos(0.22981299129 + 1368.66025280000 * Tau)
+ 0.00000050418 * cos(6.08075147810 + 525.75881183000 * Tau)
+ 0.00000047418 * cos(3.62611843240 + 1478.86657410000 * Tau)
+ 0.00000046678 * cos(0.51144073175 + 1265.56747860000 * Tau)
+ 0.00000039888 * cos(4.16158013600 + 1692.16566950000 * Tau)
+ 0.00000033558 * cos(0.09913904872 + 302.16477566000 * Tau)
+ 0.00000032827 * cos(5.03596689460 + 220.41264244000 * Tau)
+ 0.00000032449 * cos(5.37492530700 + 508.35032409000 * Tau)
+ 0.00000029483 * cos(5.42208897100 + 1272.68102560000 * Tau)
+ 0.00000029379 * cos(3.35927241530 + 4.66586644600 * Tau)
+ 0.00000029307 * cos(0.75907909735 + 88.86568021700 * Tau)
+ 0.00000025195 * cos(1.60723063390 + 831.85574075000 * Tau);
L2 := 0.00047233598 * cos(4.32148323550 + 7.11354700080 * Tau)
+ 0.00038965550 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00030629053 * cos(2.93021440220 + 529.69096509000 * Tau)
+ 0.00003189317 * cos(1.05504615600 + 522.57741809000 * Tau)
+ 0.00002729292 * cos(4.84545481350 + 536.80451210000 * Tau)
+ 0.00002723358 * cos(3.41411526640 + 1059.38193020000 * Tau)
+ 0.00001721069 * cos(4.18734385160 + 14.22709400200 * Tau)
+ 0.00000383258 * cos(5.76790714390 + 419.48464388000 * Tau)
+ 0.00000377524 * cos(0.76048964872 + 515.46387109000 * Tau)
+ 0.00000367498 * cos(6.05509120410 + 103.09277422000 * Tau)
+ 0.00000337386 * cos(3.78644384240 + 3.18139373770 * Tau)
+ 0.00000308200 * cos(0.69356654052 + 206.18554844000 * Tau)
+ 0.00000218408 * cos(3.81389191350 + 1589.07289530000 * Tau)
+ 0.00000198883 * cos(5.33996443440 + 1066.49547720000 * Tau)
+ 0.00000197445 * cos(2.48356402050 + 3.93215326310 * Tau)
+ 0.00000155862 * cos(1.40642426470 + 1052.26838320000 * Tau)
+ 0.00000146230 * cos(3.81373196840 + 639.89728631000 * Tau)
+ 0.00000141932 * cos(1.63435169020 + 426.59819088000 * Tau)
+ 0.00000129570 * cos(5.83738872530 + 412.37109687000 * Tau)
+ 0.00000117327 * cos(1.41435462590 + 625.67019231000 * Tau)
+ 0.00000096733 * cos(4.03383427890 + 110.20632122000 * Tau)
+ 0.00000090823 * cos(1.10630629040 + 95.97922721800 * Tau)
+ 0.00000087292 * cos(2.52235174820 + 632.78373931000 * Tau)
+ 0.00000078769 * cos(4.63726131330 + 543.91805910000 * Tau)
+ 0.00000072392 * cos(2.21716670030 + 735.87651353000 * Tau)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -