MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Animations in Graphs


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.



  • Prev by Date: Re: Get Distribution from Interpolated Function
  • Next by Date: How to plot function & integral with vector variable ?
  • Previous by thread: Re: Markers in list plot
  • Next by thread: Re: Animations in Graphs