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