网络边的平均距离

qy987

请教在netlogo中
; }" d3 P. P4 c* I对于一个非完全连接的网络
5 k1 @# y; a, N+ ?+ ?2 R如何求它的平均节点距离
. h8 ?6 ?" y) J; [. A即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
2 e5 _+ a0 S: p4 y6 b9 q0 T请达人帮我指出错误好改进

6 E8 K0 i; ~+ B! V4 Eto find-distance
  let i 0
( `5 S) ~; n* P0 R  let nodedistance 0
  let linknumber 0
2 Q0 l4 `+ o5 U8 {5 f  while [i < count turtles]
' g! a% ~' f4 R3 o [
( c8 c0 L& |' n if link-neighbor? turtle i
2 {$ O2 Z5 _* I$ q; J    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
# y' o7 b! s6 Q% h  set average-node-distance (nodedistance / linknumber)
  ]
  q% m4 K* Y! H) u: i; a% C! {  set i i + 1
' A# b: p& B2 S: ]& R0 E! I  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
2 u* Z; ^0 c% j# D0 r8 }
7 ^$ V1 ~* E' |7 D8 e7 mto find-distance
  let i 0
* ], Q$ f9 ?( f, w( b1 a3 k  let j 0
  let nodedistance 0
4 c$ \% y9 d* e9 E7 Q$ Q' l' q  let linknumber 0
  
" \4 a! X: B" H) e' Y* ?   while [j < count turtles]
" s* I* f' V7 s2 d1 F% y( L   [
2 s. a# x5 U: D0 F1 n( E7 V  {6 B       while [i < count turtles]
          [  if link-neighbor? turtle i
. m5 R9 M) X* d                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
3 a2 m% O7 C+ a& E0 C                        ]
; o& O5 O% i7 i) Y            set i i + 1
) E; p$ [; _' [( N9 K        ]
; ^7 l& E3 G" A, L6 Z$ n# h# U* I     set j j + 1
1 U/ m4 F/ w2 d3 c7 g4 j  ]
) g. {4 {" P! S7 Y2 e: }  set average-path-length nodedistance / (linknumber * 2)
( ^- ~( V' a1 Iend