
I need a code for thermodynamics research that generates a matrix of 32768 by 32768 elements.
The code is the followng:
s0[MicroNumber_, k_] := If[RealDigits[MicroNumber, 2, 15][[1]][[k]] == 0, -1, 1]
s0[MicroNumber_, 0] = 1;
s0[MicroNumber_, 16] = 1;
s = Table[s0[i - 1, j], {i, 1, 32768}, {j, 0,...