网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
& P. N) \5 a( q; {' S4 `2 w* s请达人帮我指出错误好改进

7 f; I2 ^, V, v4 }; \to find-distance
# I* ?  k6 r9 O2 s; D: i1 M8 l. t! W  let i 0
9 N$ p% I# Q+ n6 Z( L5 M' r9 s' ~' N  let nodedistance 0
: q. t9 E: w( d0 R  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
/ q+ u9 {! e- T7 o* n4 Y    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
1 X& M. T/ G9 |6 J% M  ]
  set i i + 1
. v  Z9 {$ K& e: V# E9 _  ]
end
& f8 y# `, f) G* z
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
# a; F) w! p* Q7 m9 X) G% q" |  w  let i 0
  let j 0
. z3 s: T+ }. _* H/ V  let nodedistance 0
3 W; L& {4 J; @5 {6 x  let linknumber 0
) f/ S* [2 A0 m  
   while [j < count turtles]
9 q1 o- x0 d' ], T* w; J; c   [
) I5 _5 Q% N1 Z7 G  [       while [i < count turtles]
          [  if link-neighbor? turtle i
7 ~7 ^: r2 q, p* @                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
) V, E1 _% u  `7 V1 ?1 n                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
3 I. w* i% \4 E4 f4 Y        ]
     set j j + 1
' P1 E7 T- v* n* s$ F  U# L  ]
  set average-path-length nodedistance / (linknumber * 2)
* M. p% K) M7 y9 z8 J, Bend