Controlling StepLeftButton and StepRightButton in Animator
- To: mathgroup at smc.vnet.net
- Subject: [mg82406] Controlling StepLeftButton and StepRightButton in Animator
- From: "David Park" <djmpark at comcast.net>
- Date: Fri, 19 Oct 2007 05:05:33 -0400 (EDT)
If one sets DisplayAllSteps -> True in an Animator, then why doesn't this
also apply to the StepLeftButton and StepRightButton?
Here is an example. This is a stripped down case from a display that
actually has a plot. What I want to do is illustrate that the following
complex function maps the unit circle into the real axis.
w[z_] := (\[ImaginaryI] (1 - z))/(1 + z)
Manipulate[
Column[
{Row[{HoldForm[w[\[ExponentialE]^(\[ImaginaryI] "\[Theta]")]] ==
w[\[ExponentialE]^(\[ImaginaryI] "\[Theta]")],
" maps to the real line"}],
Row[{"Abs[Numerator] = ",
Dynamic@Chop@
N@Abs[1 - \[ExponentialE]^(\[ImaginaryI] \[Theta])]}],
Row[{"Abs[Denominator] = ",
Dynamic@NumberForm[
N@Abs[1 + \[ExponentialE]^(\[ImaginaryI] \[Theta])], {10, 9},
ExponentFunction -> (Null &)]}],
Row[{"w = ",
Dynamic@NumberForm[
Chop@N@w[\[ExponentialE]^(\[ImaginaryI] SetPrecision[\[Theta],
22])], {10, 2}, ExponentFunction -> (Null &)]}],
Row[{"\[Theta] = ",
Dynamic[NumberForm[N[\[Theta]] // Chop, {10, 9}]]}]}],
{\[Theta],
Join[{-\[Pi] + 10^-8, -\[Pi] + 10^-5, -\[Pi] + 10^-3},
Range[-\[Pi] + .01, \[Pi] - .01, (2 \[Pi] - .02)/
50], -Reverse@{-\[Pi] + 10^-8, -\[Pi] + 10^-5, -\[Pi] + 10^-3}],
Animator,
DisplayAllSteps -> True,
AnimationDirection -> ForwardBackward}]
I have a series of discrete steps on theta and I add extra specific points
at each end to get very close to -Pi and Pi. If one moves the slider with
the mouse, or runs the animation, one can see each of these steps. However,
if one uses the StepLeft and StepRight buttons many steps are skipped. Is
there a way to use every step? If not, this seems like a design flaw.
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/