网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
3 C. |" N/ \# J( q8 y' D" b" \5 |0 M即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
0 Q. q0 c% w  t, k& C* i3 |9 ~
to find-distance
  let i 0
  let nodedistance 0
' b. Z3 j1 s1 _% w/ Q  let linknumber 0
2 p% T9 c, N; [5 T! T  while [i < count turtles]
; R5 D9 e% r9 h" s6 q [
if link-neighbor? turtle i
0 Z2 N- Z8 q5 @/ w1 ~. O2 d1 d    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
( V- f2 t4 }; G' j if linknumber != 0
/ G+ X: l4 M9 P( h  [
# F" X; }% O* q  V/ M8 E9 X7 n  set average-node-distance (nodedistance / linknumber)
  ]
( U. z. k0 t7 a  m3 l4 H9 g9 ]  set i i + 1
  ]
$ E) l2 @* J, e0 hend

- Q" M  p3 Y0 [7 o7 L[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
2 x. o- C8 Y$ ?8 D/ c& Q
to find-distance
' T. e- O* ^0 `# i1 n  let i 0
  let j 0
7 d5 b7 q; h. z) Q' ?1 k$ X  let nodedistance 0
( {7 _/ ?+ [* `, f  let linknumber 0
  
, d& ]8 `! e1 N: N   while [j < count turtles]
, C) _4 W' }2 T- s. @0 ?   [
6 K3 z6 R- ?. y- R7 H, {5 k       while [i < count turtles]
          [  if link-neighbor? turtle i
+ v# u  v( e: C+ s                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
! f0 p! b- F3 {                        ]
            set i i + 1
; l) j* s, U5 E4 y8 ^9 T        ]
% w  T( V, r# Y     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end