网络边的平均距离

qy987

请教在netlogo中
# `/ r( E6 ]8 N1 {8 x6 s5 d对于一个非完全连接的网络
2 w' g/ n$ R6 R9 ~# ~, Z如何求它的平均节点距离
# N9 f, }/ b8 c  ^! X4 T6 v% f即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

" ]+ ?/ D" n4 o" X' p# bto find-distance
- Y5 n* c6 y" `; |& C1 J  let i 0
  let nodedistance 0
5 F+ [( t, ~8 w# e3 B7 {5 e  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ I9 S) k6 C% D7 a9 o     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
! V7 P7 h  `8 o& v5 I. s0 o  [
( P/ ~3 U. D  p, @8 ^5 [9 \  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end
% M5 N" {" |. L8 \' }3 Y9 _
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
7 w. Y) p1 }- y7 a& @$ P1 H* W; f因为特殊要求，这里的边的长度是二维座标内的空间距离
. _- `3 S1 b) V' F3 F" C
: e. n; x% R& P4 Eto find-distance
* \" n7 m, V( h$ U; ~# ^& v8 Y  let i 0
  let j 0
& K7 Q$ [2 }- r9 Z  let nodedistance 0
! [8 O, M/ o( C; N" k. Z  let linknumber 0
  
5 y2 D. I6 _, {' d   while [j < count turtles]
* S$ p. }" w9 Y& b- |' B/ Y   [
- m- s& H5 O9 ]- A& c" z$ p       while [i < count turtles]
          [  if link-neighbor? turtle i
, M" a0 G: ^' {: ?0 m                        [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
4 C: B8 H; i9 E0 B) K( W        ]
! \7 y4 ]0 Q8 r     set j j + 1
9 h# w# h5 z4 G# D, r, K4 p7 H0 N+ m  ]
, K8 E( e6 [1 w5 O) [  set average-path-length nodedistance / (linknumber * 2)
end