网络边的平均距离

qy987

请教在netlogo中
" v/ M1 ~6 z% @# l2 f对于一个非完全连接的网络
如何求它的平均节点距离
( N7 r* {5 R- m' {! U) H1 ~即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
/ @; }  U: [# c5 |+ B: c. {' X  let i 0
/ o& v" ]% a+ C9 b) K  let nodedistance 0
  let linknumber 0
, o2 P  o4 h+ {6 @- @% B! P% E3 u# ?  while [i < count turtles]
4 `4 c4 Y' v& G [
* b; K$ v4 `& I. z4 B5 n4 Q5 k8 r if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
6 ~3 _) Q! ]; C$ P- ~' E! P0 o  set average-node-distance (nodedistance / linknumber)
! j/ C1 n, w$ g( M  ]
+ B+ k0 C& N) y6 x# u, h$ e2 t  set i i + 1
  ]
end

# o( f: f- x- \5 b[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
3 l7 r3 ^& R' f5 m! V% c4 M# X
to find-distance
; P: L1 y! Y) V' G. A1 Y& L  let i 0
  let j 0
  let nodedistance 0
$ Z+ l2 Q4 [2 V0 S  let linknumber 0
( x# Q1 w! x( O0 H2 ~  z2 l  
   while [j < count turtles]
7 x0 x& O& x  V: ^   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
( z' h$ \8 }6 |: p                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
; i5 C6 v, Y: L9 |        ]
     set j j + 1
3 \. K4 K$ n( F# s+ h" B  ]
  set average-path-length nodedistance / (linknumber * 2)
end