网络边的平均距离

qy987

请教在netlogo中
( b7 J8 m7 U4 X% o1 ^4 h& [% v对于一个非完全连接的网络
0 l- H5 k- s  r# |$ P如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

. i: K2 o+ M; i$ w1 Y! [to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
( }# l5 N6 H  g [
if link-neighbor? turtle i
( c. [9 }! u6 r0 X# C    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
) \2 @' {/ U+ \7 R8 e if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end
1 ?' i8 s* _5 w% F0 N" b
# o! ]" U% Y2 |[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
( b2 B  j6 t! |! L" {+ V因为特殊要求，这里的边的长度是二维座标内的空间距离
7 O, R, c6 U0 V
) s! c! E) ]% i/ S$ c' W$ p) [$ Yto find-distance
) E& F6 P4 M, @. G. |( b; v  let i 0
  let j 0
$ B) m# `" g" v1 g( G  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
# n9 B4 Y# C* r1 E! Z6 C& ~- P* n   [
& b: T4 b  g, L  B( X2 [       while [i < count turtles]
          [  if link-neighbor? turtle i
7 j( O. m! I* A- }1 j                        [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
, @2 e$ V3 K  r! D) G  ]
  set average-path-length nodedistance / (linknumber * 2)
& }1 @, |* O1 q) W/ m' E( ]! F6 send