postscript(file="fig1.eps",family="NimbusSan",width=8,height=8, horiz=F,onefile=F,pointsize=16,paper="special") plot(0:100,0:100,type="n",axes=F,,xlab="",ylab="") rect(0,30,20,70,col="#EEEEFF",border=NA) rect(20,30,45,70,col="#FFFFDD",border=NA) rect(45,30,95,70,col="#EEEEFF",border=NA) lines(c(0,0),c(25,75)) lines(c(0,100),c(30,30),col="red",lty=2) lines(c(0,100),c(70,70),col="red",lty=2) lines(c(0,100),c(50,50)) segments(x0=c(0,20,45),y0=c(50,60,45),x1=c(20,45,95),y1=c(60,45,70),lwd=2) points(95,70,cex=4) mtext("r(t) = value(Left - Right)",side=2) text(4,65,expression(r(t) == r(t-1) + f(v[target],v[non-target]) + u[t]), pos=4) text(10,25,"barrier right",pos=4,col="red") text(10,75,"barrier left",pos=4,col="red") text(95,77,"choose left") text(c(0,20,45,85),c(33,33,33,47),labels=c("left","right","left","time"),pos=4) lines(c(20,20),c(30,70),lty=3) lines(c(45,45),c(30,70),lty=3) dev.off()