Discusión:Ondas: Membrana

A continuación presento las instrucciones en Mathematica para generar las animaciones que aparecen en esta página. Para la animación

  Clear[k, m];
  k = N[BesselJZero[0, 3]];
  m = Table[
      ParametricPlot3D[{r Sin[theta], r Cos[theta],0.25 BesselJ[0, k r] Cos[t]},
      {r, 0, 1}, {theta, 0, 2 Pi}, PlotPoints -> {56, 168}, PlotRange -> {-1, 1}, 
      Axes -> None, Boxed -> False], {t, 0, 12, 0.4}
      ];
  Export["modos2.gif", %]

Y para la animación

  Clear[k, m];
  k = N[BesselJZero[1, 2]];
  m = Table[
      ParametricPlot3D[{r Sin[theta], r Cos[theta], 0.5 BesselJ[1, k r] Cos[theta] Cos[t]},
      {r, 0, 1}, {theta, 0, 2 Pi}, PlotPoints -> {56, 168}, PlotRange -> {-1, 1}, 
      Axes -> None, Boxed -> False], {t, 0, 12, 0.4}];
  Export["modos4.gif", %]

Para generar las animaciones de otros modos normales de vibración hay que cambiar el orden la función de Bessel y los ceros de la misma. Teniendo cuidado sobre cuál es la expresión de la perturbación en cada caso.

--Roberto Verdel Aranda 05:02 28 mar 2012 (UTC)

---