网络边的平均距离

qy987

请教在netlogo中
8 B( n$ b9 n7 C% m+ j8 M. ^对于一个非完全连接的网络
* I  Y" r3 p. G如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
! q# u; `2 a; _# U  let linknumber 0
* M3 x2 _, ]/ f* A+ `5 f. N  while [i < count turtles]
* o6 E: l% ~6 L* b- T6 s! } [
+ z9 B% V8 h* f8 C  ^9 J if link-neighbor? turtle i
- k% H5 J  \, I& I& S# _  I  P3 R; b    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
; l: M& w  I3 u6 h2 `8 F  set average-node-distance (nodedistance / linknumber)
  ]
% ?+ b- M' ]2 w0 {% X& j  set i i + 1
4 I0 [6 \$ e% L4 G& V8 ^6 C  ]
end

1 S" A) T# ]* B[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
1 E" R3 d% w$ N. F/ @' ?" G' @因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
' k( z/ U! b/ ?6 ~8 B+ v; o, n1 }  let j 0
: ^: ?( f1 o! o, Q- t' c4 ~0 I) w- y  let nodedistance 0
  d0 ~/ A+ S2 y2 B7 j' M7 g  let linknumber 0
  
   while [j < count turtles]
. C2 }. F( u+ w8 Q/ e8 b% b: p   [
: {, A. |( E) X; X3 }% v# h       while [i < count turtles]
          [  if link-neighbor? turtle i
' J0 X1 X! S4 F5 M                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
/ S& E8 y  y" W& ~% A: n                        ]
            set i i + 1
' w2 @% y. z3 F% `( G+ {        ]
7 }" t0 i$ n+ @; v  u0 A" Q9 [     set j j + 1
. z# S5 P3 M* ^8 y  ]
' t& F: ~" d9 E  `- U' ?# r  set average-path-length nodedistance / (linknumber * 2)
end