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[GraphDat锾攒揉敫a[#, "Name"], PageWidth -> 100, TextAlignment -> Center]] & /@ SortBy[GraphData[{"Connected", "VertexTransitive", "Nonhamiltonian"}], GraphData[#, "V"] &], UpTo[2]],Alignment -> Top]
