(* Different ways to plot in 2D  *)

(* Define the plots, but don't display them yet  *)


p1 = DensityPlot[Exp[x^2 + y^2] - 5 , {x, -2, 2}, {y, -2, 2}, Axes ->
True, Mesh -> False,  ColorFunction -> (RGBColor
[1-#, #, #]&), DisplayFunction -> Identity];

p2 = DensityPlot[Exp[x^2 + y^2] - 5, {x, -2, 2}, {y, -2, 2}, PlotPoints
-> 30, Axes -> True, Mesh -> False,
  ColorFunction -> (Hue[#]&), DisplayFunction -> Identity];

p3 = ContourPlot[Exp[x^2 + y^2] - 5, {x, -2, 2}, {y, -2, 2}, 
ContourShading->False, Contours->{-4, -3, -2, -1, 0, 1, 2, 3, 4},
Axes -> True, DisplayFunction -> Identity];


Show[p3, DisplayFunction -> $DisplayFunction]

(* Show all of them on the same plot *)
Show[p1,p2,p3, DisplayFunction -> $DisplayFunction]


(* Aknowledgement: Thanks to Niteesh Bharara (CS3414 Fall 03) for help
with preparing this example *)