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

Ha 2016

B = (3.027408116258332, 0.841481481481481)
a = 1 (slider from -5 to 5, step 0.1)
s = 2.5
e: x^(2) + y^(2) = s^(2)
d: y = s
b: ((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))
Q = Point(b)
c = Line(B, Q)
k = 0.4
E, D = Intersect(e, c)
f = OrthogonalLine(E, xAxis)
u = Vector(Q, E)
B' = Translate(B, u)
v = Vector(B, B')
Ortslinie1 = Locus(B', Q)
g = false