|
PROG
|
(Magma)
order:=60; // Example
L:=LatticeWithGram(20, [6, 0, 0, 0, 2, 0, 2, 2, 2, 0, 0, 2, 0, 2, 1, -1, 1, 2, 0, 2, 0, 6, 0, 2, 2, 0, 0, 2, 0, 2, 2, 2, 0, 0, 1, 1, -1, 0, 2, 2, 0, 0, \
6, 0, 2, 2, 0, 0, 2, 2, 0, 2, 2, 0, -1, 1, 1, 2, 2, 0, 0, 2, 0, 6, 0, 0, 0, 0, 0, 2, -2, 1, 0, 0, 0, 0, 2, 0, 2, 0, 2, 2, 2, 0, 6, 0, 0, 2, 2, 2, 1, 0, 1, 1, 2, 2, 2, \
2, 2, 2, 0, 0, 2, 0, 0, 6, 0, 0, 2, 0, 0, 1, -2, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 6, 2, 0, 0, 0, 1, 0, -2, 0, 2, 0, 0, 0, 2, 2, 2, 0, 0, 2, 0, 2, 6, 0, 0, 2, 0, \
0, -2, 2, 0, -2, 1, 1, -1, 2, 0, 2, 0, 2, 2, 0, 0, 6, 0, 0, 0, -2, 2, 0, -2, 2, -1, 1, 1, 0, 2, 2, 2, 2, 0, 0, 0, 0, 6, -2, 0, 2, 0, -2, 2, 0, 1, -1, 1, 0, 2, 0, -\
2, 1, 0, 0, 2, 0, -2, 6, 0, 0, 0, 2, 0, -2, 0, 2, 0, 2, 2, 2, 1, 0, 1, 1, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 2, 0, 1, -2, 0, 0, -2, 2, 0, 0, 6, 0, -2, 2, 0\
, 2, 0, 0, 2, 0, 0, 0, 1, 0, -2, -2, 2, 0, 0, 0, 0, 6, 0, -2, 2, 0, 0, 2, 1, 1, -1, 0, 2, 2, 0, 2, 0, -2, 2, 0, -2, 0, 6, 0, 0, 2, 2, 0, -1, 1, 1, 0, 2, 0, 2, 0, -2\
, 2, 0, 0, 2, -2, 0, 6, 0, 2, 0, 2, 1, -1, 1, 2, 2, 0, 0, -2, 2, 0, -2, 0, 0, 2, 0, 0, 6, 0, 2, 2, 2, 0, 2, 0, 2, 2, 0, 1, -1, 1, 0, 2, 2, 0, 2, 2, 0, 6, 0, 0, 0, 2, \
2, 2, 2, 0, 0, 1, 1, -1, 2, 2, 0, 0, 2, 0, 2, 0, 6, 0, 2, 2, 0, 0, 2, 0, 2, -1, 1, 1, 0, 2, 0, 2, 0, 2, 2, 0, 0, 6]);
theta:=ThetaSeriesModularForm(L); PowerSeries(theta, order);
|