网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
- p  j2 ?  G: L# j+ N如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
( S7 [5 n9 j, a0 T8 k/ d! `# B  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
1 d. e3 R' p5 U9 M. ?% Q    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
% l: n  L! w# c6 @+ l) X* _# v8 u. a     set linknumber (linknumber + count [link-neighbors] of turtle i)]
4 A$ `! Y0 g' {+ e- L: N) R! T if linknumber != 0
! k& v( A3 t# }9 P  [
' ?+ r9 `3 c3 k0 R  set average-node-distance (nodedistance / linknumber)
  ]
; s0 i/ Z% T' r3 z  set i i + 1
  ]
, A( \9 t) X2 v8 }/ D: Cend
' {$ {4 X$ y: l( y. ~
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
% P6 ~) _: e3 t. ^+ X因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
5 w7 c- p3 E1 K- T  let i 0
# K9 s) c" F1 ^3 D3 }, L  let j 0
, y# H$ [  W8 S) |8 l  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
& n( B) l9 h, N2 B       while [i < count turtles]
! [' Z0 X4 ]) p0 U6 _! u/ C          [  if link-neighbor? turtle i
8 f1 b9 w  p1 g) }+ k( B                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
8 j8 y1 p2 M7 r" f3 D& [5 [; x            set i i + 1
        ]
     set j j + 1
  ]
( u! j' G/ ^: f3 w* ~  set average-path-length nodedistance / (linknumber * 2)
end