📄 sturanus.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: StUranus.pas 4.03 *}
{*********************************************************}
{* SysTools: Astronomical Routines (for Uranus) *}
{*********************************************************}
{$I StDefine.inc}
unit StUranus;
interface
uses
StAstroP;
function ComputeUranus(JD : Double) : TStEclipticalCord;
implementation
function GetLongitude(Tau, Tau2, Tau3, Tau4, Tau5 : Double) : Double;
var
L0, L1,
L2, L3,
L4, L5 : Double;
begin
L0 := 5.48129294300 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.09260408252 * cos(0.89106421530 + 74.78159856700 * Tau)
+ 0.01504247826 * cos(3.62719262190 + 1.48447270830 * Tau)
+ 0.00365981718 * cos(1.89962189070 + 73.29712585900 * Tau)
+ 0.00272328132 * cos(3.35823710520 + 149.56319713000 * Tau)
+ 0.00070328499 * cos(5.39254431990 + 63.73589830300 * Tau)
+ 0.00068892609 * cos(6.09292489050 + 76.26607127600 * Tau)
+ 0.00061998592 * cos(2.26952040470 + 2.96894541660 * Tau)
+ 0.00061950714 * cos(2.85098907570 + 11.04570026400 * Tau)
+ 0.00026468869 * cos(3.14152087890 + 71.81265315100 * Tau)
+ 0.00025710505 * cos(6.11379842940 + 454.90936653000 * Tau)
+ 0.00021078897 * cos(4.36059465140 + 148.07872443000 * Tau)
+ 0.00017818665 * cos(1.74436982540 + 36.64856292900 * Tau)
+ 0.00014613471 * cos(4.73732047980 + 3.93215326310 * Tau)
+ 0.00011162535 * cos(5.82681993690 + 224.34479570000 * Tau)
+ 0.00010997934 * cos(0.48865493179 + 138.51749687000 * Tau)
+ 0.00009527487 * cos(2.95516893090 + 35.16409022100 * Tau)
+ 0.00007545543 * cos(5.23626440670 + 109.94568879000 * Tau)
+ 0.00004220170 * cos(3.23328535510 + 70.84944530400 * Tau)
+ 0.00004051850 * cos(2.27754158720 + 151.04766984000 * Tau)
+ 0.00003490352 * cos(5.48305567290 + 146.59425172000 * Tau)
+ 0.00003354607 * cos(1.06549008890 + 4.45341812490 * Tau)
+ 0.00003144093 * cos(4.75199307600 + 77.75054398400 * Tau)
+ 0.00002926671 * cos(4.62903695490 + 9.56122755560 * Tau)
+ 0.00002922410 * cos(5.35236743380 + 85.82729883100 * Tau)
+ 0.00002272790 * cos(4.36600802760 + 70.32818044200 * Tau)
+ 0.00002148599 * cos(0.60745800902 + 38.13303563800 * Tau)
+ 0.00002051209 * cos(1.51773563460 + 0.11187458460 * Tau)
+ 0.00001991726 * cos(4.92437290830 + 277.03499374000 * Tau)
+ 0.00001666910 * cos(3.62744580850 + 380.12776796000 * Tau)
+ 0.00001533223 * cos(2.58593414270 + 52.69019803900 * Tau)
+ 0.00001376208 * cos(2.04281409050 + 65.22037101200 * Tau)
+ 0.00001372100 * cos(4.19641615560 + 111.43016150000 * Tau)
+ 0.00001284183 * cos(3.11346336880 + 202.25339517000 * Tau)
+ 0.00001281641 * cos(0.54269869505 + 222.86032299000 * Tau)
+ 0.00001244342 * cos(0.91612680579 + 2.44768055480 * Tau)
+ 0.00001220998 * cos(0.19901396193 + 108.46121608000 * Tau)
+ 0.00001150993 * cos(4.17898207050 + 33.67961751300 * Tau)
+ 0.00001150416 * cos(0.93344454002 + 3.18139373770 * Tau)
+ 0.00001090461 * cos(1.77501638910 + 12.53017297200 * Tau)
+ 0.00001072008 * cos(0.23564502877 + 62.25142559500 * Tau)
+ 0.00000946195 * cos(1.19249463070 + 127.47179661000 * Tau)
+ 0.00000707875 * cos(5.18285226580 + 213.29909544000 * Tau)
+ 0.00000653401 * cos(0.96586909116 + 78.71375183000 * Tau)
+ 0.00000627562 * cos(0.18210181975 + 984.60033162000 * Tau)
+ 0.00000606827 * cos(5.43209728950 + 529.69096509000 * Tau)
+ 0.00000559370 * cos(3.35776737700 + 0.52126486180 * Tau)
+ 0.00000524495 * cos(2.01276707000 + 299.12639427000 * Tau)
+ 0.00000483219 * cos(2.10553990150 + 0.96320784650 * Tau)
+ 0.00000471288 * cos(1.40664336450 + 184.72728736000 * Tau)
+ 0.00000467211 * cos(0.41484068933 + 145.10977901000 * Tau)
+ 0.00000433532 * cos(5.52142978260 + 183.24281465000 * Tau)
+ 0.00000404891 * cos(5.98689011390 + 8.07675484730 * Tau)
+ 0.00000398996 * cos(0.33810765436 + 415.55249061000 * Tau)
+ 0.00000395614 * cos(5.87039580950 + 351.81659231000 * Tau)
+ 0.00000378609 * cos(2.34975805010 + 56.62235130300 * Tau)
+ 0.00000309885 * cos(5.83301304670 + 145.63104387000 * Tau)
+ 0.00000300379 * cos(5.64353974150 + 22.09140052800 * Tau)
+ 0.00000294172 * cos(5.83916826230 + 39.61750834600 * Tau)
+ 0.00000251792 * cos(1.63696775580 + 221.37585029000 * Tau)
+ 0.00000249229 * cos(4.74617120580 + 225.82926841000 * Tau)
+ 0.00000239334 * cos(2.35045874710 + 137.03302416000 * Tau)
+ 0.00000224097 * cos(0.51574863468 + 84.34282612300 * Tau)
+ 0.00000222588 * cos(2.84309380330 + 0.26063243090 * Tau)
+ 0.00000219621 * cos(1.92212987980 + 67.66805156700 * Tau)
+ 0.00000216549 * cos(6.14211862700 + 5.93789083320 * Tau)
+ 0.00000216480 * cos(4.77847481360 + 340.77089205000 * Tau)
+ 0.00000207828 * cos(5.58020570040 + 68.84370773400 * Tau)
+ 0.00000201963 * cos(1.29693040860 + 0.04818410980 * Tau)
+ 0.00000199146 * cos(0.95634155010 + 152.53214255000 * Tau)
+ 0.00000193652 * cos(1.88800122610 + 456.39383924000 * Tau)
+ 0.00000192998 * cos(0.91616058506 + 453.42489382000 * Tau)
+ 0.00000187474 * cos(1.31924326250 + 0.16005869440 * Tau)
+ 0.00000181934 * cos(3.53624029240 + 79.23501669200 * Tau)
+ 0.00000173145 * cos(1.53860728050 + 160.60889740000 * Tau)
+ 0.00000171968 * cos(5.67952685530 + 219.89137758000 * Tau)
+ 0.00000170300 * cos(3.67717520690 + 5.41662597140 * Tau)
+ 0.00000168648 * cos(5.87874000880 + 18.15924726500 * Tau)
+ 0.00000164588 * cos(1.42379714840 + 106.97674337000 * Tau)
+ 0.00000162792 * cos(3.05029377670 + 112.91463421000 * Tau)
+ 0.00000158028 * cos(0.73811997211 + 54.17467074800 * Tau)
+ 0.00000146653 * cos(1.26300172260 + 59.80374504000 * Tau)
+ 0.00000143058 * cos(1.29995487560 + 35.42472265200 * Tau)
+ 0.00000139453 * cos(5.38597723400 + 32.19514480500 * Tau)
+ 0.00000138585 * cos(4.25994786670 + 909.81873305000 * Tau)
+ 0.00000123840 * cos(1.37359990340 + 7.11354700080 * Tau)
+ 0.00000110163 * cos(2.02685778980 + 554.06998748000 * Tau)
+ 0.00000109376 * cos(5.70581833290 + 77.96299230500 * Tau)
+ 0.00000104414 * cos(5.02820888810 + 0.75075952540 * Tau)
+ 0.00000103562 * cos(1.45770270250 + 24.37902238800 * Tau)
+ 0.00000103277 * cos(0.68095301267 + 14.97785352700 * Tau);
L1 := 75.02543121600 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00154458244 * cos(5.24201658070 + 74.78159856700 * Tau)
+ 0.00024456413 * cos(1.71255705310 + 1.48447270830 * Tau)
+ 0.00009257828 * cos(0.42844639064 + 11.04570026400 * Tau)
+ 0.00008265977 * cos(1.50220035110 + 63.73589830300 * Tau)
+ 0.00007841715 * cos(1.31983607250 + 149.56319713000 * Tau)
+ 0.00003899105 * cos(0.46483574024 + 3.93215326310 * Tau)
+ 0.00002283777 * cos(4.17367534000 + 76.26607127600 * Tau)
+ 0.00001926600 * cos(0.53013080152 + 2.96894541660 * Tau)
+ 0.00001232727 * cos(1.58634458240 + 70.84944530400 * Tau)
+ 0.00000791206 * cos(5.43641224140 + 3.18139373770 * Tau)
+ 0.00000766954 * cos(1.99555409580 + 73.29712585900 * Tau)
+ 0.00000481671 * cos(2.98401996910 + 85.82729883100 * Tau)
+ 0.00000449798 * cos(4.13826237510 + 138.51749687000 * Tau)
+ 0.00000445600 * cos(3.72300400330 + 224.34479570000 * Tau)
+ 0.00000426554 * cos(4.73126059390 + 71.81265315100 * Tau)
+ 0.00000353752 * cos(2.58324496890 + 148.07872443000 * Tau)
+ 0.00000347735 * cos(2.45372261290 + 9.56122755560 * Tau)
+ 0.00000317084 * cos(5.57855232070 + 52.69019803900 * Tau)
+ 0.00000205585 * cos(2.36263144250 + 2.44768055480 * Tau)
+ 0.00000189068 * cos(4.20242881380 + 56.62235130300 * Tau)
+ 0.00000183762 * cos(0.28371004654 + 151.04766984000 * Tau)
+ 0.00000179920 * cos(5.68367730920 + 12.53017297200 * Tau)
+ 0.00000171084 * cos(3.00060075290 + 78.71375183000 * Tau)
+ 0.00000158029 * cos(2.90931969500 + 0.96320784650 * Tau)
+ 0.00000154670 * cos(5.59083925610 + 4.45341812490 * Tau)
+ 0.00000153515 * cos(4.65186885940 + 35.16409022100 * Tau)
+ 0.00000151984 * cos(2.94217326890 + 77.75054398400 * Tau)
+ 0.00000143464 * cos(2.59049246730 + 62.25142559500 * Tau)
+ 0.00000121452 * cos(4.14839204920 + 127.47179661000 * Tau)
+ 0.00000115546 * cos(3.73224603790 + 65.22037101200 * Tau)
+ 0.00000102022 * cos(4.18754517990 + 145.63104387000 * Tau)
+ 0.00000101718 * cos(6.03385875010 + 0.11187458460 * Tau)
+ 0.00000088202 * cos(3.99035787990 + 18.15924726500 * Tau)
+ 0.00000087549 * cos(6.15520787580 + 202.25339517000 * Tau)
+ 0.00000080530 * cos(2.64124743930 + 22.09140052800 * Tau)
+ 0.00000072047 * cos(6.04545933580 + 70.32818044200 * Tau)
+ 0.00000068570 * cos(4.05071895260 + 77.96299230500 * Tau)
+ 0.00000059173 * cos(3.70413919080 + 67.66805156700 * Tau)
+ 0.00000047267 * cos(3.54312460520 + 351.81659231000 * Tau)
+ 0.00000044339 * cos(5.90865821910 + 7.11354700080 * Tau)
+ 0.00000042534 * cos(5.72357370900 + 5.41662597140 * Tau)
+ 0.00000038544 * cos(4.91519003850 + 222.86032299000 * Tau)
+ 0.00000036116 * cos(5.89964278800 + 33.67961751300 * Tau)
+ 0.00000035605 * cos(3.29197259180 + 8.07675484730 * Tau)
+ 0.00000035524 * cos(3.32784616140 + 71.60020483000 * Tau)
+ 0.00000034996 * cos(5.08034112150 + 38.13303563800 * Tau)
+ 0.00000031454 * cos(5.62015632300 + 984.60033162000 * Tau)
+ 0.00000030811 * cos(5.49591403860 + 59.80374504000 * Tau)
+ 0.00000030608 * cos(5.46414592600 + 160.60889740000 * Tau)
+ 0.00000029866 * cos(1.65980844670 + 447.79581953000 * Tau)
+ 0.00000029206 * cos(1.14722640420 + 462.02291353000 * Tau)
+ 0.00000028947 * cos(4.51867390410 + 84.34282612300 * Tau)
+ 0.00000026627 * cos(5.54127301040 + 131.40394987000 * Tau)
+ 0.00000026605 * cos(6.14640604130 + 299.12639427000 * Tau)
+ 0.00000025753 * cos(4.99362028420 + 137.03302416000 * Tau)
+ 0.00000025373 * cos(5.73584678600 + 380.12776796000 * Tau);
L2 := 0.00053033277 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00002357636 * cos(2.26014661700 + 74.78159856700 * Tau)
+ 0.00000769129 * cos(4.52561041820 + 11.04570026400 * Tau)
+ 0.00000551533 * cos(3.25814281020 + 63.73589830300 * Tau)
+ 0.00000541532 * cos(2.27573907420 + 3.93215326310 * Tau)
+ 0.00000529473 * cos(4.92348433830 + 1.48447270830 * Tau)
+ 0.00000257521 * cos(3.69059216860 + 3.18139373770 * Tau)
+ 0.00000238835 * cos(5.85806638400 + 149.56319713000 * Tau)
+ 0.00000181904 * cos(6.21763603410 + 70.84944530400 * Tau)
+ 0.00000053504 * cos(1.44225240950 + 76.26607127600 * Tau)
+ 0.00000049401 * cos(6.03101301720 + 56.62235130300 * Tau)
+ 0.00000044753 * cos(3.90904910520 + 2.44768055480 * Tau)
+ 0.00000044530 * cos(0.81152639478 + 85.82729883100 * Tau)
+ 0.00000038222 * cos(1.78467827780 + 52.69019803900 * Tau)
+ 0.00000037403 * cos(4.46228598030 + 2.96894541660 * Tau)
+ 0.00000033029 * cos(0.86388149962 + 9.56122755560 * Tau)
+ 0.00000029423 * cos(5.09818697710 + 73.29712585900 * Tau)
+ 0.00000024292 * cos(2.10702559050 + 18.15924726500 * Tau)
+ 0.00000022491 * cos(5.99320728690 + 138.51749687000 * Tau)
+ 0.00000022135 * cos(4.81730808580 + 78.71375183000 * Tau)
+ 0.00000021392 * cos(2.39880709310 + 77.96299230500 * Tau)
+ 0.00000020578 * cos(2.16918786540 + 224.34479570000 * Tau)
+ 0.00000017226 * cos(2.53537183200 + 145.63104387000 * Tau)
+ 0.00000016777 * cos(3.46631344090 + 12.53017297200 * Tau)
+ 0.00000012012 * cos(0.01941361902 + 22.09140052800 * Tau)
+ 0.00000011010 * cos(0.08496274370 + 127.47179661000 * Tau)
+ 0.00000010476 * cos(5.16453084070 + 71.60020483000 * Tau)
+ 0.00000010466 * cos(4.45556032590 + 62.25142559500 * Tau)
+ 0.00000008668 * cos(4.25550086980 + 7.11354700080 * Tau)
+ 0.00000008387 * cos(5.50115930050 + 67.66805156700 * Tau)
+ 0.00000007160 * cos(1.24903906390 + 5.41662597140 * Tau)
+ 0.00000006109 * cos(3.36320161280 + 447.79581953000 * Tau)
+ 0.00000006087 * cos(5.44611674380 + 65.22037101200 * Tau)
+ 0.00000006013 * cos(4.51836836350 + 151.04766984000 * Tau)
+ 0.00000006003 * cos(5.72500086740 + 462.02291353000 * Tau);
L3 := 0.00000120936 * cos(0.02418789918 + 74.78159856700 * Tau)
+ 0.00000068064 * cos(4.12084267730 + 3.93215326310 * Tau)
+ 0.00000052828 * cos(2.38964061260 + 11.04570026400 * Tau)
+ 0.00000045806 * cos(0.00000000000 + 0.00000000000 * Tau)
+ 0.00000045300 * cos(2.04423798410 + 3.18139373770 * Tau)
+ 0.00000043754 * cos(2.95965039730 + 1.48447270830 * Tau)
+ 0.00000024969 * cos(4.88741307920 + 63.73589830300 * Tau)
+ 0.00000021061 * cos(4.54511486860 + 70.84944530400 * Tau)
+ 0.00000019897 * cos(2.31320314140 + 149.56319713000 * Tau)
+ 0.00000008901 * cos(1.57548871760 + 56.62235130300 * Tau)
+ 0.00000004271 * cos(0.22777319552 + 18.15924726500 * Tau)
+ 0.00000003613 * cos(5.39244611310 + 76.26607127600 * Tau)
+ 0.00000003572 * cos(0.95052448578 + 77.96299230500 * Tau)
+ 0.00000003488 * cos(4.97622811780 + 85.82729883100 * Tau)
+ 0.00000003479 * cos(4.12969359980 + 52.69019803900 * Tau)
+ 0.00000002696 * cos(0.37287796344 + 78.71375183000 * Tau)
+ 0.00000002328 * cos(0.85770961794 + 145.63104387000 * Tau)
+ 0.00000002156 * cos(5.65647821520 + 9.56122755560 * Tau);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -