DistanceFromEquationOfLine

From scripting
Jump to: navigation, search
Function DistanceFromEquationOfLine(LineSlope As Variant, Line_Y_Intersept As Variant, Pt_X_Coord As Double, Pt_Y_Coord As Double) As Double
DistanceFromEquationOfLine = Abs(Pt_Y_Coord - (LineSlope * Pt_X_Coord) - Line_Y_Intersept) / Sqr((LineSlope * LineSlope) + 1)
End Function