r = 4
A: (-r, 0)
B: (r, 0)
a = 5
g: y = a
Q = Point(g)
b = Line(A, Q)
P_1, q, a_1, b_1 = Polygon(A, B, Q)
h_b = OrthogonalLine(B, b)
e = OrthogonalLine(Q, xAxis)
P = Intersect(e, h_b)
F = Intersect(e, xAxis)
loc1 = Locus(P, Q)