网络边的平均距离

qy987

请教在netlogo中
- ~; {7 I8 U0 E8 {" C6 [对于一个非完全连接的网络
: y9 l. d8 Y, P0 `% R如何求它的平均节点距离
  ^7 l! |" ]' B1 u# |3 u) F. ^即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
5 t0 p1 |7 B; z5 ?7 l2 O$ ?  let nodedistance 0
) |2 S( w5 ^( y5 O- x& k  let linknumber 0
! O( C3 [+ q* Z3 C# R" {$ a  while [i < count turtles]
[
if link-neighbor? turtle i
# d* s3 Q5 m$ z9 e+ W    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
$ M6 r( `2 O# s     set linknumber (linknumber + count [link-neighbors] of turtle i)]
, a. c' |  x( \* a* G. y if linknumber != 0
* H6 ^4 e9 a' `" Q' T+ _3 z9 F% }  [
' F  d! f+ _% _. m3 I2 Q- l  set average-node-distance (nodedistance / linknumber)
2 r2 G; K7 v& S2 Y% `/ l$ p  ]
  set i i + 1
) n6 S, E9 a; {+ m6 d0 Z5 x  ]
end

. L& \/ M8 [& Y; u; ?/ s4 Q, }[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
0 e$ Z" M) U$ T1 C8 ?因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
7 o6 N- L$ E* t  let i 0
2 C" M* r) E) J" H5 q: t  let j 0
  let nodedistance 0
# C) ~1 I1 X- P  let linknumber 0
  
5 W$ {) Y  O6 D# x1 p  ?0 U4 M   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
* R& O$ R. A6 n& u5 |/ |3 A                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
7 X# z0 F" K$ [9 I0 O7 Y: x                        ]
$ d+ `" |2 c! a4 M  F2 i            set i i + 1
        ]
" Y. j! ~/ O4 I: S$ C) U1 ^     set j j + 1
  M) n; d3 u# N3 u- r# y7 C2 v8 k  ]
  set average-path-length nodedistance / (linknumber * 2)
& ^2 R! G0 V$ V' bend