网络边的平均距离

qy987

请教在netlogo中
2 J1 P0 y. @( G) }/ S! f( Y对于一个非完全连接的网络
如何求它的平均节点距离
8 C; ]& ?6 C$ t+ m即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

! K7 r. Y/ V  v; |2 y6 E- s: |to find-distance
9 h  d* E! H# w; t2 J2 [4 e  let i 0
  let nodedistance 0
9 N/ B+ T$ S, g4 D, R1 O; q! A7 i  let linknumber 0
) a  Y* Y2 b7 h- ]+ ^: y9 _  while [i < count turtles]
: Y  n2 D/ H0 h+ f) n+ y* f [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
" {( r: M+ }  |+ G+ C* Y5 a' c+ A% A" A if linknumber != 0
  [
+ w6 ^- X8 C! B4 ]  set average-node-distance (nodedistance / linknumber)
$ a; ~/ Q% P6 M4 h; x  Z  ]
  set i i + 1
% t6 d/ t$ j* {% X  ]
end
- F; L$ x" N( L% J9 u& q
( _1 S4 ^% O7 W' n, ]5 P. l, _& T) G[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
5 a4 [0 ]! L8 S" Y, K( s
2 W! _5 L+ j0 g- H( X) y7 rto find-distance
- v8 C- j4 N' ~, O  let i 0
( s& Z1 }3 l3 S* z- o1 x  let j 0
  let nodedistance 0
  let linknumber 0
) N! P0 b. _$ @6 D  
   while [j < count turtles]
" P0 g4 S: m( t4 x0 w# p8 p   [
. L5 A5 d7 h1 y, \       while [i < count turtles]
; i, o0 R  J7 M: X8 S3 ^3 i5 Y          [  if link-neighbor? turtle i
, V1 j" @% z0 _$ k) i. E                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
6 j$ I  R% M# U5 N                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
3 x, G0 S* T2 n            set i i + 1
) V, u8 p6 ?) M' f% n        ]
     set j j + 1
. ~1 V. ]/ r* X( C+ I& @: }  ]
; [. `; s7 {- W, B) U  set average-path-length nodedistance / (linknumber * 2)
end