Clique Graph

Author

Eric W. Weisstein
May 31, 2004

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

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

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

Example

Show[GraphicsArray[{
Graphics[{PointSize[.05],graphic[g],
Text["G",{0,-1.5},TextStyle->{FontSize->12,FontFamily->"Times",FontSlant->"Italic"}]},AspectRatio->Automatic,PlotRange->All],Graphics[{
Text["(Subscript[K, 4])",{0,-.75},TextStyle->{FontFamily->"Times",FontSlant->"Italic"}],
PointSize[.05],graphic[Wheel[4]/.Graph[a_List,v_List]:>Graph[a,Join[-c,{{0,0}}]]]},AspectRatio->Automatic,PlotRange->All]}],PlotRange->All]