trascinare il punto H

A = (-6, 0)
B = Point(xAxis)
d = Line(A, B)
F = Point(yAxis)
H = Point(d)
b = Line(F, H)
M = Midpoint(F, H)
c = OrthogonalLine(M, b)
e = OrthogonalLine(H, d)
P = Intersect(c, e)
luogo1 = Locus(P, H)
f = Segment(P, F)
a = OrthogonalLine(F, d)
C = Intersect(a, d)
V = Midpoint(C, F)