B_1(1,5)

B_2(1,-3)

A = (-2, 1)
B = Point(Circle[A, 5])
D: B - (1, -3)
d4: x(D)² + y(D)²
C: B - (1, 5)
d3: x(C)² + y(C)²
d1 = If(d3 < 0.01, 0, 3)
a = Segment(A, B)
d2 = If(d4 < 0.01, 0, 3)