MathGroup Archive 2011

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

Search the Archive

Re: Solids of revolution


(* 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