Complete Digraph

Author

Eric W. Weisstein
May 31, 2004

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

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

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

Usage

?Digraphs

Enumeration

Length/@Table[Select[Digraphs[i],CompleteQ],{i,5}]

CompleteDigraph[n_]:=Graph[Table[1,{n},{n}],Table[{Cos[#],Sin[#]}&[ 2.Pi i/n],{i,0,n-1}]//Chop]

Show[GraphicsArray[showGraph[#,Directed,DisplayFunction->Identity]&/@Table[CompleteDigraph[i],{i,5}]/.PointSize[.025]:>PointSize[.1]]]

ShowGraphArray[Table[CompleteGraph[i,Type->Directed],{i,5}],VertexStyle->Disk[.08],VertexColor->Red]