Plot3D[{x^2-y^2,0},{x,-4,4},{y,-4,4},RegionFunction->Function[{x,y,z},.5z^2+x^2+y^2≤9],AxesEdge->{{-1,-1},{-1,-1},{-1, -1}},AxesLabel->Automatic, Boxed->False]