Re: Special case of plotting a 3D function
- To: mathgroup at smc.vnet.net
- Subject: [mg51134] Re: Special case of plotting a 3D function
- From: mathma18 at hotmail.com (Narasimham G.L.)
- Date: Tue, 5 Oct 2004 04:37:42 -0400 (EDT)
- References: <cionfk$rc2$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
fernandoronci at hotmail.com (Fernando Ronci) wrote in message news:<cionfk$rc2$1 at smc.vnet.net>...
Tried in ver 4, but loading obscures the shell. Hope you improve on it. Cheers.
r = 1; q = 2; L = 4; x = r Cos[th] ; ; y = L v ; z1 = r Sin[th] ; z2 =
z1 + q*v*(1 - v);
shell1 =
ParametricPlot3D[ {x, y, z1}, {th, 0, Pi}, {v, 0, 1}, Shading -> False];
Load = ParametricPlot3D[ {x, y, z2}, {th, 0, Pi}, {v, 0, 1},
Shading -> False]; Show[shell1, Load];
Clear[th, v, x, y, x1, y1, z1, z2] ;
r = 1; x = r Cos[th] /Cos[Pi/4 - th/2]^2/2 ; z1 =
r Sin[th]/ Cos[Pi/4 - th/2]^2/2 ; y = L v ; z2 = z1 + q*v*(1 - v);
shell2 = ParametricPlot3D[ {x, y, z1}, {th, 0, Pi}, {v, 0, 1},
Shading -> False]; Show[shell2, Load];