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]