xset("default");
xset("window",0);xbasc();
xset("font",2,3);
//
plotframe([0,-0.1,3.6,1],[4,9,0,11],[%f,%f],["(a)","r","Iteres"]);
r=[0.1:0.002:3.8];
deff("y=f(x)","y=r.*x.*(1-x)");
x=rand(r);
   for i=1:1000,
     x=f(x);
   end;
   for i=1:100,
     x=f(x);
     plot2d(r,x,0,"000");
   end;
 
