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

时间:2013-12-08 22:21:17

标签: netlogo

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

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

代码没有出现任何错误,但是当我玩模型时,补丁的颜色不会改变。我尝试过不同型号的类似代码,仍然无法获得改变颜色的补丁。如果有人知道我哪里出错了,我真的很感激你的帮助。

1 个答案:

答案 0 :(得分:3)

我认为你的代码是正确的:

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

enter image description here

enter image description here

您可以更好地查看以下示例中的效果 enter image description here

enter image description here