I have following code

Plot[myvariable x,{x,0,100}

How do I make the animation stop automatically when reaching a defined value?

NOTE: I tried to make it stop by evaluating myvariable in a If expression, but I get the error "An unrecognized option name ("AnimationRunning") was encountered while reading a AnimatorBox."

  • 1
    $\begingroup$ Given your example, you could just set AnimationRunning -> True, AnimationRepetitions -> 1 $\endgroup$ – Jens Jan 10 '13 at 19:31
  • $\begingroup$ Post is an answer an I will mark as the answer, Thanx for answering so fast :D $\endgroup$ – elhombre Jan 10 '13 at 19:34

The condition in your case is to stop at the maximum value of the parameter. This can be achieved by setting the number of animation repetitions to 1 (i.e., no looping):

Animate[Plot[myvariable x, {x, 0, 100}], {myvariable, 0.1, 1}, 
 AnimationRunning -> True, 
 AnimationRepetitions -> 1
| improve this answer | |

Mathematica is very flexible when it comes to these sorts of things. You can easily build your own little animation, and add as much complexity to the logic of termination by using Dynamic directly.

For example, this plots Cos[a x] and stops the animation when a>0.2.

Do[p = Plot[Cos[a x], {x, 0, 100}, Frame -> True, 
   FrameLabel -> {{None, None}, {x, 
      Style[Column[{"doing my own animation !", Cos[a x]}, 
        Alignment -> Center], 14]}}, GridLines -> Automatic];
 If[a > 0.2, Break[]]; (*condition to stop*)
 {a, 0.1, 1, .01}

Mathematica graphics

| improve this answer | |
  • 1
    $\begingroup$ +1 for a method I really don't think I would have considered. $\endgroup$ – Mr.Wizard Jan 11 '13 at 1:11
  • $\begingroup$ +1 Because you did the work to allow a more general stopping condition than the question asked for. $\endgroup$ – Jens Jan 11 '13 at 1:34

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.