NetLogo-如何获得乌龟面对的所有补丁？

Question

如何获得包含乌龟面临的所有补丁的补丁集？

我知道提前补丁会报告特定距离的补丁。 但是，如果我想沿这个方向获取所有补丁，而不是特定距离的单个补丁，该怎么办？

Answer 1

您可以做的是hatch一只乌龟并将其forward移动，直到到达世界的边缘为止，并添加它穿过的所有斑块。

这是看得见的方法的版本：

to testme
  clear-all
  create-turtles 1 [setxy random-xcor random-ycor]
  ask one-of turtles
  [ set pcolor red
    hatch 1
    [ while [can-move? 1]
      [ forward 1
        set pcolor red
      ]
      die
    ]
  ]
end

要实际制作补丁集版本，您需要从当前补丁开始，并在阴影龟移过它们时添加补丁。 尝试使用此过程版本，并演示如何使用它：

turtles-own [ my-path ]

to testme
  clear-all
  create-turtles 1 [setxy random-xcor random-ycor]
  ask one-of turtles
  [ set my-path get-patches-forward self
    print my-path
  ]
end

to-report get-patches-forward [ #me ] ; turtle procedure
  let front-patches patch-here
  hatch 1
  [ while [can-move? 1]
    [ forward 1
      set front-patches (patch-set front-patches patch-here)
    ]
    die
  ]
  report front-patches
end

如果世界被包裹，这将返回错误的答案，因为孵出的乌龟可以无限期地前进。 相反，您需要检查其坐标，而不是依靠can-move? 原始。