网络边的平均距离

qy987

请教在netlogo中
1 w& X4 }$ P- P8 W对于一个非完全连接的网络
如何求它的平均节点距离
! h* w1 A  l: o: L即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
0 a$ S8 F3 \6 }( v6 y: U8 f- U  let linknumber 0
3 b2 n, |8 o8 j' x% d- p& C/ H9 O  l  while [i < count turtles]
[
: [9 r4 Z! p, x5 k5 | if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
6 W3 H2 ^1 T4 H# C+ ]; l     set linknumber (linknumber + count [link-neighbors] of turtle i)]
$ e$ ~- I4 c$ T0 h if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

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

qy987

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

to find-distance
$ U0 |; |) ~) m& A, T8 I  let i 0
  let j 0
8 L% F' G2 h- n) X  let nodedistance 0
7 A- }9 G" H7 T4 m& m( p8 `  let linknumber 0
3 m( Q, B/ K- k# U  
3 o7 L: G5 A) R+ D2 T' \/ g   while [j < count turtles]
+ J2 P9 ], k1 l   [
! F9 V& B  c  r9 u       while [i < count turtles]
( w1 b4 s3 M3 o          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
0 o2 P0 J/ v& y9 O                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
1 V) F( o# e" K( M2 L4 t2 Q            set i i + 1
        ]
     set j j + 1
  ]
  Z$ u8 G/ A, j' F: w  set average-path-length nodedistance / (linknumber * 2)
3 b6 s5 t, ~9 v# l9 q  |, \3 Fend