Jupiter et ses quatre satellites galiléens

Le curseur jaune permet de changer d'échelle.
Il me reste à ajouter un compteur du temps.

échelle

Io

Europe

Ganymède

Période en jours

Vitesse en tour/jours

Callisto

Vitesse en °/j

E2 = 16.69
E4: 360.0 / E2
αC = 0 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
J = (0, 0)
rj = 0.4 (slider from 0.1 to 2, step 0.05)
c = Circle(J, rj)
d = Circle(J, 5.9 * rj)
e = Circle(J, 9.39 * rj)
f = Circle(J, 14.98 * rj)
g = Circle(J, 26.31 * rj)
αIo = 0 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
I = Point(d)
E = Point(e)
αE = 0 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
αG = 0 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
G = Point(f)
C = Point(g)
Europe = Rotate(E, αE, J)
Ganymède = Rotate(G, αG, J)
Callisto = Rotate(C, αC, J)
B2 = 1.77
C2 = 3.55
D2 = 7.16
B3: 1.0 / B2
C3: 1.0 / C2
D3: 1.0 / D2
E3: 1.0 / E2
CoinJ1, CoinJ2, CoinJ3, CoinJ4 = SommetsImage(J, 1.4 * rj)
B4: 360.0 / B2
C4: 360.0 / C2
D4: 360.0 / D2
Io = Rotate(I, αIo, J)

Tool: SommetsImage
Un point et un nombre pour obtenir quatre points permettant de positionner une image dont le point est le centre et le nombre une demi diagonale.
Input: A, d
Output: B, B', B'', B'''

B = Point(Circle[A, d])
B' = Rotate(B, 90.0°, A)
B'' = Rotate(B', 90.0°, A)
B''' = Rotate(B'', 90.0°, A)