查看Mathematica的图论数据——GraphData

1、首先，查看一个“Pappus”图的图样：

GraphData["PappusGraph"]

如果是第一次运行这个命令，需要联网，Mathematica会自动下载相关数据。

2、等待下载的时间有可能比较长；

先听听歌或干点别的事情，分散一下注意力；

等数据加载完成，就会显示出图像：

3、把所有的Pappus图都画出来，看下面的动态图：

GraphData["PappusGraph", "AllImages"]

4、生成Cayley图阵列：

GraphicsGrid[

 Partition[GraphData /@ GraphData["Cayley", ;; 10], UpTo[10]]]

5、绘制顶点连通的非哈密顿图：

GraphicsGrid[

 Partition[

  Show[GraphData[#], 

     PlotLabel -> 

      TextCell[GraphData[#, "Name"], PageWidth -> 100, 

       TextAlignment -> Center]] & /@ 

   SortBy[GraphData[{"Connected", "VertexTransitive", 

      "Nonhamiltonian"}], GraphData[#, "V"] &], UpTo[2]], 

 Alignment -> Top]