网络边的平均距离

qy987

请教在netlogo中
* X9 N5 Z2 N* G- `: o) b* k对于一个非完全连接的网络
如何求它的平均节点距离
) v- w) y% X- C- _) h% i# O5 K4 P即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
1 j0 {6 r4 d' D8 q2 j5 E% W1 i请达人帮我指出错误好改进
' Y: \) F2 b7 N
4 \3 z/ E: e9 S. N5 ]" e7 l( Eto find-distance
$ q/ N2 @' q1 j6 Y$ G. i7 o  let i 0
  let nodedistance 0
: X* Q8 N4 ~5 _& c: l  let linknumber 0
  while [i < count turtles]
[
: z7 d; l1 \6 {! ?3 d2 F+ D7 A if link-neighbor? turtle i
9 O& d+ i7 G! d: [$ m0 D8 ~7 A    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
8 I/ X) w- i2 O2 I% [  {     set linknumber (linknumber + count [link-neighbors] of turtle i)]
% S5 h# R* ~: L$ L( N9 [ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
0 l' p* N! O$ A. u) B$ n4 H  set i i + 1
+ D+ J9 {& p; w  ]
end

# m- T* i3 L! L+ l[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
1 e' k5 w0 n4 T. q' e% c因为特殊要求，这里的边的长度是二维座标内的空间距离
, F! g' B% w+ t% K
to find-distance
  let i 0
* |. ^( O. [- V0 s  let j 0
. E2 o2 M/ k' B0 R  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
4 o$ K& y. W* V2 d$ Z' h+ W6 I# N   [
1 R! G- J5 o6 H( ^       while [i < count turtles]
          [  if link-neighbor? turtle i
( D0 O' q2 z4 i) M- M' Q* }                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
* |* P! m- B" V& n# Q" V# g- N                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
3 M: Y$ D+ f3 ?" Y* g( k) G  ]
  set average-path-length nodedistance / (linknumber * 2)
9 o+ T1 l7 ^. B( s) i, O( oend