Free Trade - Transfer of Wealth & Energy

turtles-own [wealth energy skill assets]
globals [startsize minsize yscale sscale]

to setup
  clear-all
  set minsize 10
  set startsize 20 ;; DESIRED STARTING TURTLE SIZE
  set sscale startsize / start_capital
  set yscale (max-pycor / start_capital / 2) ;; VERTICAL SCALING FACTOR
  let spacing round (max-pxcor / population) ;; TURTLE SPACING
  let i 0
    while [i < max-pxcor] [
    ;; CREATE TURTLES
       crt 1 [
         set shape "person"
         set wealth start_capital
         set energy start_capital
         ifelse track = "wealth" [ set assets wealth ][ set assets energy ]
         set size assets * sscale + minsize ;; SIZE ACCORDING TO INITIAL WEALTH
         set color [0 255 0]
          ;; RANDOMLY ASSIGN APTITIDE
      ifelse skill_levels = 1 [ set skill 1 ] [set skill precision (((1 + random ((skill_levels - 1) * 100 )) / 100 ) + 1) 2];; RANDOMLY ASSIGN APTITIDE
         set xcor i
      set ycor assets * yscale ]
      set i i + spacing
       ]
  ask patches with [ pycor = round (safety_net * yscale) ][ set pcolor red ]
  ask turtles [ set label skill ]
  reset-ticks
end 

to go
  ask turtles with [ assets > 0 ] [
  let myprice (skill / customers) ; SET EQUAL PRICE PER CUSTOMER
  ask up-to-n-of customers other turtles with [ assets >= myprice ] [
    set wealth wealth - myprice
    set energy energy + myprice
    ifelse track = "wealth" [ set assets wealth ][ set assets energy ]
  ]
  set wealth wealth + skill
  set energy energy - 1
  ifelse track = "wealth" [ set assets wealth ][ set assets energy ]
  set size assets * sscale + minsize
  ]
  ask turtles with [ assets < safety_net ][
    ; SAVE TURTLES WITH SAFETY NET AND TAX OTHERS
    set assets assets + 1
    ask other turtles with [ assets > safety_net + 1 ][
      set assets assets - ( 1 / (count turtles with [ assets > safety_net + 1  ]))
    ]

  ]
  ask turtles [
    ; SET TURTLE HEIGHT WITHOUT GOING OVER EDGES
    ifelse ((assets * yscale) + ((assets * sscale + minsize) / 2)) > max-pycor [ set ycor (max-pycor - ((assets * sscale + minsize) / 2)) ] [
        ifelse ((assets * yscale) - ((assets * sscale + minsize) / 2)) < (safety_net * yscale) [ set ycor (safety_net * yscale) + ((assets * sscale + minsize) / 2) ] [ set ycor assets * yscale ]
       ]
  ]

  ; SET COLOURS ACCORDING TO Y POSITION
  ask turtles with [ ycor > max-pycor / 5 * 3  and ycor <= max-pycor / 5 * 4 ] [ set color [ 255 255 0 ] ]
  ask turtles with [ ycor > max-pycor / 5 * 2  and ycor <= max-pycor / 5 * 3 ] [ set color [ 0 255 0 ] ]
  ask turtles with [ ycor > max-pycor / 5  and ycor <= max-pycor / 5 * 2 ] [ set color [ 0 255 255 ] ]
  ask turtles with [ ycor >= 0  and ycor < max-pycor / 5 ] [ set color [ 255 255 255 ] ]
  ask turtles with [ ycor > max-pycor / 5 * 4  and ycor <= max-pycor ] [ set color [ 255 0 0 ]]
  if any? turtles with [color = [ 255 0 0 ]][
  ask turtles with [ assets > min [ assets ] of turtles with [ color = [ 255 0 0 ]]][ set color [ 255 0 0 ]]
  ]
;  ask turtles [
;    if assets > min [ assets ] of turtles with [ color = [ 255 0 0 ]][ set color [ 255 0 0 ]]
;  ]
;  ask turtles [ set label precision skill 2 ]
  tick
end 

  ;; REPORT THE TOTAL WEALTH OR ENERGY (WHICHEVER IS BEING TRACKED)

to-report total
  report sum [ assets ] of max-n-of (count turtles) turtles [ assets ]
end 

  ;; REPORT THE WEALTH / ENERGY OF THE TOP 10%

to-report top-10-pct-wealth
  report word round (sum [ assets ] of max-n-of (count turtles * 0.1) turtles [ assets ]  /  total * 100) "%"
end 


  ;; REPORT THE WEALTH / ENERGY OF THE BOTTOM 90%

to-report bottom-90-pct-wealth
  report word round (sum [ assets ] of min-n-of (count turtles * 0.90) turtles [ assets ]  /  total * 100) "%"
end 

; Written by Colin R. Turner for openaccesseconomy.org
; Feel free to use, share and adapt.