网络边的平均距离

qy987

请教在netlogo中
! o/ E- F" U- h对于一个非完全连接的网络
* p0 u  T# Y* b+ I( C  O( _! L, b2 @' a如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
6 E8 \( ^- l2 V1 \8 T1 e& c2 K请达人帮我指出错误好改进

to find-distance
3 M9 P3 s8 G# T2 V( [* P  let i 0
" k0 e- n6 k* w0 x  let nodedistance 0
, G8 G" O6 U. i1 c2 g% `/ S- z) M  let linknumber 0
  while [i < count turtles]
[
) z* D6 D& \5 r6 n- k3 D! D if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
4 `% B/ j3 I, _/ H9 W     set linknumber (linknumber + count [link-neighbors] of turtle i)]
, U' i. t& M! d% U- w) S if linknumber != 0
- V. Y0 v: W% m# h  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
( L) A( ]9 y# b! }- `3 P  ]
. v) K. T6 Z  Z8 R! W6 ~6 `9 X* Jend
- k8 M7 ^, W& H/ P/ ^1 Q( U; v0 B. G
$ F9 k9 b$ ^" r( s[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

& Q7 [( `$ ~# b& K4 K3 O, c8 Rto find-distance
  let i 0
& v/ s0 e; ?6 C6 X* r2 o( {  let j 0
  let nodedistance 0
  let linknumber 0
7 k5 H2 S; T6 q" {* y4 }; \  
: S* I$ b* k2 z1 q0 m   while [j < count turtles]
  Q% N6 F% Q8 X9 j  Y, `- z   [
7 Q2 R1 n1 [2 n1 J/ J       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
3 y; Y& G- v4 y5 B. O4 A" F! T. [* e                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
- |3 d3 M& Z+ P# @                        ]
            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end