如何基于间距准则创建指定数量的NetLogo turtle代理

你编写的代码提前固定了仅检查100个随机斑块，若选中的斑块周围2格范围内已有海龟，就会跳过该位置的创建逻辑，没有补充新的候选位置，自然无法凑够100个符合间距要求的海龟。

方案1：循环判断直到达标 #

使用循环逻辑持续筛选符合条件的斑块，直到海龟数量达到目标值即可，参考代码如下：

to setup
  clear-all
  ; 定义目标海龟数量，可按需修改
  let target-num 100
  while [ count turtles < target-num ] [
    ; 随机选一个周围2格范围内没有海龟的斑块
    ask one-of patches with [ not any? turtles in-radius 2 ] [
      sprout-turtles 1 [ setup-turtles ]
    ]
  ]
end

to setup-turtles
  set energy 0
  set size 1
  set color orange
end

该方案实现简单，适合目标数量远小于场景最大可容纳量的场景。

方案2：预筛选候选池（效率更高） #

如果目标数量较大，可以提前计算所有符合间距要求的候选斑块池，再从中抽取对应数量的斑块生成海龟，避免反复遍历全局判断，代码如下：

to setup
  clear-all
  let target-num 100
  ; 初始化候选斑块池为所有斑块
  let candidate-patches patches
  let selected-patches []
  while [ length selected-patches < target-num and not empty? candidate-patches ] [
    ; 从候选池选一个斑块
    let p one-of candidate-patches
    set selected-patches lput p selected-patches
    ; 把该斑块以及周围2格内的斑块从候选池移除，保证后续选中的斑块满足间距要求
    set candidate-patches candidate-patches with [ distance p >= 2 ]
  ]
  ask selected-patches [ sprout-turtles 1 [ setup-turtles ] ]
end

• 两种方案都默认你的场景斑块数量足够容纳目标数量的海龟，若目标数量超过场景最大可容纳量，会进入死循环，可根据需求额外添加最大循环次数的判断逻辑。

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