网络边的平均距离

qy987

请教在netlogo中
( L1 d/ [  K1 g. ~, L对于一个非完全连接的网络
  j9 T0 \- p0 s+ A如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

6 y' h+ \9 X% }to find-distance
  let i 0
  let nodedistance 0
% }/ v" P  n; r/ S( y  let linknumber 0
  while [i < count turtles]
4 I+ y9 J5 X' N8 b, h8 J& B5 p [
if link-neighbor? turtle i
% \8 P1 X7 v8 I5 u    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
) S$ A5 a( U% ?0 r$ X5 _     set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 x" {7 J  I( @/ k if linknumber != 0
0 W, q& c8 T0 |/ k2 Q4 a, _2 U  [
  }3 X6 X9 G0 [9 D) y  set average-node-distance (nodedistance / linknumber)
8 }0 r6 r$ Q9 f1 j( ^) e+ Y  ]
9 C$ C" A+ f* a* O% W( s  set i i + 1
% @% |5 ^: h! a$ p; x  ]
end

3 [1 b9 }: C8 K8 q: L4 v/ z, k* e3 s[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
4 d: `  [) i, a  @$ ~  h7 Y! K因为特殊要求，这里的边的长度是二维座标内的空间距离
4 n/ s9 T' X) H6 P
) {/ b, H: s8 G* D& Z' rto find-distance
1 _2 o8 r6 F7 R$ ^2 a& L  let i 0
  let j 0
, P- R: G$ C2 L& ?3 T" x  let nodedistance 0
7 r+ Q1 p; s: ~9 P! V7 \  let linknumber 0
' r  D% D; s9 |. T" F/ s& D' t  
   while [j < count turtles]
   [
       while [i < count turtles]
8 b" Z0 K1 ]1 P! V7 D  j          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
/ X  v% j' u( P  O- n1 A                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 f# e" a; m. N3 y! ^! F                        ]
4 u2 T. m4 A! i/ F) u/ ]  h            set i i + 1
* y9 p& H$ Z/ z) ?3 O1 y" _' p        ]
     set j j + 1
8 _* ]0 e6 p) |0 h4 l. B, y  ]
  set average-path-length nodedistance / (linknumber * 2)
* g  b$ |3 u/ B+ D$ Q; {end