Graph Join

Author

Eric W. Weisstein
January 2, 2018

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

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

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

Figure

Combinatorica

gr[g_]:=Graphics[{PointSize[.08],graphic[g]},PlotRange->All]

Show[GraphicsArray[{
gr[Path[2]],gr[Path[3]],gr[GraphJoin[Path[2],Path[3]/.Graph[a_List,v_List]:>Graph[a,{-3.5,1}+#&/@v]]]}],
PlotRange->All]

Built-in (undocumented)

Row[{
g1=PathGraph[{1,2},VertexCoordinates->{{0,1},{0,2}}],
"+",
g2=PathGraph[{1,2,3},VertexCoordinates->{{0,1},{0,2},{0,3}}],
"->",
GraphComputation`GraphJoin[g1,g2,GraphLayout->"MultipartiteEmbedding"]
},BaseStyle->Large]