|
数学
|
n0=6;n=1;s[1]={5,6};s[2]=表[If[i<=n,4,{}],{i,1,n0}];s[3]=表[如果[i<=n,5,{}],{i,1,n0}];s[4]=表[如果[i<=n,2,{}],{i,1,n0}];;s[5]=表[如果[i<=n,3,{}],{i,1,n0}];s[6]={1,2};t[a_]:=压扁[s/@a];p[0]={1};p[1]=t[p[0];p[n_]:=t[p[n-1]]aa=表[p[i],{i,0,20}];矩阵形式[aa]aaa=扁平[aa]
|