6- 玩具经济模型与 Turtles间的互动
一个模拟财富变化的模型：
人（agent）在遇到其他人的时候，会发生交易，财富可能降低，也可能增加
Δ m 是 个体1 的money 变化；
m1 个体1 的财富；
m2 个体2 的财富；
ε 是随机系数，决定个体2的交易后的财富。
添加滑块
- 这里的变量是全局变量，可以在代码中拿来用的。增量代表鼠标拖动 时的变化量。
- 值： 代表默认值，可以被修改。
- 可以选择垂直放置滑块。
Let适合于为第一次使用的变量进行赋值，它包含了定义变量的意思
Set则适合于已定义的变量的赋值
one-of agentset:
从集合agentset中随机选择一个元素
n-of n agentset :
从集合agentset中随机选择n个元素
如何检测代码没有逻辑错误导致 BUG？
在最下方的命令行输入 命令。
或者画个图。
代码：
turtles-own [money]
to setup
clear-all
create-turtles agent_num[
setxy random-xcor random-ycor
set money (total_money / agent_num)
]
reset-ticks
end
to go
ask turtles[
let agsets other turtles-here
if count agsets >= 1 [
transaction (one-of agsets)
]
forward 1
]
tick
end
to transaction [trader]
let deltam 0
let money1 ([money] of trader)
let epsilon (random-float 1)
set deltam (epsilon - 1) * money + epsilon * money1
if money + deltam >= 0 and money1 - deltam >= 0
[
set money money + deltam
ask trader[
set money money1 - deltam
]
]
end
to to-update-plot
let lst [money] of turtles
set-histogram-num-bars 100
if not empty? lst [
set-plot-x-range 0 max lst
histogram lst
]
end
