网络边的平均距离

qy987

请教在netlogo中
" G, v% c8 D9 U; W4 x对于一个非完全连接的网络
如何求它的平均节点距离
$ |* M' @/ s! }3 l+ f; h! `即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
' K* Y& L0 n9 u; G6 i请达人帮我指出错误好改进

0 y. l5 \; m2 gto find-distance
  let i 0
  let nodedistance 0
; N! G) n5 c: l& M  let linknumber 0
/ n' j/ l4 B. y" l9 V  while [i < count turtles]
! Y  K- H5 J. s6 J [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
4 M- r8 e" j( Z2 R, R9 O! D if linknumber != 0
5 a& ^- y# ~2 S, v* i( g! `  [
  set average-node-distance (nodedistance / linknumber)
  ]
7 g/ C. f9 d2 K" ~4 k+ ]5 N  set i i + 1
- J& F: R+ U5 S( V; w- b9 [; t  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
, `7 f1 i2 r1 {) G/ }: f3 T
9 J3 V  k' a( J( g2 ^2 a# D2 sto find-distance
7 r* X2 [& Q; i8 d" U+ W7 D  let i 0
+ k0 e7 n+ L  z, h# l  let j 0
! p. [; K  u1 e8 \# u! A. y  let nodedistance 0
  let linknumber 0
- t. d: c/ H/ x7 o, X' U2 E1 `' E  
   while [j < count turtles]
   [
6 l. `. |! b* _       while [i < count turtles]
1 g* S- G& |) l  X: J          [  if link-neighbor? turtle i
& }, `- [* [) z- M                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 O+ O! x* u, j" u* h1 |                        ]
            set i i + 1
4 o. d& D3 M6 t$ M        ]
     set j j + 1
3 M! }" }6 E% ]1 @- V+ `( ^0 U  ]
  set average-path-length nodedistance / (linknumber * 2)
, e& W$ }6 C9 W9 d, t$ i! d9 Send