delta1=seq(0,1,by=0.01)
delta3=seq(0,1,by=0.01)
f <- function(delta1,delta3)
{ r <- pnorm(qnorm(1-delta3,mean=0.2),mean=0)-pnorm(qnorm(delta1,mean=-0.5),mean=0) }
z <- outer(delta1, delta3, f)
op <- par(bg = "white")
persp(delta1, delta3, z, theta = 30, phi = 30, expand = 0.5,
col = "blue",xlab="delta_1",ylab="delta_3",zlab="delta_2")