网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
7 d9 q" [: \5 F/ W/ Y8 p如何求它的平均节点距离
+ b0 v3 @5 `4 p( i9 b即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
: {4 P" w/ {' h* }3 t请达人帮我指出错误好改进
6 k( i! ^+ r) c; [, C9 R$ f/ g
to find-distance
  let i 0
& R( e3 H- ^. G. ~+ l8 t. c; `5 `/ \8 Q  let nodedistance 0
) P1 q% S5 I$ |' \( I  `& a  let linknumber 0
1 P  C& ]2 m9 i/ q% k  while [i < count turtles]
[
if link-neighbor? turtle i
2 q3 X, E7 K6 J' y. G    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
0 ^0 N4 R& A% i" F, t% i  ]
  set i i + 1
! ~# \" w' W9 _9 c- N+ z) h0 j8 d  ]
7 Z( H: s) v' U  \# E9 T: ~9 {end
( m! G0 @! C( X! o1 y
+ @' ?, }& b" T5 `: }8 G, d8 K[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
/ ~! m: K) t- Z1 R/ a因为特殊要求，这里的边的长度是二维座标内的空间距离
2 X  G: \9 M$ B( \# P& f9 \- V7 |7 V
1 l( d  Y* d8 i( i1 `* R9 }" ~7 Hto find-distance
  let i 0
  let j 0
/ W; K( W* t$ a  @3 n; {  let nodedistance 0
  let linknumber 0
0 S8 A1 [9 O9 v- h, E) h: i  
1 X* f3 v  u' M5 J7 e   while [j < count turtles]
   [
       while [i < count turtles]
8 T+ [9 Y( x$ r$ I          [  if link-neighbor? turtle i
9 _" |( N3 ~! d9 y: f! Z. J+ d                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
. d! y5 s6 U/ c; d: g) e- C                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
: g$ p0 ?; g) ^7 A. B; f            set i i + 1
        ]
     set j j + 1
5 P' l& I0 a. A2 t, H* f  ]
  set average-path-length nodedistance / (linknumber * 2)
end