A_1 = Intersect(xAxis, yAxis)
A = Point(xAxis)
c = Circle(A_1, A)
D, C = Intersect(c, yAxis)
F_1: (sqrt(x(A)^(2.0) + y(C)^(2.0)), 0.0)
F_2 = Mirror(F_1, yAxis)
d = Hyperbola(F_1, F_2, A)
B = Mirror(A, yAxis)
E = Point(d)
F = Point(d)
G = Point(d)
Vieleck1, g, e, f = Polygon(E, F, G)
h = OrthogonalLine(G, g)
i = OrthogonalLine(F, f)
H_1 = Intersect(d, e, 1.0)
j = OrthogonalLine(E, e)
H = Intersect(j, i)
k = Circle(F, G, E)
H' = Mirror(H, A_1)
l = Segment(H, H')