Re: Circular Membrane
- To: mathgroup at smc.vnet.net
- Subject: [mg35817] Re: Circular Membrane
- From: Selwyn Hollis <slhollis at earthlink.net>
- Date: Fri, 2 Aug 2002 02:42:03 -0400 (EDT)
- References: <aiatdl$5bl$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Here's is a simple example where the wave speed is 1 and the radius is 2:
<< NumericalMath`BesselZeros`;
r12= .5 BesselJZeros[1,2][[2]];
r31= .5 BesselJZeros[3,1][[1]];
u[t_,r_,theta_]:= Cos[r12*t] BesselJ[1,r12*r] Cos[theta] +
Sin[r31*t] BesselJ[3,r31*r] Cos[3theta];
Do[
ParametricPlot3D[Evaluate[{r*Cos[theta], r*Sin[theta], u[t,r,theta]}],
{r, 0, 2}, {theta, 0, 2*Pi},
PlotPoints->{10, 45}, PlotRange->{-1,1}, Ticks->None],
{t, 0, 4, 0.1}];
----
Selwyn Hollis
slhollis at mac.com
http://www.math.armstrong.edu/faculty/hollis
josephlass wrote:
> Mechnical Engineering fans
> will be able to tell me where to find a ready-made for a vibrating circular
> membrane. I need to be able to change locally (as a function of radius) the
> stiffness and mass of the membrane and visualise the vibrational modes.
> dr.Lass
>
>