WOLFRAM

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

グラフの入成分と出成分を求める

この例では，有向グラフの最も強連結の成分を，対応する入成分と出成分とともに求める．

Wolfram Language code: g = [image];
グラフ中で最も強連結の成分を求める：
Wolfram Language code: bigComponent = Last@SortBy[ConnectedComponents[g], Length];
Wolfram Language code: name = {"最も強連結の成分", "入成分", "出成分", "その他の成分"};
入成分と出成分を計算する：
Wolfram Language code: info = {HighlightGraph[g, Subgraph[g, #], GraphHighlightStyle -> "DehighlightFade"]}& /@ {bigComponent, VertexInComponent[g, bigComponent], VertexOutComponent[g, bigComponent], Complement[VertexList[g], VertexInComponent[g, bigComponent], VertexOutComponent[g, bigComponent]]};
結果をプロットする：
Wolfram Language code: ShowPlotSamples[name_, info_] := Framed[Column[{Style[name, 14, Bold, FontFamily -> "Verdana"], Grid[{info}, Spacings -> {1, 0}]}, Alignment -> Center], RoundingRadius -> 9, FrameStyle -> None, Background -> GrayLevel@0.90];
Wolfram Language code: Column[MapThread[ShowPlotSamples, {name, info}]]