在NetLogo嵌套ask结构下遍历patch-own属性并对比的方法

Great question! NetLogo doesn’t have a native way to loop directly over patch-own variables by name, but there are two straightforward approaches to solve this problem. Let’s walk through both, starting with the simplest for your fixed set of traits.

Since you have a set number of traits (trait1, trait2, trait3), the easiest way is to bundle them into lists and compare corresponding elements. Here’s how to adjust your code:

patches-own[ trait1 trait2 trait3 ]

to setup
  ; Optional: Initialize traits with test values (0/1 here)
  ask patches [
    set trait1 one-of [0 1]
    set trait2 one-of [0 1]
    set trait3 one-of [0 1]
  ]
end

to count-trait-similarity
  let similarityCounter 0
  ask one-of patches [
    ; Pack this patch's traits into a list
    let my-traits (list trait1 trait2 trait3)
    ask one-of neighbors [
      ; Pack the neighbor's traits into a matching list
      let neighbor-traits (list trait1 trait2 trait3)
      ; Iterate over both lists simultaneously
      foreach my-traits neighbor-traits [my-t, neighbor-t ->
        if my-t = neighbor-t [
          set similarityCounter similarityCounter + 1
        ]
      ]
    ]
  ]
  print (word "Number of matching traits: " similarityCounter)
end

How this works: #

• We create two lists: one for the selected patch’s traits, and one for its neighbor’s traits.
• The foreach command loops through both lists at the same time, pairing each trait from the original patch with the corresponding trait from the neighbor.
• Every time a pair matches, we increment the similarity counter.

If you might add more traits later and don’t want to update the list manually, you can use a global list of trait names and fetch values dynamically with runresult:

globals [ trait-names ] ; Stores the names of our patch traits as strings
patches-own[ trait1 trait2 trait3 ]

to setup
  set trait-names ["trait1" "trait2" "trait3"]
  ; Initialize test traits
  ask patches [
    set trait1 one-of [0 1]
    set trait2 one-of [0 1]
    set trait3 one-of [0 1]
  ]
end

to count-similarity-dynamic
  let similarityCounter 0
  ask one-of patches [
    let original-patch self ; Save a reference to this patch for later
    ask one-of neighbors [
      ; Loop through each trait name in our global list
      foreach trait-names [trait ->
        ; Fetch the original patch's trait value
        let original-trait runresult (word original-patch " " trait)
        ; Fetch this neighbor's trait value
        let neighbor-trait runresult trait
        ; Compare and count matches
        if original-trait = neighbor-trait [
          set similarityCounter similarityCounter + 1
        ]
      ]
    ]
  ]
  print (word "Number of matching traits: " similarityCounter)
end

How this works: #

• trait-names is a global list that holds the string names of all your patch traits.
• runresult executes a string as NetLogo code: runresult (word original-patch " " trait) gets the trait value from the original patch, while runresult trait gets the neighbor’s own trait value.
• This setup lets you add new traits just by updating the trait-names list and adding the new patch-own variable—no need to rewrite the loop logic.

Quick Note: #

Always initialize your traits (like in the setup procedures) before running the similarity count! If you skip this, traits will default to 0, and your similarity count will be inaccurate.

内容的提问来源于stack exchange，提问作者Haukland