Ellipse de Kepler
Author: tartenpion

Attention : dans ce mouvement, l’angle θ varie linéairement.
La planète ne suit pas la loi des aires de Kepler (2ème loi).

Information

e2 = 0.58 (slider from 0 to 1, step 1.0E-4)
a = 1
e = 0.5
b: a * sqrt(1.0 - e2^(2.0))
c: a * e2
F: (c, 0.0)
F': (-1.0 * c, 0.0)
el = Ellipse(F, F', a)
S: F
θ = 1.5009831567151235 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
P = Intersect(el, Ray[S, Vector[(0.0, 0.0), (cos(θ), sin(θ))]])
r = Segment(S, P)
d = Distance(S, P)
f = true
texte2: "Ellipse :" + "
a=" + a + "
e=" + e2 + "
b=" + b + "
c=" + c
texte1: "Position planète :" + "
r=" + d + " θ=" + θ