Plot[-Re[(Zeta[3/2]*Zeta[1/2 + I*t]*Zeta[(-I)*t])/(Zeta[-(1/2)]*Zeta[1/2 - I*t]*Zeta[1 + I*t])], {t, 0, 60}] vs Plot[Sqrt[8*Pi*t], {t, 0, 60}]