See site in english Voir le site en francais
Website skin:
home  download  forum  link  contact

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length

Author Topic: Geostationary Calculator  (Read 1716 times)

0 Members and 1 Guest are viewing this topic.

Offline SolarLiner

  • Global Moderator
  • Legend
  • *****
  • Posts: 2769
  • Country: France fr
  • Karma: 55
  • a été remercié par Le Créateur
29 April 2012, 22:32:48
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



Offline SolarLiner

  • Global Moderator
  • Legend
  • *****
  • Posts: 2769
  • Country: France fr
  • Karma: 55
  • a été remercié par Le Créateur
Reply #1 - 30 April 2012, 17:06:51
Up: v1.1 mise en ligne. Je voudrais le mettre en ligne sur le site francophone. Merci d'avance.


« Last Edit: 30 April 2012, 17:06:51 by SolarLiner »