MathGroup Archive 2014

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Nesting Manipulate to Create a Variable Number of Controls

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132518] Re: Nesting Manipulate to Create a Variable Number of Controls
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sat, 5 Apr 2014 01:47:14 -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>

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




  • Prev by Date: Re: Nesting Manipulate to Create a Variable Number of Controls
  • Next by Date: Re: Learning to Program in Mathematica
  • Previous by thread: Re: Nesting Manipulate to Create a Variable Number of Controls
  • Next by thread: Re: Nesting Manipulate to Create a Variable Number of