Determinacion de cuspides. Sistema de Morinus. Programa en Basic

'morinus
cls

Coordenadas geocentricas del sol. Programa en Basic

'coordenadas del sol  (basado en las formulas de Jean Meeus "Astronomical algorithms")
screen 9
cls
pi=4*atn(1)

Longitud, ascension recta y declinacion del sol en un periodo determinado. Programa en Basic

cls
'calculamos el valor de pi y el coeficiente ra que pasa grados
'a radianes
pi=4*atn(1):ra=2*pi/360

Calculo del Dia Juliano. Programacion

'julia-da.bas    
'--------------------------
cls
'd=19  :m=3 :a=1920           'fechas de ejemplo

Longitud, latitud, distancia y paralaje de la Luna

DIA JULIANO

DÍA JULIANO:

La forma de referirnos a una fecha en astronomía no es mediante el año, més y día, sino mediante el Día Juliano.

Calculo aproximado de efemerides planetarias. Programa en Basic

'  EFEMERIDES PLANETARIAS
cls

dim b$(32)
c%=360
pi#=4*atn(1)
cd#=360/365.2422 ' grados recorridos en un dia medio
ra#=180/pi#      ' factor para transformar radianes en grados multiplicando
                 '                         grados en radianes dividiendo
rr#=360/pi#      ' el doble de ra#