网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
  x& i# H) k, b' `7 S如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 |- r, Z. w7 V4 x) Q请达人帮我指出错误好改进

5 ^7 O  v6 |& K5 |3 ]" Pto find-distance
: X" ~# d6 u/ L2 b- `  let i 0
7 V1 m- Z$ F5 ^  let nodedistance 0
' x' r$ b9 q9 |, B$ d$ \  let linknumber 0
; f/ ]* x/ J. B$ a& V1 V9 Z6 q  while [i < count turtles]
[
if link-neighbor? turtle i
1 S/ n* o4 @( X* v    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
2 U+ Q$ c3 V* V! v  _6 P% t- ]$ p: D/ M     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
7 \% v, b# M$ Z0 W: [& y  [
) z. d& I3 E. I  d  set average-node-distance (nodedistance / linknumber)
- T. t2 f- e3 r: ]/ t  ]
  set i i + 1
  ]
end
7 Y! A9 D* \( s% ~8 R. ~2 T' {
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
5 G; E; A' s. W- E4 K因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
- M6 f3 {/ A! A+ m+ F) K- H  let j 0
8 z2 f4 l; X/ |5 ^4 L. d+ N  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
8 U! ?' Y7 g+ T4 |       while [i < count turtles]
          [  if link-neighbor? turtle i
* K: x( i) U9 K% U                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
1 S6 z" G' O+ |' r$ J3 h" E            set i i + 1
        ]
; d) Y! }4 L/ Y8 V* C1 ]6 ]/ c7 ~     set j j + 1
  ]
* j) r& l: W4 l6 @" _) @  set average-path-length nodedistance / (linknumber * 2)
end