方程:=G=1+z*G+z^2*G+z ^3*(G-zz^2)*G:G:=RootOf(eq,G):Gser:=级数(G,z=0,37):seq(系数(Gser,z,n),n=0。。35);
#第二个Maple项目:
b: =proc(n,y,t)选项记忆`如果`(y<0或y>n或t=3,0,
`如果`(n=0,1,b(n-1,y-1,`如果`(t=2,3,0))+b(n-l,y,
`if`(t=1,2,0))+` if`(n>1,b(n-2,y,`if`(t=1,2,0))+
b(n-2,y+1,1),0))
结束时间:
a: =n->b(n,0$2):