网络边的平均距离

qy987

请教在netlogo中
1 b. \( Z/ D! n0 p- }对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
$ D. f% e5 i% n, t请达人帮我指出错误好改进
2 I* s4 x. A- w* ?' A1 V9 K
: t. ]; t, h1 }  n3 k7 G! a0 }to find-distance
- s" P3 O+ C8 v$ z/ O, n  let i 0
3 A8 h, q) y1 B  let nodedistance 0
7 ]8 X; q- ^5 E( ^) @  let linknumber 0
8 E) D$ T9 i. A' o  while [i < count turtles]
" H- E' T7 l% a% H7 r5 k# J [
6 A' q' u% l/ k; d+ c if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
% n( ?  I* P0 r2 w if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
0 I8 v5 ]1 X& b( ?6 x/ K  ]
  set i i + 1
  ]
end
8 b; o1 t; Y' Q
3 _/ Y0 E  y$ X[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
$ f. A& B4 ^. Q3 u4 e8 _因为特殊要求，这里的边的长度是二维座标内的空间距离
2 J4 u  r, Q3 f- D$ I
to find-distance
; ?0 }, u9 r4 q  let i 0
: _4 L: n  t7 T' I$ N  let j 0
3 v% z) _! f) X. k' Z  let nodedistance 0
  let linknumber 0
" d& K& j; U7 Q1 x  
6 c# k' z3 J3 b9 ^" I" X! Z/ r   while [j < count turtles]
   [
$ [" E6 N6 U& G/ m$ y       while [i < count turtles]
( Z9 j' R( s4 p. l& @6 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]
                        ]
* T) d# O/ }/ I! o* v            set i i + 1
        ]
     set j j + 1
  ]
# m* U' n* n3 w% w2 u  set average-path-length nodedistance / (linknumber * 2)
end