网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
6 P: r8 N* l1 @如何求它的平均节点距离
: ~5 j7 z$ O4 B9 C+ u2 J; g# i即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
8 v$ a  ~0 M" V: D4 D请达人帮我指出错误好改进

5 S: q; C7 U: L3 g5 M) \0 Mto find-distance
  let i 0
7 Y$ ~/ j8 e8 p4 D4 H2 ]  let nodedistance 0
* R4 {+ a9 T1 I3 ?# |7 O  let linknumber 0
  while [i < count turtles]
1 m; U* ?. B7 g [
if link-neighbor? turtle i
1 }, r/ L% Z% m9 N    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
3 I, m. M! N% d/ l$ G# |0 i' M if linknumber != 0
  [
" g6 E$ ~) a6 E, T2 ]" O' D2 `+ M  set average-node-distance (nodedistance / linknumber)
  ]
: P9 q/ A$ I+ E. [# }0 r* Y- I) M  set i i + 1
% y* B$ |+ X% B( {: o" d8 `, J  ]
# ]# x! g) s6 S' G+ j% b' Rend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
; O& h7 l; u4 O8 U' n
to find-distance
  let i 0
  let j 0
  let nodedistance 0
4 Z2 Y- x' N: F; t. F3 L2 a% I: r  let linknumber 0
  
   while [j < count turtles]
   [
' f/ Z1 g/ K  l3 q; r! i       while [i < count turtles]
          [  if link-neighbor? turtle i
# S. s+ @/ z2 ?8 H/ C' ?% y                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
/ r# L- f$ N* ~! _0 J) s3 g' W                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
, p7 |' ~) Y8 [9 a9 R     set j j + 1
  ]
" j) D& ^8 r* L, s" F1 v  set average-path-length nodedistance / (linknumber * 2)
end