网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
  k  I+ R2 J; @0 B% g' h6 y. a) N如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

( a4 P# I0 S1 j8 Y" i* [6 P. ?to find-distance
  let i 0
( m  \3 @6 v0 @  n. G# k  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
3 h% @4 Y# K) {+ ]* x9 n  g- [ [
' Z* Y! C, T7 t: s7 F' | if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
+ K4 W5 q4 R5 V, g& [     set linknumber (linknumber + count [link-neighbors] of turtle i)]
; K1 D% J8 g8 Z0 b$ B& m6 F" v0 V if linknumber != 0
6 N% l6 u1 e& c9 b  [
, d. ?5 u8 h# ~+ H8 @" M0 o  set average-node-distance (nodedistance / linknumber)
  ]
: @) f$ }$ v+ }8 Q% M% P  ]  set i i + 1
  ]
0 a' u$ e" Q( t  aend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
- e& n. S: L8 p0 L4 g& H6 E+ z
to find-distance
7 g& o% o) {0 \; |! p8 A5 F  let i 0
  let j 0
, u6 Y3 @+ F2 w  ]! v- M/ k" \  let nodedistance 0
  let linknumber 0
) Z8 m, N9 f) n( ?: p* E$ _  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
+ @. y. q" ?- @1 U: _* e1 n: G                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
) T( o, y8 v1 U4 s" r5 _                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
# T$ W2 u4 w- h     set j j + 1
  ]
2 S6 i+ o2 j! Z1 @/ G  set average-path-length nodedistance / (linknumber * 2)
+ O4 S. x) t, Y+ ]/ `end