variables orbites
Author: aaa

Date origine

Date

Année

Mois

Jour

Heures

Minutes

1 ua

P

lg périh

Mars

Terre

a

e

long. 0

année périh

mois péri

jour péri

heure péri

min péri

γ

B8 = 1.796589572125403 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B21 = 20
B20 = 15
B19 = 4
B18 = 1
B17 = 2009
jjp_T: 367.0 * B17 - floor(7.0 * (B17 + floor((B18 + 9.0) / 12.0)) / 4.0) - floor(3.0 * floor(floor(B17 + floor((B18 - 9.0) / 7.0)) / 100.0 + 1.0) / 4.0) + floor(275.0 * B18 / 9.0) + B19 + 1721029.0 - 0.5 + B20 / 24.0 + B21 / 24.0 / 60.0
B5 = 0.017
B4 = 1.49598034E8
B11 = 8
B12 = 1
B13 = 0
B14 = 0
B10 = 2009
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
tps = 1238.467 (slider from -300 to 6000, step 0.01)
jj: jj0 + tps
B1 = 1.4959787E8
B7 = 365.256
B16 = 5.388704065532492 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
C5 = 0.093
C4 = 2.27939184E8
C8 = 5.865353484252144 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
C7 = 686.98
C17 = 2009
C19 = 21
C18 = 4
C20 = 9
C21 = 46
jjp_M: 367.0 * C17 - floor(7.0 * (C17 + floor((C18 + 9.0) / 12.0)) / 4.0) - floor(3.0 * floor(floor(C17 + floor((C18 - 9.0) / 7.0)) / 100.0 + 1.0) / 4.0) + floor(275.0 * C18 / 9.0) + C19 + 1721029.0 - 0.5 + C20 / 24.0 + C21 / 24.0 / 60.0
C16 = 0.6614797865058508 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
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)
hr: (jj + 0.5 - floor(jj + 0.5)) * 24.0
ht: floor(hr)
mt: floor((hr - ht) * 60.0)
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"]]]]]])
C13: ht
C14: mt
B6 = 1.855
e: floor((b - d) / 30.6001)
jr: b - d - floor(30.6001 * e) + Mod[jj + 0.5, 1.0]
mr: e - If[e < 13.5, 1.0, 13.0]
yr: c - If[mr > 2.5, 4716.0, 4715.0]
texte1: "Date : " + (floor(jr)) + "/" + mr + "/" + yr + "    " + C13 + "h" + C14 + "min"
C12: floor(jr)
C11: mr
C10: yr

Tool: ekep
Input: C5, um0, um1, um2, um3, um4
Output: um

um1: um0 + (um0 + C5 * sin(um0) - um0) / (1.0 - C5 * cos(um0))
um2: um0 + (um1 + C5 * sin(um1) - um1) / (1.0 - C5 * cos(um1))
um3: um0 + (um2 + C5 * sin(um2) - um2) / (1.0 - C5 * cos(um2))
um: um0 + (um4 + C5 * sin(um4) - um4) / (1.0 - C5 * cos(um4))