C:\Users\hogig\Downloads\kkk_dve_soustredne

Číslo kroku

A = (7.94, -0.64)
B = (10.6, -1.78)
c = Circle(A, B)
C = (12.48, -2.52)
d = Circle(A, C)
D = (12.177566829268292, 5.247223414634147)
f = Line(A, D)
E = (14.106211191193424, 2.882065738830626)
e = Circle(D, E)
F = Intersect(c, f, 2)
G = Intersect(d, f, 2)
H = Midpoint(G, F)
g = Circle(A, H)
h = Circle(H, G)
I = Intersect(e, h, 1)
i = Line(I, D)
J = Intersect(d, e, 2)
j = Line(D, J)
k = AngularBisector(I, D, J)
K = Intersect(e, k, 2)
p = Circle(K, Radius[h])
L = Intersect(g, p, 2)
k_2 = Circle(L, Radius[p])
M = Intersect(e, h, 2)
l = Line(D, M)
N = Intersect(d, e, 1)
m = Line(D, N)
n = AngularBisector(N, D, M)
O = Intersect(e, n, 2)
r = Circle(O, Radius[h])
P = Intersect(g, r, 1)
k_1 = Circle(P, Radius[r])
a = 0 (slider from 0 to 13, step 1)
Q = Intersect(e, f, 2)
R = Intersect(d, f, 2)
S = Midpoint(R, Q)
t = Ellipse(A, D, S)
T = Intersect(c, f, 2)
W = Midpoint(T, Q)
c_1 = Hyperbola(D, A, W)
Z = Intersect(t, c_1, 1)
A_1 = Intersect(t, c_1, 2)
b = Line(A_1, D)
V = Intersect(e, b, 1)
k_4 = Circle(A_1, V)
f_1 = Line(Z, D)
B_1 = Intersect(e, f_1, 1)
k_3 = Circle(Z, B_1)