to setup
__clear-all-and-reset-ticks
create-turtles 50[
setxy random-xcor random-ycor
]
set-default-shape turtles "circle"
end
to go
ask turtles[
if random-float 1 < prob[
set heading random 360
]
forward 1
]
end
- to ... end:创建一个procedure,会关联到同名控件上
- __clear-all-and-reset-ticks:清楚屏幕,重置ticks计数
- create-turtles 50[...]:创建50个绘图agents
- setxy random-xcor randomycor:设置随机横纵坐标
- set-default-shape turtles"circle":设置绘图agent默认形状为圆
- random-float 1:取0到1之间的随机浮点数
- ask turtles[...]:遍历所有绘图agents
- set heading random 360:设置随机角度的朝向
- forward 1:前进1个单位