Re,
J'ai aussi mis en ligne un petit utilitaire:
GeoCalcVous l'avez compris, il calcule en fonction de la masse, la période de rotation et le rayon une altitude géostationnaire.
Seulement, je ne suis pas sur de la "référence" altitude 0. Qui peut m'aider avec cette fonction ?
Public Function GEO_Calc(ByRef SiderialDayHours As Double, ByRef BodyMassKg As Double, ByRef ParentRadiusKm As Double)
Dim m = BodyMassKg
Dim t = SiderialDayHours
Dim u = ParentRadiusKm
Dim G = 0.0000000000667
t = t * 60 * 60
Dim x = (G * m * (t * t)) / (4 * (Math.PI * Math.PI))
Dim z = Math.Pow((x - 0.0), (1.0 / 3.0))
Dim v = z / 1000
Dim y = v - u
Return y
End Function