NetLogo - 当代理位于顶部时更改补丁的颜色

Question

我试图让我的乌龟在接触到补丁时改变它的颜色，并尝试了以下代码:

to deesculateviolence
  ask turtles [
    if pcolor = red [set pcolor blue]
  ]
end

代码没有出现任何错误，但是当我播放模型时，补丁的颜色没有改变。我已经尝试过不同型号的类似代码，但仍然无法让补丁改变颜色。如果有人知道我哪里出了问题，我将非常感谢您的帮助。

Answer 1

我认为你的代码做了正确的事情:

to setup

  clear-all

  create-turtles 5 [
    move-to patch random 20 random 20

  ]
  ask n-of 25 patches [set pcolor red]
  reset-ticks
end

to go

  ask turtles [
  rt random 10
  fd 1

    if pcolor = red [set pcolor blue]
  ]
  tick
end

下面的例子可以更好的看到效果