网络边的平均距离

qy987

请教在netlogo中
' ?% u1 {8 P7 K对于一个非完全连接的网络
' l# Y) e( r+ ?; H- }6 _& {: K如何求它的平均节点距离
) p7 |8 t% _  x/ ^$ r3 z, A+ \/ @即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
, B( I6 l1 k) q( j0 ^, L  let nodedistance 0
! y. T: k5 d# S% i( [/ p! [) f  let linknumber 0
* f8 c1 @& E% c7 [$ n! W. w  V  while [i < count turtles]
8 r: @% O! y* n2 h0 Z5 z; E [
: W7 T. g% |  ]$ I3 I4 W5 q3 l0 a2 g if link-neighbor? turtle i
* Z6 J% W+ H) P+ J$ |# C    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
* K2 P; j# W" `+ I     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
! C  i" m# Q9 J1 E  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  K5 T" D; Q" o. s5 G  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
" D: r; B! H+ W; f$ G4 N
to find-distance
7 F) t& b* G* H/ w6 G  let i 0
, ]5 Q, X) v* V4 f% L  let j 0
+ t& Z+ y% M! w* D; Z  let nodedistance 0
  let linknumber 0
5 f! T4 Y$ T* O/ y% @; f  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
- r) j5 I1 l* {  z9 ?                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
' U% y( j' Q! f7 e                        ]
            set i i + 1
6 V' |0 S0 S( x        ]
     set j j + 1
$ ?9 K' E7 [" z  ]
6 {; l. {- a6 |) q" E  set average-path-length nodedistance / (linknumber * 2)
end