网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
' ^- L3 y% w# f1 {2 q5 j5 `如何求它的平均节点距离
6 l( g3 r+ V; k  Q- g即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

0 G9 U' _; d4 f3 E/ c/ y" fto find-distance
1 o1 {" }4 B2 P8 U, c/ g. u- j  let i 0
  let nodedistance 0
, ~" C% z9 C4 `! Q6 ], p  let linknumber 0
  while [i < count turtles]
% b& X! b: l* q/ p( b: u6 J [
( x) D% d# p" m; P+ V if link-neighbor? turtle i
6 z4 ^# j' E. w& P- O    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
! ~# d. T* ]5 z+ r6 @  _& U     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
4 f8 a& R  v9 y  t5 D  set i i + 1
, h) a, X7 e8 t( ^8 l- M( ?  ]
0 L# _) v( L0 s: W: T6 K& Lend
% Y8 B9 o& P4 F+ w3 _* G
- c8 l$ x3 n/ i[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
+ J  r" z) ?+ C7 n! ~) Q因为特殊要求，这里的边的长度是二维座标内的空间距离
. ^% B3 z/ Z. W( T1 I
to find-distance
  let i 0
( g( b( u3 l4 C. v% l  let j 0
  let nodedistance 0
  let linknumber 0
5 T( n/ x0 e; w5 x+ x  
   while [j < count turtles]
3 T6 l0 [" Z; B   [
* ]7 u' S8 I& C/ Q/ |* X/ P       while [i < count turtles]
4 C" f4 b) [/ |' U9 Y! x7 N          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
# @) a2 H: G5 [/ b. ?                        ]
            set i i + 1
        ]
     set j j + 1
# M. z$ g) a- e5 b6 V% U' R  ]
  set average-path-length nodedistance / (linknumber * 2)
$ `0 E1 l+ }" gend