用鏈接的值計算

我需要計算我自己和我所有的 nearPersons 之間的連接值，其中使用鏈接的信任值。但是，獲取所有鏈接的信任值并在計算中使用這些值會減慢運行時間。我沒有成功找到另一種更有效的方法。任何建議將不勝感激！

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

uj5u.com熱心網友回復：

這是使用信任代理集而不是鏈接的模型。我認為只要只有這兩個信任級別，它就會給你相同的結果。我對代碼進行了一些其他更改 - 特別是您的原始while陳述句永遠不會按照它的撰寫方式運行（商始終為 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

uj5u.com熱心網友回復：

我必須對您的代碼進行一些修改才能使其運行，我已將其包含在下面。但我相信真正的問題只是你正在做的事情的規模。對于 1000 個人，您重復輪詢大約 50 萬個鏈接，并且考慮到您的世界的大小，每個人的 nearPersons 數量可能非常大。你的模型中真的需要 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

標籤：表现 网标

上一篇：當我在回應中更改狀態時，如何防止額外的后臺操作？

下一篇：帶有productFlavors的androidBaselineProfile