更改一定距离内的色块颜色 Netlogo

Question

我想改变一些补丁的颜色。

if mujeres [ ask n-of 20 patches with [pcolor = 35] [set pcolor 9]]

然而，有时两个相邻的色块会变成颜色 9，我不希望这样。我认为半径内不是最佳的，因为在此之前没有颜色为 9 的色块。

确保斑块变成白色但它们保持分开的最佳方法是什么？谢谢

Answer 1

如果我理解正确的话，您想要将一些色块变成灰色，但在配置中不存在相邻的灰色色块。如果是这种情况，一种方法是使用 while 循环来搜索可能改变颜色的色块，直到达到所需的灰色色块数量 - 这将确保没有相邻的灰色色块因为每次运行 while 循环时，只有“允许”更改颜色的补丁才会这样做。例如：

to setup
  resize-world 0 10 0 10
  set-patch-size 30
  ca
  ; Until the condition is met, ask one patch to turn grey
  while [ count ( patches with [ pcolor = 9 ] ) < 20 ] [
    ; Ask one of the patches that does NOT have any grey neighbors
    ask one-of patches with [ not any? neighbors with [ pcolor = 9 ] ] [
      set pcolor 9
    ] 
  ]
  reset-ticks
end

应该类似于：

请注意 while 循环 - 如果从未满足“中断”或完成循环的条件，则循环将无限期地运行。