|
黄体脂酮素
|
(岩浆)
//晶格的定义(SL(2,9)Y SL(2,9))。(C2 x C2),来自约翰·坎农
带基的格(16,\[1,0,0,0,0,0,
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,
0,0,00,0,10,0+0,0,0,0,01,1],矩阵环(IntegerRing(),16)\[
4, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 4, 2, 1, 1, 1, 2,
1, -1, 1, 1, 0, 1, 0, 1, 1, 2, 2, 4, 0, 1, 2, 2, 1, 1, 1, 2, 1, 0, 1,
1, 2, 1, 1, 0, 4, 1, 1, 1, 2, 0, 2, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 4,
1, 1, 1, 1, 0, 0, 0, 1, 2, 2, 2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2,
0,2,1,2,1,2,1,1,1,4,1,0,2,1,1,0,1,1,1,
2, 1, 1, 1, 4, 1, 2, 2, 2, 1, 1, 1, 0, 1, -1, 1, 0, 1, 2, 0, 1, 4, 1,
1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 0, 1, 2, 2, 1, 4, 2, 2, 1, 0, 0, -1, 2,
1, 2, 1, 0, 2, 2, 2, 1, 2, 4, 2, 0, 0, 1, 1, 1, 0, 1, 1, 0, 2, 1, 2,
2, 2, 2, 4, 1, 0, -1, 1, 1, 1, 0, 2, 1, 0, 1, 1, 1, 1, 0, 1, 4, 1, 1,
1, 2, 0, 1, 1, 2, 2, 0, 1, 2, 0, 0, 0, 1, 4, 2, 1, 2, 1, 1, 1, 2, 1,
1, 1, 1, 0, 1, -1, 1, 2, 4, 1, 1, 1, 2, 0, 2, 2, 1, 0, 1, -1, 1, 1, 1,
1, 1, 4 ])
(岩浆)
A:=晶格(“A”,2);
B:=晶格(“E”,8);
L:=张量积(A,B);
T<q>:=θ系列(L,16);
(岩浆)A:=基础(模块形式(Gamma0(3),8),26);A[1]+720*A[3]/*迈克尔·索莫斯2017年2月1日*/
(PARI){a(n)=if(n<0,0,my(a,a1);a=x*O(x^n);a1=(eta(x+a)^3+9*x*eta(x^9+a)^3)/eta(x^3+a);polcoeff(a1^2*(a1^6-48*x*eta(x+a)^6*eta(x^3+a)^6),n))}/*迈克尔·索莫斯2017年2月1日*/
|