Plot3D[y^2/2+x^2/2-x^3/3,{x,-3,3},{y,-3,3}]

ContourPlot[y^2/2+x^2/2-x^3/3,{x,-1.1,1.5},{y,-3,3},Contours->40]