h: =proc(l)局部n;n: =nops(l);加上(i,i=l)/mul(mul(1+l[i]-j+
加法(`if`(l[k]>=j,1,0),k=i+1..n),j=1..l[i]),i=1..n)
结束时间:
g: =proc(n,i,l)选项记忆;
`if`(n=0,h(l),` if`(i=1,h([l[],1$n]),`如果`(i<1,0,
g(n,i-1,l)+`if`(i>n,0,g(n-i,i,[l[],i])))
结束时间:
a: =n->g(n,10,[]):
seq(a(n),n=0..30);
#第二个Maple项目:
a: =proc(n)选项记忆;
`如果`(n<6,[1,1,2,4,10,26][n+1],
((70*n^4+4144*n^3+84986*n^2+685800*n+1656000)*a(n-1)
+4*(n-1)*(35*n^4+1778*n^3+30106*n^2+184221*n+244350)*a(n-2)
-8*(n-1)*(n-2)*(518*n^2+11916*n+59265)*a(n-3)
-16*(n-1)*(n-2)*(n-3)*(259*n^2+4819*n+17355)*a(n-4)
+21600*(n-1)*(n-2)*(n-3)*(n-4)*a(n-5)
+14400*(n-5)*(n-1)*(n-2)*(n-3)*(-n-4)*a(n-6))/
((n+21)*(n+9)*(n+16)*(n+25)*(n+24))
结束时间:
|