Re: Plot3d question

*To*: mathgroup at smc.vnet.net*Subject*: [mg40095] Re: Plot3d question*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Thu, 20 Mar 2003 03:33:02 -0500 (EST)*Organization*: Universitaet Leipzig*References*: <b59a3d$sb6$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, have a look at CylindricalPlot3D[] from the standard package Graphics`ParametricPlot3D` . But Plot3D[] will always generate a SurfaceGraphics[] while Mathematica uses a general Graphics3D[] structure to reperesent a mesh in non-cartesian coordinates. Something like gg = Graphics3D[ Plot3D[(1 - r)^2*(1 - Sin[phi])^2, {r, 0, 2}, {phi, 0, 2Pi}, DisplayFunction -> Identity]] /. Polygon[pnts_] :> Polygon[pnts /. {r_?NumericQ, phi_?NumericQ, z_?NumericQ} :> {r*Cos[phi], r*Sin[phi], z}]; Show[gg, DisplayFunction -> $DisplayFunction] may help you. Regards Jens Jeremy wrote: > > Is there any way to make Plot3D display its output in a cylinder, instead of > a box? > > Thanks, > Jeremy