Re: Mathematica Animation Drives Me Crazy!

• To: mathgroup at smc.vnet.net
• Subject: [mg95697] Re: Mathematica Animation Drives Me Crazy!
• From: Helen Read <hpr at together.net>
• Date: Sun, 25 Jan 2009 06:51:04 -0500 (EST)
• References: <15010445.1232628718537.JavaMail.root@m02> <gletl0\$4tg\$1@smc.vnet.net>

```David Park wrote:
> This may be a platform dependent problem. In any case, I'm working on a
> 32-bit Windows Vista, Version 7.
>
> Here are some typical results of repeated Trigger activation (Trigger
> controls omitted) with the first form of the Trigger example:
>
> 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]}]
>
> 4,10,{0,1,1,1,2,2,2,3,3,4}
> 10,23,{0,1,1,1,2,2,2,3,3,3,3,4,4,4,5,6,7,7,8,8,9,10,10}
> 10,13,{0,1,2,3,4,5,6,7,8,9,9,10,10}
> 10,12,{0,1,2,3,4,5,6,7,8,9,10,10}
> 10,15,{0,1,1,2,3,4,5,6,7,7,8,8,9,10,10}
> 1,2,{0,1}
>
> Notice that in the first and last case the animation 'froze' at n = 4 and n
> = 1. The first number is the last value of n, the second number is the
> number of values that were actually produced (it should be equal to 11) and
> the third item is the list of values produced, which should be
> {0,1,2,3,4,5,6,7,8,9,10}.
>
> I would be very thankful if users on Windows Vista could try this out.

Here are the results of 10 consecutive trials (Mathematica 7, Windows
Vista).

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

--