如何在Mathematica中展示弹簧嵌入的步骤？

Question

我是Mathematica的新用户，我需要显示10张10x10网格图的图像，以解释其从循环到的部分转换spring 嵌入，将快照分配到3x3表中。

我尝试过这个命令：

Grid[Partition[Table[GraphPlot[
RandomGraph[{100, 100}, GraphLayout -> "CircularEmbedding"], 
Method -> {"SpringEmbedding", "Rotation" -> True,
  "RecursionMethod" -> None, MaxIterations -> i}, 
ImageSize -> 100], {i, 9}], {3}]]

但是我获得了相同初始圆形图的9倍，只是略有不同的位置，而我预计会在第9个数字时返回正确的网格。

提前感谢您的每一个建议

Answer 1

您的代码的另一个问题是您为每个数字生成一个不同的随机起点。解决这个问题，并在这里进行一些迭代就是我得到的：

 rg = RandomGraph[{100, 100}, GraphLayout -> "CircularEmbedding"];
 Grid[Partition[Table[GraphPlot[rg,
    Method -> {"SpringEmbedding", "Rotation" -> True, 
               "RecursionMethod" -> None,
          MaxIterations -> i},
           ImageSize -> 100, AspectRatio -> 1], {i, 36}], {6}]]

Answer 2

rg = GridGraph[{10, 10}, GraphLayout -> "CircularEmbedding"];
Grid[Partition[
Table[GraphPlot[rg, 
Method -> {"SpringEmbedding", "Rotation" -> True, 
"RecursionMethod" -> None, MaxIterations -> i}, 
ImageSize -> 100, AspectRatio -> 1], {i, 16}], {4}]]

同样不适用于10.0.2和10.1！