网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
+ d7 S1 G0 Q( g2 _2 y& u如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
4 o6 T* ^9 ]+ e( c% y4 D1 A) n
to find-distance
  let i 0
$ Y: R! w$ m5 ~9 f! S' F0 U! [6 \  let nodedistance 0
9 p. S; A; N1 d% c) m8 g& c  let linknumber 0
  while [i < count turtles]
[
& Y2 t  D, E. b9 l! I" V. N4 O if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
! w8 |  O* Y) ~3 R  [
0 K& Q. m4 S- e& O& i* t  set average-node-distance (nodedistance / linknumber)
6 F8 l  G4 u& |/ u3 f  ]
  set i i + 1
  ]
7 j( s/ L- M1 u% gend

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

qy987

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

to find-distance
. B% a, T9 R' R9 M+ s6 h" V9 J& E  let i 0
  let j 0
) m7 K2 R, c$ [$ g  let nodedistance 0
3 n+ z- @( L: x. q+ ~  let linknumber 0
7 }: s; w6 K; ~+ ~9 y& X  
   while [j < count turtles]
   [
8 S& }8 L' B; f+ s# L* i8 j5 U1 s       while [i < count turtles]
6 o7 E5 ~; i5 J( F' Y          [  if link-neighbor? turtle i
! h  a# S9 |7 S0 B2 T; k                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
8 P9 W/ s( f# {+ J- V( Q5 O% ?& @* c* g                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end