pisteen etäisyys avaruussuorasta

A: (7, 6, 1)
B: (6, 1, 7)
P: (1, 6, 7)
f = Line(A, B)
g = OrthogonalLine(P, f, space)
C = Intersect(f, g)
etäisyysPC = Distance(P, C)
Midpoint(P, C)
TekstiPC: Name[P] + (Name[C]) + " = " + etäisyysPC
h = Segment(C, P)