Kiyotaki Wright Model of Money

;;Written by Pedro Romero, promeroec@gmail.com 2016
;;Inspired by Kiyotaki and Wright 89.
;;Universidad San Francisco de Quito! preliminary version

globals [
  ;;Cost of storage per good
  costGoodA costGoodB costGoodC
]

turtles-own[
  traderType partner partnered? myPartnerType
  goodA goodB goodC consume traded
]

to setup
  clear-all
  ask patches [ set pcolor white ]
  crt population [
    set shape "person"
    setxy random-xcor random-ycor

    set traderType random-float 1.0
    if (traderType <= 1.00) [
      ifelse (traderType > 0.67)
      [ set color yellow
        ] ;;type1 likes goodA prod B
      [ifelse (traderType > 0.33)
        [set color blue
          ]  ;;type2 likes goodB prod C
        [set color red
          ]   ;;type3 likes goodC prod A
        ]]
    set goodB 0 set goodC 0 set goodA 0

  ]
  ;;setting up variables
  ask turtles [
    set partner nobody
    set partnered? false
    set myPartnerType 0
    set consume false
    set traded false]
  set costGoodA 1 set costGoodB 4 set costGoodC 9
  reset-ticks
end 

to go
  ask turtles [
  setxy random-xcor random-ycor  ;;search
  set goodA 0 set goodB 0 set goodC 0
  ]
  release-partners
  all-partnered
  init-production
  make-exchange
  tick
end 

to rounds
  ask turtles [
  setxy random-xcor random-ycor  ;;search
  ]
  release-partners
  all-partnered
  make-exchange
  ;new-production
  tick
end 

to release-partners
    ask turtles [
    if (partnered? = true) [
      set partner nobody
      set partnered? false
    ]
    ]
end 

to all-partnered
  while [ (count turtles with [partner = nobody] > 0) ] [;move-turtles
  partnering]
end 

to partnering
  ask turtles [
    if (partnered? = false) [
       setxy random-xcor random-ycor
       if (partner = nobody) and (any? other (turtles-at -1 0) with [partner = nobody]) [
         set partner one-of other (turtles-at -1 0) with [partner = nobody]
         set partnered? true
         ask partner [
           set partner myself
           set partnered? true

                     ]
                                              ]

                          ]

             ]
end 

to init-production

    ask turtles [ifelse (color = yellow) [
        set goodB 1] [
        ifelse (color = blue) [
          set goodC 1] [
          set goodA 1]
        ]
    ]
end 

to make-exchange

  ask turtles [ set consume false set traded false]

  ask turtles [ ifelse ((goodA + goodB + goodC) = 1) [
  ask turtles with [color = blue] [;;loop
    ;;Trade or swap 1 unit if it is the one type i likes
            ask partner [ if color != blue [
              ifelse (color = yellow) [
                 if (goodB = 1) and ([goodA = 1] of myself)[
                        set goodA 1 set goodB 0 set goodC 0 set-consume
                       ask myself [ set goodC 0 set goodA 0 set goodB 1 set-consume ]
                       ] ]
               [ if (goodA = 1) and ([goodC = 1] of myself) [ ;;begin red
                  set goodC 1 set goodA 0 set goodB 0 set-consume
                  ask myself [set goodC 0 set goodA 1 set goodB 0 set-exchange ]
                  ] ] ;;set-exchange before
                     ]
            ]
          set-surplus
          ask partner [ set-surplus] ]
  ]
  [ ;if (consume = false) and (traded = false)
                       set-surplusNoTrade ]
  ]
           ;ask partner [set-surplusNoTrade] ]
      ;]
  ;] ;;end ask TURTLES
end 

to set-consume
  ;;agent i consumes and and produces
  ifelse color = yellow [
    set consume true
    set goodA 0 set goodB 1 set goodC 0
    show (list [color] of self partner myPartnerType goodA goodB goodC "con" ticks)
    ;
    ]
  [
  ifelse color = blue [
    set consume true
    set goodB 0 set goodC 1 set goodA 0
    show (list [color] of self partner myPartnerType goodA goodB goodC "con" ticks)
    ;
     ]
  [
    set consume true
    set goodC 0 set goodA 1 set goodB 0
    show (list [color] of self partner myPartnerType goodA goodB goodC "con" ticks)
    ;
    ]]
end 

to set-exchange

        set traded true
        show (list [color] of self partner myPartnerType goodA goodB goodC "exc" ticks)
end 

to new-production
  ask turtles with [consume = false and traded = false] [
  ifelse color = yellow [
    set goodB 1

    ]
  [
  ifelse color = blue [
    set goodC 1

     ]
  [
    set goodA 1

    ]] ]
end 

;;The following does not alter the main algorithm to find good that becomes money

to set-surplus
  ;;Here code just to compute utilities after trading
end 

to set-surplusNoTrade
  ;;here code just to compute utilities if no trade at all
end 

;plots