网络边的平均距离

qy987

请教在netlogo中
, l+ K" J+ t/ w3 B3 Q, ]对于一个非完全连接的网络
如何求它的平均节点距离
- }. \5 R0 h5 Q  S3 B即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
" Z) Z- N: d& ~" }1 r9 t8 \* C请达人帮我指出错误好改进

to find-distance
- \" f- n5 f1 ^* h  let i 0
( Y" w. E+ n# x  let nodedistance 0
  let linknumber 0
9 g$ J, D+ y$ \. R" e- P1 y9 {  while [i < count turtles]
$ ~6 J( I- j9 t& N& ~' y [
if link-neighbor? turtle i
" ]- ?+ t: h: e& z2 S/ ~2 }    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
" i6 T( z! [+ U8 K  set average-node-distance (nodedistance / linknumber)
  ]
" S3 S. t& T  W5 q) d3 V) W' v  `  set i i + 1
  ]
) J& A) a6 B( ~1 V$ F8 _+ M  gend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
0 l* Y, Q9 B+ ^
0 y6 k! H  y" _! f  zto find-distance
4 N+ B5 I. g, z- U  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
* d8 F, q  _& L   while [j < count turtles]
* L8 |. b0 n9 z; r4 j   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
* Y( o1 t3 u1 |2 E$ j     set j j + 1
5 _( l+ O+ G; g* j2 X. O  ]
  set average-path-length nodedistance / (linknumber * 2)
end