seed<-1000;
arg<-seq(from=-1,to=0,by=0.01);
plot(x=arg,y=arg+1,type="l",xlim=c(-1,1),col="blue",lwd=3,xlab="x",ylab="y",main="Funkcja liniowa");
y<-rep(0,seed);
x<-seq(from=0,to=1,length=seed);
lines(x=c(0,0),y=c(0,5),lwd=3);
lines(x=c(0,1),y=c(1/2,1/2));
count=0;









for(i in 1:seed)
{
a<-runif(1)-1;
b<-runif(1);
Sys.sleep(0.01);
color1<-"green";
color2<-"red";
if(a+1>b)
{
count=count+1;
lines(x=a,y=b,type="p",col=color1);
}
else
{
lines(x=a,y=b,type="p",col=color2);

}
if(i>1)
{

y[i]=(count/i)*1}
else
{
y[1]=1/2;
}
lines(x,y,type="l",col="yellow");


}