• To: mathgroup at smc.vnet.net
• Subject: [mg92391] Re: Variations on ShadowPlot3D
• From: er <erwann.rogard at gmail.com>
• Date: Tue, 30 Sep 2008 07:36:03 -0400 (EDT)
• References: <gbnphk\$psf\$1@smc.vnet.net> <gbqcve\$ebq\$1@smc.vnet.net>

```On Sep 29, 7:08 am, Jens-Peer Kuska <ku... at informatik.uni-leipzig.de>
wrote:
> 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!

Thanks!

Using your code I get two separate plots, one on top of each other. I
was hoping something like ShadowPlot all in the same plot.

```

• Prev by Date: Re: A Package Function Tutorial
• Next by Date: Re: blurry ellipse