Plot3D[1/((E^z - 1) z), {z, -10., 10.}, {x, -10., 10.}]