Services & ResourcesWolfram ForumsMathGroup Archive

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

custom label/display for a Manipulate slider?

• To: mathgroup at smc.vnet.net
• Subject: [mg129241] custom label/display for a Manipulate slider?
• From: David <dkehlenbeck at gmail.com>
• Date: Tue, 25 Dec 2012 02:00:29 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

Hi,

So I'm trying to make a somewhat simple unit-circle, and have a slider control within Manipulate that lets the user change theta at the usual steps from 0 to 2Pi. When I use Appearance ->"Labeled" for the slider, it shows the value of theta but in decimals - is there any way to make it show the exact values? I'm assuming I'd have to type out that list somewhere in the code, but as I move the slider, I want it to display Pi/6, 4Pi/3, etc. Is there an easy way to do this?

Thanks!
David

Manipulate[
 Show[
  Graphics[{
    {Gray, Circle[{0, 0}, 1]},
    {Darker[Green, 0.2], Thick, Circle[{0, 0}, 1, {0, theta}]},
    {Darker[Gray], Line[{{0, 0}, {Cos[theta], Sin[theta]}}]},
    {Darker[Blue, 0.1], Thickness[0.006],
     Line[{{Cos[theta], 0}, {Cos[theta], Sin[theta]}}]},
    {Darker[Red, 0.1], Thickness[0.006],
     Line[{{0, 0}, {Cos[theta], 0}}]},
    {}
    }],
  PlotRange -> 2, ImageSize -> 300, Axes -> True,
  Ticks -> {{-1, 1}, {-1, 1}}
  ],
 {theta, {0, \[Pi]/6, \[Pi]/4, \[Pi]/3, \[Pi]/2, 2 \[Pi]/3, 3 \[Pi]/4,
    5 \[Pi]/6, \[Pi], 7 \[Pi]/6, 5 \[Pi]/4, 4 \[Pi]/3, 3 \[Pi]/2,
   5 \[Pi]/3, 7 \[Pi]/4, 11 \[Pi]/6, 2 \[Pi]}, ControlType -> Slider,
  Appearance -> "Labeled"
  }]

• Follow-Ups:
  • Re: custom label/display for a Manipulate slider?
    • From: Bob Hanlon <hanlonr357@gmail.com>