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]