WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

有向グラフの連結成分をハイライトする

ここでは，1より大きい強連結成分がハイライトされている．

Wolfram Language code: g = [image];
サイズが1より大きい連結成分を求める：
Wolfram Language code: comp = Select[ConnectedComponents[g], Length[#] > 1&];
連結成分をハイライトする：
Wolfram Language code: HighlightGraph[g, Table[Style[comp[[i]], ColorData["Rainbow"][(i - 1) / Length[comp]]], {i, Length[comp]}], ImageSize -> 450]