网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
& q% N" I+ }3 r如何求它的平均节点距离
- E5 |0 A  a% w即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进

to find-distance
4 i0 m& f% d$ T2 F2 x0 B6 f: V2 @  let i 0
& ?6 N7 [0 u& r+ N: q9 _  let nodedistance 0
! c8 [1 j$ l. D& |; r8 ~) {" y  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
5 W+ ~4 @9 O9 `1 K! x3 H) F    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
9 ?) D$ a. Q3 b6 u6 V* e     set linknumber (linknumber + count [link-neighbors] of turtle i)]
, I% j0 k  L' n( k1 P( M( B if linknumber != 0
; Q& N$ a; w6 M# u  R) s  [
9 Z& L% E& l" d; _  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
' S6 I7 H: W) s  ]
end
- Q; c  [5 O+ h2 Y" L( l' A% L
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
. E$ O5 y) y- k9 r因为特殊要求，这里的边的长度是二维座标内的空间距离
  S2 S; Y+ X8 h! \
to find-distance
  let i 0
) m/ N( v* z5 o  let j 0
( u* A8 p0 y& K' k8 `- n  let nodedistance 0
" M# h& r, a* P) [  let linknumber 0
+ @0 R& t9 }/ I0 o  
6 E% Q* ]( v6 ?0 P9 ~   while [j < count turtles]
   [
6 k* E! G- @3 p) [1 w1 o       while [i < count turtles]
4 r4 Q4 M, o0 [  _, l: h& |* I  R          [  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]
/ c) R& F9 |) e- j9 `1 Q, s( e- p                        ]
            set i i + 1
" Y6 W# |) c# b9 \" [* p        ]
( p8 q  Y) Z/ I/ Q$ H     set j j + 1
  ]
" _2 S- R' _5 e# G  set average-path-length nodedistance / (linknumber * 2)
end