thesis anxiety

extensions [nw]

breed [bullies bully]
breed [victims victim]

directed-link-breed [relationships relationship]

globals[
  execute-review?
  temporary-leave-available?
]

relationships-own [
  victim-performance-review; continuous
  excessive-workload ; continuous
  bully-recognition ; continuous
]

victims-own[
  ; UAMA - binary variables
  disrupted-value-calculation
  hypervigilance
  deficient-safety-learning
  avoidance
  heightened-reactivity
  increased-threat-expectancies
  ;
  socialization ; binary/continuous ?
  organization-trust ; continuous
  coping-resources ; continuous
  control-motivation ; continuous
  temporary-helplessness ; continuous
  ;permanent-helplessness ; binary
  victim-performance-rating
  anxiety ; continuous
  formal-support-seeked?
  bully-confronted?
  victim-works-harder?
  uama-activate?
]

to setup
  clear-all
  setup-victims
  setup-bullies
  ask one-of bullies [
  create-relationship-to one-of victims [
    set excessive-workload 0
    set bully-recognition 0
    ]
  ]
  set execute-review? true
  set temporary-leave-available? true
  reset-ticks
end 

to setup-victims
  create-victims 1 [
    setxy 5 0
    set shape "person"
    set color green
    set size 3

    ;; Initiliaze attributes
    set disrupted-value-calculation 0
    set hypervigilance 0
    set deficient-safety-learning 0
    set avoidance 0
    set heightened-reactivity  0
    set increased-threat-expectancies  0
    ;
    set coping-resources 1
    set control-motivation 1
    set anxiety 0
    set socialization 1
    set organization-trust 1
    set temporary-helplessness 0
    ;set permanent-helplessness 0
    set victim-performance-rating 0.6 + random-float 0.4
    set formal-support-seeked? false
    set bully-confronted? false
    set victim-works-harder? false
    set uama-activate? false
  ]
end 

to setup-bullies
  create-bullies 1 [
    setxy -5 0
    set shape "person"
    set color red
    set size 3
  ]
end 

to go
  ifelse execute-review? [
    performance-review
  ][
    team-meeting
  ]
  work-allocation
  choose-reactance
  victim-works
  social-event
  choose-withdraw-type

  tick
end 

to limit-attributes
  ask relationships [
    if bully-recognition > 1 [set bully-recognition 1]]
  ask victims [
    if coping-resources < 0 [set coping-resources 0]
    if coping-resources > 1 [set coping-resources 1]
    if control-motivation < 0 [set control-motivation 0]
    if control-motivation > 1 [set control-motivation 1]
    if organization-trust < 0 [set organization-trust 0]
    if organization-trust > 1 [set organization-trust 1]
    if temporary-helplessness < 0 [set temporary-helplessness 0]
    if temporary-helplessness > 1 [set temporary-helplessness 1]
    if anxiety < 0 [set anxiety 0]
    if anxiety > 1 [set anxiety 1]
]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to performance-review
  ask relationships [
    ; Before sense-making
    ifelse bully-recognition < 1 [
       ask victims[
        set uama-activate? false
        set socialization 1
        ;simplify-attribute-reduction (-0.1)
        ;set anxiety anxiety - 0.1

      ]
    ][
      ; After sense-making
        ask victims[
          let performance-evaluation victim-performance-rating + random-float 0.3
          let final-evaluation performance-evaluation - victim-performance-rating
        ask relationships [set victim-performance-review performance-evaluation]
        if final-evaluation <= 0.05 [
            ; Slight positive outcome for victim
            set uama-activate? false
            set socialization 1
            simplify-attribute-reduction (-0.1)
            set anxiety anxiety - 0.1
          ]
        if final-evaluation > 0.05 and final-evaluation <= 0.15[
          uama-activate
          simplify-attribute-reduction 0.01 + (anxiety * 0.1)
          set socialization 0
        ]
        if final-evaluation > 0.15 and final-evaluation <= 0.3[
          simplify-attribute-reduction (0.02) + (anxiety * 0.1)
        ]
      ]
    ]
  ]
  limit-attributes
end 

to team-meeting  ; either the team meeting goes normally or the victim gets overtly bullied
  ask relationships [
    ifelse bully-recognition < 1 [
      ask victims [
        set uama-activate? false
        set socialization 1

      ]
    ][
      ask victims [
        let bullying random-float 0.01
        uama-activate
        simplify-attribute-reduction (bullying) + (anxiety * 0.1)
        set socialization 0
      ]
    ]
  ]
  limit-attributes
end 

to work-allocation ; when the victim recognizes the behavior as bullying, workload increases
  ask relationships[
    let consequences random-float 0.5
    ; After sense-making
    ifelse bully-recognition = 1 [
      set excessive-workload (consequences + random-float 0.5)
    ][
    ; Before sense-making
      set excessive-workload (consequences)
      set bully-recognition bully-recognition + 0.01
    ]
  ]
end 

to choose-reactance ; divided into two main phases: before and after sense-making
  ask relationships [
    ifelse bully-recognition < 1 [
      let choice random 3
      if choice = 0 [ignore-bully]
      if choice = 1 [apologize-to-bully]
      if choice = 2 [work-harder]
    ][
      ask victims[
        ifelse coping-resources > 0.3 [
          if organization-trust > 0 and not bully-confronted? [
            ifelse random-float 1 < 0.4 [
              seek-formal-support
            ][
              confront-bully
          ]]
          if organization-trust = 0 and not bully-confronted? [
            ifelse random-float 1 < 0.5 [
              confront-bully
            ][
              keep-distance
          ]]
          if organization-trust > 0 and bully-confronted? [
            ifelse random-float 1 < 0.4[
              seek-formal-support
            ][
              keep-distance
          ]]
          if organization-trust = 0 and bully-confronted? [
            keep-distance
          ]
        ]
        [
          ask victims [keep-distance]
        ]
      ]
    ]
  ]
