WheelGraph(5);.mws

>    with(GraphTheory):with(SpecialGraphs):

>    W := WheelGraph(5);

W := `Graph 10: an undirected unweighted graph with 6 vertices and 10 edge(s)`

>    DrawGraph(W);

[Maple Plot]

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

[Maple Plot]

>