Plot[(Re[Zeta[1/2+x*I]], Im[Zeta[1/2+x*I]]), {x, 0, 40}]