restart;
with(plots): with(plottools):
plot([s^3,sqrt(s)],s=0..1);
plot([[x,x^3],[x,sqrt(x)]],x=0..1);
N:=500;
L:=[seq([[k/N,(k/N)^3],[k/N,sqrt(k/N)]],k=1..N)]:
plot(L,style=line,color=red);
p1:=plot3d([x,y,0],x=0..y,y=0..1,style=patchnogrid,color=blue):
p2:=plot3d([x,y,1+x^2*y^2],x=0..y,y=0..1,style=patchnogrid,color=red,axes=boxed):
p3:=plot3d([x,y,1+x^2*y^2],x=0..y,y=0..1,style=patchnogrid,color=yellow,filled=true,transparency=0.5):
display({p1,p2},orientation=[75,75]);
display({p1,p2,p3},orientation=[65,65]);