a = 5.7 (slider from 0 to 10, step 0.1)
γ = 4.5 (slider from 0 to 10, step 0.1)
b: sqrt(a^(2) - γ^(2))
c: (x - γ)^(2) / a^(2) + y^(2) / b^(2) = 1
E = (0, 0)
α = -0.6283185307179586 rad (slider from -180*° to 180*°, step 1*°)
R: {{cos(α), (-sin(α))}, {sin(α), cos(α)}}
A: {{1 / a^(2), 0}, {0, 1 / b^(2)}}
tt: {{1, 1}}
ttt: {{1}, {1}}
aaa: ((tt * A) * ttt)
E': ((2 * γ), 0)
e = Line(E, E')
O = Midpoint(E, E')
d: (x - x(O))^(2) / a^(2) + y^(2) / b^(2) = 1
f = Segment(E, E')
d' = Rotate(d, α, E)