网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
9 g0 |- J+ v2 h$ \即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  x/ y$ p) ?. i% H1 |* D2 d  let i 0
* v& U8 V+ d0 _: J  let nodedistance 0
  let linknumber 0
5 |, l9 v3 q8 z6 l! r  while [i < count turtles]
0 J3 G! L; j' D: Y [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
8 e# L) C) x2 T  [
7 c9 O9 A* V; I! |  set average-node-distance (nodedistance / linknumber)
0 A+ q# N3 C7 P  h+ O! p. u  ]
; p. O- Q9 A/ a  set i i + 1
  ]
end

& o, H& Q; o: e% U+ ?  e% U[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

5 G6 p+ v# m, \8 J* qto find-distance
  let i 0
  let j 0
- v; `9 N5 Y  o2 W& L4 s8 J% \$ c  let nodedistance 0
  let linknumber 0
: G+ Z+ S1 T/ C  
8 w) o: h3 y9 B. J, f   while [j < count turtles]
( v, k9 ^7 a5 T   [
' t9 I, n0 A% j7 f- u: q       while [i < count turtles]
) {6 u- n  O( O, d7 t( y7 R% Z" G& \          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
8 T: v# Q9 X$ O                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
; ]: p9 G4 [2 s' v% m( z  y                        ]
            set i i + 1
        ]
. L/ i* b; @2 s- n( M. d+ ?% Z" a7 s     set j j + 1
. v- T+ w2 ?9 C7 o! ], j' J3 [( x  ]
) _' z  d" L) e. r' ]# O1 a, o. H  set average-path-length nodedistance / (linknumber * 2)
end