Economic Interaction

breed [agent agents]

turtles-own [exchange starting-money]

to setup
  clear-all
  create-turtles num-turtles
  ask turtles [ set shape "circle"
                set color red
                setxy random-xcor random-ycor
                set starting-money random-float 10
    ]
  reset-ticks
end 

to go
  ask turtles [
    setxy random-xcor random-ycor
    ]
  bargain
  interact
  tick
end 

to bargain  ;;procedure where turtles exchange according to an algoithm
  ask turtles [
   set exchange ifelse-value (count turtles-on neighbors >= stock-exchange) [exchange + (starting-money + return-on-exchange - (return-on-exchange * tax-on-exchange))] [exchange]
   set color ifelse-value (exchange > mean [exchange] of turtles) [blue] [red]
  ]
end 

to interact
  ask turtles [
    if count turtles-on neighbors > 0 [
    set pcolor ifelse-value (max [exchange] of turtles-on neighbors >= [exchange] of self) [orange] [pink]
     ]
  ]
end