基于透视的排名?

时间:2015-05-14 00:09:02

标签: netlogo

我有一个程序,其中每个对等体都有自己的其他对等体的排名系统,实现这个的最佳方法是NetLogo?

通常,我会用2D列表解决这个问题:
[[turtle 1, score], [turtle 2, score], ...]

但这在NetLogo中似乎非常令人不安。这是我创建和修改2D列表的代码:

to test
  clear-all
  crt 10
  ;Create a list of turtles
  let agents-list [self] of turtles
  ;Create empty list, which will be the top level of the TwoD list
  let TwoD-list []

  ;Populate the TwoD-list: [[turtle 0, 0], [turtle 1, 0], ...]
  foreach agents-list [
    set TwoD-list (lput (list ? 0) TwoD-list)
  ]
  show TwoD-list 

  repeat 5 [
    ;Change a value in the TwoD-list
    let rand-index random (length TwoD-list) ;select a random index
    ;The next line is what makes it a huge headache, basically you have to select a list at the top level to replace, and then select the list at the lower level to replace it.
    ;This entire line of code is just adding one to an element
    set TwoD-list (replace-item rand-index TwoD-list (replace-item 1 (item rand-index TwoD-list) (item 1 (item rand-index TwoD-list) + 1))) 
    show TwoD-list
  ]
end

我还能做什么?或者有更好的方法来实现此方法吗?

1 个答案:

答案 0 :(得分:4)

如果你想模拟代理之间的关系,NetLogo就是最完美的事情:links

让每只乌龟为所有其他海龟分配一个分数,可以很自然地表达为:

directed-link-breed [ rankings ranking ]
rankings-own [ score ]
to setup
  clear-all
  create-turtles 10
  ask turtles [ create-rankings-to other turtles ]
  ; increment 5 random rankings by one:
  ask n-of 5 rankings [ set score score + 1 ]
  ; display the rankings of each turtle:
  ask turtles [ show [ (word end2 " " score) ] of my-out-rankings ]
end

如果您不希望链接显示在视图中,您可以隐藏它们:

ask links [ set hidden? true ]
相关问题