|
PROG
|
(Magma)
L:=LatticeWithGram(16, [3,
-1, 3,
-1, -1, 3,
1, -1, 1, 3,
0, 1, 0, -1, 3,
-1, 0, 0, -1, -1, 3,
1, 0, 0, 1, -1, -1, 3,
-1, 0, 1, 0, 1, -1, -1, 3,
1, 0, -1, 0, -1, 1, 1, -1, 3,
-1, 0, 1, 0, -1, 0, 0, 1, -1, 3,
0, 1, 0, 1, 0, 0, 1, -1, 0, 0, 3,
1, -1, 1, 1, -1, 0, 1, -1, 0, 0, 0, 3,
-1, 0, 1, 1, 0, -1, 0, 1, -1, 1, 0, 0, 3,
0, 0, 1, 0, 1, 0, -1, 1, -1, 0, 0, 0, -1, 3,
1, 1, -1, 0, 0, 0, 0, -1, 0, 0, 1, 0, -1, 1, 3,
1, -1, -1, 1, -1, -1, 1, 0, 0, 0, 0, 0, 0, -1, 0, 3]);
T<q>:=ThetaSeries(L, 16);
T;
|