网络边的平均距离

qy987

请教在netlogo中
- y! {& f, H. G. U对于一个非完全连接的网络
如何求它的平均节点距离
/ m' e  y! M( w  p0 `9 ^* b即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

& I! S) V1 F& [to find-distance
. V+ i8 [5 u" {6 E+ |  let i 0
  let nodedistance 0
! n4 g& e( f. C' S+ R  let linknumber 0
  while [i < count turtles]
[
% _+ t* T/ A* b if link-neighbor? turtle i
+ X7 B2 p, D+ S, {    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
! N7 Y! n- d2 b! X     set linknumber (linknumber + count [link-neighbors] of turtle i)]
9 N! L5 c  f/ \. _3 T3 @ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
7 \, i( |* I3 \5 z  e7 M: ?: Jend

' H2 C  S. p  H[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
' t# b# }: t8 _' @7 F) ?因为特殊要求，这里的边的长度是二维座标内的空间距离

4 x' a3 o" K: l4 n6 ~/ k" uto find-distance
  let i 0
  let j 0
: j. P& t; u0 T* m1 N0 V1 C/ g  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
1 W- ]  `* @0 o+ z  y8 U! k   [
       while [i < count turtles]
+ B$ o! g4 c: }3 i          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
# U2 ?" t2 K5 q2 \8 f                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
. n- X1 w" [; D$ C8 `                        ]
            set i i + 1
        ]
% F/ m6 M- w/ |9 y3 T     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end