网络边的平均距离

qy987

请教在netlogo中
6 o( _8 g3 ^  q8 X对于一个非完全连接的网络
如何求它的平均节点距离
# }( V% c4 q  p% b即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
; d8 t6 w5 [& a) i. _3 o请达人帮我指出错误好改进
# c+ c; \( N5 @3 N
to find-distance
7 p+ Y9 l" [# x: d/ Q9 v: i# X  let i 0
' t9 K* M6 q3 w6 i4 p, ]  X  let nodedistance 0
  let linknumber 0
; {: e# N- d- J, `  while [i < count turtles]
[
if link-neighbor? turtle i
" v) X  |: n8 ~0 {    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
. }5 n4 ]9 g! l% S1 S     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
9 \! c' v& E: }. @) H/ n$ Q) [  set i i + 1
  ]
end
% M& h7 S# ~$ ^) e- R, Y+ ]: S( y/ W
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
3 u0 m+ z+ w- E  w3 R, y因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
: |: a2 y; R: C* ]6 ~8 ]6 H  let j 0
  let nodedistance 0
' m! [' ]; M+ {4 O$ [  let linknumber 0
  
   while [j < count turtles]
- T* T* t0 ~6 Y- \/ B' U- D   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
# y  |' c3 U5 S" d6 n8 Z* D                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
: ~6 Y: B% k2 h; W. i0 ^" ~- \0 m                        ]
" @" p* P% e5 v! h  @' F1 J4 E            set i i + 1
        ]
0 `! U: i, H( U( b' w9 K     set j j + 1
/ V8 L. a4 u9 @  ]
  set average-path-length nodedistance / (linknumber * 2)
end