NetLogo가 패치 세트에서 격리 된 패치를 출시합니다.

Question

나는 동물의 영토를 재배하고 있습니다. 동물 영토는 확장 과정에서 다른 동물 영토의 일부를 쪼갤 수 있습니다. 따라서 하나의 인접한 영토가 아닌 두 개 이상의 클러스터 (즉, 연결되지 않은 클러스터)를 포함 할 수 있습니다. 이것은 아래의 모델에서 발생합니다. 영토를 인식하고 영토가 하나의 인접한 클러스터로 유지되도록 셀 클러스터 (또는 단일 연결되지 않은 셀)가 가장 작은 클러스터를 출시하고 싶습니다. 나는 이걸 어디서부터 시작해야할지 모르겠습니다. 어떤 도움이라도 좋을 것입니다.

breed [animals animal] 
breed [homeranges homerange] 

animals-own 
[ 
    Name 
    orig 
    territory 
    food 
    status 
] 

patches-own 
[ 
    owner 
    prey 
] 

to setup 
    clear-all 
    random-seed 2234 
    ask patches 
    [ 
    set owner nobody 
    set prey 2 
    set pcolor scale-color (black) prey 1 4 
    ] 

    let $colors [brown orange violet sky lime] 
    let $Name ["t6" "t7" "t8" "t9" "t10"] 
    let $status [0 0 0 0 5] 
    ask n-of 5 patches 
    [ 
    sprout-animals 1 
    [ 
     set shape "circle" 
     set orig patch-here 
     set territory patch-set orig 
     set status item who $status 
     set size 0.3 + 0.1 * status 
     set color item who $colors 
     set pcolor color 
     set Name item who $Name 
     set owner self 
    ] 
    ] 
    reset-ticks 
end 

to go 
    if all? animals [food >= 350] [ stop ] 
    if ticks = 70 [ stop ] 
    expand 
    tick 
end 

to expand ; animals procedure 

    repeat 10 
    [ 
    ask animals 
    [ 
     let vacant no-patches 
     let subord no-patches 
     let target nobody 
     let new-patches no-patches 
     let status-of-calling-tiger status ; 
     let calling-tiger self ; 

           ; If territory not yet good enough: 
     if food < 500 
     [ 
     ask territory 
     [ 
      ; Add unoccupied neighbor patches as potential targets: 
      set vacant (patch-set vacant neighbors with [owner = nobody]) 

      ; Add occupied neighbor patches as potential targets if their tiger has a lower status than me: 
      set subord (patch-set subord neighbors with [owner != nobody and [status] of owner < status-of-calling-tiger]) 
     ] 

     ask subord [ set pcolor red ] 

             ; Set of all potential targets: 
     set new-patches (patch-set new-patches vacant subord) 

     ; Choose as target the one potential target with highest prey: 
     if any? new-patches 
     [ 
      ask new-patches 
      [ifelse any? vacant 
      [ifelse any? subord 
       [ifelse [prey] of max-one-of vacant [prey] = [prey] of max-one-of subord [prey] 
       [set target max-one-of vacant [prey]] 
       [set target max-one-of new-patches [prey]] 
       ] 
       [set target max-one-of vacant [prey]] 
      ] 
      [set target max-one-of subord [prey]] 
      ] 
      move-to target 
      if-else member? target subord 
      [ set shape "triangle" ] ; so you can see that the target patch was from "subord" 
      [ set shape "circle" ] ; or from "vacant" 
     ] 

     ;ifelse any? target with [owner != nobody] 
     if target != nobody 
     [ 
      ; Add target patch to territory of the current animal: 
      set territory (patch-set territory target) ; this is the territory of the calling tiger 

      let old-owner [owner] of target; this needs to be memorized 

             ; Tell target patch that is has new owner: 
      ask target [ set owner calling-tiger ] 

      ; Tell the original owner of the target patch to remove the target patch from its territory: 
      if old-owner != nobody ; 
      [ 
      ask old-owner 
      [ 
       set territory territory with [ owner != calling-tiger ] 
      ] 
      ] 
     ] 
     set food sum [prey] of territory 
     ] 
    ] 
    ] 

    ask animals 
    [ 
    ask territory 
    [ 
     set pcolor [color] of myself 
     set plabel (word [status] of owner [status] of myself) 
    ] 
    if food < 10 [die] 
    ] 
end 

Answer 1

패치 클러스터 예를 들어, NetLogo 모델 라이브러리의 코드 예제 섹션에는 인접한 패치 클러스터를 식별하는 코드가 있습니다. 핵심 코드는 다음과 같습니다.

patches-own [cluster] 

to setup 
    ... 
    ask patches [ set cluster nobody ] 
    ... 
end 

to grow-cluster ;; patch procedure 
    ask neighbors4 with [(cluster = nobody) and 
    (pcolor = [pcolor] of myself)] 
    [ set cluster [cluster] of myself 
    grow-cluster ] 
end 

그러나 나머지 예제도 참조하십시오.

유스 케이스에서는 클러스터를 성장시키기 위해 임의로 "시드"를 배치하는 대신 동물이 서있는 패치에서 클러스터를 성장시키기 시작합니다.