Netlogo Procedure n-of 2 neighbors

Question

我正在嘗試在Netlogo中編寫一個程序，該程序首先識別紅色補丁的兩個隨機鄰居，然後將這兩個補丁更改爲藍色。網格上的補丁可以是紅色，藍色或白色。

我把這段代碼放在「去」部分，它使「tick」無效。它也似乎不在任何地方運行。

to run-2-neighbors-people 
    if all-voters-talked-2-people 
    [ ask n-of 2 neighbors with [ pcolor = red ] 
    [ set pcolor blue] 
    ] 
    end 

下面是完整的代碼：

patches-own 
[ 
    vote ;; my vote (0 or >= 1) 
    total ;; sum of votes around me 
] 

to setup 

    clear-all 
    ask n-of (percentage-of-voters/100 * count patches) patches [ 
    set vote 1 ] 
    ask patches [set-color] 
    ask patches [set initial-voters count patches with [ pcolor = red ] ] 
    ask patches [set non-voters count patches with [pcolor = white] ] 

    reset-ticks 

end 


to go 
    ask patches 
    [ set total (sum [vote] of neighbors) ] 
    ask patches [if pcolor = white 
    [if total >= 4 [set pcolor blue ] ] ] 
    ask patches [if pcolor = white 
    [if total < 4 [ set vote 0 ] ] ] 
    run-all-voters-talked-2-people 
    run-share-on-social-media 
    tick 
end 

to run-share-on-social-media 
    if share-on-social-media 
    [ask patches with [pcolor = red] [ 
     sprout 1 [ 
     set shape "arrow"] 
     ]] 
end 

to run-all-voters-talked-2-people 
    ask patches with [pcolor = red] [ 
    ask n-of 2 neighbors with [ pcolor = red ] 
     [set pcolor blue] ] 
end 


to set-color ;; patch color procedure 
    ifelse vote >= 1 
    [ set pcolor red ] 
    [ set pcolor white ] 
end 

Answer 1

這個是什麼？它工作正常，直到所有紅色補丁的鄰居都變成藍色。你只需要添加按鈕「設置」和「去」你的界面。

修改：

在這個例子中，紅色斑塊，首先檢查其鄰國的顏色且僅當有更多或等於2的白色，然後把它們的隨機2成藍色。 ELSE（來自「ifelse」不夠白色的鄰居），沒有任何反應。

在這種方法中，你不會有這樣的警告：Requested 2 random agents from a set of only 1 agents.

to setup 
    clear-all 
    reset-ticks ; add reset ticks in "setup" - without this you can't use "tick" in "go" procedure 
    setup-patches 
end 

to setup-patches 
    ; create random world with 3 basic colors 
    ask patches [ 
    set pcolor white 
    ] 
    ask n-of floor (count patches/3) patches [ 
    set pcolor blue 
    ] 
    ask n-of 5 patches with [pcolor = white] [ 
    set pcolor red 
    ] 
end 

to go 
    ask patches with [pcolor = red] [ 
    ; turn white patches to blue only if the red patch has at least 2 neighbors with pcolor white. 
    ; if there is only 1 neighbor with pcolor white, nothing happens 
    ifelse count neighbors with [pcolor = white] >= 2 
     [ ask n-of 2 neighbors with [pcolor = white] [ 
      set pcolor blue 
     ] 
     ] 
     [ stop ] 
     ] 
    tick ; add tick at the end of "go" procedure 
end 

第三修改：

，如果你是一個補丁，你的顏色是紅色，然後問我）你的鄰居的2 （任何鄰居，因此可以是藍色，白色，紅色）ii）如果你是白色的話會變成藍色。所以，如果這兩個鄰居來自i）

• 都是藍色/紅色 - >沒有任何反應。
• 均爲白色 - >二者轉
• 藍色一個白色一個不同的顏色 - >只有白轉藍色

的代碼：

to go 
    ask patches with [pcolor = red] [ 
    ask n-of 2 neighbors [ 
     if pcolor = white [ 
     set pcolor blue 
     ] 
    ] 
    ] 
    tick 
end 

最終狀態：