网络边的平均距离

qy987

请教在netlogo中
) U  r3 m" \$ F. T4 u: x9 ?对于一个非完全连接的网络
* M/ a7 P/ Q+ K) A: Q; n如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
7 E4 v8 U5 k6 [& q& B/ N% ?请达人帮我指出错误好改进
% x' \( R8 a+ C. D
to find-distance
  let i 0
$ A( N$ |8 q3 T; I5 h  D/ x( n  V  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
3 D& H; X9 u4 `5 k; k  ?     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
! S2 }- j3 f1 _3 o+ S. D  ]
  set i i + 1
; n7 U. i$ L( C8 v  ]
end

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

qy987

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

to find-distance
. t% H$ e, R2 }6 q! G' X/ [; g  let i 0
( P' m7 q! L( e" S7 Z% M' D5 [% r- P! f  let j 0
  let nodedistance 0
" f) z8 C4 M( t! l& K  let linknumber 0
  
+ e5 A+ z) d( F; B$ U6 f   while [j < count turtles]
2 b7 ~1 q* l) Y/ S" y3 W! t   [
! X8 ]& R% l7 f       while [i < count turtles]
          [  if link-neighbor? turtle i
* ?* M, k  k! t4 j8 o  H                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ l4 c' V* J) d$ M0 e! z                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
; |& H0 w' {2 u                        ]
            set i i + 1
        ]
- S7 m* n. R( N     set j j + 1
" w' ]5 n& k% B$ Z+ {- \  ]
  set average-path-length nodedistance / (linknumber * 2)
end