change a patch attribute within concentric circles

BehaviourComposer: ignore everything before this.

Begin micro-behaviour:

Begin description: change a patch attribute within concentric circles End description

make concentric circles

Begin NetLogo code:

substitute-text-area-for text-area-center-x-coordinate 2 substitute-text-area-for text-area-center-y-coordinate 3 substitute-text-area-for text-area-radius 7 substitute-text-area-for text-area-radius-increment 1 substitute-text-area-for text-area-attribute-name pcolor substitute-text-area-for text-area-attribute-value 21 substitute-text-area-for text-area-attribute-increment 1 substitute-text-area-for text-area-multiplier 1   let x                   text-area-center-x-coordinate ; position circle on x-axis let y                   text-area-center-y-coordinate ; position circle on y-axis ; give circle a radius (this will also be the number of cycles unless you change the  multiplier: let radius              text-area-radius  let radius-increment    text-area-radius-increment ; set how much the radius decreases each cycle let value               text-area-attribute-value ; set the initial value of the patch attribute let attribute-increment text-area-attribute-increment ; set how much the attribute value changes each cycle ; set number of times radius decreases using the factor: multiplier * radius ( must be more than 0 and less than 1): let multiplier          text-area-multiplier let cycles (radius * multiplier) ; number of times radius decreases  set xcor x  set ycor y let index 1 repeat cycles [    ask patches in-radius radius [      let new-value ( value + ( attribute-increment * index ))      set text-area-attribute-name new-value ; the patch attribute you want to change e.g. using yyy-of-the-patch      set plabel new-value      ]    set radius ( radius - radius-increment )    set index ( index + 1 )    ]

End NetLogo code

How this works