网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
  b* m1 z/ Z' l2 p( \4 b如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
( ^5 G: U% @9 F
to find-distance
  let i 0
; i9 m5 s+ z- c5 p( W" F( P  let nodedistance 0
  let linknumber 0
7 I4 R/ s& M) r( S  while [i < count turtles]
[
if link-neighbor? turtle i
" t, w" Y; Z- b; q, ~8 @/ A; b6 h    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
4 U. p  F8 ]5 S9 [" T* ?     set linknumber (linknumber + count [link-neighbors] of turtle i)]
5 y% }8 w9 i; z2 g if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  f  E& m4 t1 {  ]
' r2 r, x4 U2 @& X  set i i + 1
) X8 f* G/ P$ Y5 |9 b, t  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
4 u1 C1 f: x) y7 h/ ?, C8 T1 h( J因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
  let j 0
  let nodedistance 0
: ~. s! N/ \4 v+ d9 t0 f* T( ^  let linknumber 0
: N6 b, Z& _! C$ r  \% d0 n  k  
* N% ]  z4 V, e3 ?+ H   while [j < count turtles]
   [
- J2 D& U( w+ `' F6 q       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
$ w- n4 K/ _2 T! G                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
- m" {( K2 ^# c' X* _        ]
     set j j + 1
  k2 q, `% P* c6 F) ^  r  ]
  set average-path-length nodedistance / (linknumber * 2)
" s# c$ o7 M" V- ?$ x4 q2 {2 }/ S0 ^end