Было бы намного проще, если бы вы на самом деле сказали нам, в чем проблема.Вы говорите, что ваш код неверен, но не то, как вы знаете, что это неправильно.Сообщает ли об ошибке (и если да, то что это за ошибка и какая строка сообщает об этом)?Движущаяся черепаха идет не в ту сторону?
Несмотря на это, самый простой способ приблизиться к этому - это сделать что-то меньшее, прежде чем пытаться двигаться.Если вы просто посчитаете количество зеленых пятен и распечатаете их, вы можете проверить код.Как только вы представите движение, как вы узнаете, правильно ли оно рассчитано?
Я все еще не совсем уверен, что вы спрашиваете.Но я думаю, что этот код может помочь вам диагностировать вашу проблему.Он говорит вам, что количество находится вокруг целевых патчей, так что вы можете увидеть, если он делает правильный счет.Как только вы узнаете, что подсчет работает, вы можете изменить движение.
to testme
clear-all
ask patches [set pcolor one-of [yellow green]]
create-turtles 1 [set heading 30 set color black]
ask one-of turtles
[ ask patch-right-and-ahead 60 2 [set pcolor red]
type "Right: "
print count ([neighbors4] of patch-right-and-ahead 60 2) with [pcolor = green]
ask patch-right-and-ahead -60 2 [set pcolor red]
type "Left: "
print count ([neighbors4] of patch-right-and-ahead -60 2) with [pcolor = green]
]
end