如何创建不重叠的群集修补程序

我想通过控制聚类的大小和聚类的数量来创建栖息地聚类(例如,像Marine的主题中的森林补丁:在景观中添加补丁聚类)？例如,我使用了"植物迁移"代码:

 to create-forests
 ask n-of forest-number patches
[
 set pcolor green 
]
ask patches with [pcolor = green]
[
 let a self
 let b max list 1 round(random-normal mean-forest-area (mean-forest-area * coef-forest-area))
 ask patches with [distance a <= b]
 [ 
   set pcolor green ]
 ]
end

如何创建不重叠的群集补丁？提前致谢