网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进

to find-distance
0 ~& B/ O% U2 N$ ^  W  let i 0
! ^- h2 f, I4 X! ]! }! }3 j  let nodedistance 0
  let linknumber 0
' `7 G  }9 V4 o7 j% o( H  while [i < count turtles]
[
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
  [
% e- w* V: M! G2 z# _$ I  set average-node-distance (nodedistance / linknumber)
& a, R+ l1 t& h" @: i' c0 ~  ]
  set i i + 1
  ]
end

3 l7 O( ~5 I* ], t" t[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
, |. X" u3 A  _% K  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
, y# I& i  c2 R$ T8 W' B- I  
8 N# S$ Y0 @4 [5 J+ E, {* }  w   while [j < count turtles]
5 J/ X7 H5 I* Z   [
       while [i < count turtles]
4 D% M1 s' Q" w          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
5 r7 Y! j0 k, Z4 S" z8 j                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
# b( R1 w$ {$ E- M                        ]
            set i i + 1
9 u0 p* n$ [+ ~& x$ X. V4 K$ X" D        ]
* q$ V* x4 X" j7 d. N* t# i     set j j + 1
* @, a6 f# O3 R+ R8 V. H' j6 Z' N  ]
  set average-path-length nodedistance / (linknumber * 2)
end