B_1 = (14.031409669085985, -3.6427543609300033)
B_2 = (10.595631861237543, -4.704214171484805)
O = (8.61237800467462, -0.2349097059908973)
A_1 = (11.824690589248366, -3.7265538196580135)
c = Circle(O, A_1)
O' = (16.461593972198298, -0.3187091647189078)
a = Segment(O, O')
R_1 = Segment(O, A_1)
bkR = Distance(O, A_1)
Văn bảnOA: "\overline{" + (Name[O]) + (Name[A_1]) + "} \, = \, " + bkR
kcOO = Distance(O, O')
Văn bảnOO': "\overline{" + (Name[O]) + (Name[O']) + "} \, = \, " + kcOO
bkr: abs(bkR - kcOO)
d = Circle(O', bkr)
A = Intersect(d, c)
R = Segment(O, A)
r = Segment(A, O')