图的分割和剪切
mesh = AdjacencyGraph[ExampleData[{"Matrix", "HB/blckhole"}, "Matrix"], VertexShapeFunction -> None, EdgeShapeFunction -> (Line[#]&), GraphLayout -> "SpectralEmbedding"]Short[FindGraphPartition[mesh, 4]]HighlightGraph[mesh, Subgraph[mesh, #]& /@ %, GraphHighlightStyle -> "DehighlightHide"]