Manipulate bug (?) when stepping by degrees?

• To: mathgroup at smc.vnet.net
• Subject: [mg123277] Manipulate bug (?) when stepping by degrees?
• From: Chris Young <cy56 at comcast.net>
• Date: Wed, 30 Nov 2011 03:20:06 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```When I try to specify 5 degree increments for the rotation steps, the
amount of rotation actually is much bigger and unpredictable. Does
Manipulate have a problem handling degrees as increment amounts?

http://home.comcast.net/~cy56/ManipulateBugDegrees.png

http://home.comcast.net/~cy56/ManipulateBugDegrees.nb

Manipulate[
Plot3D[
Sin[x y],
{x, 0, 3}, {y, 0, 3},

PlotRange -> All,
PlotStyle -> Opacity[opac],
PlotPoints -> plotPts,
MeshFunctions -> ( {x, y, z} \[Function] z),
Mesh -> mesh,
MeshStyle -> Directive[Gray, Thin],
AxesLabel -> {"x", "y", "z"}
]  /.

Graphics3D[graphics_, opts___] :>
Graphics3D[
{
graphics,
(scale \[Function]
Scale[graphics, scale, {\[ScriptX], \[ScriptY], \[ScriptZ]}])
/@
(1 + spread - IdentityMatrix[3])
},
opts,
ViewPoint -> Dynamic[{viewR Cos[view\[Theta]] Sin[view\[Phi]],
viewR Sin[view\[Theta]] Sin[view\[Phi]],
viewR Cos[view\[Phi]]}]
],

{{opac, 0.2}, 0, 1},
{{plotPts, 50}, 10, 100, 1},
{{\[ScriptX], -1}, -1, 0},
{{\[ScriptY], -1}, -1, 0},
{{\[ScriptZ], -1}, -1, 0},
{{mesh, 10}, 0, 20, 1},
{{spread, 0.1}, -0.1, 0.1, 0.001},
{{viewR, 100}, 0, 100},
{{view\[Theta], 0 \[Degree]}, 0 \[Degree], 360 \[Degree],
5 \[Degree]},
{{view\[Phi], 70 \[Degree]}, 0 \[Degree], 180 \[Degree],
5 \[Degree]}
]

```

• Prev by Date: Re: Problem with Patterns and Integrate
• Next by Date: Re: Problem with Patterns and Integrate
• Previous by thread: Problems with a first order differential equation
• Next by thread: Point light source demo