网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
5 Y/ ?0 H) Q+ W' @% I如何求它的平均节点距离
" k- D4 P+ h6 f+ @8 h6 U即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 L( I* X  }6 H- M" g$ @! V请达人帮我指出错误好改进
" u% |% b! J9 R
to find-distance
$ b5 ]; [8 N7 g' |( l  let i 0
6 f: n% x: l1 W& x7 q; t  let nodedistance 0
  let linknumber 0
) E- h$ K* i' Y5 D  P6 M6 p  while [i < count turtles]
[
) y6 Z# u5 W) h# ?( J: D" h if link-neighbor? turtle i
" r7 y3 @8 L) T& f% T3 w    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
) a/ c( a; B+ k     set linknumber (linknumber + count [link-neighbors] of turtle i)]
- S  X1 U. S+ ~7 D; t if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
) |3 b) I5 o+ y; R$ u# s  ]
# M8 ^( ~& V- c  n% i9 S  set i i + 1
  ]
1 o& g: k& o3 p$ o1 T0 W" C3 zend

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

qy987

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

- g9 Y1 S; ]: {' [to find-distance
8 q9 @' v& T4 z# k  let i 0
! x& n1 ~0 K) q  let j 0
8 s; S" _7 q- k- o5 Z  let nodedistance 0
  g* }/ }" H  b: P  let linknumber 0
9 U. W+ c+ T' I# b  
, p! g" Q8 s, Q/ v5 R  B% G   while [j < count turtles]
   [
, d* |2 Z- _! Y: e" C& U. p- s) U       while [i < count turtles]
' t# C4 T4 n6 ^, h) y3 q          [  if link-neighbor? turtle i
/ t* x% A0 P& C1 Y4 G8 F8 o                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
. H! S7 K+ u7 T) k2 I$ h. ]1 O                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
# r, y1 C1 a0 x4 m' w                        ]
5 |. s" O2 ~+ I            set i i + 1
0 |( \& K) P6 ^6 M        ]
, q, M1 z# ^2 o; Z9 j. o     set j j + 1
+ {+ i- O- e4 u* x6 D' ?$ t  ]
8 ]; r( f7 }7 h" |* R7 p, ?  set average-path-length nodedistance / (linknumber * 2)
) }2 H; j/ A# Mend