网络边的平均距离

qy987

请教在netlogo中
& n% l1 W& V4 N9 G4 n对于一个非完全连接的网络
9 @: p) y4 X3 J8 p' o5 F如何求它的平均节点距离
( c' D3 K) r/ r. ^4 w即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
! r' t* Z& y; K请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
9 h- J, ]" T; r3 t) @4 U0 Q; ~  let linknumber 0
% J$ N) m' S' y7 O/ W1 ]  while [i < count turtles]
[
if link-neighbor? turtle i
7 h& S7 u* P5 ?5 ^/ X+ [3 b. i    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
$ z0 j6 b' r1 g- p& ?  ]
3 w* j6 Q* d& ]' \0 ]6 m  set i i + 1
  ]
end

' E6 T( T0 u4 X, W2 f$ Q) R[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
+ N, h' a) o' L6 I% o+ r) U1 [因为特殊要求，这里的边的长度是二维座标内的空间距离
% y( T$ n3 k+ `! C( b
: q8 V, |  X9 L' m, O! dto find-distance
1 {8 a5 l: a' u% @+ C# J2 ]  let i 0
# O3 s! T* d! P' C  let j 0
  let nodedistance 0
  n" M9 j# x2 Y+ t$ X' H/ g  let linknumber 0
  
. N& N3 L9 Z7 @   while [j < count turtles]
   [
& A0 Z8 h7 W% ]5 \+ a1 `8 X2 o; p       while [i < count turtles]
- T+ ^* Z0 J' M# a( d          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
2 {" k" u# p" p) j  J                        ]
            set i i + 1
/ K9 j. R" A$ \3 X, ^        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
  P6 V+ T! F$ Tend