RE: Multiple surface plots
- To: mathgroup at smc.vnet.net
- Subject: [mg41425] RE: [mg41408] Multiple surface plots
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 19 May 2003 05:10:05 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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