       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

```

• Prev by Date: Re: Plot3D and ContourPlot problem
• Next by Date: file functions & FrontEnd`FileName
• Previous by thread: Re: Plot3D and ContourPlot problem
• Next by thread: Re: Plot3D and ContourPlot problem