网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
- g2 m% A* O7 {  L& B即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
9 ^* l: b5 S3 d6 i' `请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
, A+ {- g% f: }! k( Q  let linknumber 0
  while [i < count turtles]
[
& c9 d  x$ b! e if link-neighbor? turtle i
' u# U: Q6 t& F& p    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
; Z& m# u- Z. K  e9 x' }' E if linknumber != 0
  O8 ]- R* \1 h8 p  [
  set average-node-distance (nodedistance / linknumber)
* ~- q# `) i  @7 B+ {5 M0 ?  ]
  set i i + 1
/ n$ h% Z' _' h' |  t  ]
) f- `. U! R* r) {8 wend

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

qy987

我新调试好的程序如下，应该是对的，供参考
  G9 r% x6 ~$ Q( l4 \因为特殊要求，这里的边的长度是二维座标内的空间距离
( `$ q6 l- W0 l! q( @. H8 V. Z) J
to find-distance
* G# h  s# m" g" ]8 _9 g. c  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
9 X+ L, w4 ~' _- Z+ {$ T  
* k, M& z2 q1 k& r1 E( k8 O1 {" Y   while [j < count turtles]
! |5 ~3 a% ?- A$ L  e   [
8 \5 v. ?, m, B( m6 L& H' o2 X6 @- |       while [i < count turtles]
          [  if link-neighbor? turtle i
6 J3 ?% `6 Y# l* ^" r                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
) w4 }5 E8 _( j% @                        ]
5 j! ^: O: e! W, v+ Y) d* u6 P# s, e            set i i + 1
" p, k$ C- C, O9 h1 g# F7 ~& e        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end