将海龟分组：修改过的伙伴示例？

Question

我一直在尝试在 NetLogo 中编写一个模型，我从一定数量的具有随机起始坐标的海龟开始。当我点击 go 时，我希望海龟分成一定大小的组，然后继续移动。我知道有一个用于分组的示例模型（'分组海龟示例'），但它告诉海龟去某个补丁而不是组合在一起，所以如果它们移动，它们不再被分组。

我一直在修改模型库中的“合作伙伴示例”模型。在这里，海龟被告知要找到另一只还没有伙伴的海龟，将那只海龟设置为其伙伴，然后告诉新的伙伴也将其设置为伙伴。这很好用，我可以告诉合作伙伴蜂拥而至，在他们继续移动时将他们作为一个整体保持在一起。但我不知道如何才能让这样的东西与一对以上的乌龟一起工作。

我想我可以制作一个“合作伙伴”代理集，其中包括一只乌龟拥有的所有合作伙伴。我还考虑过在海龟之间使用无向链接并使用“网络”代理集来包含连接到单个海龟的所有海龟。

我无法让这些想法中的任何一个发挥作用。使用链接时，我可以设置乌龟可以拥有的首选链接数，但不能设置整个组中的乌龟总数（包括链接邻居的链接邻居），并且组中的乌龟不共享相同的连接.当我尝试创建一个合作伙伴代理集时，它似乎永远不会起作用，因为每个后续合作伙伴都会覆盖前一个合作伙伴。我还需要确保单个乌龟与其组中的其他人共享相同的伙伴。我一直在尝试使用 'turtle-set' 为任何以前的合作伙伴添加新的合作伙伴，但我遇到了问题。这是我用来设置合作伙伴的代码：

turtles-own
[next-partner ;a partner to be added to partners   
  group-size  ;includes turtle itself and number of partners in group (count)
  partners]   ;agentset of partners

to setup
  clear-all
  create-turtles num-turtles 
  [ setxy random-xcor random-ycor
    set next-partner nobody ;turtles haven't got any partners to start with
    set group-size 1 ;just itself
   ]
    reset-ticks
end

to go
  let singles turtles with [preferred-size > group-size] ;those turtles where the group it's in isn't big enough

  ask singles
  [ifelse any? other singles
  [set heading towards min-one-of (other turtles with [preferred-size > group-size]) [distance myself]] ;go towards other turtles who need more members in group
  [lt random 40
    rt random 40]
    fd 1
  ]

  ask turtles
   [set partners turtles with [next-partner = myself] ;partners are those turtles who have you in their partners, but I don't this will work because they won't always be a 'next-partner'
    set group-size 1 + count partners  
    if (preferred-size > group-size) and (any? other turtles in-radius 1 with [preferred-size > group-size])

    [set next-partner one-of other turtles in-radius 1 with [preferred-size > group-size]

     ask next-partner 
      [set next-partner myself  ;ask this new partner to set turtle as its partner too
       set partners (turtle-set partners next-partner)]  ;add the turtle as a partner to the partners agentset
       set partners (turtle-set partners next-partner) ;turtle does this after partner so that the partner doesn't add itself
      ]
    ask turtles with [preferred-size = group-size] ;turtles in the right group size just move around (I can get them to flock later)
  [lt random 40
    rt random 40
    fd 1]
  ] 
   tick
end

我希望这不会太长而且不清楚。非常感谢任何帮助，我已经为此工作了几天，在以前的问题中找不到类似的东西。

谢谢！

达米安

Answer 1

查看 Railsback 和 Grimm：基于代理和基于个体的建模中的狼群示例。基本上每个包都有一个唯一的标识符。

在这种情况下，组将具有该标识符。因此，当集群发生时，集群中的那些人允许其他人加入，并且将组标识符提供给创建的新成员或组。如果他们离开，则重置标识符。您可以轻松地围绕新关系[两只新海龟相遇并生成新的组号]、组增长[组中存在的数量和新到达或被拒绝的数量]以及离开组的规则[重置组号]。这样做的好处是您还可以轻松地创建具有相同组号的代理集，从而让他们都做同样的事情。