网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
& g4 [6 E1 S- T, g如何求它的平均节点距离
+ p# R( p, _  O即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
$ L' D/ t% o' W; x, N/ J) r请达人帮我指出错误好改进

to find-distance
' u) }) b% B8 A" |  let i 0
' a( E7 j) w/ V% s, A3 Y) r  let nodedistance 0
% b2 P% q! {0 l) T: g- y  let linknumber 0
# M+ I* F, G! {  while [i < count turtles]
[
' p9 t0 H  m- P0 M# [* [( ] if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 R! Z7 I3 n$ i- H# u6 i     set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 E7 ?/ Y' K5 C6 D/ I2 G, C" }, K if linknumber != 0
. k) n4 @; b! h4 C  [
+ U6 T' m+ c$ e7 T  set average-node-distance (nodedistance / linknumber)
* Q- ~8 p1 s, ~2 ]$ R6 A  ]
  set i i + 1
. d$ s) S( N/ Z. {) ~# t* F8 f  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
3 y- F( o; o. i. F- t因为特殊要求，这里的边的长度是二维座标内的空间距离

4 R" Q3 X* n  a  j- u  ^* l$ ~to find-distance
! n6 e+ j$ @+ u1 E% m- i  let i 0
  let j 0
! |" l- B; a+ S. `9 G: m  let nodedistance 0
  let linknumber 0
3 h# U% K$ Q, V* b5 W6 X* W  
   while [j < count turtles]
8 q8 a- k5 J! `7 A) ?/ W   [
       while [i < count turtles]
. Y4 X2 K) \) f* }% E1 a          [  if link-neighbor? turtle i
) l  z! \- S6 L                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
& Z6 \( J( H; F4 S* m7 j7 {2 d                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
% u# h. @# z3 [6 J. z  @; {# e                        ]
            set i i + 1
, I. P7 |. l9 m" Q* p4 K& `3 F        ]
     set j j + 1
; c3 r/ @0 N3 A" s4 @  ]
  set average-path-length nodedistance / (linknumber * 2)
4 |; j; v9 {3 p4 Wend