Re: Variations on ShadowPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg92372] Re: Variations on ShadowPlot3D
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 29 Sep 2008 07:08:35 -0400 (EDT)
- References: <gbnphk$psf$1@smc.vnet.net>
Hi,
with Mathematica 6
fun = Sin[x*y];
cntr = ContourPlot[fun, {x, -Pi, Pi}, {y, -Pi, Pi}];
plt3d = Plot3D[fun, {x, -Pi, Pi}, {y, -Pi, Pi}];
Graphics3D[
{plt3d[[1]], cntr[[1]] /. GraphicsComplex[pnts_, data__] :>
GraphicsComplex[Append[#, -2] & /@ pnts, data]}]
will work.
Regards
Jens
er wrote:
> Hello,
>
> I'm looking for something like,
>
> ShadowPlot3D[fun[x2, x3], {x2, -10, 10}, {x3, -10, 10},
> ViewPoint -> {1.303, -2.921, 1.104}, AxesLabel -> {"x2", "x3", ""}]
>
> *but* such that the projection is something like:
>
> ContourPlot[
> funx2, x3],
> {x2, -10, 10}, {x3, -10, 10},
> Contours -> {-1,0,1}
> }
>
> Is such a thing possible? How?
>
> Thanks!
>