网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
  W0 ?1 i; n# e' _& o9 j3 j即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

7 Y- i6 R: q; D. Y" nto find-distance
  let i 0
  let nodedistance 0
, Z2 m3 [# f2 c" I  let linknumber 0
  while [i < count turtles]
0 s' |1 d2 L  i( i; i$ F# O [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
8 E" E7 u; f% C% I, `' U2 s; j4 Z     set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 Y; f' W7 h2 R' q! }2 k if linknumber != 0
  [
7 z/ f9 ^6 f- w4 n/ r  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
2 \2 w, z0 z' u  `' a9 \end

! _% B% Q3 J! f( P' [7 C- B/ I) Z& v[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
* f1 b; c/ U7 y+ O因为特殊要求，这里的边的长度是二维座标内的空间距离

0 N; U9 a8 {, C' v% Qto find-distance
; w7 ?4 Q" n# U+ H9 G' |6 {4 U  let i 0
# M/ w6 ]* c& z5 E0 @  let j 0
5 Q3 w. [. a5 h9 q* z2 v  let nodedistance 0
1 z9 X4 F' D2 A9 Q  let linknumber 0
  
   while [j < count turtles]
7 n% }$ }* i5 g8 p& y. [   [
       while [i < count turtles]
  |- X9 i$ C- d7 p          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
; }' G9 O6 \( m- v9 D" \* T                          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