网络边的平均距离

qy987

请教在netlogo中
% K2 q6 J+ Q1 \  U# ^对于一个非完全连接的网络
$ e, Q/ B, ^( a% }4 Y5 Q: g7 W如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
4 _' l# i! }# ?* K$ S) J# q1 X; x请达人帮我指出错误好改进
" q$ H3 f1 M* H  ?% F6 e& x
to find-distance
  let i 0
; j3 L& o( p$ s! r# d3 v' N  let nodedistance 0
! E9 b$ L; b% W  A  let linknumber 0
- L4 k/ r0 z$ L# Y( Q7 J  while [i < count turtles]
8 z$ p8 C) c* o# b8 o [
if link-neighbor? turtle i
9 v* f; j' ~/ }! W* W. e9 ^    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
0 K% @: j4 _5 @4 ?: y& W     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
$ q$ o+ t9 [2 s+ H! c& Y& x  set average-node-distance (nodedistance / linknumber)
  ]
: o- n/ N, h4 {) [$ J  set i i + 1
/ ^4 j5 z' {' E, r! i5 f  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
* _- w8 Z3 T# R# A6 g: H因为特殊要求，这里的边的长度是二维座标内的空间距离
$ t/ J; ~0 f: F7 [. B
to find-distance
' N- e( H" ]$ z4 X5 b  let i 0
  let j 0
0 W$ x+ S! p4 v( @* S  let nodedistance 0
: H  x1 f8 z1 ~0 D& ]6 C  let linknumber 0
$ ~; o1 v7 a7 k# ?  
6 x; j" U+ }9 T9 L: b# g4 _' Y   while [j < count turtles]
   [
1 p4 ?6 [. Y" G- B( V       while [i < count turtles]
          [  if link-neighbor? turtle i
2 C+ v; N- p3 \9 P$ W1 d! Z5 y  o8 g" k                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
" A  d3 c' s% v+ C6 A/ p$ n/ L                        ]
! [! d( a- v9 A7 d. V            set i i + 1
: S9 U: \0 D' X, S- |+ q        ]
     set j j + 1
9 w9 l2 r. n: r# l  ]
  set average-path-length nodedistance / (linknumber * 2)
end