Mathematica

Clear[A, B, n, k, T, nn]

nn = 100;

Monitor[A =

Table[Table[N[Re[k^ZetaZero[n]], 12], {k, 1, nn}], {n, 1, nn}];, n]

ArrayPlot[A, ImageSize -> Full]

Advertisements

Mathematica

Clear[A, B, n, k, T, nn]

nn = 100;

Monitor[A =

Table[Table[N[Re[k^ZetaZero[n]], 12], {k, 1, nn}], {n, 1, nn}];, n]

ArrayPlot[A, ImageSize -> Full]

Advertisements

This entry was posted in Uncategorized. Bookmark the permalink.

%d bloggers like this:

Pingback: blogging