Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Mathematica Animation Drives Me Crazy!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95694] Re: [mg95604] Mathematica Animation Drives Me Crazy!
  • From: peter <plindsay.0 at gmail.com>
  • Date: Sun, 25 Jan 2009 06:50:30 -0500 (EST)
  • References: <200901221203.HAA11341@smc.vnet.net>

hi David, I'm copying this to mathgroup - may be of interest, may be
platform dependent issue.

Peter

__

I get

,10,12,{0,1,2,3,4,5,6,7,8,9,10,10}}

repeatedly for both of your programs on my macbook

Peter

2009/1/22 David Park <djmpark at comcast.net>:
> I have never ending problems with Mathematica animation since Version 6.
> This takes the forms:
>
> 1) Sometimes (maybe about 10% if the time) an animation will 'stick' without
> finishing or repeating.
>
> 2) It does not seem possible to control the actual number of points or
> evaluations in the animation.
>
> 3) The documentation for the control of timing and precise steps is quite
> poor and this may be a reflection of actual buggy animation routines.
>
>
>
> Here is an example using Trigger, which is a kind of once-through animation.
> I am using an integer range, 0 to 10 in steps of 1. I would therefore like
> to have exactly 11 evaluations. But I always get an extra evaluation at the
> end, and even worse I often obtain repeat evaluations for some intermediate
> value. The following displays the value of n, the number of evaluations, and
> the actual list of n values for the evaluations.
>
>
>
> Module[{n = 0, nevals = 0, nlist = {}, calcnevals},
>
>  calcnevals[] :=
>
>  If[n == 0, nevals = 1; nlist = {n}, nevals = nevals + 1;
>
>   nlist = Append[nlist, n]];
>
>  {Trigger[Dynamic[n, (n = #; calcnevals[]) &], {0, 10, 1}],
>
>  Dynamic[n], Dynamic[nevals], Dynamic[nlist]}
>
>  ]
>
>
>
> The following uses DisplayAllSteps -> True but seems to have the same
> problem.
>
>
>
> Module[{n = 0, nevals = 0, nlist = {}, calcnevals},
>
>  calcnevals[] :=
>
>  If[n == 0, nevals = 1; nlist = {n}, nevals = nevals + 1;
>
>   nlist = Append[nlist, n]];
>
>  {Trigger[Dynamic[n, (n = #; calcnevals[]) &], {0, 10, 1},
>
>   DisplayAllSteps -> True],
>
>  Dynamic[n], Dynamic[nevals], Dynamic[nlist]}
>
>  ]
>
>
>
> Do other users see these kind of problems, especially repeat evaluations for
> some values of n?
>
>
>
> David Park
>
> djmpark at comcast.net
>
>  <http://home.comcast.net/~djmpark> http://home.comcast.net/~djmpark/
>
>
>


  • Prev by Date: Re: 0^0 = 1?
  • Next by Date: Re: Mathematica Animation Drives Me Crazy!
  • Previous by thread: Mathematica Animation Drives Me Crazy!
  • Next by thread: Re: Mathematica Animation Drives Me Crazy!