Untitled (10)

>    with(GraphTheory):with(SpecialGraphs):

>    G:=DesarguesGraph();

G := `Graph 12: an undirected unweighted graph with 20 vertices and 30 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/Desargues_graph