Dipole Graph

Author

Eric W. Weisstein
May 31, 2004

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

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

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

Nice Embedding

Dipole[n_?EvenQ]:=Module[{},
{Table[Circle[{0,0},{1,.1r-.05}],{r,n/2}],
{Red,PointSize[.06],Point[{#,0}]&/@{-1,1}}
}
]

Dipole[n_?OddQ]:=Module[{},
{Table[Circle[{0,0},{1,.1r}],{r,n/2}],
Line[{{-1,0},{1,0}}],
{Red,PointSize[.06],Point[{#,0}]&/@{-1,1}}
}
]

Show[GraphicsArray[Partition[Table[Graphics[Dipole[n]],{n,2,7}],3]],
GraphicsSpacing->{.1,.5}]

Combinatorica Embedding

ShowGraphArray[Partition[Table[DipoleGraph[i],{i,2,7}],3],PlotRange->All,
VertexColor->Red,
VertexStyle->Disk[.1],
GraphicsSpacing->.2]