Netlogo：移动海龟并计算距离

Question

我目前正在做有关路径规划的项目。

所以我的计划步骤是这样的：

1. 点击“设置”，安排所有坐标
2. 点击“开始”创建移动的乌龟
3. 单击“开始”，使移动的乌龟转到最近的坐标（带有“ x”的标签）
4. 也就是说，在第4步中，移动的乌龟已经计算出每个坐标的距离。

在这里，我附上了接口和编码

to setup
 clear-all
 set-default-shape turtles "x"
 create-turtles 9
 ask turtles[set color red]

 ask turtle 0[setxy 0 15]
 ask turtle 1[setxy 4 15]
 ask turtle 2[setxy -4 15]
 ask turtle 3[setxy 0 12]
 ask turtle 4[setxy 4 12]
 ask turtle 5[setxy -4 12]
 ask turtle 6[setxy 0 9]
 ask turtle 7[setxy 4 9]
 ask turtle 8[setxy -4 9]
end

to start
 set-default-shape turtles "airplane"
 create-turtles 1

 ask turtle 9[setxy 0 -15]
end

Answer 1

不要忘记，距离取决于您的拓扑。

to setup
  clear-all
  let targets [
    [0 15] [4 15] [-4 15]
    [0 12] [4 12] [-4 12]
    [0 9] [4 9] [-4 9]
  ]
  foreach targets [xy -> ask patch item 0 xy item 1 xy [
    sprout 1 [set shape "x" set color red]
    ]
  ]
  create-turtles 1 [ set shape "airplane" setxy 0 -15]
end

编辑：如果您将所有其他乌龟都视为合格目标，则一旦将turtle 9移至目标，它将停留在那里。 如果您不希望这样做，则说同一位置的海龟不符合条件：

to move
  ask turtle 9 [move-to min-one-of eligibles [distance myself]]
end

to-report eligibles
  report turtles with [0 < distance myself]
end