|
| |
|
| A338146飞机 |
| 行读取的三角形：T（n，k）是使用k种颜色的规则n-D正射影像（或规则n-D矫正影像的脊线）边缘的定向着色数。第1行有1列；第n>1行有2*n*（n-1）列。 |
|
5
|
|
|
|
1, 1, 4, 9, 6, 1, 216, 22164, 613804, 6901425, 39713430, 131754420, 267165360, 336798000, 257796000, 109771200, 19958400, 1, 90052, 1471369998, 1460163153852, 303126054092610, 22838390261305920, 831533453035309605
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
在枚举定向排列时，每个手性对都计为两个。脊是n-D多面体的（n-2）面。对于n=1，图形是一条带有一条边的线段。对于n=2，图形是一个有4条边（顶点）的正方形。对于n=3，图形是一个具有12条边的八面体（立方体）。对于n>1，边（脊）的数量为2*n*（n-1）。n-D正交面（超立方体）和n-D正交面的Schläfli符号（超八面体，交叉多面体）分别为{4,3，…，3,3}和{3,3，..，3,4}，每种情况下为n-23。这些数字是相互矛盾的。
下面Mathematica程序中使用的算法将轴的每个排列分配给n的分区，然后考虑轴反转的单独共轭类。它使用了Balasubramanian论文中的公式。如果m的值增加，则可以枚举以T（m，1）开头的高维元素的着色。
|
|
|
链接
|
|
|
|
配方奶粉
|
对于n>1，A337411飞机（n，k）=和{j=1..2*n*（n-1）}T（n，j）*二项式（k，j）。
|
|
|
例子
|
三角形以T（1,1）开头：
1
1 4 9 6
1 216 22164 613804 6901425 39713430 131754420 267165360 336798000
...
对于T（2,3）=9，3种非手性颜色为ABAC、ABCB和ACBC。这三对手性对是AABC-AACB、ABBC-ACBB和ABCC-ACCB。
|
|
|
数学
|
m=1；（*颜色元素的尺寸，此处为边*）
Fi1[p1_]：=模[{g，h}，系数[积[g=GCD[k1，p1]；h=GCD[2 k1，p1]；（1+2 x^（k1/g））^（r1[[k1]]g）如果[可分[k1，h]，1，（1+2x^，2 k1/h）^；
FiSum[]：=（Do[Fi2[k2]=Fi1[k2]，{k2，除数[per]}]；除数Sum[per，除数Sum[d1=#，MoebiusMu[d1/#]Fi2[#]&]/#&]）；
CCPol[r_List]：=（r1=r；r2=cs-r1；If[EvenQ[Sum[If[EvenQ[j3]，r1[[j3]]，r2[[j3]]]，{j3，n}]]，（per=LCM@@Table[If[cs[j2]==r1[j2]]，If[0=cs[j2]，1，j2]cs]）b^FiSum[]），0]）；
PartPol[p_List]：=（cs=计数[p，#]&/@Range[n]；总计[CPol[#]&@Tuples[Range[0，cs]]]）；
pc[p_List]：=模块[{ci，mb}，mb=删除重复项[p]；ci=计数[p，#]&/@mb；不/（Times@@（ci！）Times@@（mb^ci））]（*分区计数*）
行[m]=b；行[n_Integer]：=行[n]=系数[（总计[（PartPol[#]pc[#]）和/@IntegerPartitions[n]]）/（n！2^（n-1））]
数组[n，k_]：=行[n]/。b->k
连接[{{1}}，表[LinearSolve[Table[二项式[i，j]，{i，2^
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,标签
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