end 

to ignore-bully
  ask victims [
    let consequences (random-float 0.05)
    uama-activate
    simplify-attribute-reduction (- consequences + (anxiety * 0.1)); anxiety/ uncertainty hinders
    set socialization 0
  ]
  limit-attributes
end 

to apologize-to-bully
  ask victims [
    let consequences (random-float 0.05)
    uama-activate
    simplify-attribute-reduction (consequences) + (anxiety * 0.1)
  ]
  limit-attributes
end 

to work-harder
  ; the victim tries to match unreasonable expectations of the bully
  ask relationships [
    let victim-work-goal excessive-workload
    ask victims[
      set victim-performance-rating victim-work-goal
      set victim-works-harder? true
    ]
  ]
end 

to keep-distance
  ; a more intense form of ignoring the bully
  ask victims[
    let consequences (random-float 0.08)
    uama-activate
    simplify-attribute-reduction (- consequences + (anxiety * 0.1)) ; anxiety should be hindering
    set socialization 0
  ]
end 

to confront-bully
  let consequences 0.08 + random 0.5
  ifelse random-float 1 < 0.05
    [
      ask bullies[die]
      user-message "Victim confronted bully. Bullying de-escalates."
      ask victims[set uama-activate? false]
  ][
      ask victims[
        uama-activate
        simplify-attribute-reduction (consequences) + (anxiety * 0.1)
        set socialization 0
        set bully-confronted? true
      ]
  ]
  limit-attributes
end 

to seek-formal-support
  let consequences  0.1 + random 0.1
  ifelse random-float 1 < 0.05
  [
    ask bullies[die]
    user-message "Victim successfully seeked formal support. Bullying de-escalates."
    ask victims[set uama-activate? false]
  ][
    ask victims [
      simplify-attribute-reduction (consequences) + (anxiety * 0.1)
      uama-activate
      set organization-trust 0
      set socialization 0
      set formal-support-seeked? true
    ]
  ]
  limit-attributes
end 

to victim-works
  ask relationships [
    let t excessive-workload
    ifelse bully-recognition < 1 [
      ;; Before sense-making
      ask victims [
        ifelse victim-works-harder? [
          set victim-performance-rating victim-performance-rating
        ] [
          ;; Victim performs as usual
          set victim-performance-rating 0.5 + random-float 0.3
        ]
      ]
    ] [
      ;; After sense-making: performance drops due to increased helplesness and resource depletion
      ask victims [
        set victim-performance-rating victim-performance-rating - t
        if victim-performance-rating < 0 [ set victim-performance-rating 0 ]
      ]
    ]
  ]
end 

to social-event
  ask victims[
    ifelse socialization > 0[
      attend-event
      set uama-activate? false
    ][
      skip-event
    ]
  ]
end 

to attend-event
  if random 1 < 0.3 [
    ask victims[
      simplify-attribute-reduction(- random-float 0.05)
    ]
  ]
  limit-attributes
end 

to skip-event
  ask victims [uama-activate]
  limit-attributes
end 

to choose-withdraw-type
  ask victims [
    let decision (temporary-helplessness + anxiety) - coping-resources
    set decision max list 0 (min list decision 1)
    ifelse random-float 1.0 < decision [
      ask victims[
        user-message "Victim quits. Simulation stopped."
        die
      ]
    ][
      ask victims [choose-temporary-withdrawal]
    ]
  ]
end 

to choose-temporary-withdrawal ; check literature for what triggers each action
  ifelse temporary-leave-available? [
    ifelse random-float 1.0 < 0.2
    [temporary-leave]
    [stay-silent]
  ][
    stay-silent
  ]
end 

to temporary-leave  ; improve logic
  ask victims[
    set coping-resources coping-resources + 0.2
    set control-motivation control-motivation + 0.2
    set temporary-helplessness temporary-helplessness - 0.2
  ]
  set temporary-leave-available? false
  limit-attributes
end 

to stay-silent
  ask victims[
    simplify-attribute-reduction (0.05)
    set organization-trust organization-trust - 0.05
    set socialization 0
    uama-activate
  ]
  limit-attributes
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to simplify-attribute-reduction[t]
  ask victims [
    set coping-resources coping-resources - t
    set control-motivation control-motivation - t
    set temporary-helplessness temporary-helplessness + t
    set organization-trust organization-trust - t
  ]
end 

to uama-activate
  ask victims[
    set uama-activate? true
    set disrupted-value-calculation 1
    set hypervigilance 1
    set deficient-safety-learning 1
    set avoidance 1
    set heightened-reactivity 1
  ]
  anxiety-increase
end 

to anxiety-increase
  ask relationships [
    ifelse bully-recognition < 1 [
      ask victims [set anxiety anxiety + 0.01]
    ][
      ask victims [set anxiety anxiety + 0.015]
    ]
  ]
  limit-attributes
end 

;;;;;Reporters;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to-report victim-anxiety
  report mean [anxiety] of victims
end 

to-report recognizing-bully
  report mean [bully-recognition] of relationships
end 

to-report org-trust
  report mean [organization-trust] of victims
end 

to-report co-resources
  report mean [coping-resources] of victims
end 

to-report ctrl-motivation
  report mean [control-motivation] of victims
end 

to-report helplessness
  report mean [temporary-helplessness] of victims
end 

to-report socializing
  report mean [socialization] of victims
end 

to-report victim-own-rating
  report mean [victim-performance-rating] of victims
end 

to-report bully-assesses-victim
  report mean [victim-performance-review] of relationships
end 

to-report ammount-workload
  report mean [excessive-workload] of relationships
end