Re: Variations on ShadowPlot3D

*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.