Re: Solids of revolution
- To: mathgroup at smc.vnet.net
- Subject: [mg116502] Re: Solids of revolution
- From: Narasimham <mathma18 at hotmail.com>
- Date: Thu, 17 Feb 2011 05:19:16 -0500 (EST)
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
(* Some simple surfaces of revolution can be generated and viewed thus:
y[z] is any function of z,
the underscore defines a function in Mathematica to any variable z *)
y[z1_]=2 Sqrt[z1];
par=ParametricPlot3D[{z,y[z]Cos[th],y[z]Sin[th]},{z,0,1},{th,0,2 Pi}]
y[z2_]=2+z2^2;
hyp=ParametricPlot3D[{z,y[z]Cos[th],y[z]Sin[th]},{z,0,1},{th,0,3 Pi/4}]
y[z3_]=2+z3;
cone=ParametricPlot3D[{z,y[z]Cos[th],y[z]Sin[th]},{z,-2,-1},{th,-Pi,Pi}]
Show[par,hyp,cone]
Narasimham