Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

How could I fit 24 vertical slides in a row?, in the up

and How to add any reference like 0 and 8 ?

and how to add 2 options boxes in the right under the vslides (or to the right of vlides???

What I want is similar to http://sensa.square7.ch/fit-snap0-4.jpgenter image description here

Manipulate[{h1*h2*h3*h4}, 
 Row[{Control[{h1, 0, 8}], Control[{h2, 0, 8}], Control[{h3, 0, 8}], 
   Control[{h4, 0, 8}], Control[{h5, 0, 8}], Control[{h6, 0, 8}], 
   Control[{h7, 0, 8}], Control[{h8, 0, 8}], Control[{h9, 0, 8}], 
   Control[{h10, 0, 8}], Control[{h11, 0, 8}], Control[{h12, 0, 8}], 
   Control[{h13, 0, 8}], Control[{h14, 0, 8}], Control[{h15, 0, 8}], 
   Control[{h16, 0, 8}], Control[{h17, 0, 8}], Control[{h18, 0, 8}], 
   Control[{h19, 0, 8}], Control[{h20, 0, 8}], Control[{h21, 0, 8}], 
   Control[{h22, 0, 8}], Control[{h23, 0, 8}], Control[{h24, 0, 8}]}],
  ControlType -> VerticalSlider, ControlPlacement -> Up]
share|improve this question

closed as too broad by m_goldberg, Sjoerd C. de Vries, belisarius, gpap, Verbeia Apr 11 at 15:03

There are either too many possible answers, or good answers would be too long for this format. Please add details to narrow the answer set or to isolate an issue that can be answered in a few paragraphs.If this question can be reworded to fit the rules in the help center, please edit the question.

1 Answer 1

up vote 3 down vote accepted

Control doesn't have that broad an option space, so it's difficult to control the appearance of VerticalSlider within Manipulate.

I would recommend switching to using DynamicModule, as in this minimal example. If you need more examples add a comment and I'll edit.

Updated with embedded Manipulate per request.

DynamicModule[{h1, h2, h3, h4, h5, h6, h7, h8, h9, h10, h11, h12, h13, h14, h15, h16, h17, h18, h19, h20, h21, h22, h23, h24},
Panel[Column[{Row@Map[
  Column[{8, VerticalSlider[Dynamic@#1, {0, 8}], 0}, 
    Alignment -> Center] &, {h1, h2, h3, h4, h5, h6, h7, h8, h9, 
   h10, h11, h12, h13, h14, h15, h16, h17, h18, h19, h20, h21, 
   h22, h23, h24}],
Manipulate[
 BarChart[{h1, h2, h3, h4, h5, h6, h7, h8, h9, h10, h11, h12, h13,
    h14, h15, h16, h17, h18, h19, h20, h21, h22, h23, h24}, 
  ImageSize -> 550, PlotRange -> {All, {0, 8}}],ControlType->None,Paneled->False,AppearanceElements->False]
}], Alignment -> Center]
]

enter image description here

share|improve this answer
    
How Can I made for execute this and view in my computer? I copy&paste, but I have no results. –  Mika Ike Apr 11 at 14:14
    
@MikaIke The missing bracket was bellow the block of code. Please consider making more efforts than just copy/paste/ask a new question. –  Öskå Apr 11 at 14:50
1  
@Martin, I added PlotRange -> {All, {0, 8}} for clarity purposes, I hope you don't mind :) –  Öskå Apr 11 at 14:50
    
@oska, I understand that you may think so, but... I make more efforts than copy/paste. but... I think that MAthematica could be more easily to understand if the documentation would be better. I understand many things reading your postss, but... I have no viewed many info in the documentation –  Mika Ike Apr 11 at 14:51
    
@martin-john-hardley PERFECT!!! :-)) The only problem I´m trying to solve is how to put that beautifull thing inside manipulate. I´m hating Mathematica because... if you want understand and learning you are force to do it at this forum .... instead reading oficial documentation. –  Mika Ike Apr 11 at 15:00

Not the answer you're looking for? Browse other questions tagged or ask your own question.