#Parametric Point on the Perpendicular Bisector of AB ParPtPerBisect:=proc(A,B,s) local M: M:=MidPt (A,B) : [ M[1] + s , M[2] - s/Slope(A,B) ]: end:
ParPtPerBisect:=proc(A,B,s) local M: M:=MidPt (A,B) : [ M[1] + s , M[2] - s/Slope(A,B) ]: end:
M:=MidPt (A,B) : [ M[1] + s , M[2] - s/Slope(A,B) ]: end:
end:
