网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
  g& r: P7 s3 s即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

2 r% D/ L" D  x  q7 xto find-distance
  let i 0
) [) r  ~6 i. t: Z! P: k  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
+ F) a, ]; d7 m1 I+ t, u4 z) R [
  R. J) h6 A: \5 [: X, K if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
) v$ x3 L! S8 r3 V6 x# E- Z- V  ]
  set i i + 1
- s4 C% D4 [2 z& g/ u  ]
! t# l4 E) V4 Fend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
  m+ t. E. l9 q+ y* a" h3 f
, F3 R9 p6 ~+ x0 ~to find-distance
$ h  a/ I% b& K( K$ `  let i 0
  G+ o- I; y" }  let j 0
) t, X! h9 R2 T$ u& z  let nodedistance 0
% j. Q$ F- q) g6 }  let linknumber 0
) u* t% H$ S% @4 f  
2 r% ^) Q& F, j; Y   while [j < count turtles]
   [
' G1 a) J4 b$ _8 n$ {  d       while [i < count turtles]
& r2 X; E$ |7 _  g$ ?! P          [  if link-neighbor? turtle i
& t! N/ U0 u$ y6 _( U                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
  g! o9 Q) ~  n. i- {                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
* W  v$ e4 i4 r            set i i + 1
( ]3 u2 R4 V+ o+ B        ]
9 Y! U: c3 ]4 P     set j j + 1
% f% a* H5 I, ?& @/ l& G5 @  ]
/ H7 ?2 W2 B( |9 s# c) {  set average-path-length nodedistance / (linknumber * 2)
; l# C. t) v  \4 W$ d, _end