Разброс семян вокруг дерева провоцирует бесконечный цикл? - PullRequest
Новая
       7

Разброс семян вокруг дерева провоцирует бесконечный цикл?

0 голосов
/ 11 июня 2018

Я только что начал проект, в котором я собираюсь смоделировать (среди прочего) рассеяние семян вокруг деревьев (с именем zsps).Соседние участки уже могут быть заселены или не могут быть посеяны из-за низкой рождаемости.Я написал код, который запускается (в начале симуляции), но заставил код войти в бесконечный цикл (я думаю), потому что некоторые деревья пытаются распространять семена, но не могут найти какое-либо доступное место.

Есть ли у кого-нибудьвыход из этой ловушки (если количество мест <количество семян или нет мест)? </p>

Вот процедура, которую я написал: 

to check-seed-dispersal
  ask zsps[
    let nb-seeds 0
    ifelse (age > 4) [set NFemFlowers 100] 
    [set NFemFlowers 0]
    let temp-color color
    if Tot_pol > 0
    [set nb-seeds round ((NFemFlowers / Tot_pol) * 6 ) ]
    if (nb-seeds > 0 )[     
      ask patches in-radius 5 with [fertility > 8 and not any? zsps-here]   
      [sprout-zsps  nb-seeds 
        [ifelse (temp-color = yellow)
          [set color gray set age 0 ] 
          [set color red  set age 0 ] 
        ]
      ]
    ]
  ]
end
...