Plot[
      Re[BesselJ[0, z]], {z, 0, 8.65}]

    Plot[Re[BesselJ[1, z]], {z, 0, 10.17}]

    Plot[Re[BesselJ[2, z]], {z, 0, 11.61}]

<< NumericalMath`BesselZeros`
BesselJZeros[0, 3]
BesselJZeros[1, 3]
BesselJZeros[2, 3]

<< Graphics`ParametricPlot3D`

w  =  10;
dt  =   .05;
n  =  0
m  =  3
zeros  =  BesselJZeros[n, m]
Do[
t  =  
        i dt; 
CylindricalPlot3D[
        Re[2  BesselJ[n, r] Exp[I n theta]] Cos[w t], {r , 0, 
          zeros[[m]]}, {theta, 0, 2  Pi}, Boxed -> False, 
        Axes -> False, 
        ViewPoint -> {1.5, 1.5, 
            1.3}, 
PlotRange -> {All, 
            All, {-2, 2}}, Mesh -> None], 
{i, 1, 
        50}]