网络边的平均距离

qy987

请教在netlogo中
% u9 @7 G. h7 L( P: F% F对于一个非完全连接的网络
如何求它的平均节点距离
" m# }3 U3 a, a1 d即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
& u9 U2 F6 A8 ^7 I  let nodedistance 0
  let linknumber 0
! q1 y# U' H9 C3 @2 N  while [i < count turtles]
$ q3 ^3 ]/ x0 M! u: {: ?& B7 ? [
0 e" r7 R, `6 l/ W# D if link-neighbor? turtle i
2 I4 P; o& r: `- ?, g! U    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
9 O( g4 T: Q2 F     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  ]' E+ I& {5 Y: K' r  set average-node-distance (nodedistance / linknumber)
% {" v7 B$ D& u9 t  ]
  set i i + 1
  ]
+ h- D: S5 p* y! S) A, M& y2 o2 eend
6 M8 y% N2 w4 ^! K: j( t
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
$ s% T1 P" e8 I" c% d  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
) o, N4 z9 v- n                        [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
* ~& V; x$ H" H% @: }7 h) m8 l  ]
  set average-path-length nodedistance / (linknumber * 2)
end