设置半径寻找伙伴龟

Question

我是 Netlogo 和一般编程方面的新手。 我想创建一个带有雌性和雄性乌龟的 netlogo 模型。两个种群都通过随机游走在世界上移动。女性人口应该找到一个伴侣并拥有“半径”属性。如果她在找到伴侣之前还没有找到伴侣，她自己的半径应该会扩大。如何在雌性海龟周围编程一个半径，如果她没有找到伴侣，它会在每个时间步后扩大？

感谢您的帮助！

Answer 1

首先，您需要一个海龟属性来存储每个海龟的值。方法是使用turtles-own 语句。然后您只需根据需要更改该值。基元in-radius查看指定距离内的一切，然后你可以通过是否有any?合适的伙伴来设置条件。你的代码看起来像（这是一个完整的模型）：

turtles-own
[ search-radius
  mate
]

to setup
  clear-all
  create-turtles 20
  [ setxy random-xcor random-ycor
    set color blue
    set search-radius 1
  ]
  reset-ticks
end

to go
  check-for-mate
  tick
end

to check-for-mate
  ask turtles with [color = blue]
  [ let candidates other turtles in-radius search-radius
    ifelse any? candidates
    [ set mate one-of candidates
      set color red
    ]
    [ set search-radius search-radius + 0.5 + random-float 1
    ]
  ]
end