1、首先，查看一个“Pappus”图的图样：GraphData["PappusGraph"]如果是第一次运行这个命令，需要联网，Mathematica会自动下载相关数据。
3、把所有的Pappus图都画出来，看下面的动态图：GraphData["PappusGraph", "AllImages"]
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]
