• 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>

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

```

• Prev by Date: Re: Redirecting input
• Next by Date: Re: Avoiding Null output marker from a function