Este repositorio comenzó como una base de datos de Delphi Port of Planet Ephemerides VSOP2013. Con el tiempo creció para incluir:
Dibujos completados de constelaciones de tradición occidental, principalmente personajes de la mitología griega. Para ir con los dibujos (esto no está en el software) utilicé AI Chat Bots (MS Bing y Google Bard) para crear historias sobre los mitos que involucran constelaciones y cómo Zeus, principalmente, diseñó los cielos.
Consulte los mitos de Constellation (8 historias): https://github.com/omarreis/vsop2013/tree/master/constellations
Abr/23: Planetfun App V1.9 lanzado para iOS y Android.
Se agregó el módulo AlmanaC, que permite calcular Ephemeris para varios objetos celestes. Se agregó la base de datos del planeta VSOP87. H150 y catálogos de estrellas navegador.
Dibujos de Constellation (agregados dos nuevos fondos de cielo, con constelaciones figuras griegas míticas)
Ver https://github.com/omarreis/vsop2013/tree/master/planetfun
VSOP 2013 (Variaciones Séculaires des Orbites Planétaires) es un modelo de posición planetaria de alta precisión de G. Francou y J.-L. Simon - mayo de 2013.
Este repositorio contiene un puerto de Delphi Pascal del código Fortran original.
VSOP2013 La maquinaria de cálculo utiliza polinomios ChebyShev para encontrar la posición y la velocidad de los 9 planetas a la vez (dentro de un rango de 9000 años).
Probado con D11.2 para Win32, iOS y Android. Las pruebas son para Firemonkey, pero también deberían funcionar con VCL y la aplicación de consola.
El documento original de VSOP 2013 con código FORTRAN y archivos de datos se pueden encontrar en:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/ephemerides/
VSOP2013 Readme:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/solution/readme.pdf
Los archivos de datos son texto ASCII grande (400 MB) que contiene el polinomio de ChebyShev de coeficientes de primer tipo. Está organizado en 6 archivos, que cubre un período de 9,000 años en total, como sigue:
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
Cada archivo se divide en 17122, intervalos de 32 días. Cada intervalo tiene 978 coeficientes, dispuestos en grupos de 6 por línea.
El encabezado de archivo contiene una tabla de índices en coeficientes para 9 planetas: Mercurio, Venus, Earth+Moon Baricenter, Marte, Júpiter, Saturno, Urano, Neptuno y Plutón.
Cada planeta tiene una serie de términos polinomiales de Chebyshev (entre 7 y 14 términos por planeta).
Los resultados son dos vectores 3D: posición y velocidad.
Los resultados están en coordenadas eclípticas heliocéntricas de Au (Au/Día) (X, Y, Z).
El repositorio FTP contiene código FORTRAN:
En este puerto Delphi, todo el archivo se carga precargado en tablas de memoria para un acceso rápido.
Object t_vsop2013_file encapsulate VSOP 2013 maquinaria:
La mayoría de los algoritmos utilizados para tratar las fechas y la astronomía son del libro "Algoritmos astronómicos" de Jean Meeus (AA 1ª y segunda edición)
Algunas fórmulas son de la publicación "Almanaque para computadoras" de USNO (AFC marcada).
Los cálculos de la posición de la luna usan la teoría ELP2000 (AA Capítulo 47). Elp (Éphéméride Lunaire Parisienne) es una teoría lunar desarrollada por Jean Chapront, Michelle Chapront-Touzé, sobre la Oficina de Longitudes.
La implementación en ah.moon.pas fue extraída del componente tmoon por Andreas Hörstemeier.
Ver http://www.hoerstemeier.com/moon.htm
Una versión anterior de VSOP se describe en Meeus Book: VSOP 87 Es similar a VSOP 2013, con una precisión más baja pero también una huella de datos mucho más pequeña. Es lo suficientemente preciso para la mayoría de las aplicaciones.
Ver carpetas VSOP87 y VSOP87/demo
https://github.com/omarreis/vsop2013/tree/master/vsop87
Un cálculo de posición de estrella. Enumera 150 estrellas más brillantes e implementa cálculos de coordenadas para un tiempo determinado.
Consulte la carpeta TestH150 para la aplicación de prueba.
https://github.com/omarreis/vsop2013/tree/master/testh150stars
Las aplicaciones de muestra se incluyen en este repositorio:
TestVSop2013 es una aplicación Firememonkey.
Para usarlo, debe descargar al menos uno de los archivos de datos del repositorio VSOP2013 FTP (el archivo actual es VSOP2013.p2000)

No probé el código FORTRAN original, así que utilicé los resultados en el archivo original 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 es una simulación del sistema solar en 4d. Los 9 planetas, sol, luna, estrellas se colocan utilizando métodos de cálculo descritos en "algoritmos astronómicos".
Implementa un almanaque (calculadora de posición para sol, luna, 9 planetas y 150 estrellas)
Código fuente:
Planetfun Readme:
Para compilar y ejecutar esta aplicación, deberá:
Instale ejecutables planetfun.exe, testVSop2013.exe, gravityintegration.exe y activos.
Obtenga el último lanzamiento: https://github.com/omarreis/vsop2013/releases
También disponible en Microsoft Store. Busque "PlanetFun".
Aplicación de Windows. Integra las posiciones del planeta utilizando la ley de gravedad universal de Newton y se compara con VSOP2013. Muestra cuadros de diferencias (residuos).
ver https://github.com/omarreis/vsop2013/tree/master/gravityintegation
Números relacionados con el descubrimiento del planeta Neptuno, en 1846.
Página FB: https://www.facebook.com/vrtoolsoftware