Re: Nesting Manipulate to Create a Variable Number of
- To: mathgroup at smc.vnet.net
- Subject: [mg132520] Re: Nesting Manipulate to Create a Variable Number of
- From: Gregory Lypny <gregory.lypny at videotron.ca>
- Date: Sat, 5 Apr 2014 01:47:54 -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>
Ahhh, good stuff. Although, it seems that the list cannot be named as in x = Evaluate[Table[ToExpression[ "valueSlider" <> StringJoin[ToString /@ IntegerDigits[k, 10, 2]], {k, n}]] to be used in other computations. But I'll tinker with it. Thanks again, Gregory On Fri, Apr 4, 2014, at 7:02 PM, Bob Hanlon <hanlonr357 at gmail.com> wrote: > Manipulate[ > Manipulate[ > Evaluate[Table[ > ToExpression[ > "valueSlider" <> > StringJoin[ToString /@ > IntegerDigits[k, 10, 2]]], > {k, n}]], > 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 Fri, Apr 4, 2014 at 4:49 PM, Gregory Lypny <gregory.lypny at videotron.ca> wrote: > Works like a charm, but one thing that I struggle with is collecting the values of the variables into one list. For example, of n=4, how = would I create a list of values {valueSlider01, valueSlider02, valueSlider03, valueSlider04}? > > I've tried a number of variations using ToExpression and Evaluate but always end up with the literal of valueSlider01. etc. > > Gregory > > > > On Apr 3, 2014, at 11:28 PM, Bob Hanlon <hanlonr357 at gmail.com> wrote: > >> 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]}] >> > >
- 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