Bull Graph

Author

Eric W. Weisstein
January 18, 2010

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

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

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

Image

2-D Embeddings

GraphicsGrid[{GraphData["BullGraph","AllImages"]}]

GraphData["BullGraph","Images","UnitDistance"]

3-D Embedding

GraphData["BullGraph","Image3D"]

Graph Matrices

GraphMatrixPlot["BullGraph"]

Properties

Chromatically Equivalent

l=Select[GraphData[GraphData["BullGraph","V"]],GraphData[#,"ChromaticPolynomial"]===GraphData["BullGraph","ChromaticPolynomial"]&]

Union[GraphData[#,"ChromaticPolynomial"][x]&/@l]//TraditionalForm

GraphicsGrid[{Show[GraphData[#],PlotLabel->GraphData[#,"Name"],BaseStyle->{FontSlant->"Italic"}]&/@l}]

Properties

GraphData["BullGraph",{"VertexCount","EdgeCount"}]

GraphData["BullGraph","Classes"]

GraphClassString["BullGraph"]

(#->GraphData["BullGraph",#])&/@GraphData["Properties"]//ColumnForm

Construction

ShowLabeledGraph[g=Graph[List/@Sort[Sort/@(1+{{3,1},{1,2},{2,4},{1,0},{0,2}})],List/@{{0,0},{-1/2,1},{1/2,1},{-1,2},{1,2}}]]

RecognizeGraph[g]

ToCommonEdges[g,Graph[{5,13}]]