网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
% _6 I* c; z' J4 U如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
& |3 ?$ V4 N6 [/ K请达人帮我指出错误好改进

to find-distance
" _. T+ Y9 Z& L% F2 ]- f4 {$ L  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
/ D9 p; `1 j* o3 D: p* Y4 | if link-neighbor? turtle i
3 F+ h0 y# U& J& u8 U    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
+ Q& L8 Z* B* j4 k     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
8 E& I* {1 p7 C' N9 ]2 l% j- b- L  ]
  set i i + 1
  ]
% X# G! P' j0 k9 g7 n. \. ]end
  f9 I8 [9 u$ v- R) ]+ l( V
& d; y6 t6 a5 W4 Z7 W* S[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

2 A' ^9 b% b/ Pto find-distance
$ |6 I- G; ?& \# V1 t  let i 0
5 i4 X3 `" W. h6 ?6 l' q8 y6 S5 }  let j 0
  let nodedistance 0
  let linknumber 0
, x% B' K  j5 Z1 A2 B! g; C  
   while [j < count turtles]
   [
2 q: L/ b& Y- n0 q8 Y       while [i < count turtles]
( H. g& Y3 B$ n7 s# O$ ~: D          [  if link-neighbor? turtle i
1 i9 A1 n5 u! {- ]* ?4 B$ n                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
: V& t. c" m$ F3 H! ^+ M                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
' F; G6 t9 }; i( m                        ]
; q: x, H2 R# D/ p& ], [  f; \7 z            set i i + 1
; l) }3 Z+ H/ E4 h6 K        ]
  P4 `* s( F2 G' j: q, M% e     set j j + 1
% b) R1 Y  A8 m3 w3 z. R2 O9 r  ]
  set average-path-length nodedistance / (linknumber * 2)
end