网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
# x; c+ E" J: S; {* [即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
" q! @, H& w* O' R$ ~& M* m+ ^$ x  while [i < count turtles]
[
7 {/ S, Q. p6 {3 a if link-neighbor? turtle i
6 Z; P- R3 S$ I1 |2 Z    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
) T! J" V) E6 n3 @  [
  set average-node-distance (nodedistance / linknumber)
, g  Q; v! e% V$ t' ^1 G! W  ]
. g; `, |( g9 Q+ G  set i i + 1
+ o; o& z8 A6 Z  A0 t4 H  ]
6 K: j- h0 N- u' Oend
; T( l. Y+ f, [  s# n) n
6 r) P  a# }4 B$ S. ~3 d& N[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
  @/ }2 u! p3 i' j. [  N
to find-distance
  let i 0
. C& i  d7 Y, j# V" K0 W  r  let j 0
  let nodedistance 0
* B# w& ]6 _9 J% [# G, V$ _1 v: d  let linknumber 0
- P9 U& r' a, z3 c8 V/ {; c" N  
+ F" ?0 e9 ^% q5 i8 I   while [j < count turtles]
8 {5 ]7 q: ]% _0 Y) j/ ]   [
       while [i < count turtles]
$ }6 Y& \4 }# I          [  if link-neighbor? turtle i
  ~4 p1 ?* T9 @6 J                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ V( c2 V6 W" p3 x6 p6 z1 A" M% J                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
( u* m& d' w) H! ^            set i i + 1
  O3 K" I" h6 Z; s9 t        ]
1 H9 w) }/ Z! k7 C" I4 X/ x1 s     set j j + 1
  ]
" _% {, ^) M& c2 o7 P- @2 S- `7 a  set average-path-length nodedistance / (linknumber * 2)
& o+ v! o: h* u# P7 a* L0 \end