Re: 3D graphics headache
- To: mathgroup at smc.vnet.net
- Subject: [mg67801] Re: 3D graphics headache
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sat, 8 Jul 2006 04:56:09 -0400 (EDT)
- Organization: A Customer of Tele2
- References: <e8lgmd$ra7$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
1) and what does
plt=CylindricalPlot3D[{1/(1 + r^2)*Sin[phi]^2, {EdgeForm[], SurfaceColor[
Hue[1/(1 + r^2)*Sin[phi]^2]]}}, {r, 0, 1}, {phi, 0, 2Pi}]
the same as Mesh->False and ColorFunction->Hue ??
2) take the previous plot and
Show[plt,
plt /. Polygon[pnts_] :> Polygon[Append[Take[#, 2], -0.5] & /@ pnts]
]
you have your shadow plot.
3) no and I have no idea why not to make the shadow in polar coordinates
and finaly tranform the polygons into cartesian coodrinates.
Regards
Jens
broken glass wrote:
> Actually, several headaches.
> 1. CylindricalPlot3D does not appear to accept options Mesh->Off and
> ColorFunctions->Hue (using 5.1)
>
> 2. is there an equivalent to ShadowPlot3D for cylindrical coordinates?
>
> 3. can the variables of a ShadowPlot3D be restricted to a circular
> domain? The functions blows up outside a unit circle and I'd like the
> ColorFunction->Hue to be restricted to a reasonable range, as well as
> having the plot look nice.
>
> Thanks.
>
> E
>