Plot3D[Log[Abs[Zeta[x + iy] ]], {x,-4,5},{y,-10,40}]