Loops 3个变异的聚集斑块，每个变异100个

各位,， 我需要一些帮助。我试图模拟一个有商业和住宅区的城市景观。红色代表景观中心的商业区。住宅区应围绕类似的地块聚集。此外，我有三类住宅区，分别为棕色、绿色和白色，它们应该是聚集的，但分布在景观上。我希望每一类住宅用地都有100个固定数量的补丁。下面的代码工作正常，但有时会出现错误，当我尝试运行行为空间工具时，情况更糟，我会得到多个有错误的结果。是否有其他方法可以在运行代码时不使用循环过程而或解决此问题

ask patch 0 0
[ set pcolor red
  ask neighbors [set pcolor red ]
]

ask n-of 23 patches [set pcolor green]
while [count patches with [pcolor = green] < 100]
[ ask one-of patches with [pcolor = green]
  [ ask one-of neighbors4 with [pcolor != red]
    [set pcolor green]
  ]
]

ask n-of 23 patches [set pcolor brown]
while [count patches with [pcolor = brown] < 100]
[ ask one-of patches with [pcolor = brown]
  [ ask one-of neighbors4 with [pcolor != green and pcolor != red]
    [set pcolor brown]
  ]
]

ask n-of 25 patches [set pcolor white]
while [count patches with [pcolor = white] < 100]
[ ask one-of patches with [pcolor = white]
  [ ask one-of neighbors4 with [pcolor != green and pcolor != brown and pcolor != red]
    [set pcolor white]
  ]
]

询问修补程序0
[设置颜色为红色]
询问邻居[设置颜色为红色]
]
询问23个补丁中的n个[设置为pcolor绿色]
而[使用[pcolor=green]<100计数面片]
[使用[pcolor=green]询问其中一个补丁]
[用[pcolor！=红色]询问其中一位邻居4]
[将颜色设置为绿色]
]
]
询问23个补丁中的n个[设置为P颜色棕色]
而[用[pcolor=brown]<100]计算面片数]
[使用[pcolor=brown]询问其中一个补丁]
[用[pcolor！=绿色和pcolor！=红色询问其中一个邻居4]
[设置颜色为棕色]
]
]
询问n-25个贴片[设置pcolor白色]
而[使用[pcolor=white]<100]计算面片数]
[使用[pcolor=white]询问其中一个补丁]
[用[pcolor！=绿色和pcolor！=棕色和pcolor！=红色询问其中一位邻居4]
[将颜色设置为白色]
]
]