with(plots); -1 

`:=`(P1, plot3d([r, theta, `*`(`^`(r, 2))], r = 0 .. 2, theta = 0 
.. `+`(`*`(2, `*`(Pi))), coords = cylindrical)) 

PLOT3D(MESH(Array(1..25, 1..25, 1..3, {(1, 1, 1) = .0, (1, 1, 2) = 
.0, (1, 1, 3) = .0, (1, 2, 1) = .0, (1, 2, 2) = .0, (1, 2, 3) = .0, (1, 
3, 1) = .0, (1, 3, 2) = .0, (1, 3, 3) = .0, (1, 4, 1) = .0, (... (1)
 

`:=`(P2, plot3d([r, theta, `+`(8, `-`(`*`(`^`(r, 2))))], r = 0 .. 
2, theta = 0 .. `+`(`*`(2, `*`(Pi))), coords = cylindrical)) 

PLOT3D(MESH(Array(1..25, 1..25, 1..3, {(1, 1, 1) = .0, (1, 1, 2) = 
.0, (1, 1, 3) = .0, (1, 2, 1) = .0, (1, 2, 2) = .0, (1, 2, 3) = .0, (1, 
3, 1) = 8.0, (1, 3, 2) = 8.0, (1, 3, 3) = 8.0, (1, 4, 1) = .0... (2)
 

`:=`(P3, plot3d([r, theta, 0], r = 0 .. 2, theta = 0 .. `+`(`*`(2, 
`*`(Pi))), coords = cylindrical, style = surface, color = grey)) 

PLOT3D(MESH(Array(1..25, 1..25, 1..3, {(1, 1, 1) = .0, (1, 1, 2) = 
.0, (1, 1, 3) = .0, (1, 2, 1) = .0, (1, 2, 2) = .0, (1, 2, 3) = .0, (1, 
3, 1) = .0, (1, 3, 2) = .0, (1, 3, 3) = .0, (1, 4, 1) = .0, (... (3)
 

display(P1, P2, P3, axes = boxed) 

Plot