(岩浆)
前c:=80;
S:=对称矩阵([4, 2, 4, 0, -2, 4, 0, -2, 0, 4, 0, 0, -2, 0, 4, -2, -2, 0, 0, 0, 4, -2, -1, 1, 0, 0, 0, 4, -2, -1, 0, -1, 1, 2, 2, 4, -2, -2, 0, 1, 1, 2, 2, 2, 4, -2, 0, -2, 0, 1, 1, 0, 0, 0, 4, 1, 1, 0, 0, 0, -2, 0, -1, -1, -2, 4, -2, -1, 0, 0, 0, 1, 1, 1, 1, 1, -2, 4, 0, -1, 1, 1, 0, -1, 1, 0, 0, -1, 1, -1, 4, 0, 0, 0, 0, 0, 0, 1, 0, 1, -1, 1, -1, 1, 4]);
L:=格子WithGram(S);
T<q>:=θ系列(L,42);
M:=ThetaSeriesModularFormSpace(L);
B:=基础(M,prec);
系数(&+[系数(T)[2*i-1]*B[i]:[1..22]]中的i)//安迪·胡查拉2023年5月7日