Ellipse Scheitel-Krümmungskreise
Author: Prof. Dr. Dörte Haftendorn
Date: Okt 2004

Ziehe an den Scheiteln AS und BS

AS = Point(xAxis)
BS = Point(yAxis)
a: x(AS)
b: y(BS)
c: x² / a² + y² / b² = 1
d: x = a
e: x = -a
f: y = b
g: y = -b
B = Intersect(yAxis, f)
A = Intersect(xAxis, d)
h = Segment(A, B)
E = Intersect(d, f)
i = OrthogonalLine(E, h)
Mb = Intersect(i, yAxis)
Mb': -Mb
k = Circle(Mb, B)
B': (0, -b)
p = Circle(Mb', B')
Ma = Intersect(i, xAxis)
Ma': -Ma
A': (-a, 0)
q = Circle(Ma', A')
r = Circle(Ma, A)