# The line through Point P with Slope m LePtSlope:=proc(P,m): expand((y-P[2])-m*(x-P[1])): end:
LePtSlope:=proc(P,m): expand((y-P[2])-m*(x-P[1])): end:
expand((y-P[2])-m*(x-P[1])): end:
end:
