网络边的平均距离

qy987

请教在netlogo中
1 L& S+ |! v% u  H" V对于一个非完全连接的网络
' S" M- n6 ^/ i* O) a: ?4 p8 C5 o如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
: @1 o& t& n! }% K9 E9 U% z
- l9 z7 s: a7 bto find-distance
8 d# ^1 Q, F' m: m# ~" J9 k  let i 0
7 @9 {: ~4 s2 J8 a- l  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
# R) |! H+ Q# d" p6 a' ~ [
) D5 G5 X6 G9 S0 B% H6 D& r if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
. D8 @, P. u- P4 k& F0 D: {5 R     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
& A4 J3 v& i& f% G" u  [
  set average-node-distance (nodedistance / linknumber)
7 I8 Z6 `7 b/ I2 F  ]
' g" t0 v6 u# z5 @0 R- H  set i i + 1
  ]
* V# _4 }# O6 m) I5 b6 ~6 Fend

) w! g4 I4 w5 q; d  T[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
" ]/ S; v6 ~1 y4 t  let i 0
  let j 0
  let nodedistance 0
, z7 Q% @% k$ H- V) c2 e  let linknumber 0
  
. Y- w1 M( u; V2 R& v2 I; n  y, D0 k   while [j < count turtles]
8 F8 |" b. m: c) C! V! F! F   [
       while [i < count turtles]
( y  x9 ?! c9 h0 v, ?          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
& e9 A1 a& z1 ^% T  i. o. U                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
" U& {! @' }- d- Y3 a' Z5 D                        ]
            set i i + 1
        ]
3 O6 {1 A# N1 g: i# y% `# C% m. a     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
& j. G( q4 O% A+ Fend