网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
. m1 U  M9 ]6 @. B% F  S即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

0 H& D4 a) ^4 l( x- F9 ^to find-distance
7 i; H* g! C/ z' k6 w  let i 0
  let nodedistance 0
  let linknumber 0
  e% \$ u2 R1 \- F  while [i < count turtles]
! p+ `7 R2 x. Y  O [
if link-neighbor? turtle i
# H8 T( e7 o/ \* Y    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
% Y; j7 g: a- n0 w& d+ P if linknumber != 0
9 |; _, u" N( M0 G  c, C1 m  [
  set average-node-distance (nodedistance / linknumber)
- i$ }6 W2 c2 x1 d  ]
) C3 P( `! P) z! n/ K  set i i + 1
- \/ j! o; m8 ]3 u' {' I+ w) A  ]
end

5 X& n: T3 G- h' R[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
8 A, Y' G( L" X8 A因为特殊要求，这里的边的长度是二维座标内的空间距离

! [# O8 F9 V- E6 I4 W3 Oto find-distance
  let i 0
1 Y& K$ M% i% M. _  let j 0
3 ?- W2 u' O) |# u1 N$ K" h* z; `$ l2 \  let nodedistance 0
- F, R" b2 ^% A* d  let linknumber 0
, [. a4 @+ L2 W7 D# j  
, }$ \" O# o- B) b   while [j < count turtles]
/ D$ o& W3 S" C$ z6 w  `   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
5 t. V+ N. ^9 n! e                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
5 e2 a0 L3 k3 ?9 g: n  E1 u. }                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
  h3 j8 k: R. o9 ]        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
. G" {9 P3 w# I' Oend