该存储库最初是Planet Esphemerides数据库VSOP2013的Delphi港口。随着时间的流逝,它加剧了:
完整的西方传统星座的图纸,主要是希腊神话中的角色。为了使用图纸(这不在软件中),我使用了AI聊天机器人(MS Bing和Google Bard)来创建有关涉及星座的神话的故事,以及宙斯(大多数)如何设计天空。
检查星座神话(8个故事):https://github.com/omarreis/vsop2013/tree/master/master/constellations
4月23日:PlanetFun App v1.9为iOS和Android发布。
添加了年鉴模块,该模块允许计算各种天体对象的临时模块。添加了VSOP87行星数据库。 H150和导航星目录。
星座图(添加了两个新的天空背景,带有神话般的希腊人物)
请参阅https://github.com/omarreis/vsop2013/tree/master/planetfun
VSOP 2013(变化séculairesdes orbitesplanétaire)是G. Francou&J.-L。的高精度行星位置模型。西蒙 - 2013年5月。
该仓库包含原始Fortran代码的Delphi Pascal端口。
VSOP2013计算机械使用Chebyshev多项式一次(在9000年内)一次找到9个行星的位置和速度。
用D11.2测试Win32,iOS和Android。测试适用于FireMonKey,但也应使用VCL和Console应用程序。
VSOP 2013原始纸张带有fortran代码和数据文件,请参见:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/ephemerides/
vsop2013 readme:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/solution/solution/readme.pdf
数据文件是大型(400 MB)ASCII文本,其中包含第一类系数的Chebyshev多项式。它在6个文件中组织,总共涵盖了9,000年的期限,如下所示:
range file
-4500 to -3000 VSOP2013.m4000
-3000 to -1500 VSOP2013.m2000
-1500 to 0 VSOP2013.m1000
0 to +1500 VSOP2013.p1000
+1500 to +3000 VSOP2013.p2000
+3000 to +4500 VSOP2013.p4000
每个文件分为17122,间隔32天。每个间隔具有978个系数,每行分为6组。
文件标头包含9个行星系数的索引表:水星,金星,地球+月球baricenter,火星,木星,土星,天王星,海王星和冥王星。
每个星球都有许多Chebyshev多项式项(每个星球的7至14个术语之间)。
结果是两个3D向量:位置和速度。
结果在Au(速度)中以heliipentric Ecliptic坐标(X,Y,Z)。
FTP存储库包含FORTRAN代码:
在此Delphi端口中,将整个文件预先加载到内存表中以进行快速访问。
对象T_VSOP2013_FILE封装VSOP 2013机械:
用于处理日期和天文学的大多数算法来自Jean Meeus(AA第一和第二版)的《天文学算法》一书。
一些公式来自USNO(标记为AFC)的“计算机年鉴”出版物。
月球位置计算使用理论ELP2000(AA第47章)。 ELP(ÉphémérideLunaireParisienne)是由Jean Chapront,Michelle Chapront-Touzé开发的月球理论,该理论是在纵火局的。
AndreasHörstemeier从TMOON组件中提取了Ah.moon.pas中的实现。
请参阅http://www.hoerstemeier.com/moon.htm
Meeus Book:VSOP 87中描述了VSOP的较旧版本,它与VSOP 2013相似,其精度较低,但数据足迹也较小。对于大多数应用程序,它已经足够精确。
请参阅VSOP87和VSOP87/演示文件夹
https://github.com/omarreis/vsop2013/tree/master/vsop87
恒星位置计算。列出给定时间的150个最亮的恒星和实现坐标计算。
有关测试应用程序,请参见Testh150文件夹。
https://github.com/omarreis/vsop2013/tree/master/testh150stars
示例应用程序包含在此存储库中:
TestVSOP2013是一个FireMonKey应用。
要使用它,您必须从VSOP2013 FTP存储库中下载至少一个数据文件(当前文件为vsop2013.p2000)

我没有测试原始fortran代码,因此我在原始文件vsop2013_ctl-1.txt上使用了结果。
Test of Delphi implementation of VSOP2013
==========================================
from VSOP2013_ctl.txt ( original results file)
JUPITER JD2405730.5 X: -5.392780445602 ua Y: -0.805698954496 ua Z : 0.124332318817 ua
X': 0.001019284060 ua/d Y': -0.007116469431 ua/d Z': 0.000005921462 ua/d
from TestVSOP2013 ( code in this repo )
Jupiter jde2405730.5 x: -5.39278044560243 ua y: -0.80569895449564 ua z: 0.12433231881710 ua
sx: 0.00101928405984 ua/d sy: -0.00711646943146 ua/d sz: 0.00000592146220 ua/d
from https://ssd.jpl.nasa.gov/horizons.cgi ( Nasa Horizons. used Jupiter Center and Sun Center)
Jupiter jd2405730.5 (A.D. 1874-Jul-26 00:00:00.0000 TDB )
X =-5.392781657192185E+00 Y =-8.056977928944861E-01 Z = 1.243323711175276E-01
VX= 1.019554845438113E-03 VY=-7.116569436623840E-03 VZ= 5.921987272194194E-06

Planet Fun是4D中的太阳系模拟。使用“天文算法”中描述的计算方法将9条行星,太阳,月亮,恒星定位。
实施一台年鉴(太阳,月亮,9个行星和150星的位置计算器)
源代码:
PlanetFun Readme:
为了编译和运行此应用,您需要:
安装可执行文件planetfun.exe,testvsop2013.exe,gravityIntegration.exe和资产。
获取最新版本:https://github.com/omarreis/vsop2013/releases
也在Microsoft商店中可用。搜索“ PlanetFun”。
Windows应用程序。使用牛顿的普遍重力法整合行星位置,并与VSOP2013进行比较。显示区别图(残基)。
请参阅https://github.com/omarreis/vsop2013/tree/master/gravityintegration
1846年,与发现海王星的发现有关的数字。
FB页面:https://www.facebook.com/vrtoolsoftware