LeviGraph().mws

>    with(GraphTheory):with(SpecialGraphs):

>    G := LeviGraph();

G := `Graph 7: an undirected unweighted graph with 30 vertices and 45 edge(s)`

>    DrawGraph(G);

[Maple Plot]

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

[Maple Plot]

>   

Al Erickson, Mohammad Ghebleh, Simon Lo, Michael Monagan, New Features of the GraphTheory Package

http://en.wikipedia.org/wiki/Levi_graph