网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
& s% H) y- @$ _' \$ c如何求它的平均节点距离
* c4 ?: ?" L0 l0 H即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
( Y6 k" Y7 i2 Q
to find-distance
  let i 0
  let nodedistance 0
% s3 Q9 t8 T- q! Q  let linknumber 0
  while [i < count turtles]
( A) _5 W0 q3 `3 D3 G [
2 J- G8 s9 r. M, N' \5 t; C. Z if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
2 [/ ^" _9 Y% f) e  [
, P; ^3 i: P3 D/ A  P2 L  set average-node-distance (nodedistance / linknumber)
0 M6 F5 T0 V/ I! ?  ]
: U! x7 v; V5 `& [- b7 f  set i i + 1
  ]
end

3 X$ L3 `# H' U+ t; v: l[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
% r( l$ z& q3 ]" I
6 b" R/ w  ]' Wto find-distance
+ v! K7 B! B% F! ^! r4 P  N( c. U  let i 0
  let j 0
' }, ]. i9 m; T* y  let nodedistance 0
! M) h2 I, R' E$ Y" n2 ~  let linknumber 0
  
   while [j < count turtles]
0 E; P; w. J4 h- o5 T   [
7 C) w. |3 y6 Z7 f8 [5 O& N% r* L7 ^       while [i < count turtles]
$ L: F! }9 s4 K4 _. K/ P9 [3 `          [  if link-neighbor? turtle i
, g# a1 t& H. U; J                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
3 ~" J$ d9 a4 s, J2 ]: f" L                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
* I# T* m; P5 h/ f# N     set j j + 1
0 N* K; j0 k1 F3 m  ]
! y% |' \7 v9 a, ^  set average-path-length nodedistance / (linknumber * 2)
  x- V$ A! l& U0 N+ aend