网络边的平均距离

qy987

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

qy987

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

" T1 X2 p5 K  Zto find-distance
  let i 0
  let nodedistance 0
- _9 {) C4 r% ]/ x  let linknumber 0
  N$ d+ t9 N) f- I' s  while [i < count turtles]
5 g) f3 D3 V- q. [ [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
7 v1 X, C, c& B2 E     set linknumber (linknumber + count [link-neighbors] of turtle i)]
+ F* D3 ~& \) H7 g- [ if linknumber != 0
  [
% C, e  a  x% S( j  set average-node-distance (nodedistance / linknumber)
  ]
7 Q  k- o! \' ]0 H% h) [2 X  set i i + 1
1 j. q# F) o$ S' B& Z: U  ]
end
7 @3 g/ U3 s3 \# J: d; S
" l- q( c" C1 m( F[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
: Q( W) u8 N& q* J  l0 R9 [$ P
to find-distance
  let i 0
/ E0 w9 E' S0 U6 o/ Q! O  let j 0
1 l5 H) y  F) T2 b3 b  let nodedistance 0
  let linknumber 0
1 F- G- @+ x7 [' G- a6 Z+ N  
   while [j < count turtles]
   [
+ b/ Z7 ^0 V5 V  o       while [i < count turtles]
2 H. }+ F3 [* P' _; O          [  if link-neighbor? turtle i
3 ]; m% G; E3 [( C* O/ p. S) R) C) i                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
$ W8 q2 h, W' t8 G+ x1 ]7 g                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
# Q) S! N# E% G2 l     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
1 O* \% c# y2 Aend