网络边的平均距离

qy987

请教在netlogo中
' U4 K( N) p4 `+ W7 P对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

7 c/ \) G3 q9 `" @! jto find-distance
  let i 0
  let nodedistance 0
( R9 G' V# J# G/ v  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
) X3 J( F- Y1 `2 F2 z9 \. }# f; I* V    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
' W& E+ G6 N  a1 T if linknumber != 0
  [
' @( V) E' T$ d) b$ o) L$ U6 p  set average-node-distance (nodedistance / linknumber)
% Q/ d- x3 e. v# M  ]
. l+ C: {3 ^" z" p* [+ j1 H  set i i + 1
" m# O3 n3 a/ S9 Q. Y3 }  ]
9 k9 I  i$ g: ]: o7 Hend
' \' ]" u' P4 J0 m
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
: j) S. d7 p/ _' T因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
# Y5 [' s0 t9 Z1 ?8 s  let j 0
  let nodedistance 0
  let linknumber 0
4 h# g! ]1 {  B3 P  
   while [j < count turtles]
' N+ }5 Y! p+ M( K4 d. S   [
# \8 c: A. N8 f  q       while [i < count turtles]
1 Y& W0 `5 m3 _* ?% l5 r  c) K          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
1 Y) Z# T5 E- V* L+ ~                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
! X% a4 \" b  ?& F                        ]
            set i i + 1
        ]
" ]$ w9 B  i# p+ i     set j j + 1
  ]
# b! z4 v1 R/ B8 ^+ f. r  set average-path-length nodedistance / (linknumber * 2)
, {$ f. ]$ r* v( k% m) y0 Iend