网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
' ]  S' Q- b' Z( {  I. _9 T0 [如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
, Q: ]. C( w  K8 n' k请达人帮我指出错误好改进

to find-distance
4 w7 T% _: n. ~0 F8 L; n  let i 0
  let nodedistance 0
) r7 i0 B# o$ `& m  let linknumber 0
7 J, }/ z: z, H. f% `. g( L  while [i < count turtles]
! W+ t+ G: c8 ~" |! B [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
- \9 n! f) Q& g) q1 t     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
" o" g9 S! o5 h4 ?& y  ]
  set i i + 1
  ]
end

( y, {. {1 E  w6 K[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
% Y! h, v9 t( e. ]% m. M, g, a9 t2 e  let i 0
  let j 0
; ?  u6 Z4 a1 v7 N- J$ V  let nodedistance 0
  let linknumber 0
5 F5 t& n' Y2 k. l  
   while [j < count turtles]
   [
. n1 o' p- j& @- P       while [i < count turtles]
          [  if link-neighbor? turtle i
+ t9 y" a% p" K$ I& y: z$ U                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
: s$ L( k* m* g+ C+ J                        ]
% R" d1 }: |6 {" B0 G( A* L            set i i + 1
' I# u" S4 P6 X- h; @        ]
     set j j + 1
8 i6 C+ S1 m1 Q2 X  ]
  set average-path-length nodedistance / (linknumber * 2)
end