求大神看看我这个编程过程怎么改进

根据这个图片中的过程编程序，可是我是R语言初学者，不知道过程编的对不对，请问各位大神们，怎么改进这个过程，能使最后有结果还能得出图像呢，步骤5怎么循环呢
这是我的过程

i<-1:100;j<-1:10000;
n<-length(i);m<-length(j);
z<-runif(n,0,1)
LB<-0
UB<-10
h<-(LB:UB)
k<-0.25
ARL0<-200
z[1]=0
count=0
h=(LB+UB)/2;
for(z in 1:n)
{
   for(RL in 1:m)
   {
     if(z>=h)
     {
       RL[j]=count;
     }
     if(z<h)
     {
       x<-rnorm(1,0,1)
       z<-max(z+x-k,0)
       count=count+1;z=z+1;
       while(z>h)
       {
         RL[j]=count;
       }
     }
     ARL=0
     ARL=ARL+RL[j]
   }
}
ARL
if(abs(ARL-200)<=1)
{
  h+=h
}

过程也感觉有不对的地方，有木有大神帮忙编一编这个过程