网络边的平均距离

qy987 · 发表于 2008-11-12 02:09:33

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987 · 发表于 2008-11-12 02:13:48

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
   set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987 · 发表于 2008-11-12 09:24:44

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0

while [j < count turtles]
[
   while [i < count turtles]
      [  if link-neighbor? turtle i
                     [ask turtle j [set nodedistance nodedistance + distance turtle i]
                        ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                     ]
         set i i + 1
      ]
   set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end

帐号		自动登录	找回密码
密码			注册

[求助] 网络边的平均距离

继续

供参考

浏览过的版块