StarGraph(5).mws

>    with(GraphTheory):with(SpecialGraphs):

>    G := StarGraph(5);

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

>    DrawGraph(G);

[Maple Plot]

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

[Maple Plot]

>   

A Characterization of Graphs of Diameter Two