Question

我对NetLogo很陌生，这就是我在这里呆了几个星期。

我想要做的是让代理人成为2人团队中的4人。

我的计划是让一个函数保持4个海龟身份，

to assign-groupmates [a1 a2 a3 a4]

并将其分配给第1组

assign-groupmates [a1 a2 a3 a4] =team1[]
if team1 > 4
assign-groupmates [a1 a2 a3 a4] =team2[]

我所做的是：

    to assign-groupmates [ f g h i]
      let A who random f
      let B who random g
      let C who random h
      let D who random i

      ifelse f != g, g != h, h != i, i != g
      [ set group-id 1
        separate 
        align
        cohere ]
      [assign-groupmates [W X Y Z]
      set group-id 2]  
    end

如何找到turtles-id以及如何通过参数发送它们？我使用的海龟身份是随机的。

谢谢。

Answer 1

有许多不同的方法可以实现你想要的，但让我先从一条一般建议开始：

如果可以避免，请不要使用 who 号码。

他们有一些合法用途，但这些用途很少。它们容易出错，导致代码变得丑陋，而且它们会让你认为你试图解决的问题是错误的。

NetLogo允许您存储对代理的直接引用，例如：

ask turtles [ set friend one-of other turtles ]

一般情况下，请改用它。

但是，在您的情况下，您可能不应该存储对代理的单独引用。由于您正在处理代理组，因此您应该使用代理集。

这是一个建议：制作一个名为groups的代理集的全局列表。除此之外，让每个代理存储对构成其组的代理集的引用。这是实现这一目标的一种方法：

globals [ groups ]
turtles-own [ my-group ]

to setup
  clear-all

  let number-of-groups 2
  let turtles-per-group 4  
  create-turtles turtles-per-group * number-of-groups 

  set groups [] ; empty list
  repeat number-of-groups [
    let new-group n-of turtles-per-group turtles with [
      not is-agentset? my-group
    ]
    ask new-group [ set my-group new-group ]
    set groups lput new-group groups
  ]

  print (word "First group:  " sort first groups)
  print (word "Second group: " sort last groups)
  ; each turtle can easily access other members of its group:
  ask turtles [ show sort other my-group ]

end

此代码具有非常灵活的优点。如果您想要超过两组，或每组超过四只乌龟，这是一个非常容易的变化。

另一条一般性建议：如果您发现自己使用了多个变量，例如a1，a2，a3等，那么您可能做错了。您应该使用列表和/或代理集。

如何使用NetLogo发送参数？

1 个答案: