Re: Question about a CountorPlot3D
- 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
