用置换群的方法研究素数的循环群

wsc810

1. GraphPlot[
   
2. {6 -> 7, 7 -> 11, 11 -> 12, 12 -> 13, 13 -> 15, 15 -> 17, 17 -> 19,
   
3.   19 -> 22, 22 -> 24, 24 -> 26, 26 -> 28, 28 -> 29, 29 -> 30,
   
4.   30 -> 34, 34 -> 35, 35 -> 6, 6 -> 7, 11 -> 15, 12 -> 24, 13 -> 19,
   
5.   17 -> 29, 22 -> 28, 26 -> 30, 34 -> 35}, VertexLabeling -> True,
   
6. Method -> "CircularEmbedding"]

复制代码

这是手动输入得到的图形，怎样用Mathematica自动输入数据

wsc810

百度贴吧问到的答案

1. x = PrimitiveRootList[109]
   
2. y = PowerMod[x, -1, 109]

复制代码

{6, 10, 11, 13, 14, 18, 24, 30, 37, 39, 40, 42, 44, 47, 50, 51, 52, 53, 56, 57, 58, 59, 62, 65, 67, 69, 70, 72, 79, 85, 91, 95, 96, 98, 99, 103}

{91, 11, 10, 42, 39, 103, 50, 40, 56, 14, 30, 13, 57, 58, 24, 62, 65, 72, 37, 44, 47, 85, 51, 52, 96, 79, 95, 53, 69, 59, 6, 70, 67, 99, 98, 18}

1. l = Length@x;
   
2. rule = First /[url=home.php?mod=space&uid=6175]@[/url] PositionIndex@x;
   
3. Graphics@GraphicsComplex[CirclePoints@l,
   
4.   Line@Append[Append[1]@Range@l][Transpose@{x, y} /. rule]]
   

复制代码

不知道怎样标注顶点