网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
0 K/ j& ?, n  L, N$ T即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
% o" e4 _) V4 h$ `1 `请达人帮我指出错误好改进

, B7 }. |: ?& g7 `) V! qto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
8 ^/ d, }# o  F4 V6 j% @ [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
% Z; E2 L6 a  q! U& R     set linknumber (linknumber + count [link-neighbors] of turtle i)]
) r1 |0 m1 J) \. K' S& ^, m if linknumber != 0
! g3 N) }" W" k! C. G7 x  [
3 o% A9 Y2 u2 \  S  set average-node-distance (nodedistance / linknumber)
  ]
* S" @2 s1 a( U& D' r  set i i + 1
. q$ ]: y+ |, ?" Z3 L# B  ]
end

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
7 X. t+ }: A8 u2 M6 x0 B因为特殊要求，这里的边的长度是二维座标内的空间距离
: D4 y4 s4 T- p3 @" o$ X
; H. k' ]4 `3 I$ ^; N" }- g; ato find-distance
/ U+ d" H( p6 \; J. n: e7 i4 O. A  let i 0
# [# s$ e  N  F  let j 0
- ~! H. S/ r% y! f  s2 b) k* o% {1 l+ u  let nodedistance 0
  let linknumber 0
  
! {4 L' l$ g# D; t: ?5 N5 x' B- C+ f   while [j < count turtles]
   [
/ J, c; ~% U8 E( d  P. a( K       while [i < count turtles]
6 Y6 X, E. S( O: U0 x          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
" x" I" x# O3 f, c* y  M* k( |                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
/ E1 W  E" S: N+ \  v& j  ]
; e7 i0 u( ~. d" U) J  set average-path-length nodedistance / (linknumber * 2)
end