Create Graphics

Plot3D[((x-1)^2+y^2)^4+((x+1)^2+y^2)^4,{x,-2,2},{y,-2,2},PlotRange->{0,10}]

Plot3D[(x^2+6y^2)(E^(-x^2-y^2)),{x,-2,2},{y,-2,2}]

ContourPlot[3(6x^2+y^2)(E^(-x^2-y^2)),{x,-2,2},{y,-2,2},ContourLabels->True,Contours->Range[0,6,1]]

ContourPlot[3(3(Cos[Pi/3]x+Sin[Pi/3]y)^2+1(Cos[Pi]x+Sin[Pi]y)^2+3(Cos[-Pi/3]x+Sin[-Pi/3]y)^2)(E^(-x^2-y^2)),{x,-2,2},{y,-2,2},ContourLabels->Function[{x,y,z},Text[Style[Framed[z],Large],{x,y},Background->White]],Contours->Range[0,6,1],ContourShading->None,PlotTheme->"Business"]
Export["Dropbox/Courses/201/201fa14/figures/ContourPlot.png",
%,ImageResolution->100]

Plot3D[3(3(Cos[Pi/3]x+Sin[Pi/3]y)^2+1(Cos[Pi]x+Sin[Pi]y)^2+3(Cos[-Pi/3]x+Sin[-Pi/3]y)^2)(E^(-x^2-y^2)),{x,-2,2},{y,-2,2},MeshFunctions->{#3&},Mesh->4,PlotStyle->Directive[Orange,Specularity[White,20],Opacity[0.8]]]

Show this