网络边的平均距离

qy987

请教在netlogo中
% l% g3 W0 _& a9 {7 I# O0 v对于一个非完全连接的网络
如何求它的平均节点距离
/ k- g0 t. d/ K& E0 B# @( @即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
7 P4 g3 w3 p( x  M9 Q# }# B  let nodedistance 0
  v, L! Y" l; L+ U6 x1 `& Z  let linknumber 0
  while [i < count turtles]
/ T% M! \( J- ^2 T3 i [
" ], ]2 m$ ]' A+ C) n if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 h# v4 U! @- G8 ^2 }, a* ]6 E7 X     set linknumber (linknumber + count [link-neighbors] of turtle i)]
% O$ P& ?& P8 K8 ?" A4 \. ` if linknumber != 0
  [
8 {9 v& L' u0 f" d/ C( I  set average-node-distance (nodedistance / linknumber)
  ]
+ J8 ?6 @, {5 ?( N  set i i + 1
+ W/ r$ K# `, n9 @  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
% i$ _- B0 {% m9 |  Z4 T3 L因为特殊要求，这里的边的长度是二维座标内的空间距离
6 E6 ^, K) o  f2 j9 ]! p% Q8 @
0 T- q1 `- ~8 l; dto find-distance
  let i 0
  let j 0
: l7 f8 e. v/ I1 B6 F* N' V  let nodedistance 0
* f/ F1 {* ~( j$ }- v+ ^  let linknumber 0
4 U0 B( ^' j8 _1 [$ l. }% v( c) q7 O  
9 l/ `, Z, m4 c8 M4 h$ W% Q   while [j < count turtles]
  H  d  j2 k- x) _   [
       while [i < count turtles]
2 Q: [  B7 V! g( _3 l8 F          [  if link-neighbor? turtle i
. @8 H2 O2 z5 @, r( G                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
# C5 ?5 E( \8 I2 R# B                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
3 W+ j) l3 S* w) b8 Y  ]
  set average-path-length nodedistance / (linknumber * 2)
end