Animations in Graphs

*To*: mathgroup at smc.vnet.net*Subject*: [mg128294] Animations in Graphs*From*: psudharaka at gmail.com*Date*: Fri, 5 Oct 2012 02:50:07 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net

Hi everyone, I produced the following graph but it wont animate. MyR = Table[r, {r, 0, 1, .1}]; u[\[Theta]_] = 1/(2*Pi)*((1 - r^2)/(1 - 2*r*Cos[\[Theta]] + r^2)); Plot[u[MyR, \[Theta]], {\[Theta], -Pi/2, Pi/2}, PlotRange -> {0, 3.25}, PlotStyle -> {Red}, AspectRatio -> 2/3] This following code doesn't produce any errors or Mathematica complaining but nothing happens when I hit play. Animate[Plot[u[\[Theta]], {\[Theta], -Pi/2, Pi/2}, PlotRange -> {0, 3.25}, GridLines -> Automatic, Frame -> True, PlotStyle -> {Thick, Red}], {r, 0, 1, 0.1}, AnimationRunning -> False] Thank you and your help is much appreciated.

**Follow-Ups**:**Re: Animations in Graphs***From:*Bob Hanlon <hanlonr357@gmail.com>