wealth.nlogo

基于netlogo仿真平台的

globals
[
  timestep          ; counts how much time has passed
]

turtles-own
[
  wealth            ; amount of wealth
]

to setup
  clear-output
  ca
  set timestep 0
  cct num-agents
  [
    set wealth 50.0
    set color 5 + (10 * (round (wealth / 10)))
    setxy (random-float screen-size-x)
          (random-float screen-size-y)    ; randomize turtle locations
  ]
  setup-plot
  plot-counts
end

to go
  if moving
  [ move
  ]
  give
  set timestep timestep + 1
  plot-counts
end

to move
  ask turtles
  [
    rt random-float 30 - random-float 30
    fd 5
  ]
end

to give
  ask turtles
  [
    if wealth > 0
    [
      set wealth (wealth - 1)
      ask random-one-of turtles [ set wealth wealth + 1]
      ifelse wealth < 135.0
      [
        set color 5 + (10 * (round (wealth / 10)))
      ]
      [
        set color 135.0
      ]
    ]
  ]
end


to plot-counts
  set-current-plot-pen "wealth"
  histogram-from turtles [wealth]
end


to setup-plot
  set-current-plot "Agent wealth"
  set-plot-x-range 0 400
  set-plot-y-range 0 round ((count turtles) / 5)
  set-histogram-num-bars 40
end
@#$#@#$#@
GRAPHICS-WINDOW
290
22
704
457
50
50
4.0
0
10
1
1
1
0
1
1
1

CC-WINDOW
5
479
713
574
Command Center
0

SLIDER
10
75
248
108
num-agents
num-agents
10
1000
400
10
1
agents

BUTTON
6
38
66
71
setup
setup
NIL
1
T
OBSERVER
T
NIL

BUTTON
70
38
130
71
go
go
T
1
T
OBSERVER
T
NIL

PLOT
2
189
282
465
Agent wealth
wealth
number of agents
0.0
400.0
0.0
300.0
false
true
PENS
"wealth" 5.0 1 -5825686 false

MONITOR
158
126
231
175
Time Step
timestep
3
1

SWITCH
10
119
113
152
moving
moving
1
1
-1000

BUTTON
143
38
206
71
step
go
NIL
1
T
OBSERVER
T
NIL

@#$#@#$#@
WHAT IS IT?
-----------
This is a simple economic model.  At each time step, each agent picks another agent (at random) and gives that agent one dollar.  If an agent has no dollars, it does nothing in that time step and just waits.


HOW TO USE IT
-------------
Each pass through the GO function represents one time step.

The histogram shows the number of agents having a given range of wealth.

@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

arrow
true
0
Polygon -7500403 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150

box
true
0
Polygon -7500403 true true 45 255 255 255 255 45 45 45

circle
true
0
Circle -7500403 true true 35 35 230

person
false
0
Circle -7500403 true true 155 20 63
Rectangle -7500403 true true 158 79 217 164
Polygon -7500403 true true 158 81 110 129 131 143 158 109 165 110
Polygon -7500403 true true 216 83 267 123 248 143 215 107
Polygon -7500403 true true 167 163 145 234 183 234 183 163
Polygon -7500403 true true 195 163 195 233 227 233 206 159

spacecraft
true
0
Polygon -7500403 true true 150 0 180 135 255 255 225 240 150 180 75 240 45 255 120 135

thin-arrow
true
0
Polygon -7500403 true true 150 0 0 150 120 150 120 293 180 293 180 150 300 150

truck-down
false
0
Polygon -7500403 true true 225 30 225 270 120 270 105 210 60 180 45 30 105 60 105 30
Polygon -8630108 true false 195 75 195 120 240 120 240 75
Polygon -8630108 true false 195 225 195 180 240 180 240 225

truck-left
false
0
Polygon -7500403 true true 120 135 225 135 225 210 75 210 75 165 105 165
Polygon -8630108 true false 90 210 105 225 120 210
Polygon -8630108 true false 180 210 195 225 210 210

truck-right
false
0
Polygon -7500403 true true 180 135 75 135 75 210 225 210 225 165 195 165
Polygon -8630108 true false 210 210 195 225 180 210
Polygon -8630108 true false 120 210 105 225 90 210

turtle
true
0
Polygon -7500403 true true 138 75 162 75 165 105 225 105 225 142 195 135 195 187 225 195 225 225 195 217 195 202 105 202 105 217 75 225 75 195 105 187 105 135 75 142 75 105 135 105

@#$#@#$#@
NetLogo 3.0beta1
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@