网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
' V* t- b6 h# n; j如何求它的平均节点距离
' M9 x, S* r. n即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

" z7 O$ s- D. bto find-distance
, u3 @8 v) {! f' f$ a  let i 0
! f: g+ J  ^, X5 H4 x6 @9 A) \: q  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
% W: O" u' l; q/ A. @" k3 n  Y6 @ if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
6 s; u& M+ {" l! ~! ?3 n7 h! d: ~3 }     set linknumber (linknumber + count [link-neighbors] of turtle i)]
4 ^7 f4 W# E( p: T( I. }8 E% j4 _ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
3 S8 o5 T, a, y! b" ?3 J  ]
  D+ k: j$ X& E7 e; q7 [end
. T( J  H. i1 e6 ?
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
3 Z+ C. `8 v, n  z1 N8 P因为特殊要求，这里的边的长度是二维座标内的空间距离
6 A! Z% ]0 X8 K& @8 a& Q
0 Q) U% l- F$ w# P$ f6 h9 K! cto find-distance
  let i 0
6 T: B% l  |1 u3 O+ i) P  let j 0
0 O) U, ]9 [% N6 v) P/ r  let nodedistance 0
  let linknumber 0
6 N. l& j* Q# M/ ~$ R  
% {4 O1 T# ?0 |   while [j < count turtles]
   [
% f6 f) P/ L) m% K. ^8 v  p0 u       while [i < count turtles]
3 O- j2 w9 ?8 f, T5 f          [  if link-neighbor? turtle i
% x' L/ k& P4 j' N                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
* o5 a" \/ n8 ^" @3 I2 j                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
* J1 J8 v# @6 w! e$ k  o& m3 b                        ]
            set i i + 1
        ]
     set j j + 1
  ]
( B8 X; ~* e$ J  set average-path-length nodedistance / (linknumber * 2)
6 U2 H, @1 C1 Aend