B_1 = (14.031409669085985, -3.6427543609300033)
B_2 = (10.595631861237543, -4.704214171484805)
O = (5.092800738098167, 0.7148174929265587)
A_1 = (7.886116029031859, -2.7209603149218835)
c = Circle(O, A_1)
O' = (6.433592077746339, 0.6589511871078849)
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')