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