Re: Animate with Slider Box Value
- To: mathgroup at smc.vnet.net
- Subject: [mg82498] Re: Animate with Slider Box Value
- From: Albert <awnl at arcor.net>
- Date: Mon, 22 Oct 2007 05:41:45 -0400 (EDT)
- References: <ffcjrv$sfd$1@smc.vnet.net>
Hi, > I would like to use the following example Animate[Plot[Sin[a x]+Sin[b x],{x,0,10},PlotRange=AE2],{a,1,5},{b,1,5}] But to include only a box with the currnet value of the slider, without the controls (e.g., Pause, etc.). Also, I would like to include a more descriptive name for the slider. How can I this? John C. Erb Maybe this is what you want? Animate[ Plot[Sin[a x] + Sin[b x], {x, 0, 10}, PlotRange -> {-2, 2}], {{a, 1, "Parameter 1:"}, 1, 5}, {{b, 1, "Parameter 2:"}, 1, 5}, AnimatorElements -> "ProgressSlider" ] If you want even more control, you probably can construct the Animate all by yourself, e.g. with something like: Deploy[ DynamicModule[{a = 1, b = 1}, Panel[Column[{Row[{Animator[Dynamic[a], {1, 5}, AppearanceElements -> None], "Parameter 1:", Spacer[5], InputField[Dynamic[a]]}], Row[{Animator[Dynamic[b], {1, 5}, AppearanceElements -> None], "Parameter 2:", Spacer[5], InputField[Dynamic[b]]}], Panel[ Dynamic[ Plot[Sin[a x] + Sin[b x], {x, 0, 10}, PlotRange -> {-2, 2}]], ImageSize -> 400 ] }] ]] ] hth, albert