#pdf x=seq(-0.5,2.5,length=50) y=seq(-0.5,1.5,length=50) pdf=function(x,y){ if(((0<=x)&&(x<=2))&&((0<=y)&&(y<=1))){ (3/7)*(2-x)*(x+y) }else{ return(0) } } z=matrix(0,50,50) z for(i in 1:50){ for(j in 1:50){ z[i,j]=pdf(x[i],y[j]) } } persp(…