GraphPlot[
{6 -> 7, 7 -> 11, 11 -> 12, 12 -> 13, 13 -> 15, 15 -> 17, 17 -> 19,
19 -> 22, 22 -> 24, 24 -> 26, 26 -> 28, 28 -> 29, 29 -> 30,
30 -> 34, 34 -> 35, 35 -> 6, 6 -> 7, 11 -> 15, 12 -> 24, 13 -> 19,
17 -> 29, 22 -> 28, 26 -> 30, 34 -> 35}, VertexLabeling -> True,
Method -> "CircularEmbedding"]
这是手动输入得到的图形，怎样用Mathematica自动输入数据 本帖最后由 wsc810 于 2021-6-23 15:27 编辑
百度贴吧问到的答案
x = PrimitiveRootList
y = PowerMod
{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}
l = Length@x;
rule = First /@ PositionIndex@x;
Graphics@GraphicsComplex[CirclePoints@l,
Line@Append@Range@l]]
不知道怎样标注顶点
页:
1
[2]