墨西哥:=16:
XGF:=exp(z^2/2)*add((z/exp(z))^n*2^二项式(n,2)/n!,n=0..MX+5):
K1:=1/6*z^4/(1-z)^3*XGF:
K2:=1/2*z^4/(1-z)^2*(差异(XGF,z)-XGF):
K3:=1/6*z^6/(1-z)^3*(差异(XGF,z$3)-3*diff(XGF,z$2)+3*diff
K4:=1/2*z^5/(1-z)^4*(差异(XGF,z$2)-2*diff(XGF,z)+XGF):
K5:=1/6*z^4/(1-z)^4*(差异(XGF,z)-XGF):
K6:=1/2*z^5/(1-z)^5*(差异(XGF,z)-XGF):
XS:=系列(K1+K2+K3+K4+K5+K6,z=0,MX+1):
序列(n!*系数(XS,z,n),n=1..MX);
|