网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
; Q/ S. U; {! g2 ~( e8 G8 E请达人帮我指出错误好改进
( Y( ]* s2 U$ P3 W# W
1 a9 m# v. m7 ?7 g% p* r$ y& qto find-distance
% {# y5 S* {: q6 C6 G8 C  let i 0
& {9 O0 _/ w7 w$ N  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
8 s+ b  Y4 o! K# r& t9 \& I [
* Z# N" m/ _7 b# L# d% @) C9 j. v if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 D# v( T% C; ]) @0 J  ?# {4 F     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
( J, [( i8 V, Y7 F- C3 c  [
  set average-node-distance (nodedistance / linknumber)
2 B, b% W, P" z7 N( R  ]
5 R1 E( A* L3 Y+ p5 J$ F  U1 r  set i i + 1
  ]
# h) b" @; F$ X+ m/ rend

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

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
# d$ I5 z) ]8 o$ N/ m
! b  Y; S& W  a9 P9 pto find-distance
  let i 0
. J, D: |* M5 a( u: v  let j 0
" h, y3 h; ]' W6 G3 l8 Q/ z2 v5 D  let nodedistance 0
# A( T" b6 d  P0 |; s! b/ v  let linknumber 0
  
   while [j < count turtles]
   [
8 ?+ y( r/ l& U       while [i < count turtles]
0 K3 F, }* t9 e3 e. h! m9 O          [  if link-neighbor? turtle i
! C* ]) l. r; L1 k; M                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
1 Y" |- R- O: D7 t0 L                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
8 c1 P% n3 p! y                        ]
            set i i + 1
        ]
     set j j + 1
2 r% v! G9 g6 B! y% d+ b. C. s  ]
' i* k0 J; h  \; O3 v+ x$ v  set average-path-length nodedistance / (linknumber * 2)
end