Ήλιος

Πλανήτης

r = 0.5 (slider from 0 to 1, step 0.1)
b = 1 (slider from 0 to 5, step 0.1)
a = 1.1 (slider from 0 to 5, step 0.1)
gamma: a^(2) - b^(2)
E_1: (-gamma, 0)
c: x^(2) / a^(2) + y^(2) / b^(2) = 1
d: (x - x(E_1))^(2) + (y - y(E_1))^(2) = r^(2)
E_2: (gamma, 0)
t = 0.92 (slider from 0 to 6.283185307179586, step 0.01)
Α, Β = Intersect(d, xAxis)
Β' = Rotate(Β, t, E_1)
α = Angle(Β, E_1, Β')
e = Line(E_1, Β')
Γ = Intersect(c, e, 2)