Economic Interaction

1 collaborator

WHAT IS IT?

Basic interaction model whereby agents "notice" other agents according to the "bargain" rule/procedure and also "interact" by comparing their turtle-own variable with those of other agents, finding the maximum value of their neighbors, and then changing the patch color according to the rule/algorithm in the "interact" procedure.

HOW IT WORKS

1 - Agents move randomly 2 - When an Agents land on neighboring patches they "bargain," and the value goes up by an amount set be the slider 3 - Agents also "interact" by comparing the "bump" variable for each neighbor to their own "bump" value and change the color of their patches.

Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

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

There is only one version of this model, created over 9 years ago by John Margeson.

Attached files

File	Type	Description	Last updated
Economic Interaction.png	preview	Preview for 'Economic Interaction'	over 9 years ago, by John Margeson	Download

This model does not have any ancestors.

This model does not have any descendants.

NetLogo