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]
