Manipulate[ParametricPlot3D[{r Cos[θ], r Sin[θ],BesselJ[m,r]Cos[m θ]},{r, 0, BesselJZero[m,n]}, {θ, 0, 2Pi}, Axes -> False, BoundaryStyle -> Automatic, BoxRatios ->{1,1,.15}, PlotLabel -> "z = (Subscript[J, m])((Subscript[z, mn]) r) cos(m θ)"],{m, {0,1,2,3}}, {n, {1,2,3, 4}}]