WOLFRAM

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

連結グラフ成分の位相秩序

連結グラフ成分の位相秩序を求める．

Wolfram Language code: g = [image];
連結成分で頂点を並べなおす：
Wolfram Language code: components = ConnectedComponents[g];
Wolfram Language code: edges = Union[Cases[EdgeList[g] /. Table[v -> First[Select[components, MemberQ[#, v]&]], {v, VertexList[g]}], u_v_ /; u =!= v]];
Wolfram Language code: cond = Graph[components, edges];
Wolfram Language code: h = Graph[Join@@TopologicalSort[cond], EdgeList[g], Options[g]];
グラフを見て，頂点を並び替える前と後の近接行列を比べる：
Wolfram Language code: GraphicsGrid[({#, ArrayPlot[AdjacencyMatrix[#]]}& /@ {g, h}), ImageSize -> 400]