Shuffle-Exchange Graph

Author

Eric W. Weisstein
May 6, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/Shuffle-ExchangeGraph.nb.

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

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

Usage

?ShuffleExchangeGraph

Graphs

ShowGraphArray[Table[ShuffleExchangeGraph[n],{n,4}],VertexStyle->Disk[.05],VertexColor->Red]

GraphPlot[#,Method->None,SelfLoopStyle->True]&/@Table[ShuffleExchangeGraph[n],{n,4}]

GraphicsGrid[Partition[Table[GraphPlot[ShuffleExchangeGraph[n],PlotLabel->Subscript[SE,n],SelfLoopStyle->True],{n,4}],2],ImageSize->400,Spacings->{0,-200}]

l=RecognizeGraph/@RemoveSelfLoops/@Table[ShuffleExchangeGraph[n],{n,5}]

GetGraphData[#,"StandardNames"]&/@Take[l,3]

GetGraphData[#,"File"]&/@Take[l,3]