C:\Users\user\Downloads\bpk_bod_na_primce

Číslo kroku

A = (-9.836490510436875, 0.5771276726291593)
B = (-8.64, 4.14)
f = Line(A, B)
S = (1.405882679667267, 4.7563960068801014)
D = (-1.483577766540158, 6.779018319225289)
k = Circle(S, D)
n = 3 (slider from 0 to 5, step 1)
g = OrthogonalLine(A, f)
d = Circle(A, Radius[k])
A'' = Intersect(d, g, 2)
h = LineBisector(A'', S)
S_1 = Intersect(g, h)
k_1 = Circle(S_1, A)
A' = Intersect(d, g, 1)
i = LineBisector(A', S)
S_2 = Intersect(g, i)
k_2 = Circle(S_2, A)