Exaple 6.5.2

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