u[1,x_]:=1;v[1,x_]:=1;z=16;
u[n,x_]:=u[n-1,x]+x*v[n-1、x];
v[n,x_]:=2x*u[n-1,x]+(x+1)*v[n-1、x]+1;
表[展开[u[n,x]],{n,1,z/2}]
表[展开[v[n,x]],{n,1,z/2}]
cu=表[系数列表[u[n,x],x]、{n,1,z}];
表格[cu]
表[展开[v[n,x]],{n,1,z}]
cv=表[系数列表[v[n,x],x]、{n,1,z}];
表格[cv]
表[u[n,x]/。x->-1,{n,1,z}](*可选行总和*)
表[v[n,x]/。x->-1,{n,1,z}](*可选行总和*)
|