Mathematica程序 计算中垂线坐标.docVIP免费

Mathematica程序计算中垂线坐标x1=Input["输入横坐标x1:",5];y1=Input["输入纵坐标y1:",3];x2=Input["输入横坐标x2:",4];y2=Input["输入纵坐标y2:",7];x3=.;y3=.;x4=.;y4=.;arraydot={{x1,y1},{x2,y2}};x0=(x1+x2)/2;y0=(y1+y2)/2;x3=1/2(x1+x2+y1-y2);y3=1/2(-x1+x2+y1+y2);x4=1/2(x1+x2-y1+y2);y4=1/2(x1-x2+y1+y2);arraydot=Append[arraydot,{x0,y0}];arraydot=Append[arraydot,{x3,y3}];arraydot=Append[arraydot,{x4,y4}]ListPlot[arraydot,PlotStyle->Red,AspectRatio->Automatic]