Untitled (9)

>    with(GraphTheory):with(SpecialGraphs):

>    H := CompleteKaryTree(3, 2);

H := `Graph 11: an undirected unweighted graph with 13 vertices and 12 edge(s)`

>    DrawGraph(H);

[Maple Plot]

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

[Maple Plot]

>