Rising Sun Graph

Author

Eric W. Weisstein
May 13, 2008

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

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

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

Images

GraphData["RisingSunGraph","AllImages"]

GraphData

Subjects

GraphClassString["RisingSunGraph"]

Matrices

GraphDataMatrices["RisingSunGraph"]

Construction

ShowLabeledGraph[g=Graph[List/@{{1,2},{2,3},{3,4},{1,4},{1,3},{2,4},{2,5},{3,5},{4,7},{3,7},{4,6},{1,6}},List/@{{-1/2,-1/2},{1/2,-1/2},{1/2,1/2},{-1/2,1/2},{1/2+Sqrt[2]/2,0},{-1/2-Sqrt[2]/2,0},
{0,1/2+Sqrt[2]/2}}]]

rg=RecognizeGraph[g]

ToCommonEdges[g,Graph[{7,668}]]