JPL NASA

[Mesa]

https://github.com/Mesaliko/JPL_NASA

Le Jet Propulsion laboratory produit des fichiers d'éphémérides, notamment les D440 et DE441 et met à disposition du public un code source en Fortran pour utiliser ces éphémérides.

Pour cela, le fichier testeph.pb permet de tester un fichier binaire d'éphémérides (ici : « linux_p1550p2650.440 »).
Malgré son nom  linux_p1550p2650.440, il fonctionne sous Windows et MacOS.
Pour plus d'info, voir ici: https://ssd.jpl.nasa.gov/ftp/eph/planets/Linux/de440/

Les fichiers texte ASCII proviennent de : https://ssd.jpl.nasa.gov/ftp/eph/planets/ascii/de440/

Vous devez comparer le résultat de la fenêtre de débogage avec celui du fichier « testpo.440 » ; le résultat doit être identique.

Les fichiers Fortran originaux proviennent de : https://ssd.jpl.nasa.gov/ftp/eph/planets/fortran/
Les fichiers Fortran ont été traduits en ANSI C par l'astronome professionnel Piotr A. Dybczynski (voir ici : https://pad2.astro.amu.edu.pl/PAD/pmwik ... bol.JPLEph). Et moi, j’ai traduit ces fichiers C en PureBasic.

La procédure  PLEPH() du fichier testeph.pb permet de sortir une position planétaire entre l'an 1550 et l'an 2650.
Toutefois, cette position est au format géométrique cartésien.
Pour créer des éphémérides planétaires pour l'observation, il faudra faire des calculs supplémentaires, à savoir, passer du repère moyen au repère apparent, puis topocentrique, ajouter l'aberration, la nutation, le temps lumière et pour la lune prendre en compte la libration et le parallaxe.
Si quelqu'un a ça en PB, ça m’intéresse.

M.

[Kwai chang caine]

Et ben....tout ce que je peux te dire c'est que chez moi ça plante pas et que ça me sort une liste longue comme le bras de chiffres à en faire palir EINSTEIN
Bravo si tu comprends tout ça et merci du partage, quoi que je suis pas sur que j'utiliserais ton code d'ici la fin de ma vie ...peut etre quand je serais dans les étoiles