网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
, [% u7 A6 `, ]请达人帮我指出错误好改进
. o* W4 e/ L. P0 F' o7 n
, E( S7 _7 Q, d; E. oto find-distance
  let i 0
0 h( B/ {( U% r( ^  let nodedistance 0
( j( c5 X1 n5 a+ z  let linknumber 0
! k  t3 ~6 y3 m: G  while [i < count turtles]
0 O, \' ^* O( ?# c/ x [
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
  [
# G: V/ A/ v$ D# o( G+ m, |9 Y  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
- ?7 e/ a& X9 ~* e5 l0 o  ]
end

' b# F" d  r/ a2 _) _3 A9 y8 H4 X* Y[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
5 h& d# g! I5 I: l  J. A因为特殊要求，这里的边的长度是二维座标内的空间距离
# D- D1 a7 D3 R: B, s( J# j- b
to find-distance
6 u1 m1 S2 A9 g% r2 j  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
8 p! p, W: a0 s                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
4 J, k& C: A  B5 M  N& B            set i i + 1
        ]
     set j j + 1
  ]
0 Q1 f) c7 ^4 O+ n  set average-path-length nodedistance / (linknumber * 2)
end