Я пытаюсь создать симуляцию, в которой пассажиры могут выбрать машину или велосипед для работы. Я хочу, чтобы черепахи принимали решение, основываясь на времени их ожидания в движении от последних 20 тиков, например, если среднее время ожидания превышает 10, они возьмут велосипед на работу. У меня есть график, который показывает среднее время ожидания автомобилей, и мне удалось принять решение об этом общем среднем. Однако мне не удалось заставить каждую машину принимать решение исходя из собственного опыта. Я не получаю никаких ошибок, просто никаких результатов.
Пока у меня есть черепахи, владеющие средним списком времени ожидания и временем ожидания.
Create-cars ;;(cars are one of two breeds)
set average-wait-time-list []
to-report average-wait-time-sum
;; drop the first member of the list, but not until there are at least 60 items in the list
if (length average-wait-time-list > 20) [ set average-wait-time-list but-first average-wait-time-
list ]
;; add the number of raindrops created in last tick to the end of the list
set average-wait-time-list lput wait-time average-wait-time-list
report sum average-wait-time-list
end
to record-data ;; turtle procedure
ifelse speed = 0 [
set num-cars-stopped num-cars-stopped + 1
set wait-time wait-time + 1
]
[ set wait-time 0 ]
end