plot(c(0,0),xlim=c(0,1),ylim=c(0,1),main="MonteCarlo",ylab="y",xlab="x")
for(i in 1:100)
{
Sys.sleep(1);
a=runif(1);
b=runif(1);
color<-rgb(runif(1),runif(1),runif(1));
lines(x=c(a,a),y=c(0,0),lwd=2,type="p",col=color);
lines(x=c(0,0),y=c(b,b),lwd=2,type="p",col=color);


Sys.sleep(1);
lines(x=c(a,a),y=c(0,b),type="c",lwd=0.5,col=color);
lines(x=c(a,0),y=c(b,b),type="c",lwd=0.5,col=color);    
Sys.sleep(1);
lines(x=a,y=b,type="p",lwd=4,col=color);      
}