网络边的平均距离

qy987

请教在netlogo中
) H, x; F% V& U$ M$ W对于一个非完全连接的网络
7 K# b# a# C' K( ]如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

' ?( l; R# L* N7 G( o0 tto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
4 S8 u- [  p  z; s [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
  K5 Z- y9 u% l if linknumber != 0
. b8 b5 |1 ?2 ]; O  [
  set average-node-distance (nodedistance / linknumber)
  ]
1 i6 o; v5 N+ H* R  set i i + 1
: L! v+ f1 `+ p$ `5 h  ]
, Q) }  j7 @9 M0 l7 Yend

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

qy987

我新调试好的程序如下，应该是对的，供参考
) M) G. ~3 C7 _- I8 E2 z% g因为特殊要求，这里的边的长度是二维座标内的空间距离
# C" p5 m! E; C) r' u
to find-distance
  p1 n% ]" ]/ m. ?  let i 0
  let j 0
" c' L2 t( p4 M! X& B  let nodedistance 0
  Y/ O9 }1 l5 b8 y  let linknumber 0
4 b0 q8 t4 C6 M: c  P; B  
; b: v8 H+ l# a0 N   while [j < count turtles]
   [
; n2 P  g9 z4 f  z/ h3 b       while [i < count turtles]
/ e! W4 K5 ?4 F. `0 O- I0 X          [  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]
                        ]
( r; {) x7 M. W3 d4 p* ~/ d& q            set i i + 1
9 G8 ?. r$ J5 [        ]
5 [# s, k5 N' d  f     set j j + 1
! q  D1 E9 y5 ~& f  ]
$ }( g0 j8 }: L3 C  set average-path-length nodedistance / (linknumber * 2)
end