PappusGraph.mws

>    with(GraphTheory):with(SpecialGraphs):

>    G := PappusGraph();

G := `Graph 9: an undirected unweighted graph with 18 vertices and 27 edge(s)`

>    DrawGraph(G);

[Maple Plot]

>    DrawGraph(G,style=spring,dimension=3);

[Maple Plot]

>   

http://mathworld.wolfram.com/PappusGraph.html