Ha 2016

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 4.3.2: S. 104
www.kurven-erkunden-und-verstehen.de

k = 1.1
a = 2.4 (slider from -20 to 20, step 0.1)
dku: ((a^(2) * y^(2)) * ((4 * a^(2)) - ((4 * a) * x) + (5 * x^(2)))) + (((a^(2) * x^(2)) * y) * ((-8 * a) - (4 * x))) + ((a^(2) * y^(3)) * ((2 * x) - (4 * a))) + (a^(2) * y^(4)) = ((-4 * a^(2)) * x^(4))
j: x = a
Q = Point(dku)
c = Circle(Q, k)
B = (3.66, 4.5975)
C = (5.06, -2.4025)
d = Line(B, C)
F_p = (1, 1.5775)
g = Parabola(F_p, d)
A: ((2 * a), 0)
J = (10.068518518518548, -3.4966666666666697)
I = (9.738518518518548, -0.8566666666666685)
H = (8.598518518518544, 1.9633333333333332)
G = (6.648518518518539, 4.213333333333335)
F = (2.808518518518529, 7.183333333333336)
O = (0, 0)
S = (13.668518518518558, -3.79666666666667)
R = (12.708518518518556, 1.2133333333333327)
N = (11.898518518518554, 3.2233333333333336)
L = (10.54851851851855, 5.683333333333335)
K = (9.558518518518547, 7.0933333333333355)
h = Conic(F, G, H, I, J)
e = Line(O, Q)
b = 1 (slider from -5 to 15, step 0.1)
ms = 0 (slider from -5 to 5, step 0.1)
f: ((x + b) * (x^(2) + y^(2))) = ((2 * a) * x^(2))
t = 0.34 (slider from -5 to 5, step 0.01)
Pola: ((b - ((2 * a) * cos(t)^(2))) / cos(t); t)
D = (14.65851851851852, -5.606666666666669)
M = (20.028518518518577, 5.383333333333335)
i = Segment(Q, A)
P, P' = Intersect(c, e)
Ortslinie1 = Locus(P, Q)
Ortslinie2 = Locus(P, Q)
Ortslinie3 = Locus(P', Q)
l = false