Re: Multiple surface plots
- To: mathgroup at smc.vnet.net
- Subject: [mg41426] Re: Multiple surface plots
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Mon, 19 May 2003 05:10:21 -0400 (EDT)
- References: <ba7i5r$5nl$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
You have made a syntax error in the command ParametricPlot3D (see the
help browser): you can only have two parameters varying, here e.g. u and
v. Also you must be careful with you x, y, and z.
In the following I have defined x, y, and z as functions and set w=1.
This works in version 4.0.
In[70]:=
ClearAll[x, y, z, u, v, w]
In[71]:=
x[u_, v_, w_] := w Cos[u] Cos[v];
y[u_, v_, w_] := w Cos[u] Sin[v];
z[u_, v_, w_] := -w Sin[u];
In[73]:=
w = 1;
In[74]:=
ParametricPlot3D[{x[u, v, w], y[u, v, w], z[u, v, w]}, {u, 0, \[Pi]/2},
{v, 0, 2 \[Pi]}];
This shows a nice paraboloid. If you would like to have the same thing
done for several values of w you should write a For-loop.
Wolfgang
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
>