(岩浆)
前c:=80;
S:=对称矩阵,
0, 4, 0, 0, 0, 0, -1, 0, 0, 0, 0, 4, -1, -2, 1, 1, 0, 1, 0, -1, 0, 1, 4, 0, -1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, 0, 4]);
L:=带革兰氏的Lattice(S);
M:=ThetaSeriesModularFormSpace(L);
B:=基础(M,prec);
T<q>:=θ系列(L,52);
系数(&+[系数(T)[2*i-1]*B[i]:i在[1..25]]+系数(T)[53]*B[26])//安迪·胡查拉,2023年5月4日