Plot3D[Max[Abs[x],Abs[y]],{x,-1,1},{y,-1,1}]