Influence on Voting Ideology

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; VOTING BEHAVIOR AGENT-BASED MODEL (NETLOGO WEB SAFE)
;; Final consolidated version + ideology histogram + voter-only histogram
;; + ideology distribution plot (Left/Moderate/Right counts)
;;
;; REQUIRED Interface sliders (create in NetLogo Web Interface tab):
;;   media-strength      (min 0 max 1 step 0.01 initial 0.30)
;;   peer-strength       (min 0 max 1 step 0.01 initial 0.40)
;;   economic-weight     (min 0 max 1 step 0.01 initial 0.30)
;;   turnout-threshold   (min 0 max 1 step 0.01 initial 0.50)
;;
;; OPTIONAL Interface plots (create if you want them; model runs without):
;;   "Turnout"
;;   "Ideology"
;;   "Polarization"
;;   "Ideology Histogram"
;;   "Voter Ideology Histogram"
;;   "Ideology Distribution"  <-- NEW: requires 3 pens named "Left", "Moderate", "Right"
;;
;; Buttons:
;;   setup
;;   go (forever)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

globals [
  election-result
  turnout-rate
  mean-ideology
  polarization-sd
  extremes-rate
]

turtles-own [
  ideology              ;; -1 (progressive) to +1 (conservative)
  media-exposure        ;; 0–1
  economic-satisfaction ;; 0–1
  peer-pressure         ;; -1 to +1
  vote-probability      ;; 0–1
  voted?                ;; true / false
  last-reward           ;; reinforcement history
]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SETUP & MAIN LOOP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to setup
  clear-all
  set-default-shape turtles "person"

  ;; Sliders must exist in Interface with exact names above
  validate-slider-ranges

  create-turtles 300 [
    setxy random-xcor random-ycor
    set ideology random-float 2 - 1
    set media-exposure random-float 1
    set economic-satisfaction random-float 1
    set peer-pressure 0
    set vote-probability 0
    set voted? false
    set last-reward 0
    recolor
  ]

  update-voting-plots
  reset-ticks
end 

to go
  ask turtles [
    perceive-media
    perceive-peers
    calculate-vote-probability
    decide-to-vote
    recolor
  ]

  calculate-election
  update-voting-plots
  tick
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SLIDER VALIDATION
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to validate-slider-ranges
  set media-strength max list 0 min list 1 media-strength
  set peer-strength max list 0 min list 1 peer-strength
  set economic-weight max list 0 min list 1 economic-weight
  set turnout-threshold max list 0 min list 1 turnout-threshold
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; BEHAVIORAL PROCESSES
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to perceive-media
  let media-bias random-float 2 - 1
  set ideology ideology + (media-strength * media-exposure * media-bias)
  set ideology max list -1 min list 1 ideology
end 

to perceive-peers
  let local-peers turtles in-radius 3
  if any? local-peers [
    set peer-pressure mean [ideology] of local-peers
    set ideology ideology + (peer-strength * peer-pressure)
  ]
  set ideology max list -1 min list 1 ideology
end 

to calculate-vote-probability
  let ideology-motivation abs ideology
  let economic-effect economic-weight * economic-satisfaction
  let reinforcement last-reward
  set vote-probability (ideology-motivation + economic-effect + reinforcement) / 3
end 

to decide-to-vote
  if vote-probability > turnout-threshold [
    set voted? true
    set last-reward last-reward + 0.1
  ]
  if vote-probability <= turnout-threshold [
    set voted? false
    set last-reward last-reward * 0.9
  ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; OUTCOMES
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to calculate-election
  let left-votes count turtles with [voted? and ideology < 0]
  let right-votes count turtles with [voted? and ideology >= 0]

  if left-votes > right-votes [
    set election-result "Progressive Win"
  ]
  if right-votes >= left-votes [
    set election-result "Conservative Win"
  ]
end 

to recolor
  if ideology < -0.2 [ set color blue ]
  if ideology >  0.2 [ set color red ]
  if ideology >= -0.2 and ideology <= 0.2 [ set color gray ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; METRICS (REPORTERS)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to-report calc-turnout-rate
  if count turtles = 0 [ report 0 ]
  report count turtles with [voted?] / count turtles
end 

to-report calc-mean-ideology
  if count turtles = 0 [ report 0 ]
  report mean [ideology] of turtles
end 

to-report calc-polarization-sd
  if count turtles < 2 [ report 0 ]
  let m mean [ideology] of turtles
  let v mean [(ideology - m) * (ideology - m)] of turtles
  report sqrt v
end 

to-report calc-extremes-rate
  if count turtles = 0 [ report 0 ]
  report count turtles with [abs ideology > 0.7] / count turtles
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PLOT SAFETY CHECK (NETLOGO WEB)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to-report plot-exists? [plot-label]
  let ok? true
  carefully [
    set-current-plot plot-label
  ] [
    set ok? false
  ]
  report ok?
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; HISTOGRAMS (NETLOGO WEB SAFE)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to update-ideology-histogram
  if plot-exists? "Ideology Histogram" [
    set-current-plot "Ideology Histogram"
    clear-plot
    set-histogram-num-bars 20
    histogram [ideology] of turtles
  ]
end 

to update-voter-ideology-histogram
  if plot-exists? "Voter Ideology Histogram" [
    set-current-plot "Voter Ideology Histogram"
    clear-plot
    set-histogram-num-bars 20

    ;; Only those who voted this tick
    if any? turtles with [voted?] [
      histogram [ideology] of turtles with [voted?]
    ]
  ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; IDEOLOGY DISTRIBUTION PLOT (LEFT / MODERATE / RIGHT COUNTS)
;; Requires plot "Ideology Distribution" with pens: "Left", "Moderate", "Right"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to update-ideology-distribution
  if plot-exists? "Ideology Distribution" [
    set-current-plot "Ideology Distribution"
    
    ;; Left (progressive): ideology < -0.2
    set-current-plot-pen "Left"
    plot count turtles with [ideology < -0.2]
    
    ;; Moderate (centrist): -0.2 <= ideology <= 0.2
    set-current-plot-pen "Moderate"
    plot count turtles with [ideology >= -0.2 and ideology <= 0.2]
    
    ;; Right (conservative): ideology > 0.2
    set-current-plot-pen "Right"
    plot count turtles with [ideology > 0.2]
  ]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PLOTS (WEB SAFE — DEFAULT PENS ONLY)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to update-voting-plots
  set turnout-rate calc-turnout-rate
  set mean-ideology calc-mean-ideology
  set polarization-sd calc-polarization-sd
  set extremes-rate calc-extremes-rate

  if plot-exists? "Turnout" [
    set-current-plot "Turnout"
    plot turnout-rate
  ]

  if plot-exists? "Ideology" [
    set-current-plot "Ideology"
    plot mean-ideology
  ]

  if plot-exists? "Polarization" [
    set-current-plot "Polarization"
    plot polarization-sd
  ]

  update-ideology-histogram
  update-voter-ideology-histogram
  update-ideology-distribution  ;; <-- NEW: call the distribution plot updater
end