After each pause, the DISPG command does not work. only until the end of the execution the external graphing window is updated, It is very important to show the image in steps, using the PAUSE command
Code : Tout sélectionner
function Midpoint()
var A_,B_,Ax,Ay,Bx,By,MP;
ClrIO;
DispG;
A_:=point(1,2);
Pause; DispG;
B_:=point(-2,-2);
Pause; DispG;
Ax:=abscissa(A_);
Ay:=ordinate(A_);
Bx:=abscissa(B_);
By:=ordinate(B_);
MP:=point((Ax+Bx)/2,(Ay+By)/2);
return A_,B_,MP;
ffunction:;