Re: Question about a CountorPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg117516] Re: Question about a CountorPlot3D
- From: DC <b.gatessucks at gmail.com>
- Date: Mon, 21 Mar 2011 06:16:30 -0500 (EST)
- References: <im4iuk$d49$1@smc.vnet.net>
There is probably a better way.
-Francesco
f[x_, y_] = -(1/(x^2 + y^2 + 0.1));
plot = Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}, PlotRange -> All,
PlotStyle -> Opacity[0.7]];
contour = ContourPlot[f[x, y], {x, -2, 2}, {y, -2, 2}];
Show[plot,
Graphics3D[contour[[1]] /. {x : _Real, y : _Real} -> {x, y, -10}]]
On 20/03/11 09:55, Iván 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
