WOLFRAM

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

辺の被覆

辺の被覆を表示することによって，それぞれのコースを1人の教授が担当し，Larryは2つのコースを教えることになっていることが分かる．

    
教授と彼らが教えたいと思っているコースとの二部グラフを構築する：
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]]]