Netlogo 如何根据海龟占用半径更新面片颜色？

在设置模式下，当我的海龟出芽时，它们会根据品种占据不同区域的半径。 但是，当它们移动时，我无法更新半径的面片，只能更新它们所在的面片

patches-own [occupied? ID]
breed [rico ricos]
breed [pobre pobres]

to create-agents
ask patches with [ID > 5 and occupied? = false] [sprout-ricos 1
ask patch-here [set occupied? true set pcolor red]
ask patches in-radius ricos [set occupied? true set pcolor red]
]

ask patches with [ID < 5 and occupied? = false] [sprout-pobres 1
ask patch-here [set occupied? true set pcolor blue
ask patches in-radius pobres [set occupied? true set pcolor blue]
]

end

to move
ask turtles [fd 20]
end

to update-patches
ask patches [
  if (not any? turtles-here) [
      set pcolor white
      set occupied? FALSE
    ]
end

补丁程序自己的[占用？ID]
品种[里科·里科斯]
品种
创建代理
询问[ID>5且已占用？=false][sprout ricos 1的补丁
在此处询问补丁[设置已占用？设置为真彩色]
询问半径ricos中的补丁[设置已占用？设置真彩色]
]
询问[ID<5且已占用？=false][sprout pobres 1]的修补程序
在此处询问补丁[设置已占用？设置为真P颜色蓝色
询问半径范围内的补丁[设置已占用？真设置P颜色蓝色]
]
结束
移动
询问海龟[fd 20]
结束
更新修补程序
询问补丁[
如果（这里没有海龟）[
将颜色设置为白色
设置为已占用？错误
]
结束