|
AequatorEkliptikRoutine des AstroIx Paketes |
transform.tcl
set x [AequatorEkliptik $jdv $ra $de ]
$jdv = Julianischer Tag
$ra = Rektaszension in Stunde
$de = Deklination in Grad
Eklitikale Länge und Breite in Grad. (Die Ausgabe erfolgt in String mit einem Blank als Trennzeichen!
Die Konstante 'pi' im Array 'const' muß gesetzt sein.
Verwendete Literatur: 0002
1997.11.27
AstroIx-Homepage: http://www.arco.de/~wopa/astroix.html