网络边的平均距离

qy987

请教在netlogo中
" }; k2 q) r( L" l1 h1 p对于一个非完全连接的网络
# _. [" D, ^/ j5 a3 }* N如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
' Q; G3 x/ L& B$ c, w! d  Y* s  B请达人帮我指出错误好改进
: Q9 i: S. V4 J9 n
to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
$ z7 ~/ S9 B4 [' Y4 O1 Q     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
# ?' A% r- c' ~# g' }& a/ m9 J  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
* c  }) R0 w2 \$ }( }  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
" {4 h; U' t8 {8 s: z' e因为特殊要求，这里的边的长度是二维座标内的空间距离

' @( `8 r, B" K0 v* ^to find-distance
. j' W: \/ _( d% Q  let i 0
% f5 }8 ?" ]: x/ q- Q% c2 Q  let j 0
  let nodedistance 0
1 N8 r# W' ^: o7 D  let linknumber 0
  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
4 ?% U8 D5 k3 ^7 H! ^/ v. X                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
5 B- j) S& Q7 ?7 y1 a. L                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 ~  g. k5 O6 q4 u                        ]
6 X+ v7 Z" D6 T6 K- b7 _* h( B            set i i + 1
        ]
! [# m# Z$ W9 v4 z     set j j + 1
  ]
6 B1 h, D8 Y4 l  set average-path-length nodedistance / (linknumber * 2)
6 N9 R- E/ H  }  S2 b. S1 x3 [end