       • To: mathgroup at smc.vnet.net
• Subject: [mg117502] Re: Question about a CountorPlot3D
• From: Andy <andyr at wolfram.com>
• Date: Mon, 21 Mar 2011 06:13:57 -0500 (EST)

```On 3/20/2011 4:55 AM, Iv=E1n Lazaro wrote:
> Hi all!
>
> This may be silly, but I want to know if is posible to make a CountorPlot3D
> like the one is shown in the link.
>
> I'm specially interested in the "projection". Is it possible?
>
> Thanks a lot!
>
> Image:
> http://209.85.62.24/28123/36/0/p397406/Wigner.jpg
The following should get you started assuming you have version 8 with
its texture mapping.

fn[{x_, y_}] := {x, y, (x^2 + y^2) Exp[1 - x^2 - y^2]}

coords = fn /@
Reap[Plot3D[ (x^2 + y^2) Exp[1 - x^2 - y^2], {x, -3, 3}, {y, -3,
3}, PlotPoints -> 100, EvaluationMonitor :> Sow[{x, y}]]][[-1,
1]];

pdf = Show[
Graphics3D[{Texture[
ContourPlot[(x^2 + y^2) Exp[1 - x^2 - y^2], {x, -3, 3}, {y, -3,
3}, PlotRange -> {{-3, 3}, { -3, 3}, All}, PlotPoints -> 50]],
EdgeForm[],
Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}},
VertexTextureCoordinates -> {{0, 0, 0}, {1, 0, 0}, {1, 1, 1}, {0,
1, 1}}] }, Lighting -> "Neutral"],
ListPointPlot3D[Rescale[coords],
PlotStyle -> Directive[PointSize -> Tiny]]]

-Andy Ross
Wolfram Research

```

• Prev by Date: Re: Following position change in different vectors
• Next by Date: Re: Following position change in different vectors