1/P

1/Q

-Q

-1/Q

O = (0, 0)
c = Circle(O, 2)
P = Point(c)
U = (1, 0)
R = Point(Segment[O, P])
d = Circle(U, R)
B' = Rotate(R, 90*°, U)
B'_1 = Mirror(R, U)
e = CircumcircleArc(R, B', B'_1)
Q = Point(e)
C: 1 / P
luogo1 = Locus(C, P)
D: 1 / Q
luogo2 = Locus(D, Q)
Q': -Q
luogo3 = Locus(Q', Q)
D': (-1) / Q
luogo4 = Locus(D', Q)