Political Fundraising

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

;; Declarations ;;

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


globals
[
  ;; If the politician is in town

  inTown?
  ;; how much was donated total

  totalDonations
  ;; number of turtles that are sick

  num-sick
  ;; when multiple runs are recorded in the plot, this

  ;; tracks what run number we're on

  run-number
  ;; counter used to keep the model running for a little

  ;; while after the last turtle gets infected

  delay
  peopleDonatedTotal
]

breed [ androids android ]
breed [ users user ]

;; androids and users are both breeds of turtle, so both androids

;; and users have these variables

turtles-own
[
  maxDonation  ;; how much a person is allowed to donate

  donation     ;; how much a person has donated

  friends      ;; the number of people you can tell to donate

  peopleWhoAskedYou  ;; The number of people who have asked you to donate

  buggedThreshold    ;; The number of people who can bugg you before you get annoyed

  commitment   ;; how commited you are to the politician

  donated?     ;; If you have donated

  infected?    ;; whether turtle is sick (true/false)

  partyLoyalty
  newDonation
]

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

;; Setup Functions ;;

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


;; clears the plot too


to setup-clear
  clear-all
  set run-number 1
  setup-world
end 

;; note that the plot is not cleared so that data

;; can be collected across runs


to setup-keep
  clear-turtles
  clear-patches
  reset-ticks
  set run-number run-number + 1
  setup-world
end 

to setup-world
  set-default-shape androids "android"
  set-default-shape users "person"
  set optimism 1.00;

  set inTown? false;

  set market .60;

  set num-sick 0
  set delay 0
  create-some-androids
  create-user
  setup-plot
  do-plot
end 

to makeDonate
  ask one-of androids [ donate ]
end 

to create-some-androids
  create-androids num-androids
  [
    setxy random-pxcor random-pycor   ;; put androids on patch centers

    set color grey
    set heading 90 * random 4
    set infected? false
    set maxDonation  (random maximumDonation + 1)
    set friends random ((maxFriends / 100) * num-androids)
    set peopleWhoAskedYou 0
    set buggedThreshold ((random maxBugged) + 1)
    set commitment ( (donation / maxDonation) * optimism)
    set donated? false 
    set partyLoyalty   ((random 100) / 100)
  ]
end 

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

;; Runtime Functions ;;

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


to go
  ;; in order to extend the plot for a little while

  ;; after all the turtles are infected...

  if peopleDonatedTotal = count turtles
    [ set delay delay + 1  ]
  if delay > 50
    [ stop ]
  ;; now for the main stuff;

  ;; we use EVERY to keep the activity from running too fast

  every 0.1
  [
    androids-wander
    ask turtles with [ donated? ]
      [ spread-the-word ]
      
   ;; ask turtles with [not donated?]

   ;;   [ maybe-donate ]

    set peopleDonatedtotal count turtles with [ donated? ]
    ;;ask turtles with [ infected? ]

    ;;  [ spread-disease ]

    ;;set num-sick count turtles with [ infected? ]

    tick
    do-plot
  ]
end 

;; controls the motion of the androids


to androids-wander
  ask androids
  [
    ifelse avoid? and not donated?
      [ avoid ] [
    ifelse chase? and donated?
      [ chase ]
      [ rt (random 4) * 90 ] ]
  ]
  ask androids [
    fd 1
  ]
end 

to avoid ;; android procedure

  let candidates patches in-radius 1 with [ not any? turtles-here with [ donated? ] ]
  ifelse any? candidates
    [ face one-of candidates ]
    [ rt (random 4) * 90 ]
end 

to chase ;; android procedure

  let candidates turtles in-radius 1 with [ not infected? ]
  ifelse any? candidates
    [ face one-of candidates ]
    [ rt (random 4) * 90 ]
end 

