Mathematica程序计算中垂线坐标x1=Input["输入横坐标x1:",5];y1=Input["输入纵坐标y1:",3];x2=Input["输入横坐标x2:",4];y2=Input["输入纵...