Leida punkti A kaugus sirgest b:

A = (2, 1)
B = (1, 3)
a: (3 * x) - (4 * y) + 2 = 0
b = OrthogonalLine(B, a)
kaugusAb = Distance(A, b)
Midpoint(A, ClosestPoint[b, A])
TekstAb: Name[A] + (Name[b]) + " = " + kaugusAb