mathematica 发表于 2018-12-18 15:29:07

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

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

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

.·.·. 发表于 2018-12-18 18:51:29

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

mathematica 发表于 2018-12-19 11:01:21

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

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

zeroieme 发表于 2018-12-19 12:37:53

有这个图就很不错了，要求那么高干啥
页: [1]
查看完整版本: 谁能把下面的凯莱图画漂亮对称一些？