Geostationary Calculator

[SolarLiner]

Re,
J'ai aussi mis en ligne un petit utilitaire: GeoCalc
Vous 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 ?

Code: [Select]

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

[SolarLiner]

Up: v1.1 mise en ligne. Je voudrais le mettre en ligne sur le site francophone. Merci d'avance.