Superdiffuser Model of Behavior Change in a Network

Superdiffuser Model of Behavior Change in a Network preview image

1 collaborator

Tags

attitudes and behavior 

Tagged by Christopher Carpenter about 1 month ago

behavior change 

Tagged by Christopher Carpenter about 1 month ago

diffusion 

Tagged by Christopher Carpenter about 1 month ago

social networks 

Tagged by Christopher Carpenter about 1 month ago

Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.3.0 • Viewed 32 times • Downloaded 2 times • Run 0 times
Download the 'Superdiffuser Model of Behavior Change in a Network' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

extensions [
  nw]

turtles-own [
  adopted?               ; whether or not the turtles have adopted the innovation
  pers-one               ; likelihood of an adopted turtle choosing link neighbor who has not adopted and trying to persuade them
  attitude               ; attitude towards adopting the behavior
  pers-power             ; how much a turtle adds to the attitude of another turtle if they target it
  adopt-friends          ; how many link neighbors have adopted, this is for the social influence variable
  non-adopt-friends      ; how many link neighbors have not adopted
  message ]              ; keeps track of message most recently received

globals [
   status-quo?           ; sets up the counter to count change for a stop condition
   status-quo-counter
  initial-degree  ;these next four are for the variables of the seeded agents
  initial-between
  initial-pers-power
  initial-pers-likely
  adopted-at-tick
  init-adopted2

]

to setup
  ca
  reset-ticks
  set status-quo? false
  set status-quo-counter 0                                                              ; for the stop code for no change in attitude
  nw:generate-preferential-attachment turtles links num-agents min-links                ; sets up preferential attachment network
  repeat 30 [ layout-spring turtles links 0.2 5 1 ]                                     ; makes the network look nicer

  ;new code assigning adoption
  ask turtles [set adopted? false]
  set init-adopted2 ((num-agents) * (percent-adopted-start))
  ask n-of init-adopted2 turtles [set adopted? true]

  ask turtles [
  set shape "person"
  set message 0
  set-pers-one
  set-attitude
  set-pers-power
  recolor]

  ;these four calculate the values for the seeded agents
  set initial-degree mean ( [ count link-neighbors ] of turtles with [ adopted? = true ] )
  set initial-between mean ( [ nw:betweenness-centrality ] of turtles with [ adopted? = true ] )
  set initial-pers-power mean [pers-power] of turtles with [adopted? = true]
  set initial-pers-likely mean [pers-one] of turtles with [adopted? = true]
  set adopted-at-tick count turtles with [adopted? = true]
end 

to set-pers-one ; turtle process
  set pers-one ( random-normal avg-pers-one 20 )      ; randomly assigns the the likelihood that a turtle will try to persuade another turtle at a tick
  if pers-one > 100 [ set pers-one 100 ]              ; the avg-pers-one slider sets the mean such that a higher setting means that more of the turtles will want to persuade
  if pers-one < 0 [ set pers-one 0 ]
end 

to set-attitude ; turtle process
  set attitude ( random-normal avg-attitude 1 )       ; sets up turtles' start attitude, below the lowest adoption threshold and at least 1 like a 1-7 likert scale
  if attitude > 3.9 [ set attitude 3.9 ]
  if attitude < 1.0 [ set attitude 1.0 ]
end 

to set-pers-power ; turtle process
  set pers-power ( random-normal avg-pers-power .1 )
  if pers-power > 2 [ set pers-power 2 ]
  if pers-power < 0 [ set pers-power 0 ]
end 

to recolor
  ifelse adopted? = true [
    set color red ] [
    set color white ]
end 

to update-friends ; turtle process
  set adopt-friends count link-neighbors with [ adopted? = true ]    ; updates number of adopted friends to use in the social influence calculation
  set non-adopt-friends count link-neighbors with [ adopted? = false ]
end 

;next 4 reporters are created to record values of agents seeded with adoption

to-report init-degree
  report initial-degree
end 

to-report init-between
  report initial-between
end 

to-report init-pers-power
  report initial-pers-power
end 

to-report init-pers-likely
  report initial-pers-likely
end 

;next four reporters report the agent values at each tick

to-report report-betweenness                                         ; creates the data for the monitor labeled betweenness centrality of adopted
  let adopted-betweenness mean ( [ nw:betweenness-centrality ] of turtles with [ adopted? = true ] )
  report adopted-betweenness
end 

to-report report-betweenness-all                                         ; creates the data for the monitor labeled betweenness centrality
  let betweenness-all mean ( [ nw:betweenness-centrality ] of turtles)
  report betweenness-all
end 

to-report report-degree                                              ; creates the data for the monitor labeled degree centrality of adopted
  let adopted-degree mean ( [ count link-neighbors ] of turtles with [ adopted? = true ] )
  report adopted-degree
end 

to-report report-degree-all                                             ; creates the data for the monitor labeled degree centrality
  let degree-all mean ( [ count link-neighbors ] of turtles)
  report degree-all
end 

to-report report-pers-power
  let adopt-pers-power mean [pers-power] of turtles with [adopted? = true]
  report adopt-pers-power
end 

to-report pers-likely-adopted
  let adopt-pers-likely mean [pers-one] of turtles with [adopted? = true]
  report adopt-pers-likely
end 

to-report global-clustering-coefficient
  let closed-triplets sum [ nw:clustering-coefficient * count my-links * (count my-links - 1) ] of turtles
  let triplets sum [ count my-links * (count my-links - 1) ] of turtles
  report closed-triplets / triplets
end 

to go
  let status-quo-before? status-quo?
  set status-quo? true
  ask turtles [
    update-friends                                             ; friends updated at the start of each tick
    if adopted? = true and non-adopt-friends > 0 [ persuade ]  ; persuasive attempts are only made by adopters
    if adopted? = false [ update-attitude ] ]                  ; attitude change only happens among non-adopters
  ifelse status-quo-before? = true and status-quo? = true [
    set status-quo-counter status-quo-counter + 1 ] [
    set status-quo-counter 0 ]
  tick
  if ticks < 1001 [set adopted-at-tick sentence (adopted-at-tick) (count turtles with [adopted? = true])]
  if status-quo-counter = 50 [ stop ]
  if ( not any? turtles with [ not adopted? ] ) [ stop ]     ; if the go is switched to run forever, it will stop if the whole network has adopted
end 

to persuade ; turtle process
  if ( random 100 < pers-one ) [
    ask one-of link-neighbors with [ adopted? = false ] [
      set message [ pers-power ] of myself ] ]               ; target will keep track of pers-power as message, to be used in update-attitude
end 

to update-attitude ; turtle process
  let old-attitude attitude                                               ; sets up the check for attitude changes this tick
  set attitude attitude + message + ( adopt-friends * social-influence )  ; attitude will change based on most recent message received AND social influence
  if attitude > 7 [
    set attitude 7 ]                                                      ; make sure attitude can't go over max for Likert scale
  if attitude >= adopt-threshold [ set adopted? true ]                    ; any turtle that reached the threshold will be set to adopted
  recolor                                                                 ; updates color based on adoption
  set message 0                                                           ; resets message variable to 0
  if old-attitude != attitude [ set status-quo? false ]                   ; indicates if there has been any attitude change this tick
end 

There is only one version of this model, created about 1 month ago by Christopher Carpenter.

Attached files

File Type Description Last updated
Superdiffuser Model of Behavior Change in a Network.png preview Preview for 'Superdiffuser Model of Behavior Change in a Network' about 1 month ago, by Christopher Carpenter Download

This model does not have any ancestors.

This model does not have any descendants.