Netlogo 海龟设计实例

to setup
  clear-all
  create-turtles floor (world-width / 3) [
    set xcor 1 + who * 3  ;; 按照who编号给乌龟设置x坐标，乌龟之间间隔3个单位
    set color color - 2   ;; 设置乌龟颜色为原颜色减去2（变暗）
    set size 1 + random-float 3  ;; 设置乌龟大小为1到4之间的随机浮点数
    set heading 0  ;; 设置乌龟朝向为0度（朝上）
    set label who  ;; 设置乌龟标签显示为who编号
  ]
  reset-ticks
end

;;; 三种不同版本的GO

to go-random
  ask turtles [
    fd 1  ;; 向前移动1个单位
    display  ;; 显示更新的图形界面
  ]
  tick  ;; 增加时间步
end

to go-by-who-number
  foreach sort turtles [ t ->
    ask t [
      fd 1  ;; 向前移动1个单位
      display  ;; 显示更新的图形界面
    ]
  ]
  tick  ;; 增加时间步
end

to go-by-size
  foreach sort-by [ [a b] -> [ size ] of a > [ size ] of b ] turtles [ t ->
    ask t [
      fd 1  ;; 向前移动1个单位
      display  ;; 显示更新的图形界面
    ]
  ]
  tick  ;; 增加时间步
end