Exam IV Take-Home Problem 7 Picture

Graphs in Cylindrical coordinates

>	with(plots):

Warning, the name changecoords has been redefined

>	surface1:=cylinderplot(sqrt(16-z^2),theta=0..2*Pi,z=-5..5,axes=boxed,scaling=constrained,grid=[24,48]):

>	surface2:=cylinderplot(4*cos(theta),theta=0..2*Pi,z=-5..5,axes=boxed,scaling=constrained,grid=[24,24]):

>	display(surface1,surface2);

>