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/ > > >

**References**:**Mathematica Animation Drives Me Crazy!***From:*"David Park" <djmpark@comcast.net>