Scheitelschmiegungskreise

A = Point(xAxis)
M = Intersect(xAxis, yAxis)
c = Circle(M, x(A))
C = Point(yAxis)
d: y(C)^(2.0) * x^(2.0) + x(A)^(2.0) * y^(2.0) = x(A)^(2.0) * y(C)^(2.0)
B = Intersect(c, d, 1.0)
D = Mirror(C, xAxis)
e = Circle(C, x(A))
F_1, F_2 = Intersect(e, xAxis)
u = Vector(C, F_1)
v = Vector(C, F_2)
a = OrthogonalLine(C, yAxis)
b = OrthogonalLine(A, xAxis)
f = Segment(C, A)
E = Intersect(a, b)
g = OrthogonalLine(E, f)
M_1 = Intersect(g, xAxis)
M_2 = Intersect(g, yAxis)
h = Circle(M_2, C)
k = Circle(M_1, A)
k' = Mirror(k, yAxis)
h' = Mirror(h, xAxis)
i = true
H = Intersect(g, f)
α = Angle(A, H, E)