Plot[Abs[Zeta[2/3 + t I]], {t, 0, 100}]