Trascinare il punto Q

A = Point(xAxis)
B = (4, 0)
a = Line(A, B)
C = Point(a)
V_2 = Point(a)
c = Circle(C, V_2)
V_! = Intersect(c, a, 2)
F_2 = Point(a)
d = Circle(C, F_2)
F_1 = Intersect(d, a, 2)
Q = Point(a)
e = Circle(F_1, Segment[Q, V_!])
f = Circle(F_2, Segment[V_2, Q])
D, P = Intersect(e, f)
luogo1 = Locus(P, Q)
luogo2 = Locus(D, Q)