to spread-the-word
  if( ((friends * (commitment + partyLoyalty)) > 0) and (peopleWhoAskedYou < buggedThreshold))
    [ ask other turtles-here [ maybe-donate ]
      set friends (friends - 1) ] 
end 

to maybe-donate
  if (not donated?) 
      and (random 100 < (market * 100)) 
      and (random 100 < ( (optimism * 40) + (partyLoyalty * 60) - ((peopleWhoAskedYou / buggedThreshold) * 100) ) )
      [ donate ]
  if (donated?) 
      and (random 100 < (market * 100)) 
      and (random 100 < ( (optimism * 40) + (partyLoyalty * 60) - ((peopleWhoAskedYou / buggedThreshold) * 100) ) )
      [ donate ]
  set peopleWhoAskedYou (peopleWhoAskedYou + 1)
  if (peopleWhoAskedYou > buggedThreshold)
      [set color orange]
  if (peopleWhoAskedYou > buggedThreshold and (not donated?))
      [set color red
      set shape "ghost"]
end             

to donate

  if donated?
   [ set color green
     set newDonation ( ((maxDonation - donation) * optimism) * market)
     set donation (donation + newDonation)
     set commitment (donation / maxDonation)
     if ( commitment + partyLoyalty > .69)
      [set shape word "face" " happy"]
     if (( commitment + partyLoyalty < .70) and (commitment + partyLoyalty > .29))
      [ set shape word "face" " neutral"]
    if (commitment + partyLoyalty < .30)
      [ set shape word "face" " sad"]
    set totalDonations (totalDonations + newDonation)]

  if not donated?
    [set donated? true
    set color blue
    set donation ( (maxDonation * optimism) * market)
    set commitment (donation / maxDonation)
    if ( commitment + partyLoyalty > .69)
      [set shape word "face" " happy"]
    if (( commitment + partyLoyalty < .70) and (commitment + partyLoyalty > .29))
      [ set shape word "face" " neutral"]
    if (commitment + partyLoyalty < .30)
      [ set shape word "face" " sad"]
    set totalDonations (totalDonations + donation) ]
end 

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

;; User Procedures ;;

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


to create-user
  create-users 1
  [
    set color grey
    set heading (random 4) * 90
    set infected? false
    set maxDonation  (random maximumDonation + 1)
    set donation 0
    set friends random ((maxFriends / 100) * num-androids)
    set peopleWhoAskedYou 0
    set buggedThreshold ((random maxBugged) + 1)
    set commitment ( (donation / maxDonation) * optimism)
    set donated? false 
    set partyLoyalty   ((random 100) / 100)
  ]
end 

to move [ new-heading ]
  ask users
  [
    set heading new-heading
    fd step-size
  ]
end 

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

;; Plotting Procedures ;;

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


to setup-plot
  create-temporary-plot-pen word "run " run-number
  set-plot-pen-color item (run-number mod 5)
                          [blue red green orange violet]
end 

to do-plot
  plot totalDonations;

end 


; *** NetLogo 4.0.4 Model Copyright Notice ***

;

; Copyright 2005 by Uri Wilensky.  All rights reserved.

;

; Permission to use, modify or redistribute this model is hereby granted,

; provided that both of the following requirements are followed:

; a) this copyright notice is included.

; b) this model will not be redistributed for profit without permission

;    from Uri Wilensky.

; Contact Uri Wilensky for appropriate licenses for redistribution for

; profit.

;

; To refer to this model in academic publications, please use:

; Wilensky, U. (2005).  NetLogo Disease Solo model.

; http://ccl.northwestern.edu/netlogo/models/DiseaseSolo.

; Center for Connected Learning and Computer-Based Modeling,

; Northwestern University, Evanston, IL.

;

; In other publications, please use:

; Copyright 2005 Uri Wilensky.  All rights reserved.

; See http://ccl.northwestern.edu/netlogo/models/DiseaseSolo

; for terms of use.

;

; *** End of NetLogo 4.0.4 Model Copyright Notice ***