着色网络中最大的弱连接组件

Question

我基本上试图为最大的弱连接组件着色。 nw：weak-component-clusters正在返回网络中存在的所有组件的列表。我想只为最大的颜色着色。我的代码着色了所有组件。

 let clusters nw:weak-component-clusters 
 print length(clusters)
 show clusters
 show sort (clusters)
 foreach clusters [ 
   set color pink
 ]

Answer 1

您可以使用sort-by按大小降序对群集列表进行排序，然后让其中第一个更改其颜色：

extensions [nw]

to setup
  clear-all
  create-turtles 100 [
    set color blue
    create-links-with n-of random 3 other turtles
  ]
  repeat 30 [ layout-spring turtles links 0.2 5 1 ]
  let clusters nw:weak-component-clusters 
  ; sort by descending size of cluster:
  let sorted-clusters sort-by [ [c1 c2] -> count c1 > count c2 ] clusters
  ask first sorted-clusters [ set color pink ]  
end