A220002型:=proc(n)局部s;s:=n->`如果`(n>0,s(iquo(n,2))+n,0);
(-1)^n*mul(4*i+2,i=1..2*n)*2^s(iquo(n,2))*coeff(taylor(sqrt(sin(x)/x),x,2*n+2),x和2*n,end:seq(A220002型(n) ,n=0..14);
#第二个程序说明了伽马商的J.L.Fields展开。
2000年2月:=proc(n)本地recF,binSum,swing;
binSum:=n->加(i,i=转换(n,基数,2));
摆动:=n->n/伊科(n,2)^2;
recF:=proc(n,x)选项记住`如果`(n=0,1,-2*x*add(二项式(n-1,2*k+1)*bernoulli(2*k+2)/(2*k+2)*recF(n-2*k-2,x),k=0..n/2-1))end:recF(2*n,-1/4)*2^(3*n-binSum(n))*swing(4*n+1)end: