Pohybujte bodem S tak, aby existovala jediná úsečka AB

K = Point(xAxis)
B_3 = Intersect(xAxis, yAxis)
k = Circle(K, B_3)
D = (2, 0)
S = (1.7728223172650286, 2.9096193327185165)
k' = Mirror(k, S)
M = Point(xAxis)
B_4 = Point(xAxis)
m = Circle(M, B_4)
B_2, B_1 = Intersect(k', m)
A_1 = Mirror(B_1, S)
A_2 = Mirror(B_2, S)
a = Segment(A_1, B_1)
b = Segment(A_2, B_2)
K' = Mirror(K, S)
poly1, k'_1, k_1, m_1 = Polygon(K, M, K')
P = Midpoint(K, M)
c = Line(P, m_1)
B, E = Intersect(m, c)
d = Line(B, k'_1)
poly2, s, a_1, c_1 = Polygon(P, B, S)
A = Mirror(B, S)
e = Segment(A, B)