网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
1 r/ |" H4 m! e( n9 F% y& G- t如何求它的平均节点距离
! v4 I# T& E+ W4 ?; ]' a即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
% s+ R, e( U/ S3 h0 V4 O& z* [请达人帮我指出错误好改进

6 |  j& ~/ i1 E/ t" m( G& sto find-distance
  let i 0
  let nodedistance 0
' t. {( j2 I4 F" a, N/ B( C  let linknumber 0
! l9 x1 N- T3 M+ D9 |4 d  while [i < count turtles]
[
9 l- I$ v5 U) V9 J3 a if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
* S# f4 n# g  i: w if linknumber != 0
( @; g, c  [9 h3 W$ _  [
. K4 a8 l% f9 S+ G  set average-node-distance (nodedistance / linknumber)
5 ^: W5 E5 u3 W) [, a  ]
0 X' L/ |9 ^( f6 B% \1 ~0 V$ l# u. n  set i i + 1
6 b+ W# R3 z0 P! ^! i  ]
& N, C0 I1 ^' e7 w+ yend

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

qy987

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

to find-distance
  let i 0
  let j 0
  let nodedistance 0
- D0 ]. t# |- ]( B1 h8 F9 g% ?  let linknumber 0
  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
3 Z* o* c: \: L4 ^                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
/ b* `; s6 \  A  U, T                        ]
            set i i + 1
        ]
     set j j + 1
( S/ w& U  G: L: h8 I  ]
' U+ q) G4 Q# O7 B$ i  ~  set average-path-length nodedistance / (linknumber * 2)
end