Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Manipulate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124719] Manipulate
  • From: Bernard Vuilleumier <bernard.vuilleumier at sunrise.ch>
  • Date: Thu, 2 Feb 2012 04:55:55 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Hello,

Is it possible to have, in this example, 3 menus with bouton1 
(item[[1]]), 4 with bouton 2 (item[[2]]) and 2 with bouton 3 
(item[[3]])?

data = {Table[RandomInteger[{10, 20}, 3], {3}],
   Table[RandomInteger[{10, 20}, 3], {4}],
   Table[RandomInteger[{10, 20}, 3], {2}]};
item = {{1 -> "menu1", 2 -> "menu2", 3 -> "menu3"}, {4 -> "menu4",
    5 -> "menu5", 6 -> "menu6", 7 -> "menu7"}, {8 -> "menu8", 9 -> 
"menu9"}};
Manipulate[BarChart3D[data[[j, k]]],
 {{j, 1, "Bouton"}, {1 -> "Bouton1", 2 -> "Bouton2", 3 -> "Bouton3"}}, 
{{k, 1,
    "Menu"}, item[[1]]}]

I tried with
data = {Table[RandomInteger[{10, 20}, 3], {3}],
   Table[RandomInteger[{10, 20}, 3], {4}],
   Table[RandomInteger[{10, 20}, 3], {2}]};
item = {{1 -> "menu1", 2 -> "menu2", 3 -> "menu3"}, {4 -> "menu4",
    5 -> "menu5", 6 -> "menu6", 7 -> "menu7"}, {8 -> "menu8", 9 -> 
"menu9"}};
Manipulate[BarChart3D[data[[j, k]]],
 {{j, 1, "Bouton"}, {1 -> "Bouton1", 2 -> "Bouton2", 3 -> "Bouton3"}}, 
{{k, 1,
    "Menu"}, item[[j]]}]

but this doesn't work.
Thank's for your attention



  • Prev by Date: how to add color legend bar to a ListContourPlot
  • Next by Date: Re: Automatic Numbering in Mathematica
  • Previous by thread: Re: nonlinear curve fitting using orthogonal distance regression?
  • Next by thread: Manipulate