Drum.ma
0,12,9,89
+Pˇˇˇˇˇˇˇˇˇˇˇˇ@ˇˇˇˇ;Pˇˇ	TEXTOMEG(	7
£à2‹£à¿}@`#0d¶\d¶\dýd d(*^

Drum Movie

First Harmonic for the Bessel Function BesselJ[1,x]

Implementation

<<movie.m

<<RMPackages/NewParametricPlot3D.m

u[m_,x_,rho_,phi_,t_]:=BesselJ[m,rho x]*
						Cos[m phi]Cos[t x]

uu[m_,x_,t_]:=CylindricalPlot3D[u[m,x,rho,phi,t],
                {rho,0,1},{phi,0,2Pi,Pi/15},
                Boxed->False]

UU[m_,x_]:=Movie[CylindricalPlot3D[u[m,x,rho,phi,t],
                {rho,0,1},{phi,0,2Pi,Pi/15},
                Boxed->False,PlotRange->{{-1,1},{-1,1},{-1,1}}],
                {t,0,Pi/x,Pi/(16x)}]