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
  • Subject: [mg116502] Re: Solids of revolution
  • From: Narasimham <mathma18 at>
  • Date: Thu, 17 Feb 2011 05:19:16 -0500 (EST)
  • Reply-to: comp.soft-sys.math.mathematica at

(* 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}]
hyp=ParametricPlot3D[{z,y[z]Cos[th],y[z]Sin[th]},{z,0,1},{th,0,3 Pi/4}]


  • 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