Trace

position de la droite des projections des satellites

Callisto

Ganymède

Io

Europe

Ganymède

Callisto

Jupiter

Période (j)

Rayon (km)

Demi-axe (Mm)

Europe

Io

affTrace = true
yP = -2100
A8 = 200
tps = 0 (slider from 0 to 50.067, step 0.01)
B3 = 7.16
l3_0 = 0.8726646259971648 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B4 = 16.69
l4_0 = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D3 = 1070
D4 = 1880
J = (0, 0)
l4: Mod[tps * 360.0 * ° / B4, 360.0] + l4_0
S_4: (D4; l4)
PS_4: (x(S_4), -(2100.0))
a: y = yP
seg4 = Segment(S_4, PS_4)
yt: -(A8) * tps + yP - 300.0
l3: Mod[tps * 360.0 * ° / B3, 360.0] + l3_0
S_3: (D3; l3)
EphS_3: (x(S_3), yt)
PS_3: (x(S_3), yP)
seg3 = Segment(S_3, PS_3)
l2_0 = 1.7453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B1 = 1.77
C1 = 1840
D1 = 421.6
B2 = 3.55
C2 = 1565
C3 = 2638
C4 = 2420
C5 = 71857
D2 = 670.9
c4 = Circle(J, D4)
c3 = Circle(J, D3)
c2 = Circle(J, D2)
c1 = Circle(J, D1)
l2: Mod[tps * 360.0 * ° / B2, 360.0] + l2_0
S_2: (D2; l2)
l1_0 = 3.490658503988659 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
l1: Mod[tps * 360.0 * ° / B1, 360.0] + l1_0
S_1: (D1; l1)
PS_1: (x(S_1), yP)
PS_2: (x(S_2), yP)
EphS_1: (x(S_1), yt)
seg1 = Segment(S_1, PS_1)
seg2 = Segment(S_2, PS_2)
EphS_2: (x(S_2), yt)
EphS_4: (x(S_4), yt)
cJ = Circle(J, C5 / 1000.0)
cJ' = Translate(cJ, Vector[Vector[J, (0.0, yP)]])
derJupS_1 = If(y(S_1) > 0.0 ∧ abs(x(S_1)) < C5 / 1000.0, 1.0)
derJupS_4 = If(y(S_4) > 0.0 ∧ abs(x(S_4)) < C5 / 1000.0, 1.0)
derJupS_2 = If(y(S_2) > 0.0 ∧ abs(x(S_2)) < C5 / 1000.0, 1.0)
derJupS_3 = If(y(S_3) > 0.0 ∧ abs(x(S_3)) < C5 / 1000.0, 1.0)
PJ = Segment((-(C5) / 1000.0, yt), (C5 / 1000.0, yt))