用链接值计算

Question

我需要计算我自己和所有近亲之间的连接价值，这些连接价值使用链接的信任值。但是，获取所有链接的信任值并在计算中使用它们会减慢运行时间。我没有成功找到另一种方法来更有效地做到这一点。任何建议都将不胜感激！

breed [persons person]
undirected-link-breed [connections connection]
connections-own [trust]

persons-own 
[
  nearPersons
  familiarity
]
 
to setup
  clear-all
  setupPersons
  setupConnections
  updateConnections
  reset-ticks
end

setupPersons
  create-persons 1000
  [
    set color black
    set grouped false 
    setxy random-xcor random-ycor
  ]
end

to setupConnections
  ask persons [create-connections-with other persons]
  ask connections [ set trust 0.4]
end

to updateConnections
  while [(count persons with [grouped = false] / 1000) > 5]
  [
    let highlyTrusted n-of (2 + random 9) (persons with [grouped = false])
    ask highlyTrusted
    [
      ask my-out-connections with [member? other-end highlyTrusted] [set trust 0.6]
      set grouped true
    ]
  ]
end

to go
  getNearPersons
  calculateConnection
  forward 1
end

to getNearPersons
  ask persons [ set nearPersons other persons in-cone 3 360 ]
end

to calculateConnection
  ask persons with [nearPersons != nobody]
  [
    ask nearPersons
    [
      let degreeOfTrust [trust] of in-connection-from myself
     ]
   ]
end

Answer 1

这是使用信任代理而不是链接的模型。我认为，只要只有两个信任级别，它将为您提供相同的结果。我在代码中做了其他一些更改 - 特别是您的原始，而语句永远不会在编写时运行（商总是1）。大多数只是风格的问题。让我知道这是否不是您需要的。仍然不是一个速度恶魔，每滴1000人约5秒钟，但比链接版本快很多。请注意，Npersons是一个全球，因此我可以随身携带它。

查尔斯

globals [nPersons]

breed [persons person]

persons-own
[
  nearPersons
  Trusted
  unTrusted
  familiarity
  grouped
]

to setup
  clear-all
  set nPersons 1000
  ask patches [ set pcolor gray ]
  setupPersons
  updateConnections
  reset-ticks
end

to setupPersons
  create-persons nPersons
  [
    set color black
    set grouped false
    setxy random-xcor random-ycor
  ]
  ask persons [
    set Trusted no-turtles
    set unTrusted persons
    set familiarity 1
  ]
end

to updateConnections
  while [(count persons with [grouped = false] / nPersons) > 0.2]
  [
    let highlyTrusted n-of (2 + random 9) (persons)  
    ; so persons can be in more than one trust group and treat all trust groups equally?
    ask highlyTrusted
    [
      set Trusted other highlyTrusted
      set grouped true
    ]
  ]
end

to go
  ask persons [ getNearPersons ]
  calculateConnection
  ask persons [ forward 1 ]
  tick
end

to getNearPersons
  ask persons [ set nearPersons other persons in-radius 3 ]
end

to calculateConnection
  ask persons with [any? nearPersons]
  [
    let affiliation []
    ask nearPersons
    [
      let degreeOfTrust ifelse-value (member? myself Trusted) [0.6] [0.4]
;      let degreeOfTrust [trust] of in-connection-from myself ;;this line causes netlogo to run very slowly
      set affiliation lput (degreeOfTrust * familiarity) affiliation 
     ]
   ]
end

Answer 2

我必须对您的代码进行一些修改以使其运行，我在下面包括了它。但是我相信真正的问题只是您在做什么的规模。有了1000人，您反复进行了大约一百万个链接，并且鉴于您的世界大小，每个人的近人数量可能很大。您真的需要模型中的1000人吗？/或您真的需要每个人都与其他人建立联系？链接的数量与人数成倍增加。

breed [persons person]
undirected-link-breed [connections connection]
connections-own [trust]

persons-own
[
  nearPersons
  familiarity
  grouped
]

to setup
  clear-all
  setupPersons
  show "persons setup"
  setupConnections
  show "connections setup"
  updateConnections
  show "connections updated"
  reset-ticks
end

to setupPersons
  create-persons nPersons
  [
    set color black
    set grouped false
    setxy random-xcor random-ycor
  ]
end

to setupConnections
  ask persons [create-connections-with other persons]
  ask connections [ set trust 0.4]
end

to updateConnections
  while [(count persons with [grouped = false] / 1000) > 5]
  [
    let highlyTrusted n-of (2 + random 9) (persons)
    ask highlyTrusted
    [
      ask my-out-connections with [member? other-end highlyTrusted] [set trust 0.6]
      set grouped true
    ]
  ]
end

to go
  ask persons [ getNearPersons ]
  show mean [count nearPersons] of persons
  ask persons [ calculateConnection ]
  show "got Connections"
  ask persons [ forward 1 ]
  tick
end

to getNearPersons
  ask persons [ set nearPersons other persons in-cone 3 360 ]
end

to calculateConnection
  ask persons with [nearPersons != nobody]
  [
    let affiliation []
    let idx 0
    ask nearPersons
    [
      let degreeOfTrust [trust] of in-connection-from myself ;;this line causes netlogo to run very slowly
      set affiliation insert-item idx affiliation (degreeOfTrust * familiarity)
      set idx idx + 1
     ]
   ]
end