Proj. 1

Io

Io

Europe

Europe

Ganymède

Callisto

Jupiter

Période

Rayon

demis-axes

Terre

Date

Année

Mois

Jour

Heures

Minutes

g dist

Décalage X

Décalage Y

Décal. proj. 2

Décal. proj. 3

Date orig.

long. orig.

Elongation Jupiter

Proj. 3

Proj. 2

B2100 = 0
B21 = -200
B18 = 0
y_H: B18
B17 = 5000
x_H: B17
H: (x_H, y_H)
B16 = 400
gdist: B16
tps = 100 (slider from 0 to 2000, step 0.0010)
B6 = 4332.59
E6 = 5.597270911145815 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
lj: 360.0 * ° / B6 * tps + E6
D6 = 5.2
O = (0, 0)
D7 = 1
E7 = 5.388704065532492 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B7 = 365.25
lt: 360.0 * ° / B7 * tps + E7
J = Translate((D6 * gdist; lj), Vector[Vector[O, H]])
T = Translate((D7 * gdist; lt), Vector[Vector[O, (x_H, y_H)]])
β0 = Angle(Vector[Vector[O, (100.0, 0.0)]], Vector[Vector[J, T]])
vtj = Vector(T, J)
stj = Segment(T, J)
shj = Segment(H, J)
dproj = OrthogonalLine(O, vtj)
B10 = 2009
B14 = 0
B13 = 0
B12 = 1
B11 = 8
E5 = 4.799655442984406 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B5 = 16.7
E4 = 0.8377580409572782 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B4 = 7.2
E3 = 3.0543261909900767 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B3 = 3.6
E2 = 3.3161255787892263 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B2 = 1.8
D5 = 1883000
D4 = 1070000
D3 = 671000
D2 = 422000
l1: E2 + tps / B2 * 360.0 * ° - floor(tps / B2) * 360.0 * °
lr1: l1 * 3.141592653589793 / 180.0
y0 = -2300
l3: tps / B4 * 360.0 * ° - floor(tps / B4) * 360.0 * ° + E4
lr3: l3 * 3.142 / 180.0
l2: tps / B3 * 360.0 * ° - floor(tps / B3) * 360.0 * ° + E3
lr2: l2 * 3.142 / 180.0
S1J: (D2 / 1000.0; l1)
S1P: (x(S1J), y0)
b1 = Segment(S1J, S1P)
S2J: (D3 / 1000.0; l2)
S2P: (x(S2J), y0)
b2 = Segment(S2J, S2P)
S3J: (D4 / 1000.0; l3)
S3P: (x(S3J), y0)
b3 = Segment(S3J, S3P)
l4: tps / B5 * 360.0 * ° - floor(tps / B5) * 360.0 * ° + E5
lr4: l4 * 3.142 / 180.0
S4J: (D5 / 1000.0; l4)
S4P: (x(S4J), y0)
b4 = Segment(S4J, S4P)
jj0: 367.0 * B10 - floor(7.0 * (B10 + floor((B11 + 9.0) / 12.0)) / 4.0) - floor(3.0 * floor(floor(B10 + floor((B11 - 9.0) / 7.0)) / 100.0 + 1.0) / 4.0) + floor(275.0 * B11 / 9.0) + B12 + 1721029.0 - 0.5 + B13 / 24.0 + B14 / 24.0 / 60.0
jj: jj0 + tps
alp: floor((floor(jj + 0.5) - 1867216.25) / 36524.25)
a: floor(jj + 0.5) + 1.0 + alp - floor(alp / 4.0)
b: a + 1524.0
c: floor((b - 122.1) / 365.25)
d: floor(365.25 * c)
e: floor((b - d) / 30.6001)
hr: (jj + 0.5 - floor(jj + 0.5)) * 24.0
ht: floor(hr)
jr: b - d - floor(30.6001 * e) + Mod[jj + 0.5, 1.0]
mr: e - If[e < 13.5, 1.0, 13.0]
mt: floor((hr - ht) * 60.0)
yr: c - If[mr > 2.5, 4716.0, 4715.0]
dp: y = y0
jjs = Mod(floor(jj - 0.5) + 0.5 + 1.5, 7.0)
texte3: "" + (If[jjs ≟ 0.0, "Dimanche", If[jjs ≟ 1.0, "Lundi", If[jjs ≟ 2.0, "Mardi", If[jjs ≟ 3.0, "Mercredi", If[jjs ≟ 4.0, "Jeudi", If[jjs ≟ 5.0, "Vendredi", "Samedi"]]]]]])
sht = Segment(H, T)
C2 = 1821.3
C3 = 1565
C4 = 2634
C5 = 2403
C6 = 71492
C11: mr
C12: floor(jr)
C13: ht
C14: mt
rjup: C6 / 1000.0
x1: D2 / 1000.0 * cos(lr1)
x2: D3 / 1000.0 * cos(lr2)
x3: D4 / 1000.0 * cos(lr3)
x4: D5 / 1000.0 * cos(lr4)
y1: D2 / 1000.0 * sin(lr1)
y2: D3 / 1000.0 * sin(lr2)
y3: D4 / 1000.0 * sin(lr3)
y4: D5 / 1000.0 * sin(lr4)
cjup = Circle(O, C6 / 1000.0)
cjup1 = Circle((0.0, y0), C6 / 1000.0)
C10: yr
texte1: "Date : " + (floor(jr)) + "/" + mr + "/" + yr + "    " + C13 + "h" + C14 + "min"
B20 = -400
jelong = Angle(H, T, J)
felong = false
texte2: jelong + ""
θ: 270.0 * ° - β0
P3S = Translate(Rotate[Intersect[dproj, OrthogonalLine[S3J, dproj]], θ, O], Vector[Vector[O, (0.0, y0 + B20)]])
PP3S = Intersect(dproj, OrthogonalLine[S3J, dproj])
α: β0 - l3
fec3: α > 90.0 * ° ∧ α < 270.0 * ° ∧ abs(x(P3S)) < C6 / 1000.0
cjup2 = Circle((0.0, y0 + B20), C6 / 1000.0)
PDD = Translate(O, Vector[-1.0 * vtj])
A = Intersect(cjup, dproj, 1.0)
dp3: y = y0 + B20 + B21
P3SD: (x(P3S) * 5.2 / (Length[vtj] / gdist), y0 + B20 + B21)
fec3d: α > 90.0 * ° ∧ α < 270.0 * ° ∧ abs(x(P3SD)) < C6 / 1000.0 * 5.2 * gdist / Length[vtj]
cjup3 = Circle((0.0, y0 + B20 + B21), C6 / 1000.0 * 5.2 / (Length[vtj] / gdist))
c1 = Circle(O, D2 / 1000.0)
c2 = Circle(O, D3 / 1000.0)
c3 = Circle(O, D4 / 1000.0)
c4 = Circle(O, D5 / 1000.0)
cj = Circle(H, D6 * gdist)
ct = Circle(H, D7 * gdist)
dp2: y = y0 + B20
dper = Ray(O, Vector[-(vtj)])