Animate the Zeta Function
Animate the zeta function on the critical line.
Animate[Plot[{Re[Zeta[1 / 2 + I t]], Im[Zeta[1 / 2 + I t]]}, {t, u, u + 20}, PlotRange -> {-5, 5}, Axes -> {True, False}, Frame -> True, ImagePadding -> {{Automatic, 5}, {Automatic, 1}}], {u, 2, Infinity, 1 / 2}]