#得到th2,th3,th4=Jacobiθ常数的最大值
最大值:=2001:
temp0:=trunc(evalf(sqrt(maxd)))+2:a:=0:对于i从-temp0到temp0,执行a:=a+q^((i+1/2)^2):od:th2:=系列(a,q,maxd):
a: =0:对于从-temp0到temp0的i,执行a:=a+q^(i^2):od:th3:=系列(a,q,maxd):
th4:=系列(sub(q=-q,th3),q,maxd):
#得到水蛭等
t1:=th2^8+th3^8+th4^8:e8:=系列(t1/2,q,最大值):
t1:=th2^8*th3^8*th4^8:增量24:=系列(t1/256,q,最大值):
水蛭:=系列(e8^3-720*delta24,q,maxd):
u1:=系列(水蛭^3,q,maxd):
#u2:=系列(水蛭^2*delta24,q,maxd):
u3:=系列(水蛭*delta24^2,q,maxd):
u4:=系列(增量24^3,q,最大值):
u5:=系列(u1-589680*u3-78624000*u4,q,maxd);
|