restart; with(plots): implicitplot3d(x^2-y^2-z^2=1,x=-2..2, y=-2..2, z=-2..2,axes=normal); p1:=plot3d([cosh(v),cos(u)*sinh(v), sin(u)*sinh(v)], u=-5..5, v=-5..5): p2:=plot3d([-cosh(v),cos(u)*sinh(v),sin(u)*sinh(v)], u=-5..5, v=-5..5): display(p1,p2); p1:=plot3d([cosh(v),cos(u)*sinh(v), sin(u)*sinh(v)], u=-2..2, v=-2..2): p2:=plot3d([-cosh(v),cos(u)*sinh(v),sin(u)*sinh(v)], u=-2..2, v=-2..2): display(p1,p2); implicitplot3d(y=3*x^2+2*z^2,x=-2..2, y=0..4, z=-2..2, scaling=constrained, axes=normal); plot3d([u,3*u^2+2*v^2,v], u=-.8.. .8, v=-.8.. .8, axes=normal,scaling=constrained); plot3d([v*cos(u)/sqrt(3),v^2, v*sin(u)/sqrt(2)], u=-2*Pi..2*Pi, v=0..2,axes=normal, scaling=constrained); implicitplot3d(z^2=4*x^2+9*y^2, x=-2..2, y=-2..2, z=-2..2, axes=normal, numpoints=1200); plot3d([v*cos(u)/2, v*sin(u)/3, v], u=0..2*Pi, v=-2..2, axes=normal); Section 12.1 with(VectorCalculus): f:= -x*y*exp(-x^2-y^2); contourplot(f, x=-3..3, y=-3..3); contourplot(f, x=-3..3, y=-3..3, contours=30, coloring=[blue,red]); contourplot(f, x=-3..3, y=-3..3, contours=30, coloring=[blue,red], filled=true); densityplot(f, x=-3..3, y=-3..3); densityplot(f, x=-3..3, y=-3..3, grid=[50,50], colorstyle=HUE, style=patchnogrid); plot3d(f,x=-3..3, y=-3..3);