The Emergence of Intersectionality

globals [
  n-of-players
  n-of-players-group-1
  n-of-players-group-2
  n-of-players-group-3
  n-of-players-group-4
  prop-high-demand-group-1
  prop-high-demand-group-2
  prop-high-demand-group-3
  prop-high-demand-group-4
  high-demand-group-1
  high-demand-group-2
  high-demand-group-3
  high-demand-group-4
  played?
]

players-own [
  group
  payoff
  strategy
  strategy-after-revision
]

breed [players player]

;;;;;;;;;;;;;
;;; SETUP ;;;
;;;;;;;;;;;;;

to setup
  clear-all
  no-display
  setup-players
  reset-ticks
end 

to setup-players
  let group-distribution read-from-string n-of-players-for-each-group

  let i 1
  foreach group-distribution [ j ->
    create-players j [
      set group i
      set payoff 0
      set strategy (random 11)
      set strategy-after-revision strategy
      set played? false
    ]
    set i (i + 1)
  ]

  set n-of-players count players
  set n-of-players-group-1 count players with [group = 1]
  set n-of-players-group-2 count players with [group = 2]
  set n-of-players-group-3 count players with [group = 3]
  set n-of-players-group-4 count players with [group = 4]
  set high-demand-group-1 count players with [group = 1 and strategy > 5]
  set high-demand-group-2 count players with [group = 2 and strategy > 5]
  set high-demand-group-3 count players with [group = 3 and strategy > 5]
  set high-demand-group-4 count players with [group = 4 and strategy > 5]
end 

;;;;;;;;;;
;;; GO ;;;
;;;;;;;;;;

to go
  ask players [set played? false]
  ask players [update-strategy-after-revision]
  ask players [update-strategy]
  set-group-high-demands
  tick
end 

;;;;;;;;;;;;;
;;; UPDATE ;;;
;;;;;;;;;;;;;

to update-payoff
  let mate one-of players
  ifelse ([strategy] of mate) + strategy <= 10 [
      set payoff strategy
    ]
    [
      (
        ifelse
        group = 1 [
          set payoff disagreement-point-group-1
        ]
        group = 2 [
          set payoff disagreement-point-group-2
        ]
        group = 3 [
          set payoff disagreement-point-group-3
        ]
        group = 4 [
          set payoff disagreement-point-group-4
        ]
       )
    ]
  set played? true
end 

to update-strategy-after-revision
  let mate one-of other players
  if ([group] of mate) = group [
  if not played? [update-payoff]
  ask mate [if not played? [update-payoff]]
  if ([payoff] of mate) > payoff [
    set strategy-after-revision ([strategy] of mate)
   ]
  ]
end 

to update-strategy
  set strategy strategy-after-revision
end 

to set-group-high-demands
  set prop-high-demand-group-1 high-demand-group-1 / n-of-players-group-1
  set prop-high-demand-group-2 high-demand-group-2 / n-of-players-group-2
  set prop-high-demand-group-3 high-demand-group-3 / n-of-players-group-3
  set prop-high-demand-group-4 high-demand-group-4 / n-of-players-group-4
end 

to-report dummy-group-1
  ifelse prop-high-demand-group-1 > 0.5 [report 1] [report 0]
end 

to-report dummy-group-2
  ifelse prop-high-demand-group-2 > 0.5 [report 1] [report 0]
end 

to-report dummy-group-3
  ifelse prop-high-demand-group-3 > 0.5 [report 1] [report 0]
end 

to-report dummy-group-4
  ifelse prop-high-demand-group-4 > 0.5 [report 1] [report 0]
end