网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
$ p' x# f" o- T6 L8 j- y请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
7 j, W( }) M, X  while [i < count turtles]
3 h2 C2 K+ w; e( h0 A [
0 }6 _# d3 _4 O! a6 m' b if link-neighbor? turtle i
1 ~: I0 q& r$ p: U: ]6 \  D    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 ^4 x; p: i6 e0 d( M: I5 I: u1 s8 i     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  k: a, o& U+ ~$ u  [
& O3 |% e! g) V  set average-node-distance (nodedistance / linknumber)
  ]
% Q6 e. W* f6 y( F+ |- k  set i i + 1
& `/ {7 v6 G$ E+ O2 |$ i  ]
end

; S" X& j( r; r, {, h4 z[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

" ~( g- c5 O; E: q1 D4 _# n% Xto find-distance
  let i 0
  let j 0
/ k/ \# Z7 x& a0 C6 Y: i- r7 v! k  let nodedistance 0
  let linknumber 0
8 c4 p# d( w# `6 f' E  
   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]
1 o2 t* \) b, M6 `5 G4 q* f                        ]
2 Z6 v* ~4 J% F7 W5 x5 x$ V3 [            set i i + 1
, e2 v& s  W3 J, M+ V3 y0 I        ]
$ s' j: g; d& X- S5 |     set j j + 1
+ a3 q, k* [6 G1 j/ |6 U9 S  ]
6 D; m9 n" ?) ]9 t5 ~+ h9 I  q  set average-path-length nodedistance / (linknumber * 2)
end