网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
. k) Y( n! O" X请达人帮我指出错误好改进
4 ~' t7 q4 r2 S) [- t  m8 O" @, s
to find-distance
% B6 T4 H8 n+ G6 A, e' P- F8 b  let i 0
+ d9 j" w6 e0 ?/ G7 a+ H  let nodedistance 0
  let linknumber 0
% f; s$ m0 n& I' k, s1 i  while [i < count turtles]
2 s( K  l8 e0 G8 l" f [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
: T* b% q% t( o! Y5 M3 h     set linknumber (linknumber + count [link-neighbors] of turtle i)]
6 ~% `8 O8 z4 Q% o. N if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
/ X" a4 w: p% K1 \: C. k/ R/ \  ]
0 |% G6 q- x! ^$ K  set i i + 1
  ]
8 e+ y/ ?6 D4 h! ?& ], d) @( hend
; l0 W8 n& r  f) g* W/ e+ ^- m
9 @/ M! s% w7 d. {2 x" R3 c' L$ E[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
7 c& }8 ^9 z5 W2 D% D
& I* C, k4 L. N  ^+ ito find-distance
  let i 0
" a8 t+ `! D; S3 R3 w4 @  let j 0
  let nodedistance 0
3 r) L0 l3 e6 b# z# l& a, E  let linknumber 0
) R$ l& ?" v( Y  z2 k' f( E  
4 o; E0 j# T+ u( I# X   while [j < count turtles]
   [
9 V0 G* y7 W5 J. n  {& N       while [i < count turtles]
- s$ f$ U1 D+ m' P/ b/ i          [  if link-neighbor? turtle i
; h& C- O, r" f6 {4 s                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
3 r. k# b  C: x                        ]
& U, l- L! [. L- r& R. d% v            set i i + 1
! _6 u& B: Z/ i        ]
     set j j + 1
  ]
5 V* a  C5 S: I  set average-path-length nodedistance / (linknumber * 2)
end