15.2 Homework

October 15, 2015

Michael Mangus

#34

RegionPlot3D[2-x^2-y^2>z>E^(-x^2) Cos[x^2+y^2],{x,-1,1},{y,-1,1},{z,-0.2,2},Mesh->False]

#37

Plot3D[x*y/(1+x^4),{x,-1,1},{y,0,1}, ViewPoint->{0, -2, 0}]

ContourPlot[x*y/(1+x^4),{x,-1,1},{y,0,1}]

#38

Plot3D[1+Sin[y]*x^2+Sin[x]*y^2,{x,-Pi,Pi},{y,-Pi,Pi}]

ContourPlot[1+Sin[y]*x^2+Sin[x]*y^2,{x,-Pi,Pi},{y,-Pi,Pi}]