Question: 3D plot inequalities

Hi all,

I'm trying to plot the regions of a cube [0,1]x[0,1]x[0,1] that are defined by two inequalities 

0<=x<=y<=z<=1

I tried the following but the result is not satisfying :

with(plots):
G1 := implicitplot3d(x = y, x = 0 .. 1, y = 0 .. 1, z = 0 .. 1, style = surface)

G2 := implicitplot3d(z = y, x = 0 .. 1, y = 0 .. 1, z = 0 .. 1, style = surface)

display({G1, G2})

Thank you for your help.

Please Wait...