S_1 = (4.417931480779735, 0.6621226404502428)
B = (1.12, 2.86)
k_1 = Circle(S_1, B)
S_2 = (12.339717481369155, 0.6621226404502428)
D = (10.830805862209266, 1.8966866924901493)
k_2 = Circle(S_2, D)
E = (-1.0811642644547519, -1.9788431483146942)
F = (16.627166013275694, -2.473686708969836)
p = Line(E, F)
f = OrthogonalLine(S_1, p)
A = Intersect(p, f)
c = Circle(A, Radius[k_1])
C = Intersect(c, f, 2)
G = Intersect(c, f, 1)
g = Line(C, p)
h = Line(G, p)
d = Parabola(S_1, g)
e = Parabola(S_1, h)
H = Point(d)
I = Point(e)
i = OrthogonalLine(I, p)
j = OrthogonalLine(H, p)
J = Intersect(p, i)
k = Circle(I, J)
K = Intersect(p, j)
q = Circle(H, K)
l = Line(S_1, S_2)
L = Intersect(k_1, l, 1)
M = Intersect(k_1, l, 2)
N = Intersect(k_2, l, 1)
O = Midpoint(M, N)
P = Midpoint(L, N)
r = Hyperbola(S_1, S_2, O)
s = Hyperbola(S_1, S_2, P)
a = 0 (slider from 0 to 5, step 1)
Q = Point(s)
R = Point(r)
vzdalenostS1Q = Distance(S_1, Q)
TextS1Q: Name[S_1] + (Name[Q]) + " = " + vzdalenostS1Q
vzdalenostS2Q = Distance(S_2, Q)
TextS2Q: Name[S_2] + (Name[Q]) + " = " + vzdalenostS2Q
vzdalenostS1R = Distance(S_1, R)
TextS1R: Name[S_1] + (Name[R]) + " = " + vzdalenostS1R
vzdalenostS2R = Distance(S_2, R)
TextS2R: Name[S_2] + (Name[R]) + " = " + vzdalenostS2R
m = Line(Q, S_1)
n = Line(R, S_1)
S = Intersect(k_1, m, 1)
t = Circle(Q, S)
T = Intersect(k_1, m, 2)
c_1 = Circle(Q, T)
U = Intersect(k_1, n, 1)
d_1 = Circle(R, U)
V = Intersect(k_1, n, 2)
e_1 = Circle(R, V)
S_{11} = Intersect(d, s, 1)
b = OrthogonalLine(S_{11}, p)
Z = Intersect(p, b)
k_{11} = Circle(S_{11}, Z)
S_4 = Intersect(e, r, 4)
S_5 = Intersect(e, r, 3)
g_1 = OrthogonalLine(S_5, p)
C_1 = Intersect(p, g_1)
k_5 = Circle(S_5, C_1)
i_1 = OrthogonalLine(S_4, p)
D_1 = Intersect(p, i_1)
k_4 = Circle(S_4, D_1)
S_6 = Intersect(e, s, 4)
j_1 = OrthogonalLine(S_6, p)
F_1 = Intersect(p, j_1)
k_6 = Circle(S_6, F_1)
S_7 = Intersect(d, r, 1)
l_1 = OrthogonalLine(S_7, p)
H_1 = Intersect(l_1, p)
k_7 = Circle(S_7, H_1)
S_8 = Intersect(d, s, 2)
m_1 = OrthogonalLine(S_8, p)
J_1 = Intersect(p, m_1)
k_8 = Circle(S_8, J_1)
S_3 = Intersect(e, s, 3)
n_1 = OrthogonalLine(S_3, p)
L_1 = Intersect(p, n_1)
k_3 = Circle(S_3, L_1)
S_{10} = Intersect(d, r, 2)
a_1 = OrthogonalLine(S_{10}, p)
N_1 = Intersect(a_1, p)
k_{10} = Circle(S_{10}, N_1)