网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
2 r8 ?( `$ s; v' W# E/ a
to find-distance
1 h! b* Y" R0 P, [9 x# T' W8 ~  let i 0
, d; b5 i' l( G# C2 Z+ ~  let nodedistance 0
1 a& j4 m9 p8 P/ g- r; H  let linknumber 0
  while [i < count turtles]
: w3 g. ]4 a: O [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
( i  A$ R: U, k) H# a1 g     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  J0 j. g* Q0 t8 _, u; g+ M0 X  [
; k- N: m, u) n. K  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
& ^) e. d( N/ }. z! G1 `, k+ g  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
% e; D) w4 B; Z$ {3 i+ r因为特殊要求，这里的边的长度是二维座标内的空间距离
2 j+ `* J4 x" G2 V4 X4 P
; k: N5 i' }2 E( D9 Q, Q. H3 @to find-distance
) C( _* v8 H# E# ]+ d0 L  let i 0
. z, h6 g* Y4 e$ E; n2 t  let j 0
  let nodedistance 0
  let linknumber 0
% h9 ?  d( B4 }' c  
; P2 Z% B. {5 G   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
; L( R8 |" M* d7 U- _. F. G            set i i + 1
        ]
2 m2 ]' }5 V, {) N8 `" G0 t     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end