> with(plots):
> with(plottools):
> a:=arrow([1,1,1],[2,2,2],.2,.4,.1,color=green):
> b:=plot3d(3-x-y,x=0..3,y=0..3,axes=normal,shading=z):
> display(a,b,scaling=constrained);
> ugly:=x^3*y^2+sin(x)*exp(y);Diff(ugly,x);
> diff(ugly,x);
> diff(diff(ugly,y),x);
> Diff(ugly,y,x);
> plot({sin(x),diff(sin(x),x)},x=0..4*Pi);
> c:=plot3d(-x^2-y^2,x=-3..3,y=-3..3,shading=zgrayscale):
> d:=spacecurve([x,2,-x^2-2^2],x=-3..3,color=yellow,thickness=8):
> display(c,d);
>