网络边的平均距离

qy987

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

qy987

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

to find-distance
* s. J  d* J  q  e7 T  let i 0
  let nodedistance 0
  let linknumber 0
3 {- e4 R/ M% b/ A+ P. o6 W  while [i < count turtles]
7 t3 x6 @: F  l9 O$ P+ x [
; `" R  y) i( \ if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
# d+ d4 g% q, y# e6 `% A6 C if linknumber != 0
& A3 m+ @/ d5 Z/ x3 |" t  [
1 ^$ ?* X4 _: ]! u; w8 y* G  set average-node-distance (nodedistance / linknumber)
1 V2 y, ?3 `9 q7 f; [# o  ]
  set i i + 1
/ G7 x3 p) {7 U1 R/ W  ]
end

2 y2 W0 |' ]; _6 m[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

, ^/ a2 n' g; w" L5 yto find-distance
$ f; A( a& Y, ?9 ?  let i 0
  let j 0
  let nodedistance 0
7 R  i3 S9 B: X  let linknumber 0
& @' f' Y4 L9 q- e" F2 T. y* Y  
7 n* n! M8 V% |+ J5 f  S   while [j < count turtles]
; x2 f, v, m& W4 ^3 j* P8 C& V  A" q   [
       while [i < count turtles]
, K3 s: M7 {) R9 T          [  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]
0 N+ G5 j4 {; U; k                        ]
) I' _  W) v+ Y' h/ C/ ?            set i i + 1
        ]
# C- K* I1 c" F5 a9 n" P0 V; b0 z1 v     set j j + 1
7 x1 {+ Y, P8 [+ p: i+ n# J0 O, P  ]
  set average-path-length nodedistance / (linknumber * 2)
7 ^* Y8 H$ U) C) V3 \6 Wend