Question: Problem with my FOR DO and PLOT /PLOTS

Hello.

After using my command FOR --DO (see the commands below of the attached file) I would like that appears only the last graphic ( and not the previous "plot"s neither the matrix ww).

 

How could be done it?

Thanks in advance,

Jean-Jacques.

 

#POUR FAIRE LE "FOR FROM BY TO DO"

max1:=60:
q:=1/2:

for w1 from 1/27 by 7/27 to 1/2 do

ww:= [seq( [n, add(1/(n+1), k=ceil(  max(0,(q-w1)/(1-w1)*n)  )..floor( min(n, q/(1-w1)*n)  ))], n=1..max1)]:
plot(ww, style=point):
plot(w1/(1-w1),0..max1,color=blue):
plots:-display(%,%%);
print(evalf(w1), evalf(1/w1));

end do;

FORDOWITHPLOTS.mw

Please Wait...