网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
! ]0 l) c9 p7 n- ^3 e, O如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
% z9 n# f- K' c$ y! Z请达人帮我指出错误好改进

5 b+ f3 c$ {( R$ }; y6 A/ Ito find-distance
  B' h) d" g* X: c, y, e  let i 0
* x7 D' N2 l4 y: t  let nodedistance 0
  let linknumber 0
2 h* E! H* |+ D: Y2 ]  while [i < count turtles]
# ]: s2 X& ~. o1 l [
if link-neighbor? turtle i
- @, @0 B( P) ]    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
* n1 P/ @( \! \' Y0 }     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
% o9 E1 b( B7 }- y* I  D+ c  set average-node-distance (nodedistance / linknumber)
1 T$ y0 b" ^2 Q) }; A- p2 _/ z  ]
  set i i + 1
% J  E) I  U7 H( V5 n  ]$ P% v  ]
# ^8 b# }" W/ v  v9 H# fend
1 L1 \, U- h. Z& A6 ]
5 M& B8 D& g; w) O: d3 U. C& E[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
0 y* B- a2 i& h/ @" v, r( q因为特殊要求，这里的边的长度是二维座标内的空间距离

4 E. [0 w9 J0 ]* H. K# C1 F% Xto find-distance
  let i 0
  let j 0
  let nodedistance 0
. C4 N: p+ `: o8 s, H2 h' _2 L  let linknumber 0
: u/ q: ~" u+ G( s( @  
   while [j < count turtles]
, U8 _5 _, o7 Q+ a# M   [
       while [i < count turtles]
+ V" l* ]' N8 z7 L) H; A          [  if link-neighbor? turtle i
" E9 N/ d% D( e                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
2 g/ R4 l. W% l" m                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
& z  T1 A& c" A9 `5 n& D! {                        ]
7 n1 ~  U' ?' o% n; J) B            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
3 L5 @( I" G: n/ }# Rend