A: (0, -5, 9)
B: (0, -2, 1)
u: (4, -6, -4)
a: (Vector[A, B] * u)
eq1: (4 * x) - (6 * y) - (4 * z) + 6 = 0
H: (-14 / 17, -13 / 17, 31 / 17)
distanceHA = Distance(H, A)
Midpoint(H, A)
TexteHA: Name[H] + (Name[A]) + " = " + distanceHA