网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
7 a* t; d2 W* a( }3 |3 u
to find-distance
) X0 b& L$ c9 F7 }! j8 a- w' s  let i 0
, \- ~! ^( p. ^% O, Q. O  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
+ Z6 O3 Z8 ~5 y! [" c [
3 V' j& N" n, g) n if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
7 I5 s, c$ f* y. O9 l  q2 }) `     set linknumber (linknumber + count [link-neighbors] of turtle i)]
4 Z6 K* g" w0 \ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
; C9 c# S% [- `+ {( R; r' D/ q! Jend
3 d# k9 d) I! Q) ^+ ^  W
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
: W! E6 t; `( {因为特殊要求，这里的边的长度是二维座标内的空间距离
  }& s$ x, J2 W8 z( h
to find-distance
2 [  U$ u0 i7 j0 t) G  let i 0
  let j 0
8 r& B4 Y9 c  h4 q, Q* j6 ^5 Z  let nodedistance 0
  let linknumber 0
  
* L+ p) F9 S: m4 C0 x" @  u   while [j < count turtles]
   [
       while [i < count turtles]
- v: u: l6 g6 w0 B' u9 m          [  if link-neighbor? turtle i
0 e$ q: O! x$ j9 A( r                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
$ _6 C7 m! o; u* R, @* n' O2 T                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
$ d7 f% x% g4 F3 y' j                        ]
            set i i + 1
* E, a2 M6 I/ z9 Q/ K1 Z1 I. S* g$ S        ]
, G4 H6 d( N' H/ j& A. H: @     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
: Z/ ?; B# A$ {" z8 Q: ^end