网络边的平均距离

qy987

请教在netlogo中
5 G) n& q1 q. O7 n, L对于一个非完全连接的网络
( K  ~2 i  W) p0 K) O8 q$ B  _如何求它的平均节点距离
: I+ [& t  S! M. h即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

2 |4 R$ r6 W7 wto find-distance
4 F* J- {7 F6 Q  let i 0
  let nodedistance 0
  let linknumber 0
3 G) ~: I& `+ `$ `  while [i < count turtles]
: f/ z+ k+ [7 k; p [
5 y& e  z5 z% E1 u1 D% m if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 n" l; A8 Z/ Q0 n9 h if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
+ ]+ t. K0 }) A# A# ?8 e- t  set i i + 1
  ]
$ |- |4 I& {. C0 k! X! o& oend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
0 P  b& u6 r2 i# m
' R( k, A4 W: W+ Lto find-distance
6 F, b, _& ^% ~0 H& o# m$ T- q  let i 0
- G  g* B! h7 E+ K+ D% M& T/ u  let j 0
9 s, {! h6 i+ ^- o" W2 f# G  let nodedistance 0
  let linknumber 0
3 R/ \: c  Y% k- D4 b* O& {  
   while [j < count turtles]
/ _6 b  z0 @4 T$ G$ Z7 o   [
: |5 T, w8 }5 s9 |& W       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]
0 _, l5 e9 W0 {4 k3 v  E' _- ]                        ]
+ q6 {2 S; Z- ^4 O: ?' b            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end