c: y = x^(2)
P: (0, 2)
A = Point(c)
f = Tangent(A, c)
g = OrthogonalLine(P, f)
B = Intersect(g, f)
luogo1 = Locus(B, A)