网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
# n2 N" Y3 s* }; F  N; @即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* k  a; Y. ~8 M: ^- G" Q: w$ e7 Y请达人帮我指出错误好改进

; Y1 F4 L6 t( kto find-distance
; ]" t' v! j% T: h  let i 0
( ~& O+ ?4 S% ^3 M- E% I  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
! h# k$ z# Y5 Y7 c if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
- {8 Q6 J$ C' }3 D4 T: {+ N     set linknumber (linknumber + count [link-neighbors] of turtle i)]
6 s' e4 o/ H% ~4 Q! ]/ b if linknumber != 0
1 o5 s) a, H+ c  l- e& ~  [
  set average-node-distance (nodedistance / linknumber)
+ Y6 x% s% f5 D0 \6 x+ w3 ]  ]
" s- G6 N" T0 f. C8 H9 g  Z  set i i + 1
  ]
end

0 s" l+ O' B8 B[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
# L% F7 U" T4 _1 g+ B因为特殊要求，这里的边的长度是二维座标内的空间距离
0 r# e3 P! j# K3 A0 Y
to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
0 j% K: f" C" E3 n7 t- _5 @  
5 ]" M8 G' l8 }( u& O/ W   while [j < count turtles]
: E$ h5 r6 k8 \) u0 O  y2 E/ X: n   [
/ v3 e( X* Q: G$ _       while [i < count turtles]
5 [' E- I3 l1 E  |9 y1 y" ~          [  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]
: I7 u. n% H: ^& r) y                        ]
            set i i + 1
        ]
     set j j + 1
- v0 C% b" E% u# n" O  ]
  set average-path-length nodedistance / (linknumber * 2)
) b: W$ j- H& j8 Iend