k-Coloring

Author

Eric W. Weisstein
August 17, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/k-Coloring.nb.

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

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

Example

?MinimumVertexColoring

MinimumVertexColoring[Graph["CubicalGraph"],3]

ShowGraph[MinimalColoring[Graph["CubicalGraph"]],ImageSize->200]

c=MinimumVertexColoring[Graph["CubicalGraph"],3,All]

Union[Flatten[Function[f,(f/.Thread[Range[3]->#])&/@Permutations[Range[3]]]/@c,1]]//Length