Re: Multiple surface plots
- To: mathgroup at smc.vnet.net
- Subject: [mg41439] Re: Multiple surface plots
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 19 May 2003 05:16:03 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <ba7i5r$5nl$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Get["MathGL3d`OpenGLViewer`"]
Block[{$DisplayFunction = Identity},
lst = Table[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}]
];
MVClear[];
MVShow3D[#, MVAlpha -> 0.25] & /@ lst;
You can find MathGL3d at
http://phong.informatik.uni-leipzig.de/~kuska/mathgl3dv3/
Regards
Jens
"Narasimham G.L." wrote:
>
> 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