网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
' ~  [: X6 }" L: u# a! f! E* C  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
8 n: H4 `- k3 ?; O. h% Y    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
% f. t/ t. Z; j     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
: v8 _9 ^8 P% c' ]( b  [
+ V7 C" ]$ Q* k$ @9 p& k  set average-node-distance (nodedistance / linknumber)
  ]
* e3 f- c- E* x4 Q* M  set i i + 1
  ]
  `% i! E0 p& s  [+ ]& o! Send

4 ?+ s, ^, e  D3 T, `+ l[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
: H0 d& o8 k: b1 E* `- n3 [2 H3 b. ^
to find-distance
  let i 0
) u- T; L& F/ Z+ \8 ^' m5 N  let j 0
  T9 y4 h' \$ V9 k* N) h$ F0 S  let nodedistance 0
8 I- _) ~2 _) ]" y$ F6 C  let linknumber 0
, P  l4 }- t5 l  
3 K0 L. Q/ D5 U" Y' b3 Z4 T/ D" X   while [j < count turtles]
   [
       while [i < count turtles]
          [  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]
; _/ F! a* v5 }# w2 q                        ]
            set i i + 1
        ]
9 E8 Q0 s+ N, S5 {     set j j + 1
1 c5 C' v9 x- a; [$ {7 u2 V: R  ]
  set average-path-length nodedistance / (linknumber * 2)
end