RE: Plot3D and ContourPlot problem
- To: mathgroup at smc.vnet.net
- Subject: [mg73087] RE: [mg73038] Plot3D and ContourPlot problem
- From: "Jose Luis Gomez" <jose.luis.gomez at itesm.mx>
- Date: Thu, 1 Feb 2007 04:19:57 -0500 (EST)
- Organization: ITESM
- References: <200701301212.HAA16566@smc.vnet.net>
Dear Josef
I like to use ShadowPlot3D for this kind of plots.
Notice that:
a) You MUST load the Graphics`Graphics3D` library BEFORE using ShadowPlot3D
b) In my version of MATHEMATICA (5.2 for Windows) you MUST set Lighting ->
False, something that is Not documented in the help browser.
Here is your example:
Needs["Graphics`Graphics3D`"];
f[x_, y_] := Exp[-(x^2 + y^2)];
ShadowPlot3D[f[x, y], {x, -2, 2}, {y, -2, 2},
Lighting -> False, ShadowPosition -> 1,
ShadowMesh -> False, PlotPoints -> 50]
I hope that helps!
Jose Gomez-Munoz, from Mexico
-----Mensaje original-----
De: Josef Otta [mailto:josef.otta at gmail.com]
Enviado el: Martes, 30 de Enero de 2007 06:12 a.m.
Para: mathgroup at smc.vnet.net
Asunto: [mg73038] Plot3D and ContourPlot problem
Hi,
i want to combine Plot3D and ContourPlot. Do You have any idea how to do
that?
I need to have for example picture with plotted function f[x,y] and on the
x-y plane shown its contours
f[x_, y_] := Exp[-(x^2 + y^2)]
a = Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}, HiddenSurface ->
False, Shading -> False, Boxed -> True, PlotPoints -> 15]
b = ContourPlot[f[x, y], {x, -2, 2}, {y, -2, 2}, PlotPoints -> 30]
Any ideas how to do something like "Show[a,b]"?
Thanks,
Josef