Bewege H oder Q

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 9.5.5  S.295 Afg. 9.13
www.kurven-erkunden-und-verstehen.de

Ha 2017

r_p=\frac{\varepsilon}{2p}

p = 1.2
k: 1
ε = 0.7 (slider from 0 to 2, step 0.05)
r(x) = p / (1 - (ε * cos(x)))
a = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, (2 * π))
c: x^(2) + y^(2) = k^(2)
b = CurveCartesian((1 / r(t) * cos(t)), (1 / r(t) * sin(t)), t, 0, (2 * π))
Q = Point(a)
O: (0, 0)
Q' = Mirror(Q, c)
a' = Mirror(a, c)
f = Line(Q, O)
d: (x + (k^(2) * ε / ((2 * p))))^(2) + y^(2) = (k^(4) * ε^(2) / ((4 * p^(2))))
H = Point(d)
e = Circle(H, k^(2) / p)
g = Line(H, O)
d' = Mirror(d, c)
A = Intersect(f, g)
P_1, P_2 = Intersect(e, g)
k_p: 1
h = Segment(P_1, H)
i = Segment(H, P_2)
Text2: "Leine=\frac{1}{p}=\frac{1}{" + (LaTeX[p]) + "}=" + (LaTeX[h]) + ""
j = false