Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (*start*)
- sigma = 3/4
- Plot[Re[1/(1 -
- Sum[(-1)^(n + 1)*(Zeta[N[sigma] + I*t] - 1)^n, {n, 1,
- 100}])], {t, 0, 60}, PlotRange -> {-1, 4}]
- Plot[Re[1/Sum[MoebiusMu[n]/n^(N[sigma] + I*t), {n, 1, 1000}]], {t, 0,
- 60}, PlotRange -> {-1, 4}, PlotStyle -> Red]
- Show[%%, %]
- (*end*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement