【发布时间】:2019-02-08 21:08:32
【问题描述】:
to go
ask turtles [
if patience > friction [ speed-up
set color red
fd 1
set walk-score walk-score + 3
]
if patience < friction [ speed-down]
]
tick
end
to speed-up
set speed speed + acceleration
if speed > speed-max [ set speed speed-max]
fd speed
end
to speed-down
set speed speed - deceleration
if speed < speed-min [set speed speed-min]
end
【问题讨论】: