Netlogo 随时间/节拍改变补丁颜色

我需要一些关于我的NetLogo型号的帮助

目前我有海龟（牛）在田野里漫游。以设定的速率，他们将贴片颜色从绿色变为棕色（代表该贴片上的排便）。然而，就目前情况而言，这些补丁永远保持棕色，我想对其进行编码，以便在经过一定数量的刻度（由我制作的滑块确定）后，补丁颜色变回绿色（表示粪便的降解）

我目前的排便编码如下：

to cow-defecate
  ask untreated-cows
    [if random 100 < defecation-rate [set pcolor brown]]
end

牛排便
询问未经治疗的奶牛
[如果随机100<排便率[设置为棕色]
结束

---

非常感谢您的帮助。

我建议您查看NetLogo模型库生物学部分的狼羊捕食模型。它的代码就是这样做的

守则的有关部分包括：

patches-own [countdown]

to setup
  ...
  ask patches [
    set countdown random grass-regrowth-time
    set pcolor one-of [green brown]
  ]
  ..
end

to go
  ...
  ask sheep [ eat-grass ]
  ask patches [ grow-grass ]
  ...
end

to eat-grass  ;; sheep procedure
  if pcolor = green [
    set pcolor brown
  ]
end

to grow-grass  ;; patch procedure
  ;; countdown on brown patches: if reach 0, grow some grass
  if pcolor = brown [
    ifelse countdown <= 0
      [ set pcolor green
        set countdown grass-regrowth-time ]
      [ set countdown countdown - 1 ]
  ]
end

补丁自己的[倒计时]
设置
...
询问补丁[
设置倒数随机草再生时间
将pcolor设置为[绿棕色]之一
]
..
结束
外带
...
问羊[吃草]
问补丁[种草]
...
结束
吃草；；绵羊程序
如果pcolor=绿色[
设置颜色为棕色
]
结束
种草；；修补程序
;; 棕色斑块倒计时：如果达到0，种植一些草
如果pcolor=棕色[
ifelse倒计时我建议查看NetLogo模型库生物学部分中的狼羊捕食模型。它的代码正是这样做的

守则的有关部分包括：

patches-own [countdown]

to setup
  ...
  ask patches [
    set countdown random grass-regrowth-time
    set pcolor one-of [green brown]
  ]
  ..
end

to go
  ...
  ask sheep [ eat-grass ]
  ask patches [ grow-grass ]
  ...
end

to eat-grass  ;; sheep procedure
  if pcolor = green [
    set pcolor brown
  ]
end

to grow-grass  ;; patch procedure
  ;; countdown on brown patches: if reach 0, grow some grass
  if pcolor = brown [
    ifelse countdown <= 0
      [ set pcolor green
        set countdown grass-regrowth-time ]
      [ set countdown countdown - 1 ]
  ]
end

补丁自己的[倒计时]
设置
...
询问补丁[
设置倒数随机草再生时间
将pcolor设置为[绿棕色]之一
]
..
结束
外带
...
问羊[吃草]
问补丁[种草]
...
结束
吃草；绵羊
如果pcolor=绿色[
设置颜色为棕色
]
结束
种草；修补程序
棕色斑块倒计时：如果达到0，种植一些草
如果pcolor=棕色[
ifelse倒计时，你应该添加一些关于你用什么语言做这件事的信息，以及一些到目前为止你做过的事情的代码…对不起，Jakob，忘了将其标记为NetLogo！你应该添加一些关于你用什么语言做这件事的信息，以及一些到目前为止你做过的事情的代码…对不起，Jakob，忘了将其标记为NetLogo！