Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #16736

Re: Nesting Manipulate to Create a Variable Number of

Show all headers | View raw

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@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@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@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]}]
>>
>
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar

Thread

Re: Nesting Manipulate to Create a Variable Number of Gregory Lypny <gregory.lypny@videotron.ca> - 2014-04-05 05:48 +0000

csiph-web