[Date Index]
[Thread Index]
[Author Index]
How to draw such 3D surface?
*To*: mathgroup at smc.vnet.net
*Subject*: [mg32649] How to draw such 3D surface?
*From*: liwen liwen <gzgear at yahoo.com>
*Date*: Fri, 1 Feb 2002 16:10:49 -0500 (EST)
*Sender*: owner-wri-mathgroup at wolfram.com
Hi,
I want to draw a 3D surface defined by the following equations :
r1=8;h=10/180*Pi;
p=r1*Tan[h];
x[u_,v_]:=r1*Cos[v] + u*Cos[h]*Sin[v];
y[u_,v_]:=r1*Sin[v] - u*Cos[h]*Cos[v];
z[u_,v_]:=p*v-u*Sin[h];
R[u_, v_]= {x[u, v], y[u, v], z[u, v]};
0 <= v <= Pi;
u <= v*r1/Cos[h];
R[u,v] is a space vector that is able to describe a 3D surface.
I want to use the following procedure to draw it but failed, what should I do?
<< Graphics`ParametricPlot3D`
ParametricPlot3D[{r1*Cos[v] + u*Cos[h]*Sin[v],
r1*Sin[v] - u*Cos[h]*Cos[v],
p*v-u*Sin[h]}, {v, 0, Pi/2}, {u, 0,
v*r1/Cos[h]}]
Thanks.
Liwen
Prev by Date:
**Re: Sum expansion**
Next by Date:
**Re: Keeping order with Union**
Previous by thread:
**RE: Simplify**
Next by thread:
**Re: How to draw such 3D surface?**
| |