Para criar clusters de patches em grandes escalas espaciais
Eu usei o código deComo criar patches de cluster que não se sobrepõem entre si para criar patches, como mostrado na primeira figura abaixo.
Aqui está o código:
to make-cluster
loop [
let cluster [patches in-radius (2 + random-float 2)] of one-of patches
if all? (patch-set [neighbors] of cluster) [pcolor = black] [
ask cluster [ set pcolor green ]
stop ] ]
clear-all repeat 20 [ make-cluster ]
Quando uso esse código em uma grande extensão espacial (ou seja, 1000 x 1000 patches com tamanho de patch = 1 pixel), os patches verdes são como círculos (veja a segunda figura abaixo).
Como posso ter os patches, conforme mostrado na primeira figura?
Muito obrigado pela sua ajuda.