|
| |
|
| A337889型 |
| 按降序反对偶读取的数组：T（n，k）是使用k或更少颜色的规则n维正交镜（超立方体）正方形面的手性成对颜色数。 |
|
7
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 1, 40927, 0, 0, 20, 731279799, 314824333015938998688, 0, 0, 120, 732272925320, 38491882659300767730994725249684096, 38343035259947576596859560773963975000551460473665493534170658111488, 0
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
2,9
|
|
|
评论
|
手性对的每一个成员都是另一个的反射，而不是旋转。每个面都是由四条边围成的正方形。对于n=2，图形是一个有一面的正方形。对于n=3，图形是一个有6个面的立方体。当n=4时，图形是一个有24个面的tesseract。面数为2^（n-2）*C（n，2）。
此外，还计算了n维正交峰的手性着色对的数目。峰值是（n-3）维单纯形。
下面Mathematica程序中使用的算法将轴的每个排列分配给n的分区，然后考虑轴反转的单独共轭类。它使用了Balasubramanian论文中的公式。如果m的值增加，则可以枚举以T（m，1）开头的高维元素的着色。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
数组以T（2,1）开头：
0 0 0 0 0 0 ...
0 0 1 20 120 455 ...
0 40927 731279799 732272925320 155180061396500 12338466190481025 ...
|
|
|
数学
|
m=2；（*颜色元素的尺寸，此处为正方形面*）
Fi1[p1_]：=模[{g，h}，系数[积[g=GCD[k1，p1]；h=GCD[2 k1，p1]；（1+2x^（k1/g））^（r1[[k1]]g）如果[可除[k1，h]，1，（1+2x^（2 k1/h））^（r2[[k1_]h/2）]，{k1，展平[位置[cs，n1_/；n1>0]}]，x，n-m]]；
FiSum[]：=（Do[Fi2[k2]=Fi1[k2]，{k2，Divisors[per]}]；DivisorSum[per，Divisor Sum[d1=#，MoebiusMu[d1/#]Fi2[#]&]/#&]）；
CCPol[r_List]：=（r1=r；r2=cs-r1；per=LCM@@表[If[cs[j2]==r1[j2]]，If[0==cs[[j2]，1，j2]、2j2]和{j2，n}]；If[EvenQ[Sum[If[CevenQ[j3]，r1[[j3]]，r2[[j3]]，{j3，n}]]，1，-1]倍@@二项式[cs，r1]2^（n-总计[cs]）b^FiSum[]）；
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））]（*分区计数*）
行[n_Integer]：=行[n]=系数[（总计[（PartPol[#]pc[#]）和/@IntegerPartitions[n]]）/（n！2^n）]
数组[n，k_]：=行[n]/。b->k
表[数组[n，d+m-n]，{d，6}，{n，m，d+m-1}]//压扁
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
