@Daniel
einfache Berechnung nach dem WGS84 Ellipsoiden -> Äquartordurchmesser.
Hier einmal die Formeln
print "$name Hoehe APO : ".(sprintf ("%.0f", ((&a_apogaeum(&g_halbachse(¨aufzeit($meanmotion)), 0.0006736)-6378137)/1000)))." km\n";
print "$name Hoehe peri: ".(sprintf ("%.0f", ((&a_perigaeum(&g_halbachse(¨aufzeit($meanmotion)), 0.0006736)-6378137)/1000)))." km\n";
mit
# Abstand Perigäum
sub a_perigaeum {
my ($a_peri,$g_halbachse,$exentricity) = (0.0,0.0,0.0);
($g_halbachse,$exentricity) = @_;
$a_peri = $g_halbachse * (1 - $exentricity);
return $a_peri;
}
# Abstand Apogäum
sub a_apogaeum {
# (Abstand Apogäum, große Halbachse, Exentrizität)
my ($a_apo,$g_halbachse,$exentricity) = (0.0,0.0,0.0);
($g_halbachse,$exentricity) = @_;
$a_apo = $g_halbachse * (1 + $exentricity);
return $a_apo;
}
Thomas
