Assignment 8

47

Plot3D[ x^3  +  y^3,  {x, -1.5, 1.5}, {y, -1.5, 1.5}, 
      BoxRatios -> Automatic]

ContourPlot[
      x^3  +  y^3,  {x, -1.5, 1.5}, {y, -1.5, 1.5}]

48

Plot3D[Sin[y E^-x],  {x, -2, 1}, {y, -2.5, 2.5}, 
      PlotPoints -> 100]

ContourPlot[Sin[y E^-x],  {x, -2, 1}, {y, -2.5, 2.5}, 
      PlotPoints -> 50,  ContourShading -> False]

49

Plot3D[x y^2  -  x^3,  {x, -2, 2}, {y, -2, 2},  
      BoxRatios -> Automatic]

ContourPlot[x y^2  -  x^3,  {x, -2, 2}, {y, -2, 2}, 
      PlotPoints -> 50]

50

Plot3D[x y^3  -  y x^3, {x, -2, 2}, {y, -2, 2}, 
      BoxRatios -> Automatic]

ContourPlot[x y^3  -  y x^3,  {x, -2, 2}, {y, -2, 2}, 
      PlotPoints -> 50]