continuous updating
- To: mathgroup at smc.vnet.net
- Subject: [mg122191] continuous updating
- From: Luis Valero <luis.valero at mac.com>
- Date: Thu, 20 Oct 2011 07:42:34 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Dear sirs,
I want to move a Point along a line (fun1) that depend of a parameter (x) with continuous updating (fun2) using Manipulate.
The test file I have written is:
Module[{fun1, fun2, iniState, state, x, play},
fun1[x_, z_] := x + z;
fun2 := {#[[1]] + .1, #[[2]] + .1, #[[3]] + 1} &;
iniState[x_] := {-1, -1 + x, 0};
Manipulate[
Show[{
Graphics[{
If[play == True,
If[state[[3]] < 20, state = fun2[state], state = iniState[x]],
state = Evaluate[iniState[x]]];
PointSize[.02], Point[state[[{1, 2}]]]
}, Axes -> True, PlotRange -> {{-2, 2}, {-2, 2}}],
Plot[fun1[x, z], {z, -1, 1}]
}],
{{x, 0, "x"}, -1, 1, .1},
{{play, False, "play"}, {True, False}}
, SaveDefinitions -> True, TrackedSymbols -> {x, play, state}]]
but doesn't work correctly.
Please tell me what is wrong
Thank you