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