ParametricPlot3D[{r Cos[\[Theta]], r Sin[\[Theta]], 5 BesselJ[3, r] Sin[3 \[Theta]] Sin[\[Pi]/2]}, {r, 0, BesselJZero[3, 3]}, {\[Theta], 0, 2 \[Pi]}, PlotPoints...
ParametricPlot3D[{r Cos[\[Theta]], r Sin[\[Theta]], 5 BesselJ[3, r] Sin[3 \[Theta]] Sin[t]}, {r, 0, BesselJZero[3, 3]}, {\[Theta], 0, 2 \[Pi]}, PlotPoints ->...