a: 1.5
b = 1
A: ((-a), b)
B: (a, b)
C: (a, (-b))
D: ((-a), (-b))
f = Line(D, B)
g = Line(C, A)
c: ((-b^(2)) * x^(2)) + (a^(2) * y^(2)) = (a^(2) * b^(2))
E = Intersect(c, yAxis, 2)
H: (0, (-b))
h = OrthogonalLine(C, g)
M_r = Intersect(h, yAxis)
d = Circle(M_r, H)
r: a^(2) / b
Vieleck1, a_1, d_1, c_1, b_1 = Polygon(A, D, C, B)
e: (b^(2) * x^(2)) - (a^(2) * y^(2)) = (a^(2) * b^(2))
M_R = Intersect(h, xAxis)
I = Intersect(c_1, xAxis)
k = Circle(M_R, I)
d' = Mirror(d, xAxis)
k' = Mirror(k, yAxis)
R: b^(2) / a