Katakaustik mit Kardioide
Author: Prof. Dr. Dörte Haftendorn

Ha 08

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
C, F = Intersect(c, xAxis)
Q = Point(c)
a = OrthogonalLine(Q, yAxis)
d = Segment(Q, A)
C' = Mirror(Q, d)
Q' = Mirror(Q, xAxis)
C'_2 = Mirror(Q, xAxis)
h = Ray(C'_2, F)
b = Ray(Q, F)
Q'_1 = Mirror(Q, d)
F' = Mirror(F, d)
i = Ray(Q'_1, F')
Q'_1' = Mirror(Q'_1, xAxis)
F'' = Mirror(F', xAxis)
e = Ray(Q'_1', F'')