网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
; C5 u" I! @. [请达人帮我指出错误好改进
. ~7 w& Y) ~8 q6 N) b* ]0 u; I0 T
to find-distance
  Z: W% N' ^3 Q4 ]$ w  let i 0
) B; N4 T/ g2 ]5 i  let nodedistance 0
8 c: X: b+ F! f6 u- B  let linknumber 0
  while [i < count turtles]
[
% e! ^8 }7 ]0 }% u( ^, h if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ K/ b3 ~+ I) K( H     set linknumber (linknumber + count [link-neighbors] of turtle i)]
+ k0 J( n" |6 L7 K: [& `4 _( Y$ _ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
9 A* c/ z, z4 Z0 k, Send

, s& c" A; N; e$ V0 c[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
5 y' T5 \! B" @* v0 }
to find-distance
  let i 0
3 F, g) G3 f9 M: g  let j 0
  w! e2 r6 a" U9 L6 |; a6 y  let nodedistance 0
  let linknumber 0
5 j9 u5 H8 o; o) Z1 y9 l# R' O: O7 g  
   while [j < count turtles]
4 r9 w" V; x) ]3 W( ~- o. v8 e4 ?' Z. [" `   [
       while [i < count turtles]
1 y+ ~1 j% F" G* v9 ^0 }, Z, n          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
4 D" ?& g( \6 ?  _' x0 c9 Z2 b                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
: d2 r! C+ t, w: P            set i i + 1
        ]
     set j j + 1
8 g" Q& }3 Q; [1 s" T  ]
  set average-path-length nodedistance / (linknumber * 2)
: s$ V6 m+ ]  W: ?' L* K5 A+ Gend