Re: Multiple surface plots
- To: mathgroup at smc.vnet.net
- Subject: [mg41496] Re: Multiple surface plots
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Thu, 22 May 2003 06:58:10 -0400 (EDT)
- References: <baa734$jlq$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
David,
thanks for the nice desciption of the possible animation operations. Up
to now I only used Ctrl+y...
Regards,
Wolfgang
David Park wrote:
> Use
>
> x = w Cos[u] Cos[v]; y = w Cos[u] Sin[v]; z = - w Sin[u];
> Table[ParametricPlot3D[ {x, y, z}, {u, 0, Pi/2}, {v, 0, 2 Pi},
> PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}},
> BoxRatios -> {2, 2, 1}], {w, .5, 1, .1}];
> SelectionMove[EvaluationNotebook[], All, GeneratedCell]
> FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.01];
> FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
> AnimationDirection -> Forward]}]
>
> Then use the up/down cursor (arrow) keys to advance frame by frame through
> the animation. This is often the best way to look at an animation. The
> right/left cursor keys will resume the animation in a forward or backward
> direction. The number keys on the numeric keypad can be used to control the
> speed of the animation.
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>
> From: Narasimham G.L. [mailto:google.news.invalid at web2news.net]
To: mathgroup at smc.vnet.net
>
>
> x= w Cos[u] Cos[v];y= w Cos[u] Sin[v];z= - w Sin[u];
> ParametricPlot3D[ {x,y,z},{u,0,Pi/2},{v,0,2 Pi},{w,.5,1,.1}];
> ? WANT TO SEE ALL TRANSLUCENT SURFACES WITH SUCH THIRD PARAMETER
> SUBROUTINE ( NO SUCH SUBROUTINE/COMMAND IN MATHEMATICA)?
> x= w Cos[u] Cos[v];y= w Cos[u] Sin[v];z=- w Sin[u];
> Table[ParametricPlot3D[ {x,y,z},{u,0,Pi/2},{v,0,2 Pi},
> PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}},
> BoxRatios->{2,2,1}],{w,.5,1,.1}]; ? ANIMATION IN W?
> ? OR ELSE WANT TO AVOID CLEAR SCREEN DURING W
> INCREMENTED ANIMATION WITHIN ONE CYCLE?
> -------
> Is it possible to get several plots or avoid clear screen?
> It may be possible to Show[ w1,w2,..] but, can it be avoided for a
> --
> Posted via http://web2news.com
> To contact in private, remove nno+-8s3ppa9mm
>
>
>
>