Becker Irrational Behavior

;;#########################################
;;
;; Author: Santiago Gangotena
;; Date Created: 19/2/2016
;;
;;#########################################

globals
[
  price-of-x 
]

;;##############
;;   SET-UP
;;##############

to set-up
  clear-all
  set price-of-x 1
  set-up-patches
  set-up-turtles
  reset-ticks
end 

to set-up-patches
  patches-step
end 

to set-up-turtles
  create-turtles num-of-people
  ask turtles
  [
    set shape "person"
    choose-random-consumption
  ]
end 

;;##############
;;      GO
;;##############

to go-once
  update-price
  patches-step
  turtles-step 
  tick
end 

to go
  update-price
  patches-step
  turtles-step
  tick
end 

to turtles-step
  ask turtles
  [
    choose-random-consumption 
  ]
end 

to patches-step
  ask patches
  [
    update-possibilities-set
  ]
end 

to update-possibilities-set
  ifelse (pycor <= round (income - ( price-of-x * pxcor )))
  [
    set pcolor white 
  ]
  [
    set pcolor black 
  ]
end 

to choose-random-consumption
  let new-patch one-of patches with [ pcolor = white ]
  move-to new-patch 
end 

to update-price
  if (price-of-x < 10 )
  [
    set price-of-x ( price-of-x + (1 / 2))
  ]
end