Digraph Topology

Author

Eric W. Weisstein
June 3, 2004

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

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

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

Code

TransitiveDigraphs[n_]:=Select[Digraphs[n],TransitiveDigraphQ]

Counts

Length/@TransitiveDigraphs/@Range[4]

Length/@TransitiveDigraphs/@Range[5]//Timing

ShowGraphArray[TransitiveDigraphs/@Range[3],VertexStyle->Disk[.12]]

Show[GraphicsArray[
{
showGraph[#,Directed,DisplayFunction->Identity]&/@TransitiveGraphs[2],
showGraph[#,Directed,DisplayFunction->Identity]&/@Take[TransitiveGraphs[3],5],
showGraph[#,Directed,DisplayFunction->Identity]&/@Drop[TransitiveGraphs[3],5]
}],GraphicsSpacing->{.2,.5}]