Advertisement
MatsGranvik

Probably integrable square wave via sign function

Dec 30th, 2018
328
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.76 KB | None | 0 0
  1. (*Mathematica divergent sum start*)
  2. nn = 20;
  3. (*f[t_]=D[RiemannSiegelTheta[t],t];*)
  4. f[t_] = 1/2 (-Log[2] - Log[\[Pi]] - Log[1/t]);
  5. abs[x_] =
  6. 2/Pi + (4/Pi) Sum[((-1)^(k - 1)/(4 k^2 - 1)) ChebyshevT[2 k, x], {k,
  7. 1, 40}];
  8. inv[x_] = Normal[Series[(1 + x)^(-1), {x, 0, 40}]];
  9. squarewave[
  10. t_] = (Sign[RiemannSiegelZ[t]]*
  11. Abs[Zeta[1/2 + I*t]*
  12. Total[Table[
  13. Total[MoebiusMu[Divisors[n]]/Divisors[n]^(1/2 + I*t - 1)]/
  14. n, {n, 1, nn}]]]/(f[t] + HarmonicNumber[nn]))/Pi;
  15. Plot[squarewave[t], {t, 0, 60}, PlotStyle -> Thickness[0.004],
  16. ImageSize -> Large, PlotRange -> {-1.2, 1.2}]
  17. Plot[squarewave[t]*inv[-1 + abs[squarewave[t]]], {t, 0, 60},
  18. PlotStyle -> Thickness[0.004], ImageSize -> Large,
  19. PlotRange -> {-1.2, 1.2}]
  20. (*end*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement