Plot[{-Zeta[s], s},{s,0.001,0.5}]