Graph Intersection

Author

Eric W. Weisstein
March 15, 2017

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

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

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

Figure

Built-in

{g=CirculantGraph[10,{1,2,3}],h=CirculantGraph[10,{1,2,4,5}],GraphIntersection[g,h]}

Combinatorica

Show[GraphicsArray[
showGraph[#,PointSize[.05]]&/@{CirculantGraph[10,{1,2,3}],
CirculantGraph[10,{1,2,4,5}],
GraphIntersection[CirculantGraph[10,{1,2,3}],CirculantGraph[10,{1,2,4,5}]]}
]]