Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Resizing new graphic
  • Next by Date: Re: pythonika - problems compiling
  • Previous by thread: Solids of revolution
  • Next by thread: Re: Solids of revolution