网络边的平均距离

qy987

请教在netlogo中
2 u. s% M' i1 _- i" {对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
0 t' P+ j2 y4 i, t, ~" w) @3 f% X; a请达人帮我指出错误好改进

6 q1 X. y( A% r' kto find-distance
! ~! @9 c8 d$ C- v! Z  let i 0
7 d( B9 D3 {. \3 w  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
, e2 B! m0 {3 a4 t3 Q0 o; ~7 j [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
4 z. O+ o# R- g. P0 c6 z if linknumber != 0
/ E8 n8 s2 w. j/ c  b  [
9 b" x: G: O) \" `5 [& a; K  set average-node-distance (nodedistance / linknumber)
  m! [$ L) p. _  ]
  set i i + 1
% H! s3 i, n4 D& s5 _  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
  W6 ~- d8 P; R1 w因为特殊要求，这里的边的长度是二维座标内的空间距离
0 q1 h- {8 K& ?
to find-distance
5 k8 m' t! p3 z/ a8 ~! u  let i 0
7 H4 H3 J1 A' h8 H" I  let j 0
  let nodedistance 0
0 p* J( J: R" Y  let linknumber 0
  
2 Q2 r" b/ v# l2 H/ N) w  i/ ~   while [j < count turtles]
$ h9 L" q3 O+ `: l& _& {   [
       while [i < count turtles]
0 v7 k: i; L+ b5 C          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
9 x4 c1 P. A3 b  Q                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
9 D/ a+ g1 G0 [  H  ]
. J8 d& G$ l7 I8 y3 v+ f  set average-path-length nodedistance / (linknumber * 2)
7 j1 X$ e3 s1 d1 q2 W) S' I+ B/ Nend