如何高效选择满足属性条件的turtle子集并统计符合要求的组合数

优化思路 #

原嵌套ask写法的性能瓶颈在于：遍历每个A、B实例时都反复执行with过滤，冗余计算随Agent规模增长会被成倍放大。通过预分组统计把重复过滤改为一次性全局统计，既可以去掉多层嵌套，还能把时间复杂度从O(|A|×|B|×|C|)降到O(|A|+|B|+|C|)，性能提升非常显著。

实现代码 #

需要先启用NetLogo内置的table扩展：

extensions [table]

;; 统计逻辑
let counter 0
;; 第一步：预统计C中每个p2对应的实例数量，仅执行一次
let c-p2-counts table:group-agents-by C [p2]
table:map-inplace [p2-val agents -> count agents] c-p2-counts

;; 第二步：预统计B中每个p1对应的总贡献（该p1下所有B实例可匹配的C数量之和），仅执行一次
let b-p1-contrib table:make
ask B [
  let matched-c-count table:get-or-default c-p2-counts p2 0
  table:put b-p1-contrib p1 (table:get-or-default b-p1-contrib p1 0) + matched-c-count
]

;; 第三步：仅需单层遍历符合条件的A实例，直接查表累加结果
let A1 A with [ /* 原A的过滤条件 */ ]
ask A1 [
  set counter counter + table:get-or-default b-p1-contrib p1 0
]

补充说明 #

如果你的NetLogo版本不支持table:get-or-default方法，可以替换为ifelse table:has-key? 表名 键 [取值][取0]的写法，逻辑完全一致。
如果不希望引入扩展，也可以用列表排序后分组统计，性能虽然略低于table实现，但依旧远好于原始嵌套ask的写法。

内容的提问来源于stack exchange，提问作者Marzio Pennisi