网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
4 ]1 B" T4 z4 f( f! P, x如何求它的平均节点距离
' H7 `. x7 H9 {0 }; R" N. j即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
2 K# T! g' A+ W* T' P- L请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
2 g% j$ f% E- G1 [' g/ G2 [: d' G  while [i < count turtles]
; l; a+ g! v$ f; B- k4 Y1 ? [
* X4 i) U8 B0 U8 O7 h if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
0 u, g7 e: l4 f9 ]2 R     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
" T$ G" O, o/ U2 [& i6 E  [
  set average-node-distance (nodedistance / linknumber)
7 c5 d" B* i* ^) S5 U4 Y6 ~  ]
" b0 n7 o4 ]: m% K7 n  set i i + 1
! A, F! t0 U9 t% o& b4 R2 J  ]
end

: w1 t( p% R7 t! X9 b: {[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
& d# Q# `0 a5 J因为特殊要求，这里的边的长度是二维座标内的空间距离
3 L- i: V8 L# ^$ V& t% r
to find-distance
  let i 0
, A+ h5 _+ M3 f- R% Q; ^; ~3 \  let j 0
  let nodedistance 0
/ t! j# l$ C5 B5 ]3 F  let linknumber 0
  
   while [j < count turtles]
   [
: i* u5 C/ f0 i       while [i < count turtles]
# `+ L  B# @7 h! \% D* `2 e) d          [  if link-neighbor? turtle i
. |2 e* b6 J# D                        [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
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
1 u6 Z9 T& ~, m7 P' H5 Send