网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
7 e9 m& ]7 M1 }' |& a+ X2 I  N请达人帮我指出错误好改进

2 `1 d$ @* W! l2 |: {" Rto find-distance
* a$ ~2 V: c. _  _  let i 0
9 ~  w& S* g# m" b6 r. D/ V3 f3 G; m  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
1 c/ m+ p: C6 e9 P6 h [
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
- o& `: }0 D& _4 a, _2 n4 }; a6 e( i  [
0 q; C0 H( E5 L) U) T! k5 ^  set average-node-distance (nodedistance / linknumber)
/ s1 x2 _9 s6 p, j& x& K9 [  ]
  set i i + 1
  ]
) Y5 d# p6 c" j' @/ b' aend

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
) b0 y7 k. u- i8 B7 \& V9 V  let i 0
  let j 0
; r/ K% L: q# {" D3 B  let nodedistance 0
6 k; A# E7 b" V  let linknumber 0
  
   while [j < count turtles]
3 h' N+ V& ^: C, G; N: B: N   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ s- a" o, t  H' ?  n7 |                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
# \1 w5 u- u6 k; z                        ]
            set i i + 1
5 a  x5 f; z& y" c        ]
& I  _6 J; S2 }: b$ u* h     set j j + 1
7 M, R/ f  [. U. v! t: A6 ?  l+ L  ]
  z+ P3 H8 P" g1 k( D, U! w5 o  set average-path-length nodedistance / (linknumber * 2)
+ j3 {3 S, N- wend