Re: Nesting Manipulate to Create a Variable Number of Controls
- To: mathgroup at smc.vnet.net
- Subject: [mg132517] Re: Nesting Manipulate to Create a Variable Number of Controls
- From: Gregory Lypny <gregory.lypny at videotron.ca>
- Date: Sat, 5 Apr 2014 01:46: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> <CAEtRDSd7o2yUbqXyadvUPd+p=3NdwN4dPLnDVGutWhmy2fvKGA@mail.gmail.com>
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