Este repositório começou como uma porta Delphi do Planet Ephemerides Database VSOP2013. Com o tempo cresceu para incluir:
Desenhos concluídos das constelações da tradição ocidental, principalmente personagens da mitologia grega. Para ir com os desenhos (isso não está no software), usei os bots de bate -papo da AI (MS Bing e Google Bard) para criar histórias sobre os mitos envolvendo constelações e como Zeus - principalmente - projetou o céu.
Verifique os mitos da constelação (8 andares): https://github.com/omarreis/vsop2013/tree/master/constellations
23 de abril: PlanetFun App v1.9 Lançado para iOS e Android.
Adicionado o módulo Almanac, que permite calcular efemeris para vários objetos celestes. Adicionado VSOP87 Planet Database. H150 e catálogos de estrelas do navegador.
Desenhos de constelação (adicionados dois novos fundos do céu, com figuras gregas míticas de constelação)
Consulte https://github.com/omarreis/vsop2013/tree/master/planetfun
VSOP 2013 (Variações SÉCULAIRES DE ORBITES Planétaires) é um modelo de posição planetária de alta precisão de G. Francou & J.-L. Simon - maio de 2013.
Este repo contém uma porta Delphi Pascal do código fortran original.
A maquinaria de cálculo do VSOP2013 usa polinômios de Chebyshev para encontrar a posição e a velocidade dos 9 planetas por vez (dentro de um intervalo de 9000 anos).
Testado com D11.2 para Win32, iOS e Android. Os testes são para o Firemonkey, mas devem trabalhar com o VCL e o console também.
O artigo original do VSOP 2013 com código fortran e arquivos de dados pode ser encontrado em:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/ephemerides/
VSOP2013 ReadMe:
https://ftp.imcce.fr/pub/ephem/planets/vsop2013/solution/readme.pdf
Os arquivos de dados são grandes (400 MB) de texto ASCII contendo polinômio de Chebyshev dos coeficientes do 1º tipo. Está organizado em 6 arquivos, cobrindo um período de 9.000 anos no total, como segue:
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 arquivo é dividido em 17122, intervalos de 32 dias. Cada intervalo possui 978 coeficientes, dispostos em grupos de 6 por linha.
O cabeçalho do arquivo contém uma tabela de índices em coeficientes para 9 planetas: Mercúrio, Vênus, Terra+Moon Baricenter, Marte, Júpiter, Saturno, Urano, Netuno e Plutão.
Cada planeta possui vários termos polinomiais de Chebyshev (entre 7 a 14 termos por planeta).
Os resultados são dois vetores 3D: posição e velocidade.
Os resultados estão em Au (Au/dia para velocidades) coordenadas eclíticas heliocêntricas (x, y, z).
O repositório FTP contém código fortran:
Nesta porta Delphi, todo o arquivo é pré-carregado em tabelas de memória para acesso rápido.
Objeto T_VSOP2013_File encapsula o VSOP 2013 Machinery:
A maioria dos algoritmos usados para lidar com datas e astronomia é do livro "Algoritmos Astronômicos" de Jean Meeus (AA 1ª e 2ª edição)
Algumas fórmulas são da publicação "Almanac for Computers" da USNO (AFC marcada).
Os cálculos da posição da lua usam a teoria do ELP2000 (AA Capítulo 47). Elp (Éphéméride Lunaire Parisienne) é uma teoria lunar desenvolvida por Jean Chapront, Michelle Chapront-Touzé, no Bureau des Longitudes.
A implementação em ah.moon.pas foi extraída do componente Tmoon por Andreas Hörstemeier.
Veja http://www.hoerstemeier.com/moon.htm
Uma versão mais antiga do VSOP é descrita no Meeus Book: VSOP 87 É semelhante ao VSOP 2013, com uma precisão mais baixa, mas também uma pegada de dados muito menor. É preciso o suficiente para a maioria dos aplicativos.
Veja pastas de demonstração VSOP87 e VSOP87/
https://github.com/omarreis/vsop2013/tree/master/vsop87
Um cálculo da posição da estrela. Lista 150 estrelas mais brilhantes e implementos de coordenadas cálculos por um determinado tempo.
Consulte a pasta TestH150 para aplicativo de teste.
https://github.com/omarreis/vsop2013/tree/master/testh150Stars
Os aplicativos de amostra estão incluídos neste repositório:
O TESTVSOP2013 é um aplicativo Firemonkey.
Para usá -lo, você deve baixar pelo menos um dos arquivos de dados do repositório VSOP2013 FTP (o arquivo atual é vSOP2013.p2000)

Não testei o código FORTRAN original, então usei os resultados no arquivo 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

O Planet Fun é uma simulação do sistema solar em 4D. Os 9 planetas, sol, lua, estrelas são posicionados usando métodos de cálculo descritos em "algoritmos astronômicos".
Implementa um almanaque (calculadora de posição para sol, lua, 9 planetas e 150 estrelas)
Código -fonte:
PlanetFun ReadMe:
Para compilar e executar este aplicativo, você precisará:
Instale executáveis planetfun.exe, testvsop2013.exe, gravityIntegration.exe e ativos.
Obtenha o lançamento mais recente: https://github.com/omarreis/vsop2013/releases
Também disponível na Microsoft Store. Pesquise por "PlanetFun".
Aplicativo Windows. Integra as posições do planeta usando a lei de gravidade universal de Newton e se compara ao VSOP2013. Mostra gráficos de diferenças (resíduos).
Consulte https://github.com/omarreis/vsop2013/tree/master/gravityIntegration
Números relacionados à descoberta do planeta Netuno, em 1846.
Página FB: https://www.facebook.com/vrtoolsoftware