midterm_surfaces.mw

> a:=30: plot3d([sqrt(x*x-2*x+5+4*y*y), -sqrt(x*x-2*x+5+4*y*y)], x=-a..a, y=-a..a,axes=BOXED);

[Plot]

> addcoords(z_cylindrical,[z,r,theta],[r*cos(theta),r*sin(theta),z]);
plot3d([sqrt(1-(r-2)^2), -sqrt(1-(r-2)^2)],r=1..3,theta=0..2*Pi,coords=z_cylindrical, axes=BOXED);

Warning, coordinates already exists, system redefined.

[Plot]

>