A_1 = Point(xAxis)
C = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(C, B)
V1 = Point(xAxis)
F1 = Point(xAxis)
d = Circle(C, F1)
E, F2 = Intersect(d, xAxis)
h = Hyperbola(F1, F2, V1)
b_1: sqrt(x(F1)^(2) - x(V1)^(2))
f = OrthogonalLine(V1, xAxis)
D, F = Intersect(d, f)
a = Segment(C, V1)
i = Segment(C, F)
j = OrthogonalLine(F, yAxis)
b_2 = Intersect(yAxis, j)
H, I = Intersect(d, j)
k = OrthogonalLine(D, yAxis)
l = OrthogonalLine(I, j)
J, K = Intersect(d, l)
c1, i_1, f_1, d_1, k_1 = Polygon(I, F, D, K)
G, V2 = Intersect(h, xAxis)
b = Segment(C, b_2)
AS2 = Line(C, F)
AS1 = Line(C, I)
P = Point(h)
d2 = Segment(P, F2)
d1 = Segment(P, F1)
resta: abs(d1 - d2)