网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
1 P- ?' g3 F$ x3 R! Y如何求它的平均节点距离
4 z1 B) ~+ F4 U5 Z即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
  O2 w! h- D- t7 H( u请达人帮我指出错误好改进

! w! o! F2 W* k8 B: [to find-distance
4 o: z0 ?+ ]/ ?" Z  let i 0
# u. w; w8 Y/ ]  s; U* G  let nodedistance 0
2 Z0 Z9 O9 X3 @! E/ t1 W  let linknumber 0
7 B0 s7 f; P7 p3 F8 V' M  while [i < count turtles]
[
7 q9 |/ t7 {& J! f+ A$ W if link-neighbor? turtle i
: e) [$ f" D; ~    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
1 O( b# z4 D4 [$ B8 j  [
$ M" v* A# a% H  ^; h  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
1 n% N# k( E1 T! @/ }  ]
end
; E3 b, p: M: |; D3 I. i
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
- w/ c) N! M0 G3 o因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
% I, ~) ~& U  w. [2 f- `  let j 0
2 A7 r( L4 `9 `$ `( B. s  let nodedistance 0
  let linknumber 0
2 W' \. N7 ?4 R! y  
   while [j < count turtles]
   [
       while [i < count turtles]
& `  N% \( Z# D  @1 _6 O          [  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]
' y& W5 l- ~5 [+ s% f$ x+ o                        ]
# M) N# e6 o. X) y3 i            set i i + 1
        ]
; A+ X$ e. S$ t9 P     set j j + 1
% g$ q  s5 E2 @. g+ E  ]
2 d( J- S& s7 C) ]7 k  set average-path-length nodedistance / (linknumber * 2)
end