Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- g = Graph3D[{1 <-> 2, 2 <-> 3, 3 <-> 1, 4 <-> 5, 5 <-> 6, 6 <-> 4, 1 <-> 4, 2 <-> 5, 3 <-> 6},
- EdgeWeight -> {1, 1, 1, 1, 1, 1, 5, 5, 5}]
- FindGraphCommunities[g, Method -> "Centrality"]
- (* {{1, 4}, {2, 5}, {3, 6}} *)
- EdgeBetweennessCentrality[g]
- (* {4., 4., 4., 4., 4., 4., 6., 6., 6.} *)
Add Comment
Please, Sign In to add comment