网络边的平均距离

qy987

请教在netlogo中
! d: F8 ^- {  E! m) A对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 E; n# g( M2 |) p请达人帮我指出错误好改进

' d4 @1 f$ g9 Oto find-distance
( L! K0 L6 q6 W2 m3 p6 }. R" D1 o  let i 0
" Q2 s+ q, x9 G  let nodedistance 0
  let linknumber 0
: a+ M+ F3 S% V  K  while [i < count turtles]
; B; m& `1 f! L9 V* y' Q2 V& t [
+ P2 F  h$ q0 N& D5 \; `6 K7 Y  j& e- U if link-neighbor? turtle i
8 o: f- ^$ @* v! o+ c. A    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
' A  H) J# f4 E- @" }     set linknumber (linknumber + count [link-neighbors] of turtle i)]
; v4 l. q* {4 L' b/ B6 n  Z if linknumber != 0
, N: \& u: L2 O  [
  set average-node-distance (nodedistance / linknumber)
  ]
, a" F% q% L' C) p! N9 N: Z4 F7 b  set i i + 1
8 M8 c, x% R# o$ z  ]
end
/ n' j( y/ Y# c9 Z. k
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
% n- \& {4 O6 a% J7 @9 Z因为特殊要求，这里的边的长度是二维座标内的空间距离
) Q  @( g0 y2 c8 L2 ]0 g3 A
4 x9 g- T2 g0 G6 Q5 zto find-distance
( X0 P' g, [( v2 |  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
/ E2 q: K; R* T+ w6 p; k  
, S6 L; i0 w  j* N# K* G" D   while [j < count turtles]
: A' h* n. e/ D- R* ]3 e   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
+ t# ~% R! P; `* h1 S                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 g. a; _# A) a* i" J& N2 U                        ]
            set i i + 1
        ]
; R* @* {! G6 K/ f     set j j + 1
9 ^( X* f) q; c7 p& A* v  ]
  set average-path-length nodedistance / (linknumber * 2)
end