网络边的平均距离

qy987

请教在netlogo中
: |) L) U6 Y, e& H对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
7 }+ |, e/ c" W3 H1 C  y- S请达人帮我指出错误好改进

1 }7 b; N, g! j: z2 N0 g% k$ xto find-distance
  let i 0
2 `# K7 }" T" ?2 y  let nodedistance 0
  let linknumber 0
, b8 J! ]; t9 Q9 E' j6 _. ~4 X3 p6 e  while [i < count turtles]
* F2 Y$ ?6 y; y  k. n: j [
+ G7 C9 o# A: N if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
5 _$ {& z- k/ r9 v  G     set linknumber (linknumber + count [link-neighbors] of turtle i)]
3 [' Y6 n3 _3 U# y, y' _) u9 T if linknumber != 0
5 ?8 b1 _: z+ ]9 {# s: N  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
6 T  z1 X" E+ b- c8 }因为特殊要求，这里的边的长度是二维座标内的空间距离

0 ^% H4 D- f) Oto find-distance
1 J) d2 H3 q5 u: X3 p+ \  let i 0
  let j 0
  let nodedistance 0
, [) D- t& g: y$ k5 Q5 v7 t% Q  let linknumber 0
! ?. h2 J7 V9 x) L6 r! W  
   while [j < count turtles]
, R, W6 s9 W, A2 F! q- ^   [
% v; l! h2 Z1 |. n. [6 Z       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
$ a* a2 ^+ J" R4 w. |            set i i + 1
        ]
' F9 M! ?, Q% _; @     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end