网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
: A3 Y! k( k/ u! b8 u请达人帮我指出错误好改进

# V8 Z# h# F6 tto find-distance
  let i 0
  let nodedistance 0
5 U& U- W7 m+ l2 [  let linknumber 0
7 Z  k# F. b( K. e, {+ O2 d, y  while [i < count turtles]
[
8 c' A" Q( J; Z7 o if link-neighbor? turtle i
- a; H5 ^9 F& d& X, p& g    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
4 U3 J& h" h# A" b) o4 e, C  [
  set average-node-distance (nodedistance / linknumber)
& M4 i, c% a) ~) q  ]
4 E# ^( D4 E3 V4 a$ d  set i i + 1
/ ~( ^7 l( i) `& B& }; n  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
# `: T: l9 |( z: ~. S( J  L
to find-distance
  let i 0
" A8 u6 ~, c' e6 B! q4 z& a# l  let j 0
& g: s: u1 O, @9 |/ i4 W  let nodedistance 0
& Q: E0 ?3 ~- P5 X5 V  let linknumber 0
  
8 D0 [1 K, C0 I   while [j < count turtles]
   [
       while [i < count turtles]
3 a( P' D; b& Q9 ^: w          [  if link-neighbor? turtle i
: i/ \4 ]' l% o7 I                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
: @' i& t: ?+ ^                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 L7 J: u6 W- ~$ J9 t6 Z                        ]
9 Z/ O4 [6 _4 ~! q            set i i + 1
4 h" p, T3 d& v8 e1 k$ l        ]
8 M1 _6 L8 ?" g+ H) v. I     set j j + 1
  ]
) H9 ]( {) r  N1 x9 p: w  set average-path-length nodedistance / (linknumber * 2)
end