网络边的平均距离

qy987

请教在netlogo中
0 m9 p3 l& v: Z2 H2 P3 H8 }8 |对于一个非完全连接的网络
如何求它的平均节点距离
2 |/ d* k( D/ V5 t- l$ e8 R. H; H即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

% B  e1 G/ w3 m; m; f* Uto find-distance
  let i 0
7 b3 H0 w2 B# I' n) p  let nodedistance 0
  let linknumber 0
- {0 w, `! x7 Z  c: |  while [i < count turtles]
5 ]2 Z0 [9 s( n; R# B7 \ [
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
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end
) I: [6 b% R# R2 m1 k
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
4 ^; l; v7 H9 \* f& V  z4 {
to find-distance
+ \3 ^- q) R1 Y. u* G) \  let i 0
2 W7 V2 J! S9 `+ S, ^0 V  let j 0
' n# f. o: r5 {8 ]) @& L  let nodedistance 0
) {( r  I2 I5 b0 _" J: B% r" @' K  let linknumber 0
  
   while [j < count turtles]
) l& Q5 Z9 D) ?$ x+ U" i   [
       while [i < count turtles]
$ b0 k# F/ p) p- p          [  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]
' J$ T8 z) ?8 X; z7 P( V                        ]
! @4 D" n; g/ H; X9 E  ^            set i i + 1
4 c! e! m4 q& _! p) B; Q& f1 ^        ]
: ?$ J# ~$ i* U, ?     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
: S  j) L2 B+ n2 \2 mend