网络边的平均距离

qy987

请教在netlogo中
6 h8 H- F  B$ N( r' M( T( M; Z对于一个非完全连接的网络
如何求它的平均节点距离
9 o- b$ `& |, I6 \) }即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 [8 W. H0 v. r/ s' u+ S% X请达人帮我指出错误好改进
8 H8 \; Z$ ?) t3 `/ u* c# Z6 D
) m% Q  O4 G$ f& V) {2 ^- F- K. Vto find-distance
  let i 0
) N4 T( `( [" U1 J" e8 l- ^% p$ @" P  let nodedistance 0
% q- c& W2 y5 G$ K( a1 D  let linknumber 0
  while [i < count turtles]
[
4 B' N# i" y6 [" F if link-neighbor? turtle i
8 I/ W# U- {+ I4 _( `0 o    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ R" d0 c8 R  y0 _0 `     set linknumber (linknumber + count [link-neighbors] of turtle i)]
5 e3 L+ f: D6 f6 y; _% X) M1 g* ~ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
/ `' U, b) E8 J+ u& J. p) M! ^  ]
  set i i + 1
  R5 e$ E" \1 j0 J9 @( S6 f3 D  ]
end
" B5 c8 d1 A- v
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
2 ^! V- t2 r% |5 ]6 i' a& y因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
, Z  S9 e5 _1 p1 {  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
* v5 ~5 c; }4 }/ B  
   while [j < count turtles]
   [
: |2 S. b" c7 a- Q# ]       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
8 M' q# j% Z2 b9 B& F7 K; M                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
& q) l  J: h& N" E7 A                        ]
            set i i + 1
! {* J) f& N3 E6 H        ]
     set j j + 1
& J7 O! a# Y1 ~& N5 N, r  G$ y  ]
  set average-path-length nodedistance / (linknumber * 2)
end