网络边的平均距离

qy987

请教在netlogo中
! v" L, G. r. s) C对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
' u9 w* S/ i# R4 a  N2 M+ p& a0 N请达人帮我指出错误好改进
' `7 h: |: E) M7 O; p# e
8 y( s* ?8 E9 i. oto find-distance
1 m1 }- y: B; X8 ~+ k  let i 0
  let nodedistance 0
  let linknumber 0
4 ?. n" S: u' h1 j  while [i < count turtles]
[
" v+ l# s% G8 U8 B if link-neighbor? turtle i
4 U$ C+ ~1 n  z$ q$ d# Z    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
& A$ N; L0 ?- {* Z2 r; _     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
3 C1 m! i( |0 P/ L- Q* Y; E- B  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
: V) x! m( ~8 v) H3 Q  ]
end
+ ]' W* x& m4 S, v9 J/ b, j
2 g9 b7 T' [( v3 a; u7 R[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
4 d8 A/ V* G, ]% X" I/ i' G8 b
to find-distance
3 \0 `/ \* _3 `; S9 Z  let i 0
  let j 0
- B8 _4 F  G# [( s3 j' T$ t" G$ h% F  let nodedistance 0
5 w! N0 E0 C. y- Y0 f  let linknumber 0
( x2 [3 `1 y" r  
   while [j < count turtles]
$ l6 D9 A) \. T# D   [
( j5 o0 {7 o5 z, G3 O  N: j& }       while [i < count turtles]
          [  if link-neighbor? turtle i
- C+ l% @; e: N2 F* d$ S$ m                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
2 s+ R! j1 J( x$ ]  g. c  ^                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
) Z& @, _# `* y% Q5 v- `4 W) P        ]
     set j j + 1
' A  P% _. u2 D  ]
  set average-path-length nodedistance / (linknumber * 2)
* P& m7 k% ^" D* T7 X6 ?end