Bouquet Graph

Author

Eric W. Weisstein
May 20, 2004

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

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

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

Nice Embedding

Ellipse[b_,ang_]:=ParametricPlot[Evaluate[{{Cos[#],Sin[#]},{-Sin[#],Cos[#]}}&[ang].{1+Cos[t],b Sin[t]}],{t,0,2Pi},Ticks->None,Axes->False,DisplayFunction->Identity][[1]]

BouquetGraph[n_]:={Table[Ellipse[.5/n,2Pi k/n],{k,0,n-1}],
{Red,PointSize[.05Ceiling[n/2]],Point[{0,0}]}
}

Show[GraphicsArray[Partition[Table[Graphics[BouquetGraph[n],AspectRatio->Automatic,PlotRange->All],{n,4}],2]]]

Combinatorica Embedding

ShowGraphArray[Table[BouquetGraph[n],{n,4}],
VertexColor->Red,
VertexStyle->Disk[.1],
PlotRange->All]