网络边的平均距离

qy987

请教在netlogo中
4 l+ b- W; u3 a2 r5 X( N7 N对于一个非完全连接的网络
; A% J' j! P" {, w如何求它的平均节点距离
. ?( q& P, `/ f即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
9 V2 Q- e& u# `$ G: n- t
, i6 [* z  I4 J+ w) xto find-distance
  let i 0
4 B. O4 b9 a- i; N; u9 M2 B" W  let nodedistance 0
0 x& ^7 J2 J  q% _, j4 B  let linknumber 0
  while [i < count turtles]
[
/ B: J# m" Q8 h$ @9 j; q2 s6 h* \ if link-neighbor? turtle i
6 T/ p- @4 c" N$ I3 ^    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
5 j& L- p; C' j  [
* x, o8 l8 T' g1 U  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

4 R3 p: I) @. y- Q! u* e[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
9 I: L; z7 J0 J4 U# d+ ?因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
  ^) {# t; b4 @  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
( L5 i8 l" j8 t                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
2 G) T; e2 R$ v# g/ S6 S7 x3 C                        ]
            set i i + 1
        ]
     set j j + 1
* E3 q# a' s' m7 S  ]
2 @! Q0 v5 E* Y/ l& h! g' s( Q1 N  set average-path-length nodedistance / (linknumber * 2)
, k& Y; C& H" Wend