Re: Variations on ShadowPlot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg92433] Re: Variations on ShadowPlot3D*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 30 Sep 2008 21:52:00 -0400 (EDT)*Organization*: Uni Leipzig*References*: <gbnphk$psf$1@smc.vnet.net> <gbqcve$ebq$1@smc.vnet.net> <gbt2ug$lgt$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de

Hi, using my code with Mathematica 6 you *get* what you want. You cant do that with version 5, because in version 5 the contour lines/polygons generated form the sampled function. The conversion to Graphics[] will not help, because the polygons are not convex, and Mathematica 5 can't render non-convex polygons in 3d. Regards Jens er wrote: > 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. >