##### R-code for making Figure 4.5.

h = c(1,1.5,2,2.5,3,3.5,4)

ARL000 = c(4.75,7.09,10,13.43,17.35,21.76,26.68)
ARL025 = c(7,11.6,18.2,27.3,39.5,55.7,77.1)
ARL050 = c(11.2,21.1,38.5,68.2,117.6,199.6,335.4)
ARL075 = c(19.2,42.6,94.3,206,442.8,943.7,2004.2)

postscript("fig45.ps",width=5,height=5,horizontal=F)

plot(h,log(ARL000),type="l",lty=1,xlab="h",yaxt="n",
     ylab=expression(ARL[0]),mgp=c(2,1,0),xlim=c(1,4), 
     ylim=c(0,8),cex=0.8)
lines(h,log(ARL025),lty=2,cex=0.8)
lines(h,log(ARL050),lty=3,cex=0.8)
lines(h,log(ARL075),lty=4,cex=0.8)
axis(2,at=c(log(1),log(5),log(15),log(50),log(200),log(1000)),
     labels=c("0","5","15","50","200","1000"),cex=0.8)
legend(1,8,legend=c("k=0","k=0.25","k=0.5","k=0.75"),lty=1:4,cex=0.7)

graphics.off()