Plotting in nested Manipulates
- To: mathgroup at smc.vnet.net
- Subject: [mg124555] Plotting in nested Manipulates
- From: Chris Young <cy56 at comcast.net>
- Date: Tue, 24 Jan 2012 05:10:12 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I can get this to work:
Clear[c];
Manipulate[
With[
{
values = Table[c[i], {i, 1, n}],
controls = Sequence @@ Table[{{c[i], 0.5}, 0, 1, 0.1}, {i, 1, n}]
},
Manipulate[
Column[{values, ListLinePlot[Evaluate @ values]}],
controls
]
],
{n, 4, 10, 1}
]
But when I try to put the plot into the "values" variable, nothing happens.
Clear[c];
Manipulate[
With[
{
contents =
With[{values = Table[c[i], {i, 1, n}]},
Column[{values, ListLinePlot[Evaluate @ values]}]
],
controls = Sequence @@ Table[{{c[i], i * 0.1}, 0, 1, 0.1}, {i, 1, n}]
},
Manipulate[
contents,
controls
]
],
{n, 4, 10, 1}
]
Is "With" the wrong thing to use for this? I didn't have any better
luck with Module.
Chris Young
cy56 at comcast.net