HypercubeGraph(4).mws

>    with(GraphTheory):with(SpecialGraphs):

>    G := HypercubeGraph(4);

G := `Graph 25: an undirected unweighted graph with 16 vertices and 32 edge(s)`

>    DrawGraph(G);

[Maple Plot]

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

[Maple Plot]

>