WOLFRAM

Wolfram 语言与系统参考资料中心

边缘覆盖

显示展示每门课程由一名教授担任且分配 Larry 担任二门课程边覆盖.

    
建立一个教授和其有兴趣受教课程的双边图：
Wolfram Language code: g = [image];
突出边覆盖：
Wolfram Language code: colorHighlight[comp_] := HighlightGraph[g, Join@@Table[(Style[#, ColorData["Rainbow"][i / Length[comp]]])& /@ Join[comp[[i]], EdgeList[Subgraph[g, comp[[i]]]]], {i, Length[comp]}], GraphHighlightStyle -> "DehighlightHide"];
Wolfram Language code: colorHighlight[ConnectedComponents[Graph@FindEdgeCover[g]]]