У меня проблемы с кодированием подпрограммы отскока при случайной прогулке в Netlogo.Я хочу, чтобы агенты выполняли случайное блуждание в однонаправленном токе (код для этого бита не верен, но является функциональным заполнителем).Мне также нужно запретить агентам входить в объект морского дна, обозначенный цветом RGB.Вот мои усилия:
to move-resources
ask resources [
right random 45
left random 45
tilt-up random 45
tilt-down random 45
fd 1
;;; simulated current in one direction:
set heading 90
set pitch 0
set roll 0
fd 1
while [ any? patches in-radius 1 with [ pcolor = [218 160 62]] ] [
let nearest-patch min-one-of (patches with [pcolor = [218 160 62]])[distance
myself] ;;; find the closest sandy patch
face nearest-patch ;; face that patch
set heading heading - 180 ;; face away from that patch
fd 1 ;; move away from that patch
]
]
end