WOLFRAM

Wolfram Language & System Documentation Center

Find Cohesive Groups

Find components, cliques, and cohesive groups in a terrorist network.

    
The East Africa U.S. Embassies Attack Network in 1998:
Wolfram Language code: g = [image];
Find the leader of the attack:
Wolfram Language code: d = DegreeCentrality[g]; Pick[VertexList[g], d, Max[d]]
Find terrorist cells:
Wolfram Language code: FindClique[g, {5}, All]
Highlight terrorist cells:
Wolfram Language code: clique = FindClique[g, {5}, All]; insert[s_, pos_] := Inset[Framed[Style[s, 10, GrayLevel[0.3]], Background -> LightYellow], {pos, Bottom}, {pos, Bottom}]; HighlightGraph[g, MapThread[Style[Subgraph[g, #1], #2]&, {clique, {Red, Blue, Green}}], Prolog -> {LightGray, Rectangle[{0.5, 0.5}, {3.4, 2.5}], LightGray, Rectangle[{3.5, 0.5}, {6.4, 3.5}], insert[ "Nairobi Attack Cell", Left], insert[ "Dar-es-Salaam Attack Cell", Right]}, GraphHighlightStyle -> "DehighlightFade"]