网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
, H' e! r, o+ K9 v6 h如何求它的平均节点距离
9 F0 z! Z% R2 U+ m" ^- e' y" Z即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
% C7 s, `; d; B. | [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 r* R5 C3 m% o% }8 E+ j     set linknumber (linknumber + count [link-neighbors] of turtle i)]
/ V' z2 n) o! Q, ? if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
0 k9 N! E' r) T1 u6 p1 \8 t  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
! M/ H" R  O. k2 D( z5 x% y* r. u因为特殊要求，这里的边的长度是二维座标内的空间距离
" w- Y6 k5 O/ ?. w  c" w' u% |& m2 z
: }) Z7 P$ `) wto find-distance
9 C  d8 f6 p) d& n2 o: t5 ]  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
: ^5 C% I7 h  z4 C/ T5 i  
0 N8 O! n7 z: W% C   while [j < count turtles]
4 D, E- Q" }; S, X/ F   [
% `  P0 j0 S& k       while [i < count turtles]
$ U' \5 Z* |8 {0 M2 x: G          [  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]
0 J7 F! k! C, D/ {/ u                        ]
/ {" D/ P+ V- y            set i i + 1
        ]
( e* Y4 r- O1 q7 t* v2 d     set j j + 1
/ @* Q: ?& y3 F; z  ]
  set average-path-length nodedistance / (linknumber * 2)
/ A7 Z( S5 U2 O1 lend