Re: Nesting Manipulate to Create a Variable Number of Controls
- To: mathgroup at smc.vnet.net
- Subject: [mg132516] Re: Nesting Manipulate to Create a Variable Number of Controls
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Fri, 4 Apr 2014 03:58:38 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <20140403061701.694E06A15@smc.vnet.net>
If I understand what you want: Manipulate[ Manipulate[ "test", Evaluate[Sequence @@ Table[ Row[{ Control[Evaluate[{ {ToExpression[ "nameMenu" <> StringJoin[ToString /@ IntegerDigits[k, 10, 2]]], Subsuperscript["name", k, 1]}, Table[ Subsuperscript["name", k, j], {j, 5}], ControlType -> PopupMenu}]], Spacer[25 - 3 Floor[Log10[k]]], Control[Evaluate[{ {ToExpression[ "valueSlider" <> StringJoin[ToString /@ IntegerDigits[k, 10, 2]]], 1}, 1, 10, 1, Appearance -> "Labeled"}]]}], {k, n}]]], {{n, 3, "Number of control pairs"}, Range[10]}] Bob Hanlon On Thu, Apr 3, 2014 at 2:17 AM, Gregory Lypny <gregory.lypny at videotron.ca>wrote: > Hello everyone, > > I used the example in the Documentation Center to create a Manipulate with > a variable number of controls. Here is the example: > > Manipulate[ > With[{value = Table[c[i], {i, 1, n}], > controls = Sequence @@ Table[{c[i], 0, 1}, {i, 1, n}]}, > Manipulate[value, controls]], {n, 1, 10, 1}] > > How would I change the code above so that it produces pairs on controls > side by side? So if n=3, the control area would look like this. > > nameMenu1 valueSlider1 > nameMenu2 valueSlider2 > nameMenu3 valueSlider3 > > Any tip would be much appreciated, > > Gregory > >
- References:
- Nesting Manipulate to Create a Variable Number of Controls
- From: Gregory Lypny <gregory.lypny@videotron.ca>
- Nesting Manipulate to Create a Variable Number of Controls