网络边的平均距离

qy987

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

qy987

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

to find-distance
1 g5 m3 t/ u( U) a) U  let i 0
/ m8 j" C1 t( `; Y7 u2 @+ J  let nodedistance 0
* h# W2 G+ K: s% C  B( d& Z  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
0 p2 Z0 C& G% l, {3 W    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
' X& Z" Y6 X' m) q     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
0 K4 O9 _, z! f5 r# q8 ?' L& e  set average-node-distance (nodedistance / linknumber)
. U. @3 B+ D2 D& G) x4 \5 B  ]
  set i i + 1
7 V6 ~+ [- F% ]& |  K% _* b* p* i. Y0 J9 `  ]
end

1 i: |5 O* R8 R$ g8 V( I% `[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
* k! s7 v6 I0 A' \- @* R
to find-distance
! u+ b9 e& \5 m3 o( J  let i 0
1 a. ~& D, }5 M  let j 0
  let nodedistance 0
  let linknumber 0
* a3 N; l6 u  n, z: n* R& D+ `! \  
   while [j < count turtles]
   [
       while [i < count turtles]
2 S/ c) Q" L) h( i& z. b' ~          [  if link-neighbor? turtle i
: g! y+ k- f" D) e$ [                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
3 B3 n( c0 W; d' `' S2 O) i7 ]     set j j + 1
& ]2 h6 E) P, R/ B6 z  ]
  set average-path-length nodedistance / (linknumber * 2)
# |/ v8 y) U% W! Jend