Graph Power

Author

Eric W. Weisstein
March 15, 2017

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/GraphPower.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/GraphPower.html.

©2017 Wolfram Research, Inc. except for portions noted otherwise

Figure

Built-in

bug(330582): GraphPower[GraphData["FruchtGraph"], 1] returns SetProperty[graph, ...]

Outer[graphPower,GraphData/@{"FruchtGraph",{"Grid",{3,5}},"DodecahedralGraph"},Range[3]]

$Version

GraphData["FruchtGraph"]

GraphPower[GraphData["FruchtGraph"],1]

Outer[GraphPower,GraphData/@{"FruchtGraph",{"Grid",{3,5}},"DodecahedralGraph"},Range[3]]

Combinatorica

gr[g_Graph]:=showGraph[#,PlotStyles->{AbsolutePointSize[5]}]&/@Table[GraphPower[g,n],{n,3}]

Diameter/@{FruchtGraph,GridGraph[3,5],DodecahedralGraph}

Show[GraphicsArray[gr/@{FruchtGraph,GridGraph[3,5],DodecahedralGraph}]]