网络边的平均距离

qy987

请教在netlogo中
$ d" J5 H4 M# M- ?4 h对于一个非完全连接的网络
7 Q9 c: T0 N9 `# t- i4 |: i' V" ?; ^8 H; P如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

) J1 s2 j7 g9 l8 c* W8 b. x: u! f7 cto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
0 r" r3 u4 L' I8 n0 `, u1 C! H [
4 }+ ?4 G) I5 ]. a if link-neighbor? turtle i
5 s3 I* E/ J( U% z/ ?( q4 d    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
/ Z) N9 `" }5 B# a: u) J% Y if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
$ K1 x3 _- y" @% z# U  ]
  set i i + 1
: q  ~' h$ r# t" S6 n& i- Q  ]
8 v5 p# Z' a$ r- |( Qend

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

qy987

我新调试好的程序如下，应该是对的，供参考
* u; _, C' ]; N7 w5 v8 F7 S因为特殊要求，这里的边的长度是二维座标内的空间距离
/ C5 X% D: f7 V2 c: U
5 `/ W5 R' e. ^, _. @to find-distance
  let i 0
. Z( Y1 e- _+ d. b2 i' N  X3 l+ {  let j 0
8 P9 s( L, b/ G# G: J0 A4 V  let nodedistance 0
/ l3 o, k3 z6 r: g3 A/ L0 j  let linknumber 0
0 w5 ~/ V: f& R& x  
   while [j < count turtles]
   [
4 N, V* B+ ^1 w6 H       while [i < count turtles]
: y+ x. ~: \+ Y- i+ X5 R          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
6 M8 o9 r! t3 N) r# M+ e/ L                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
. p6 u3 g' c- H5 x: P. Q                        ]
            set i i + 1
        ]
2 R1 P* H. P- g% @9 h7 L  s     set j j + 1
* u) x2 Z/ K3 M2 X  ]
  set average-path-length nodedistance / (linknumber * 2)
+ f6 }; y, E. A/ z0 Uend