过点(a,b)做向量(m,n)的垂线
做直线mx+ny-ma-nb=0即可
知道直线的点和斜率不是挺容易就能画出来直线了吗?
试试这个:
[x,y] = ginput(2); % 随便鼠标取两个点
plot([x(1),x(2)],[y(1),y(2)],'b') % 原来两点连线
slope=(y(2)-y(1))/(x(2)-x(1));
slope_vertical = -1/slope; % 过其中一点作垂线,垂线斜率
p_2_x=x(2);
p_2_y=y(2);
p_1_x=x(2)+1;
p_1_y=y(2)+1*slope_vertical;
plot([p_2_x p_1_x],[p_2_y p_1_y],'r')
画出来红色的线应该就是垂线,如果嫌短的话把那个1改大点就行。