网络边的平均距离

qy987

请教在netlogo中
8 Z" `6 J, o# n/ x6 A% U! y对于一个非完全连接的网络
  r, J3 L# l! F  U. ~! r5 E- ?& B  W如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
' N- n' v9 V" g9 \  let i 0
  let nodedistance 0
- O% A& S, B% Y* Y; M* H  let linknumber 0
/ s5 M( y9 n% i2 c; G# r  while [i < count turtles]
[
if link-neighbor? turtle i
3 v1 D9 z& t. q* T$ s* f    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
) C# }* v  }8 o1 H  [
  set average-node-distance (nodedistance / linknumber)
  ]
1 F! z$ U0 m; E' }  C6 B# {  X$ W4 G  set i i + 1
  ]
) [) v+ s( ]6 b0 Eend

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

qy987

我新调试好的程序如下，应该是对的，供参考
3 K/ j& ]. d3 i8 [9 z, m) F因为特殊要求，这里的边的长度是二维座标内的空间距离
  e4 @7 I/ Y% `- p8 {
: w) g8 T3 h7 d6 o, dto find-distance
  let i 0
  u1 K7 y5 ~8 K5 ^  A. P' H' @3 L5 x2 G9 q  let j 0
  let nodedistance 0
  let linknumber 0
, }- D2 y  l% ^* h" v6 j; P3 o  
   while [j < count turtles]
   [
2 _+ b) \2 k8 t       while [i < count turtles]
          [  if link-neighbor? turtle i
4 F1 X& d/ Z2 x( h5 J7 W                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
) c2 L6 D/ ?, Y5 V5 Y. {                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
6 L1 ?# V' z3 e8 e) z6 X            set i i + 1
        ]
2 F, Q2 D$ @0 S: V' i     set j j + 1
- {4 n. A3 g2 A7 i  S5 |  ]
  set average-path-length nodedistance / (linknumber * 2)
, }0 I- X1 z" e" G: Aend