问为Net徽标中的修补程序分配值

EN

patches-own [ my-value ]  ;; Give every patch a place to store a new variable
                          ;; which we will name "my-value"
to setup
clear-all   

print "---------------- starting a new run ---------------" ;; if you want to see this  
;; do whatever you do
;; let's create some patches and set various patch colors ("pcolor")

  ask N-of 100 patches [set pcolor red]
  ask N-of 100 patches [set pcolor blue]

;; After they are created you should initialize the values of my-value
;;   or you could get sloppy and trust they will always initialize to zero

;; If there are lots of different colors there are nicer ways to do this
;; but if it's just red and blue we could simply do the following.  We will
;; give blue patches a value of 500 and red patches a value of 300

ask patches [
   if pcolor = blue [set my-value 500]
   if pcolor = red  [set my-value 300]
]
; ... whatever else you have in setup
reset-ticks   
end

;; Then your go section can just refer to these values the same way as you refer to
;; patch colors (pcolor). Say you just want a count of high values of "my-value"

to go
  if (ticks > 5) [   ;; or whatever your stopping condition is
    print "------- time has run out, stopping the run! ----"
    print " "
    stop
  ]    ;; just so this won't run forever

 ;... whatever

   type "the count of patches with my-values > 300 is now " 
   print count patches with [my-value > 300] 

;... whatever 
; For this example, let's change some random blue patch from blue to red
; and as we do that, set my-value to an appropriate value

  ask n-of 1 patches with [pcolor = blue][
    set pcolor red 
    set my-value 300
  ]

tick   
end