|
PROG
|
(Magma)
A:=Matrix([[3, -1, -1, -1, -1, 1, 0, -1, -1, 1], [-1, 3, -1, 1, 0, -1, 1, 1, -1, 1], [-1, -1, 3, 1, 0, -1, -1, 0, 1, -1], [-1, 1, 1, 3, -1, -1, -1, 1, 1, 0], [-1, 0, 0, -1, 3, -1, 1, -1, 0, -1], [1, -1, -1, -1, -1, 3, -1, 0, 0, 1], [0, 1, -1, -1, 1, -1, 3, -1, -1, 0], [-1, 1, 0, 1, -1, 0, -1, 3, 1, 1], [-1, -1, 1, 1, 0, 0, -1, 1, 3, -1], [1, 1, -1, 0, -1, 1, 0, 1, -1, 3]]);
L:=LatticeWithGram(A);
T<q>:=ThetaSeries(L, 37);
S:=[];
for i in [0 .. 37] do S cat:= [Coefficient(T, i)]; end for;
S;
|