# The slope of the line joining Point A and Point B Slope:=proc(A,B): normal( (B[2]-A[2])/(B[1]-A[1]) ): end:
Slope:=proc(A,B): normal( (B[2]-A[2])/(B[1]-A[1]) ): end:
normal( (B[2]-A[2])/(B[1]-A[1]) ): end:
end:
