网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
5 {$ ?, D. h: x5 K2 N请达人帮我指出错误好改进
) t, C& ^" `/ U/ i
2 l& @( S/ G, s0 k- f  E: ]: w4 B0 `to find-distance
  let i 0
  let nodedistance 0
: @% {& _& ^5 _, @- U" A  let linknumber 0
  while [i < count turtles]
$ R1 N7 W* p( g* f [
if link-neighbor? turtle i
% Q: q. G% G4 p0 X4 Z& P7 P+ s- s    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
. b  i5 _9 v; s6 v; y if linknumber != 0
! d$ ?7 O5 D) Q9 c  [
, Q8 B6 B2 G7 y$ |6 g: ?  set average-node-distance (nodedistance / linknumber)
, D& L" z) @; i5 c1 I% [% h# u' ^  ]
  set i i + 1
+ E' J" i/ N/ b+ }2 t8 ?  ]
* G. D* O% W! xend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
/ k7 b" I  l, z9 O' W4 o. S3 n) z) u
. D! {* n! r% @0 k6 |7 H/ M" Vto find-distance
. H9 E! S8 o# y+ ^2 ]  let i 0
, ]# f" x# ?8 e) S2 V8 F1 p: k' R. K  let j 0
  let nodedistance 0
  let linknumber 0
# K6 ?! N; H+ g, y$ D  I0 X4 ~  
   while [j < count turtles]
3 U% K2 S! P" }5 e% n- [/ p4 p  ^, ~   [
6 J; a* L7 T1 N8 A       while [i < count turtles]
          [  if link-neighbor? turtle i
% v0 h- y8 j) U" c0 n- t                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
3 `( t% j) H2 G1 r                        ]
            set i i + 1
        ]
3 p- _! K! |8 [( ^. W     set j j + 1
  ]
1 x7 n: k/ }0 H( b4 d" m  set average-path-length nodedistance / (linknumber * 2)
end