谁能把下面的凯莱图画漂亮对称一些？

mathematica

1. Clear["Global`*"];(*Clear all variables*)
   
2. a=Cycles[{{1,2,3}}];
   
3. b=Cycles[{{2,3,4}}];
   
4. c=Cycles[{{3,4,1}}];
   
5. d=Cycles[{{4,1,2}}];
   
6. g=PermutationGroup[{a,b,c,d}]
   
7. GroupOrder[g]
   
8. (*画出凯莱图*)
   
9. CayleyGraph[g]
   

复制代码

这图看上去一点不对称，我想要对称一点的图，
这个群应该是A4，置换群，里面似乎都是偶置换

.·.·.

其实这张图已经很对称了……
你按正二十面体的12个顶点来看待这12个点
并没有什么方法让对称性变得更强了

mathematica

.·.·. 发表于 2018-12-18 18:51
其实这张图已经很对称了……
你按正二十面体的12个顶点来看待这12个点
并没有什么方法让对称性变得更强了

要是这十二个点能画在一个正十二边形的顶点上，那才叫好看

zeroieme

有这个图就很不错了，要求那么高干啥