网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
4 B. }0 g, o/ h" K% B9 ]即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
5 N, {3 r. P/ R$ E, \  let i 0
  let nodedistance 0
! q+ H1 d: L2 t# f$ f+ _- R  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
" a; u1 V* D1 V7 l    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
- z: y+ n* i8 q2 x if linknumber != 0
  [
5 n  r- K+ {* t9 z* g, q: x  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
( }% u% A3 B4 k% ^7 @, @9 M- m  ]
3 F: Z  O- M* _$ \' P2 C3 k4 |& N. ?end

, Y! N1 Y' X9 K, @6 @; H& Q1 j1 G[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
; y- N9 X! p* ?% r7 h/ V4 c: f+ Y因为特殊要求，这里的边的长度是二维座标内的空间距离
% c1 L' s% B% c. \: v$ x
+ [% y; A2 `& j, J; [to find-distance
  let i 0
  let j 0
  let nodedistance 0
3 B2 S) H; ?+ N- C. O) _  let linknumber 0
0 _0 K5 N' v( m' [- ~  
   while [j < count turtles]
% c3 Y' e7 W" ~7 X   [
       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]
4 F6 g9 B" k, l0 I7 U5 _                        ]
1 C% a& b! D( q# a            set i i + 1
" V  x5 t+ u9 T- B( w! s        ]
     set j j + 1
  ]
) }8 ]) Q0 m/ K8 Y' L0 x, k8 _  set average-path-length nodedistance / (linknumber * 2)
end