网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
8 B) ~, D. G7 q8 A6 G, n如何求它的平均节点距离
8 R  H) w- j$ Q0 M0 ~即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 @' ^+ @2 i# y. _9 P请达人帮我指出错误好改进

6 N' H5 R% [8 Z/ r) R8 O' L& yto find-distance
" g1 J  `; G9 d3 t9 O" j) t  let i 0
' C" ^; G$ d# ~. F+ y$ ]  let nodedistance 0
3 J, S3 _* k5 W) _+ @  ^6 P: q  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
3 J1 H' g$ Q4 E" y2 h! K. ]" q/ R    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
% x6 b) o, y7 ]1 X' B  set i i + 1
. g0 N; ^& x  h. E! {  ]
! Q  A5 m' O- g7 Y# Kend
% r) r7 q: x+ ~2 A
; r) ^3 `- J8 f  H9 ?& o) C[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
* l: h: N- M: P! E
to find-distance
  let i 0
  let j 0
7 j- A, Q$ n6 ?7 n  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
5 S' S, o; y; T' K, o/ Q" @                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
9 T8 D. S, f; N$ U                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
) `3 P% J+ q5 q, l& t            set i i + 1
5 Q) a  O  D  M        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end