WOLFRAM

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

グラフの分割と切断

交信を最小限にして，データかプロセスをプロセッサのメッシュに均等に割り当てる．

    
Wolfram Language code: mesh = AdjacencyGraph[ExampleData[{"Matrix", "HB/blckhole"}, "Matrix"], VertexShapeFunction -> None, EdgeShapeFunction -> (Line[#]&), GraphLayout -> "SpectralEmbedding"]
Wolfram Language code: Short[FindGraphPartition[mesh, 4]]
プロセッサの分割されたメッシュをハイライトする：
Wolfram Language code: HighlightGraph[mesh, Subgraph[mesh, #]& /@ %, GraphHighlightStyle -> "DehighlightHide"]