网络边的平均距离

qy987

请教在netlogo中
* H; p7 k+ }1 F# o, j$ ~/ G对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
2 p3 P2 v: H6 i8 l! [# l# s$ Q& N  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
) p) d# ?* m* ^. l7 \  P; R [
if link-neighbor? turtle i
' a/ r" o& c  y5 K    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
# R0 p( d2 V% V. T- N( R% r0 `     set linknumber (linknumber + count [link-neighbors] of turtle i)]
: {5 Q" n8 B+ L6 s2 R- G if linknumber != 0
" O$ u; M* z$ X) h+ ~) `8 d" O  [
7 A/ i1 N" J. H. C- u# p  set average-node-distance (nodedistance / linknumber)
2 S& ?6 u  ]* \8 i  ]
  set i i + 1
- Z5 B2 E0 C5 p  ]
* d+ T0 J# [- d% U) A: u% uend

' q& P8 C  i8 @0 I  d[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
* d+ _  `; X0 l因为特殊要求，这里的边的长度是二维座标内的空间距离
0 P5 t7 s) P) f  R
! ]: ]+ X3 e5 D2 nto find-distance
  let i 0
- \4 C5 b* y4 o8 q. }( h7 d( e3 U  let j 0
! C1 u5 D7 ]8 Q* @0 w  let nodedistance 0
- |% B) f$ }8 r0 ~8 Z; a  let linknumber 0
. p1 D" o& t3 n! y  
$ o1 ]) i! [  S$ f9 w   while [j < count turtles]
   [
; `$ B" [! F6 `9 r8 _. |" b       while [i < count turtles]
          [  if link-neighbor? turtle i
$ b* g0 Y6 l4 _- P2 Z                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
4 M& v  b; R* x$ \                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
& t' B: i" r& W0 y/ Z     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end