网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
2 b. a* o& J8 b, S如何求它的平均节点距离
* O5 [* [7 }9 y6 i- {% }$ m& W7 N即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
6 [$ F) n, j; j [
if link-neighbor? turtle i
0 m0 U2 _0 k' l; D4 @    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
( ?5 L: j0 f! C+ ? if linknumber != 0
  [
) x$ O3 G. A9 i0 }. `3 `$ \  set average-node-distance (nodedistance / linknumber)
  ]
, R1 v; D5 g8 f, z) r0 `  set i i + 1
3 A3 \- b  ^/ p% v& n; Z) y  ]
end

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

qy987

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

0 v# _. Q& R# Q1 jto find-distance
8 J3 v8 ]- G& `9 D- ?; d  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
, j8 l" {* t8 j0 N  
! e9 w; x! }# O' P+ A   while [j < count turtles]
   [
! x$ |+ z9 i& l4 M9 L       while [i < count turtles]
          [  if link-neighbor? turtle i
/ @. P0 A* A5 R  W                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
3 Y4 o; v' t# l* ?3 g& T                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
6 D& s, Q& a; [, w4 c     set j j + 1
  ]
4 m" c; q, r6 u$ Q: i% v9 M  set average-path-length nodedistance / (linknumber * 2)
3 N- Y7 H8 ]( \3 G* C, P9 ~6 u8 send