网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
2 E7 k9 S$ a. k3 q& V$ ]% @如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

0 O6 p% W! k" f* [to find-distance
' A, o+ m, c  L6 h1 ]: {  let i 0
/ H: S: @3 @1 d, t, x. p; {! j  let nodedistance 0
. s0 }4 Z0 ?) h! ^9 `  let linknumber 0
$ Q& }$ F" ^& |, j6 G  while [i < count turtles]
2 \. o! }% P- ?: x7 C4 z2 R6 W) h [
if link-neighbor? turtle i
* D, Q. t6 v( s/ F% l" ?; {5 X9 Y: J    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
+ f( }. u4 ?4 L" K) s% h" C& d  [
  set average-node-distance (nodedistance / linknumber)
8 Q+ U$ B) q! g- N) ^3 R# y  ]
  set i i + 1
( [" K3 L' J) k! o# x  ]
end
7 ~1 s* a0 ~* _) K
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
- C, h0 D9 d" m3 O
! T( Y6 W% c  M& _& cto find-distance
7 z- s# x, w# N  let i 0
  let j 0
! B) m( [) h2 E2 J* p8 G  let nodedistance 0
  let linknumber 0
) t, h  y; H3 H5 E; @  
6 Q% S) t( ~& ^   while [j < count turtles]
   [
' P  ]5 o5 H5 B: P       while [i < count turtles]
          [  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]
% g# H2 \1 m+ b                        ]
/ F, A2 u; G. k2 R4 w8 n8 \$ b            set i i + 1
        ]
) k" {  T& y. C0 U  J2 a9 k! t% `! x' ?     set j j + 1
# ~( x5 Z/ d7 N+ o5 @, ^' V  ]
& I4 q* X- S* R8 c; [  set average-path-length nodedistance / (linknumber * 2)
end