网络边的平均距离

qy987

请教在netlogo中
, B, Z, V5 b8 S) v9 }+ U对于一个非完全连接的网络
2 l" m8 m* `5 \. I如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

+ ~2 `, X3 J' x( v5 {to find-distance
  let i 0
3 t+ H- E; q* A/ R& l) l  let nodedistance 0
  let linknumber 0
- I4 E( r- Y, a  D  while [i < count turtles]
[
4 s: w! Z3 t/ c6 H if link-neighbor? turtle i
9 h" K3 |4 _& N4 J/ H    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
: [, ?2 n' }" q$ A0 j     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
) O( S5 L# @) V1 T  [
  set average-node-distance (nodedistance / linknumber)
+ m! p2 f- T9 m! f) B$ j7 k  ]
  set i i + 1
* c' y5 P/ G- G* a  ]
  L3 V& H. T* r" B1 Z% l3 Tend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
* P! V6 D0 d  w) R3 w& w4 k8 [2 s       while [i < count turtles]
2 o$ Z8 E6 ]$ z          [  if link-neighbor? turtle i
9 x$ I' r: \5 L( r& N$ L- ]                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ l3 J8 ]: s6 x# U* P                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
4 I2 N0 k; T) {8 e1 F            set i i + 1
" ?) H3 A8 A0 q0 E$ v$ T% f, k1 }        ]
     set j j + 1
% j1 Q/ j0 d6 H2 a. [, e6 e  ]
  set average-path-length nodedistance / (linknumber * 2)
end