网络边的平均距离

qy987

请教在netlogo中
% r( Y* w# C3 r/ b) l' X对于一个非完全连接的网络
如何求它的平均节点距离
9 x" f1 |: z* V* a$ b7 b2 A% l即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

+ ?% ]/ v* n6 R& T5 l$ ]. wto find-distance
  let i 0
  let nodedistance 0
. I2 @/ r+ g" W' p5 p4 J/ h  let linknumber 0
  while [i < count turtles]
[
' }6 f: ~7 J1 w, [3 H. Y9 o if link-neighbor? turtle i
# C( b' h5 G, P  R' ?    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
4 A3 x) }9 F/ q! Z     set linknumber (linknumber + count [link-neighbors] of turtle i)]
0 r! j" q' y# l* R2 Y if linknumber != 0
  [
4 w3 g) w) Z1 B3 [  set average-node-distance (nodedistance / linknumber)
3 G6 t2 Y8 X: c1 G. v5 Z7 G6 Z  ]
  set i i + 1
  ]
end
2 C, y9 \; ]4 k: M0 F0 Y
3 T$ F& b2 ^- u& G  |9 B$ X% o$ r[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
2 `# |# x8 Q8 ^因为特殊要求，这里的边的长度是二维座标内的空间距离
, n) ?7 v) Z$ w( r
to find-distance
% `- z% D% t+ D9 C" i  let i 0
+ v1 P% g' P! P/ T: g0 r4 V, L  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
7 X9 }( e5 x% c  R% b       while [i < count turtles]
  ?1 f# U0 _) m9 \; d          [  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]
6 J. d( }0 V% ?$ Z! X                        ]
            set i i + 1
, r" R0 X+ H* X3 Y$ v        ]
     set j j + 1
  ]
' W5 m  I+ l6 r9 V  C  set average-path-length nodedistance / (linknumber * 2)
" B- k1 q! n4 Wend