gives the complete graph with n vertices 
.
CompleteGraph[{n1,n2,…,nk}]
gives the complete k-partite graph with n1+n2+⋯+nk vertices 
.
CompleteGraph
gives the complete graph with n vertices 
.
CompleteGraph[{n1,n2,…,nk}]
gives the complete k-partite graph with n1+n2+⋯+nk vertices 
.
Details and Options
- CompleteGraph is also known as universal graph or full graph.
- CompleteGraph generates a Graph object.
- CompleteGraph[n] gives a graph with n vertices and an edge between every pair of vertices.
- CompleteGraph[{n1,n2,…,nk}] gives a graph with n1+⋯+nk vertices partitioned into disjoint sets Vi with ni vertices each and edges between all vertices in different sets Vi and Vj, but no edges between vertices in the same set Vi.
- CompleteGraph[…,DirectedEdges->True] gives a directed complete graph.
- CompleteGraph takes the same options as Graph.
List of all options
Examples
open all close allBasic Examples (4)
The first few complete graphs 
:
Table[CompleteGraph[i, PlotLabel -> Subscript[K, ``i``]], {i, 3, 6}]
Table[CompleteGraph[{i, i}, PlotLabel -> Subscript[K, i, i]], {i, 2, 4}]Directed complete graphs use two directional edges for each undirected edge:
Table[CompleteGraph[n, DirectedEdges -> True, PlotLabel -> Subscript[K, n]], {n, 3, 5}]Directed complete 
-partite graphs use directed edges from one group to another:
Table[CompleteGraph[{i, i, i}, DirectedEdges -> True, PlotLabel -> Subscript[K, i, i, i]], {i, 2, 4}]Options (81)
AnnotationRules (2)
DirectedEdges (2)
By default, an undirected graph is generated:
CompleteGraph[4]Use DirectedEdges->True to generate a directed graph:
CompleteGraph[4, DirectedEdges -> True]Generate directed 
-partite graphs:
Row[Table[CompleteGraph[Range[n], DirectedEdges -> True], {n, 2, 4}]]EdgeLabels (7)
CompleteGraph[4, EdgeLabels -> {12 -> "Hello"}]el = EdgeList[CompleteGraph[4]]CompleteGraph[4, EdgeLabels -> Table[el[[i]] -> Subscript["e", i], {i, Length[el]}]]Use any expression as a label:
CompleteGraph[4, EdgeLabels -> {24 -> [image], 34 -> [image], 13 -> [image]}]Use Placed with symbolic locations to control label placement along an edge:
Table[CompleteGraph[4, EdgeLabels -> {34 -> Placed["■■■", p]}, PlotLabel -> p], {p, {"Start", "Middle", "End"}}]Use explicit coordinates to place labels:
Table[CompleteGraph[4, EdgeLabels -> {23 -> Placed["■■■", p]}, PlotLabel -> p, BaselinePosition -> Bottom], {p, {0, 1 / 4, 1 / 3}}]Vary positions within the label:
Table[CompleteGraph[4, EdgeLabels -> {23 -> Placed["■■■", {1 / 2, p}]}, PlotLabel -> p, BaselinePosition -> Bottom], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]CompleteGraph[5, EdgeLabels -> {31 -> Placed[{"lbl1", "lbl2"}, {"Start", "End"}]}]CompleteGraph[5, EdgeLabels -> {31 -> Placed[{"lbl1", "lbl2", "lbl3"}, {"Start", "Middle", "End"}]}]Use automatic labeling by values through Tooltip and StatusArea:
CompleteGraph[5, EdgeLabels -> Placed["Name", Tooltip]]CompleteGraph[5, EdgeLabels -> Placed["Name", StatusArea]]EdgeShapeFunction (6)
Get a list of built-in settings for EdgeShapeFunction:
ResourceData["EdgeShapeFunction"]Undirected edges including the basic line:
CompleteGraph[4, EdgeShapeFunction -> "Line"]Lines with different glyphs on the edges:
Table[CompleteGraph[4, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, {"BoxLine", "DiamondLine", "DotLine"}}]Directed edges including solid arrows:
Table[CompleteGraph[4, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "FilledArrow"]}]Table[CompleteGraph[4, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "UnfilledArrow"]}]Table[CompleteGraph[4, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "CarvedArrow"]}]Specify an edge function for an individual edge:
CompleteGraph[4, EdgeShapeFunction -> {12 -> "DotLine"}]Combine with a different default edge function:
CompleteGraph[5, EdgeShapeFunction -> {12 -> "BoxLine", "DotLine"}]Draw edges by running a program:
ef[pts_List, e_] :=
Block[{s = 0.015, g = [image]}, {Arrowheads[{{s, 0.33, g}, {s, 0.67, g}}], Arrow[pts]}]CompleteGraph[4, EdgeShapeFunction -> ef]EdgeShapeFunction can be combined with EdgeStyle:
CompleteGraph[4, EdgeStyle -> Blue, EdgeShapeFunction -> (Line[#1]&)]EdgeShapeFunction has higher priority than EdgeStyle:
CompleteGraph[4, EdgeStyle -> Blue, EdgeShapeFunction -> ({Red, Line[#1]}&)]EdgeStyle (2)
EdgeWeight (2)
Specify a weight for all edges:
CompleteGraph[4, EdgeWeight -> RandomInteger[5, 6]]WeightedAdjacencyMatrix[%]//MatrixFormUse any numeric expression as a weight:
CompleteGraph[4, EdgeWeight -> {a, b, c, d, e, f}]WeightedAdjacencyMatrix[%]//MatrixFormGraphHighlight (3)
GraphHighlightStyle (2)
Get a list of built-in settings for GraphHighlightStyle:
ResourceData["GraphHighlightStyle"]Use built-in settings for GraphHighlightStyle:
CompleteGraph[3, GraphHighlight -> {1, 23}, VertexSize -> Small, GraphHighlightStyle -> #, PlotLabel -> #]& /@ Select[ResourceData["GraphHighlightStyle"], # =!= Automatic&]GraphLayout (5)
By default, the layout is chosen automatically:
CompleteGraph[5, GraphLayout -> Automatic]Specify layouts on special curves:
Table[CompleteGraph[20, GraphLayout -> l, PlotLabel -> l], {l, {"CircularEmbedding", "SpiralEmbedding"}}]Specify layouts that satisfy optimality criteria:
Table[CompleteGraph[20, GraphLayout -> l, PlotLabel -> l], {l, {"SpringEmbedding", "SpringElectricalEmbedding", "HighDimensionalEmbedding"}}]VertexCoordinates overrides GraphLayout coordinates:
{CompleteGraph[5, GraphLayout -> "SpringElectricalEmbedding"],
CompleteGraph[5, GraphLayout -> "SpringElectricalEmbedding", VertexCoordinates -> Table[{i, i}, {i, 0, 4}]]}Use AbsoluteOptions to extract VertexCoordinates computed using a layout algorithm:
CompleteGraph[5]AbsoluteOptions[%, VertexCoordinates]PlotTheme (4)
Base Themes (2)
VertexCoordinates (3)
By default, any vertex coordinates are computed automatically:
CompleteGraph[4]Extract the resulting vertex coordinates using AbsoluteOptions:
AbsoluteOptions[%, VertexCoordinates]Specify a layout function along an ellipse:
ellipseLayout[n_, {a_, b_}] := Table[{a Cos[2Pi / n u], b Sin[2Pi / n u]}, {u, 1, n}]Graphics[Point[ellipseLayout[10, {2, 1}]]]Use it to generate vertex coordinates for a graph:
CompleteGraph[10, VertexCoordinates -> ellipseLayout[10, {2, 1}]]VertexCoordinates has higher priority than GraphLayout:
CompleteGraph[4, VertexCoordinates -> Table[{i, i}, {i, 4}], GraphLayout -> "CircularEmbedding"]VertexLabels (13)
CompleteGraph[3, VertexLabels -> "Name"]CompleteGraph[3, VertexLabels -> {1 -> "one"}]CompleteGraph[3, VertexLabels -> Table[i -> Subscript[v, i], {i, 3}]]Use any expression as a label:
CompleteGraph[3, VertexLabels -> {1 -> [image], 2 -> [image], 3 -> [image]}, ImagePadding -> 20]Use Placed with symbolic locations to control label placement, including outside positions:
Table[CompleteGraph[3, VertexSize -> 0.1, VertexShapeFunction -> "Square", VertexLabels -> Table[i -> Placed["■■■", p], {i, 3}], PlotLabel -> p, ImagePadding -> 20], {p, {Before, After, Below, Above}}]Symbolic outside corner positions:
pl = {{Before, Below}, {After, Below}, {Before, Above}, {After, Above}};Table[CompleteGraph[3, VertexSize -> 0.1, VertexShapeFunction -> "Square", ImagePadding -> 20, VertexLabels -> Table[i -> Placed["■■■", p], {i, 3}], PlotLabel -> p], {p, pl}]Table[CompleteGraph[3, VertexSize -> 0.25, VertexLabels -> Table[i -> Placed["■■■", p], {i, 3}], VertexShapeFunction -> "Square", PlotLabel -> p], {p, {Left, Top, Right, Bottom}}]Symbolic inside corner positions:
pl = {{Left, Bottom}, {Right, Bottom}, {Left, Top}, {Right, Top}};Table[CompleteGraph[3, VertexSize -> 0.25, VertexShapeFunction -> "Square", VertexLabels -> Table[i -> Placed["■■■", p], {i, 3}], PlotLabel -> p], {p, pl}]Use explicit coordinates to place the center of labels:
Table[CompleteGraph[3, VertexSize -> 0.25, VertexShapeFunction -> "Square", VertexLabels -> Table[i -> Placed[[image], p], {i, 3}], PlotLabel -> p, BaselinePosition -> Bottom], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]Place all labels at the upper-right corner of the vertex and vary the coordinates within the label:
Table[CompleteGraph[3, VertexSize -> 0.35, VertexShapeFunction -> "Square", VertexLabels -> Table[i -> Placed[[image], {{1, 1}, p}], {i, 3}], PlotLabel -> p, BaselinePosition -> Bottom], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]CompleteGraph[3, VertexLabels -> {1 -> Placed[{"lbl1", "lbl2"}, {Above, Below}]}]Any number of labels can be used:
CompleteGraph[3, VertexLabels -> {1 -> Placed[{"lbl1", "lbl2", "lbl3", "lbl4"}, {Above, After, Below, Before}]}]Use the argument to Placed to control formatting including Tooltip:
CompleteGraph[3, VertexLabels -> Placed["Name", Tooltip]]Or StatusArea:
CompleteGraph[3, VertexLabels -> Placed["Name", StatusArea]]Use more elaborate formatting functions:
rotateLabel[lab_] := Rotate[lab, 45Degree]CompleteGraph[3, VertexLabels -> Table[i -> Placed["xxx", Below, rotateLabel], {i, 3}]]panelLabel[lab_] := Panel[lab, FrameMargins -> 0, Background -> StandardBlue]CompleteGraph[3, VertexLabels -> Table[i -> Placed["xxx", Center, panelLabel], {i, 3}]]hyperlinkLabel[lab_] := Hyperlink[lab, "http://www.wolfram.com"]CompleteGraph[3, VertexLabels -> Table[i -> Placed["xxx", Center, hyperlinkLabel], {i, 3}]]VertexShape (5)
Use any Graphics, Image, or Graphics3D as a vertex shape:
Table[CompleteGraph[5, VertexShape -> s, VertexSize -> Medium], {s, {[image], [image], [image]}}]Specify vertex shapes for individual vertices:
CompleteGraph[5, VertexShape -> {2 -> [image]}, VertexSize -> Medium]VertexShape can be combined with VertexSize:
Table[CompleteGraph[5, VertexSize -> s, VertexShape -> [image], PlotLabel -> s], {s, {Small, Large}}]VertexShape is not affected by VertexStyle:
CompleteGraph[5, VertexSize -> 0.2, VertexShape -> [image], VertexStyle -> Blue]VertexShapeFunction has higher priority than VertexShape:
CompleteGraph[5, VertexSize -> 0.1, VertexShapeFunction -> "Square", VertexShape -> [image]]VertexShapeFunction (10)
Get a list of built-in collections for VertexShapeFunction:
ResourceData["VertexShapeFunction"]Use built-in settings for VertexShapeFunction in the "Basic" collection:
ResourceData["VertexShapeFunction", "Basic"]Table[CompleteGraph[4, VertexShapeFunction -> vf, VertexSize -> 0.2, PlotLabel -> vf], {vf, {"Triangle", "Square", "Rectangle", "Pentagon", "Hexagon", "Octagon"}}]Table[CompleteGraph[4, VertexShapeFunction -> vf, VertexSize -> 0.2, PlotLabel -> vf], {vf, {"DownTrapezoid", "UpTrapezoid", "Parallelogram", "FiveDown", "Circle", "Diamond", "Star", "Capsule"}}]Use built-in settings for VertexShapeFunction in the "Rounded" collection:
ResourceData["VertexShapeFunction", "Rounded"]Table[CompleteGraph[4, VertexShapeFunction -> vf, VertexSize -> 0.2, PlotLabel -> vf], {vf, ResourceData["VertexShapeFunction", "Rounded"]}]Use built-in settings for VertexShapeFunction in the "Concave" collection:
ResourceData["VertexShapeFunction", "Concave"]Table[CompleteGraph[4, VertexShapeFunction -> vf, VertexSize -> 0.2, PlotLabel -> vf], {vf, ResourceData["VertexShapeFunction", "Concave"]}]CompleteGraph[4, VertexShapeFunction -> { 1 -> "Square"}, VertexSize -> 0.2]Combine with a default vertex function:
CompleteGraph[4, VertexShapeFunction -> { 1 -> "Square", "Triangle"}, VertexSize -> 0.2]Draw vertices using a predefined graphic:
CompleteGraph[4, VertexShapeFunction -> (Inset[[image], #]&)]Draw vertices by running a program:
vf[{xc_, yc_}, name_, {w_, h_}] :=
Block[{xmin = xc - w, xmax = xc + w, ymin = yc - h, ymax = yc + h},
Polygon[{{xmin, ymin}, {xmax, ymax}, {xmin, ymax}, {xmax, ymin}}]
];CompleteGraph[4, VertexShapeFunction -> vf, VertexSize -> 0.2]VertexShapeFunction can be combined with VertexStyle:
vf1[{xc_, yc_}, name_, {w_, h_}] := Rectangle[{xc - w, yc - h}, {xc + w, yc + h}]CompleteGraph[4, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf1]VertexShapeFunction has higher priority than VertexStyle:
vf2[{xc_, yc_}, name_, {w_, h_}] := {Red, Rectangle[{xc - w, yc - h}, {xc + w, yc + h}]}CompleteGraph[4, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf2]VertexShapeFunction can be combined with VertexSize:
CompleteGraph[4, VertexShapeFunction -> "Star", VertexSize -> {1 -> Small, Medium}]VertexShapeFunction has higher priority than VertexShape:
CompleteGraph[4, VertexSize -> 0.3, VertexShapeFunction -> "Star", VertexShape -> [image]]VertexSize (8)
By default, the size of vertices is computed automatically:
CompleteGraph[5, VertexSize -> Automatic]Specify the size of all vertices using symbolic vertex size:
Table[CompleteGraph[5, VertexSize -> s, PlotLabel -> s], {s, {Tiny, Small, Medium, Large}}]Use a fraction of the minimum distance between vertex coordinates:
Table[CompleteGraph[5, VertexSize -> s, PlotLabel -> s], {s, 0.1, 1, 0.3}]Use a fraction of the overall diagonal for all vertex coordinates:
Table[CompleteGraph[5, VertexSize -> {"Scaled", s}, PlotLabel -> {"Scaled", s}], {s, 0.1, 1, 0.3}]Specify size in both the 
and 
directions:
Table[CompleteGraph[5, VertexSize -> s, PlotLabel -> s], {s, {{0.1, 0.2}, {0.2, 0.1}}}]Specify the size for individual vertices:
CompleteGraph[4, VertexSize -> {1 -> 0.2, 2 -> 0.3}]VertexSize can be combined with VertexShapeFunction:
Table[CompleteGraph[5, VertexSize -> s, VertexShapeFunction -> "Square", PlotLabel -> s], {s, {0.05, 0.1, 0.2}}]VertexSize can be combined with VertexShape:
Table[CompleteGraph[5, VertexSize -> s, VertexShape -> [image], PlotLabel -> s], {s, {0.1, 0.2, 0.4}}]VertexStyle (5)
Table[CompleteGraph[4, VertexStyle -> style, VertexSize -> 0.3, PlotLabel -> style], {style, {Yellow, EdgeForm[Dashed]}}]CompleteGraph[4, VertexStyle -> {1 -> Blue, 2 -> Red}, VertexSize -> 0.2]VertexShapeFunction can be combined with VertexStyle:
vf1[{xc_, yc_}, name_, {w_, h_}] := Rectangle[{xc - w, yc - h}, {xc + w, yc + h}]CompleteGraph[4, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf1]VertexShapeFunction has higher priority than VertexStyle:
vf2[{xc_, yc_}, name_, {w_, h_}] := {Red, Rectangle[{xc - w, yc - h}, {xc + w, yc + h}]}CompleteGraph[4, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf2]VertexStyle can be combined with BaseStyle:
CompleteGraph[4, VertexStyle -> LightBlue, BaseStyle -> EdgeForm[Dotted], VertexSize -> 0.2]VertexStyle has higher priority than BaseStyle:
CompleteGraph[4, VertexStyle -> LightBlue, BaseStyle -> Gray, VertexSize -> 0.2]VertexShape is not affected by VertexStyle:
CompleteGraph[5, VertexSize -> 0.2, VertexShape -> [image], VertexStyle -> Blue]VertexWeight (2)
Set the weight for all vertices:
CompleteGraph[3, VertexWeight -> {2, 3, 4}]AnnotationValue[{%, 1}, VertexWeight]Use any numeric expression as a weight:
CompleteGraph[3, VertexWeight -> {a, b, c}]AnnotationValue[{%, 1}, VertexWeight]Applications (7)
The GraphCenter of a complete graph includes all its vertices:
Table[HighlightGraph[#, GraphCenter[#]]&[CompleteGraph[i, VertexSize -> Small]], {i, 3, 6}]The GraphPeriphery includes all vertices:
Table[HighlightGraph[#, GraphPeriphery[#]]&[CompleteGraph[i, VertexSize -> Small]], {i, 3, 6}]The VertexEccentricity for all vertices is 1:
VertexEccentricity[CompleteGraph[5], #]& /@ VertexList[CompleteGraph[5]]Highlight the vertex eccentricity path:
FindVertexEccentricityPath[g_ ? UndirectedGraphQ, u_] /; MemberQ[VertexList[g], u] := Module[{d = GraphDistanceMatrix[g], posu, posv, vl = VertexList[g]}, posu = VertexIndex[g, u];
posv = First@First@Position[d[[posu]], Max[d[[posu]]]];
PathGraph[FindShortestPath[g, u, vl[[posv]]]]]Table[HighlightGraph[g = CompleteGraph[4], FindVertexEccentricityPath[g, u]], {u, Range[4]}]The GraphRadius is 1:
Table[GraphRadius[CompleteGraph[i]], {i, 3, 6}]FindRadiusPath[g_ ? UndirectedGraphQ] := Module[{c = First@GraphCenter[g], d, v, pos}, d = Table[GraphDistance[g, c, u], {u, VertexList[g]}];
pos = First@Position[d, Max[d]];
v = First@Part[VertexList[g], pos];
PathGraph[FindShortestPath[g, c, v]]]Table[HighlightGraph[#, FindRadiusPath[#]]&[CompleteGraph[i, VertexSize -> Small]], {i, 3, 6}]The GraphDiameter is 1:
Table[GraphDiameter[CompleteGraph[i]], {i, 3, 6}]FindDiameterPath[g_ ? UndirectedGraphQ] := Module[{d = GraphDistanceMatrix[g], u, v, pos}, pos = First@Position[d, Max[d]];
{u, v} = Part[VertexList[g], pos];
PathGraph[FindShortestPath[g, u, v]]]Table[HighlightGraph[#, FindDiameterPath[#]]&[CompleteGraph[i, VertexSize -> Small]], {i, 3, 6}]Vertex connectivity from 
to 
is the number of vertex-independent paths from 
to 
:
g = CompleteGraph[4, VertexLabels -> "Name"]There are 3 vertex-independent paths between any pair of vertices:
{HighlightGraph[g, 12],
HighlightGraph[g, PathGraph[{1, 3, 2}]],
HighlightGraph[g, PathGraph[{1, 4, 2}]]}The vertex connectivity for CompleteGraph[n] is 
:
g = CompleteGraph[5, VertexLabels -> "Name"];{HighlightGraph[g, PathGraph[{1, 2}]],
HighlightGraph[g, PathGraph[{1, 3, 2}]],
HighlightGraph[g, PathGraph[{1, 4, 2}]],
HighlightGraph[g, PathGraph[{1, 5, 2}]]
}Highlight the vertex degree for CompleteGraph:
HighlightCentrality[g_, cc_] := HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["TemperatureMap"][cc[[i]] / Max[cc]]], {i, VertexCount[g]}]];g = CompleteGraph[8, VertexSize -> Large];HighlightCentrality[g, VertexDegree[g]]Highlight the closeness centrality:
HighlightCentrality[g, ClosenessCentrality[g]]Highlight the eigenvector centrality:
HighlightCentrality[g, EigenvectorCentrality[g]]Properties & Relations (12)
Number of vertices of CompleteGraph[n]:
VertexCount[CompleteGraph[n]]Number of edges of CompleteGraph[n]:
EdgeCount[CompleteGraph[n]]A complete graph is an 
-regular graph:
CompleteGraph[6]VertexDegree[%]The subgraph of a complete graph is a complete graph:
g = CompleteGraph[8]HighlightGraph[g, h = Subgraph[g, Range[5]]]CompleteGraphQ[h]The neighborhood of a vertex in a complete graph is the graph itself:
CompleteGraph[8, VertexSize -> {1 -> 0.2}]HighlightGraph[%, NeighborhoodGraph[%, 1]]Complete graphs are their own cliques:
CompleteGraph[5]Subgraph[%, First[FindClique[%]]]The GraphComplement of a complete graph with no edges:
GraphComplement[CompleteGraph[5]]For a complete graph, all entries outside the diagonal are 1s in the AdjacencyMatrix:
AdjacencyMatrix[CompleteGraph[25]]//MatrixPlotFor a complete 
-partite graph, all entries outside the block diagonal are 1s:
AdjacencyMatrix[CompleteGraph[{1, 2, 3, 4, 5}]]//MatrixPlotThe complete graph 
is the cycle graph 
:
{CompleteGraph[3], CycleGraph[3]}The complete graph 
is the wheel graph 
:
{CompleteGraph[4], WheelGraph[4]}The complete graph 
is the line graph of the star graph 
:
{CompleteGraph[6], LineGraph[StarGraph[7]]}Neat Examples (2)
Random collage of complete graphs:
Graphics[Table[Inset[CompleteGraph[RandomInteger[{4, 8}]], RandomReal[{0, 10}, 2], Automatic, 1], {75}]]Coloring cycle decompositions in complete graphs on a prime number of vertices:
ColoringCycles[n_] := Block[{i, e},
e = Table[Mod[#, n, 1]Mod[# + i, n, 1]& /@ Range[n], {i, (n - 1) / 2}];
HighlightGraph[CompleteGraph[n], Table[Style[e[[i]], ColorData[1][i]], {i, Length[e]}]]
]Table[ColoringCycles[i], {i, {3, 5, 7, 9, 11, 13}}]
An Elementary Introduction to the Wolfram LanguageText
Wolfram Research (2010), CompleteGraph, Wolfram Language function, https://reference.wolfram.com/language/ref/CompleteGraph.html (updated 2020).
CMS
Wolfram Language. 2010. "CompleteGraph." Wolfram Language & System Documentation Center. Wolfram Research. Last Modified 2020. https://reference.wolfram.com/language/ref/CompleteGraph.html.
APA
Wolfram Language. (2010). CompleteGraph. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/CompleteGraph.html