网络边的平均距离

qy987

请教在netlogo中
+ w! }# D7 f- {1 W5 c  I对于一个非完全连接的网络
如何求它的平均节点距离
9 S' A' b& O- T9 ^* `: _5 W即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
/ r6 f5 `: y, z& q8 h+ A0 y7 w  I  let i 0
& [4 W, C6 E4 f/ D7 A/ R  let nodedistance 0
: l, G7 D5 C9 v# t( g  let linknumber 0
# b: T; |0 r2 s3 s) v: j  while [i < count turtles]
3 Y5 A9 M5 q& j- W [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
3 F; y% V$ v% t1 ^* Q* K$ H     set linknumber (linknumber + count [link-neighbors] of turtle i)]
5 K6 F$ ]$ q' W$ j- s4 U. v6 \ if linknumber != 0
. l+ s1 C# G  R2 [  [
  set average-node-distance (nodedistance / linknumber)
7 @  o" X8 e" t6 @  G  ]
0 I  V$ B% |  g% B  set i i + 1
4 \6 r6 [0 v4 {+ e; i. d0 L  ]
. o# g  [! v. I3 q5 cend

/ S! W3 y+ w. f* Q[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
0 j, ?$ C. c; M( w, Q  let i 0
  let j 0
9 p& s* n5 @2 c# e% r2 i  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
9 t( w9 w: ~4 G7 i  U, z" r   [
8 v/ h. P; h& m; f       while [i < count turtles]
          [  if link-neighbor? turtle i
: O5 j5 @6 |6 d6 _& w                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
# c0 f* ]! e* x8 t3 N8 g                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 d  T; Q  \+ B; v                        ]
            set i i + 1
$ d1 n: u! @) t6 h        ]
1 Y4 K: B, J6 M1 Z/ G+ {     set j j + 1
4 L  n( ]9 c4 }: x& c2 Q! C' q  ]
0 ?& m. J' ~: D4 w" N  d& b; E  set average-path-length nodedistance / (linknumber * 2)
end