WOLFRAM

Wolfram 语言与系统参考资料中心

制作 Zeta 函数动画

在临界线上制作 zeta 函数动画.

    
Wolfram Language code: 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}]