|
抵消
|
0,4
|
|
参考文献
|
J.Propp,《匹配的枚举:问题与进展》,第255-291页,载于L.J.Billera et al.,eds,代数组合学的新视角,剑桥,1999年(见问题17)。
|
|
链接
|
J.Propp,《匹配的枚举:问题和进展》,载于L.J.Billera等人(编辑),代数组合学的新观点
|
|
配方奶粉
|
|
|
MAPLE公司
|
with(LinearAlgebra):a:=proc(n)选项记住;局部l、ll、i、j、h0、h1、M;如果n=0,则返回1 fi;如果n<0或成员(irem(n,4),[1,2]),则返回0 fi;l: =[];对于从1到n-1的j,做h0:=j*(j-1)/2+1;h1:=j*(j+1)/2+1;对于i从1到j,做l:=[l[],[h1,h1+1]];如果irem(i,2)=1,则l:=[l[],[h1,h0]];h1:=h1+1;l: =[l[],[h1,h0]];h0:=h0+1其他l:=[l[],[h0,h1]];h1:=h1+1;l: =[l[],[h0,h1]];h0:=h0+1英尺;M: =矩阵((n+1)*n/2);对于l中的ll do M[ll[1],ll[2]:=1;M[ll[2],ll[1]:=-1 od:isqrt(行列式(M))end:seq(a(n),n=0..20)#阿洛伊斯·海因茨2010年5月8日
|
|
数学
|
a[n_]:=a[n]=模[{l,ll,i,j,h0,h1,M},如果[n==0,返回[1];如果[n<0||MemberQ[{1,2},Mod[n,4]],返回[0]];l={};对于[j=1,j<=n-1,j++,h0=j*(j-1)/2+1;h1=j*;如果[Mod[i,2]==1,l=Join[l,{h1,h0}];h1=h1+1;l=加入[l,{h1,h0}];h0=h0+1,l=Join[l,{h0,h1}];h1=h1+1;l=连接[l,{h0,h1}];h0=h0+1]]];M[_,_]=0;做[M[ll[[1]],ll[[2]]]=1;M[ll[[2]],ll[[1]]]=-1,{ll,分区[l,2]}];Sqrt[Det[Array[M,{n*(n+1)/2,n*(n+1)/2}]];表[a[n],{n,0,23}](*Jean-François Alcover公司2014年4月17日之后阿洛伊斯·海因茨*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|