Game Theory UHON 111 SP24, by David Earnest (model ID 7366) -- NetLogo Modeling Commons

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

WHAT IS IT?

(a general understanding of what the model is trying to show or explain)

HOW IT WORKS

(what rules the agents use to create the overall behavior of the model)

HOW TO USE IT

(how to use the model, including a description of each of the items in the Interface tab)

THINGS TO NOTICE

(suggested things for the user to notice while running the model)

THINGS TO TRY

(suggested things for the user to try to do (move sliders, switches, etc.) with the model)

EXTENDING THE MODEL

(suggested things to add or change in the Code tab to make the model more complicated, detailed, accurate, etc.)

NETLOGO FEATURES

(interesting or unusual features of NetLogo that the model uses, particularly in the Code tab; or where workarounds were needed for missing features)

RELATED MODELS

(models in the NetLogo Models Library and elsewhere which are of related interest)

CREDITS AND REFERENCES

(a reference to the model's URL on the web if it has one, as well as any other necessary credits, citations, and links)

breed [ titles title ]
breed [ opponents opponent ]

globals [ player-score opponent-score playerchoice opponentchoice game-outcome initial-play iteration unknown-strategy ]

to setup

  clear-all
  reset-ticks

  create-turtles 4 [ set color black make-labels ]
  ask turtle 0 [ setxy 5 4 ]
  ask turtle 1 [ setxy 5 -4 ]
  ask turtle 2 [ setxy -3 -4 ]
  ask turtle 3 [ setxy -3 4 ]
  draw-lines
  generate-titles
  generate-opponent
  setup-scores
end 





;;;;;;;;;;;;;;
;;          ;;
;; GO STUFF ;;
;;          ;;
;;;;;;;;;;;;;;

to play
  play-a-choice
  calculate-payoffs
  tick
  wait 0.1
  plot-results

  if (ticks > 99) [ stop ]
end 

to play-a-choice

  ;; Find player 1 strategy

  set opponentchoice 0

  let opponent-choice "Null"

  ifelse (unknown-strategy = 0)

  [

      if (opponent-strategy = "Cooperative")
        [ set opponentchoice 1 ]
      if (opponent-strategy = "Conflictual")
        [ set opponentchoice 0 ]
      if (opponent-strategy = "Random")
        [
          let randomchoice random 1000
          ifelse (randomchoice < 500)
            [ set opponentchoice 0 ]
            [ set opponentchoice 1 ]
        ]

      if (opponent-strategy = "Reciprocation")
        [
          ifelse (iteration = 1)
            [ set opponentchoice initial-play ]
            [ set opponentchoice playerchoice ]
        ]

      set playerchoice 0


      if (your-strategy = "Cooperate (up)")
        [ set playerchoice 1 ]

      if (your-strategy = "Reciprocation")
        [
          ifelse (iteration = 1)
            [ set playerchoice initial-play ]
            [ set playerchoice opponentchoice ]
        ]


  ]

  [

      if (unknown-strategy = "Cooperative")
        [ set opponentchoice 1 ]
      if (unknown-strategy = "Conflictual")
        [ set opponentchoice 0 ]
      if (unknown-strategy = "Random")
        [
          let randomchoice random 1000
          ifelse (randomchoice < 500)
            [ set opponentchoice 0 ]
            [ set opponentchoice 1 ]
        ]
      if (unknown-strategy = "Reciprocation")
        [
          ifelse (iteration = 1)
            [ set opponentchoice initial-play ]
            [ set opponentchoice playerchoice ]
        ]

      set playerchoice 0

      if (your-strategy = "Cooperate (up)")
        [ set playerchoice 1 ]

      if (your-strategy = "Reciprocation")
        [
          ifelse (iteration = 1)
            [ set playerchoice initial-play ]
            [ set playerchoice opponentchoice ]
        ]

  ]




  ;; Find player 2 strategy



  set iteration iteration + 1

  set game-outcome (word playerchoice ", " opponentchoice)
end 

to calculate-payoffs

  if (game = "Rules of the Road")
     [
       if (game-outcome = "0, 0")
         [
           set player-score player-score + 1
           set opponent-score opponent-score + 1
         ]
       if (game-outcome = "1, 0")
         [
           set player-score player-score + 0
           set opponent-score opponent-score + 0
         ]
       if (game-outcome = "0, 1")
         [
           set player-score player-score + 0
           set opponent-score opponent-score + 0
         ]
       if (game-outcome = "1, 1")
         [
           set player-score player-score + 1
           set opponent-score opponent-score + 1
         ]
     ]


  if (game = "Vacation")
     [
       if (game-outcome = "0, 0")
         [
           set player-score player-score + 1
           set opponent-score opponent-score + 2
         ]
       if (game-outcome = "1, 0")
         [
           set player-score player-score
           set opponent-score opponent-score
         ]
       if (game-outcome = "0, 1")
         [
           set player-score player-score
           set opponent-score opponent-score
         ]
       if (game-outcome = "1, 1")
         [
           set player-score player-score + 2
           set opponent-score opponent-score + 1
         ]
     ]

  if (game = "Prisoner's Dilemma")
     [
       if (game-outcome = "0, 0")
         [
           set player-score player-score + 1
           set opponent-score opponent-score + 1
         ]
       if (game-outcome = "1, 0")
         [
           set player-score player-score + 0
           set opponent-score opponent-score + 3
         ]
       if (game-outcome = "0, 1")
         [
           set player-score player-score + 3
           set opponent-score opponent-score + 0
         ]
       if (game-outcome = "1, 1")
         [
           set player-score player-score + 2
           set opponent-score opponent-score + 2
         ]
     ]
end 

to plot-results
end 





;;; SETUP STUFF

to draw-lines

  create-turtles 1
     [
       set color white
       setxy -8 8
       set heading 90
       pd
       forward 16
       set heading 180
       forward 16
       set heading 270
       forward 16
       set heading 0
       forward 16
       die
     ]
  create-turtles 1
     [
       set color white
       setxy -8 0
       set heading 90
       pd
       fd 16
       pu
       setxy 0 -8
       set heading 0
       pd
       fd 16
       die
     ]
end 

to make-labels

  if game = "Rules of the Road"
     [
       ask turtle 0 [ set label "Crash, Crash" ]
       ask turtle 1 [ set label "Alive, Alive" ]
       ask turtle 2 [ set label "Crash, Crash"]
       ask turtle 3 [ set label "Alive, Alive"]
     ]

  if game = "Vacation"
     [
       ask turtle 0 [ set label "Alone, Alone" ]
       ask turtle 1 [ set label "Disapp, Happy" ]
       ask turtle 2 [ set label "Alone, Alone"]
       ask turtle 3 [ set label "Happy, Disapp"]
     ]

  if game = "Prisoner's Dilemma"
     [
       ask turtle 0 [ set label "3 Yrs, Free" ]
       ask turtle 1 [ set label "2 Yrs, 2 Yrs" ]
       ask turtle 2 [ set label "Free, 3 Yrs"]
       ask turtle 3 [ set label "1 Yr, 1 Yr"]
     ]
end 

to generate-titles
  create-titles 1
    [
      set color black
      setxy -9 0
      set label "you"
    ]
  create-titles 1
    [
      set color black
      setxy 1 9
      set label "opponent"
    ]
end 

to generate-opponent
  create-opponents 1
     [
       set hidden? true
     ]
end 

to setup-scores
  set unknown-strategy 0
  set player-score 0
  set opponent-score 0
  set game-outcome "null"
  set initial-play 0
  set iteration 1

  if (opponent-strategy = "Unknown") [ set unknown-strategy one-of [ "Cooperative" "Conflictual" "Reciprocation" "Random" ]]
end

Uploaded by	When	Description	Download
David Earnest	over 1 year ago	Final 20240207-0927	Download this version
David Earnest	over 1 year ago	Final Version	Download this version
David Earnest	over 1 year ago	Updated 20240206-1916	Download this version
David Earnest	over 1 year ago	Updated 20240206-1914	Download this version
David Earnest	over 1 year ago	Updated 20240206-191100	Download this version
David Earnest	over 1 year ago	Lesson plan for week 5b	Download this version
David Earnest	over 1 year ago	For week 5b lesson	Download this version
David Earnest	over 1 year ago	Initial upload	Download this version

NetLogo

Game Theory UHON 111 SP24

1 collaborator

Close

Tags