网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
8 u& O( r6 L/ `* h+ t6 ^& E即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
# l$ P% O$ B% f3 m4 R请达人帮我指出错误好改进
, h( M4 H) L$ o1 N9 [+ k
to find-distance
  let i 0
6 k' z4 z0 z9 p  let nodedistance 0
  let linknumber 0
9 ^  `2 n% N( G  while [i < count turtles]
2 k8 p& B4 x* r, X2 K- I [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
6 ]$ p5 @0 g6 j1 n2 C/ `  p. z0 _8 k     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
. E7 D' }" t+ L' `  set average-node-distance (nodedistance / linknumber)
- m, r6 u$ s1 \5 x, c# ~; a  ]
- q  }* l: G5 d; Z4 W) `/ e  set i i + 1
  ]
end

7 v9 k1 v9 B# f[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
) M: N5 i: T& E因为特殊要求，这里的边的长度是二维座标内的空间距离

) S* Z9 y/ \& a) r+ e4 m: E3 jto find-distance
  let i 0
) P" r) ^4 B8 _1 @: e: H  let j 0
1 j  T3 k$ P. V9 ^9 u( \1 a2 F  let nodedistance 0
/ L+ Z4 {- s, p. f8 l- I: g  let linknumber 0
  
4 T$ L+ `# j- O   while [j < count turtles]
, U% f. ?' s/ {. `* }- M& a   [
       while [i < count turtles]
5 U5 K7 b) l* Q6 K  k. H2 j0 q! W  F          [  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]
                        ]
            set i i + 1
        ]
* Q# ?$ P1 P& U9 W3 h' `4 m# F     set j j + 1
  ^2 F4 E% A0 `- ^! [# ]) F6 L) Q  ]
  set average-path-length nodedistance / (linknumber * 2)
end