网络边的平均距离

qy987

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

qy987

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

) j# Z+ l0 B6 I5 h, eto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
# D' ?& ]) A' u3 Y: B  while [i < count turtles]
& _; d- k, m; W" o$ ~ [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
/ k  w: v% M7 B7 |+ V2 ` if linknumber != 0
* L( }6 L6 ]# _0 n  z  [
8 B( V0 ]& l) V  set average-node-distance (nodedistance / linknumber)
' B6 |3 F1 U1 N0 B; _" y  p$ }  ]
  set i i + 1
! @1 [  z0 f1 Y$ u/ v  ]
end
: W, T. p8 q$ Z- {
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
  o$ x; O+ }7 s6 J: W1 L. B因为特殊要求，这里的边的长度是二维座标内的空间距离
7 t, h% V2 {6 E6 Z0 |
to find-distance
  let i 0
  z- j' r' |! A8 @3 H  let j 0
- y9 e' z: `7 q  B- b0 T  let nodedistance 0
3 w* U' M/ z" \3 E+ Y  let linknumber 0
$ P' y# m3 `; }+ r4 l8 ?8 T  
   while [j < count turtles]
   [
9 }  K1 I3 P% s4 Z( e       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
  a* ]( ^, r8 _6 o        ]
) P7 `+ d2 Q0 b  W     set j j + 1
; ~/ E; D" c( S, m/ F4 L  ]
  set average-path-length nodedistance / (linknumber * 2)
end