网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
6 d8 e4 s) f" O9 g! }1 b即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
) T; k# e2 A" v- Q0 ~5 m请达人帮我指出错误好改进
" b& P  k4 }- v3 n; F" S  a
% I2 f! H  Q& Z  sto find-distance
  let i 0
/ |: S# Y4 |3 Y- r, W% x1 s* A! ~  let nodedistance 0
  let linknumber 0
( q4 Q7 X; I+ i; z4 ]2 N  while [i < count turtles]
[
if link-neighbor? turtle i
$ h* x5 D6 G2 H+ }) I    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
8 o: p# }- O6 w     set linknumber (linknumber + count [link-neighbors] of turtle i)]
8 [( `3 N, {) u" L' Q if linknumber != 0
+ C( p* G4 O) V8 j  [
& ~) F. q+ M. C. h- J# G  set average-node-distance (nodedistance / linknumber)
) j; ]4 E# M1 y2 s0 E$ V  ]
* D2 y' L7 X8 o' J1 O  set i i + 1
  ]
, w/ f* q! [/ r1 pend

# P; B  B* }# I# U! I0 q6 l[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
2 |( d3 ?) I$ Z/ _* r因为特殊要求，这里的边的长度是二维座标内的空间距离

) P/ W6 ^4 n, {to find-distance
/ L- P6 d5 j( T  let i 0
  let j 0
# {7 `, Z0 {. \3 u9 t/ m$ z  let nodedistance 0
  let linknumber 0
  
1 V2 L% U9 a& Z6 d5 u   while [j < count turtles]
   [
  s7 D8 q; g; W# a8 [9 R$ X# V       while [i < count turtles]
          [  if link-neighbor? turtle i
2 X. x; G: a; O$ D3 }% I- i                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
5 I4 E3 f' R7 t$ T9 Q; f            set i i + 1
1 ?" I- V) a5 f# ]' u        ]
) M# F4 {! G) ^) q+ l& J& B     set j j + 1
: T* _8 [* [3 Z  ]
5 [  G  @( W/ I7 F  set average-path-length nodedistance / (linknumber * 2)
* k# e& P) c) \# R$ n7 Uend