k

Erklärung

r*r'=k^2 wird durch den Höhensatz 
verwirklicht, auf Grafik 2

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 4.3.1: S. 101

Ha 2016

Cassini'sche Kurven

e = 3
E: (e, 0)
E': ((-e), 0)
k = 2.9 (slider from -5 to 10, step 0.1)
A = (10.54, 7.16)
B = Point(Circle[A, k])
a = Segment(A, B)
Vieleck1, b, k_2, d, f, C, D = Polygon(B, A, 4)
g = Line(C, D)
Q = Point(g)
h = Segment(Q, A)
i = OrthogonalLine(A, h)
G = Intersect(g, i)
r = Segment(Q, C)
r' = Segment(C, G)
m = Segment(A, G)
c = Circle(E', r)
p = Circle(E, r')
P, P' = Intersect(c, p)
Ortslinie1 = Locus(P, Q)
Ortslinie2 = Locus(P', Q)
α = Angle(Q, A, G)
j = Segment(E', P)
l = Segment(E, P)
n = false
o = false