Inversion der Ellipse
Author: Haftendorn
Date: Apr. 05

Bewege A Variiere b und r mit den Pfeiltasten

r = 4
b = 6.999999999999991
c: x² + y² = r²
h: y² / r² + x² / b² = 1
A = Point(h)
p = Polar(A, c)
O = (0, 0)
g = Line(A, O)
A' = Intersect(p, g)
F: (0, sqrt(r² + b²))
loc1 = Locus(A', A)