Muovere il punto H avanti e dietro sulla retta.
Per aggiornare lo schermo, premere Ctrl + F

A = (-16.136138539531355, -0.6920842345699462)
B = (17.035994649631654, -0.6193383284533607)
a = Line(A, B)
F = (-4.933268997577183, 7.237219532137878)
b = OrthogonalLine(F, a)
C = Intersect(b, a)
V = Midpoint(F, C)
H = Point(a)
c = OrthogonalLine(H, a)
d = LineBisector(F, H)
P = Intersect(d, c)
distanzaPF = Distance(P, F)
TestoPF: "\overline{" + (Name[P]) + (Name[F]) + "} \, = \, " + distanzaPF
e = Segment(F, P)
distanzaPH = Distance(P, H)
TestoPH: "\overline{" + (Name[P]) + (Name[H]) + "} \, = \, " + distanzaPH