网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
$ x& G7 b* @7 t; b! A* X请达人帮我指出错误好改进

to find-distance
  let i 0
8 |3 g; S$ K9 x. M8 r/ g3 \" Z  let nodedistance 0
4 Z! c* k6 `* V% t- W( l  let linknumber 0
3 [+ y# |6 Q$ J& v0 D" I) D; q  while [i < count turtles]
) A" n; @5 q% j) i) ] [
3 W  {8 F# U4 c* E if link-neighbor? turtle i
3 w0 W0 |% B2 L9 }. ]    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
; S" T/ q* [: a# ] if linknumber != 0
. B$ g- o& n9 N- N% e  [
# k5 D! a7 [& D  set average-node-distance (nodedistance / linknumber)
! `3 T0 m8 J; D  ]
3 Q4 v/ P! t+ \( o  set i i + 1
# Z; H% _/ E7 h3 ]0 W8 ^$ n; v% \  ]
end
1 o6 s, g9 q3 c! l4 U1 f* a* |3 ~
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
" K4 e$ a# f* U: _% U1 V0 b  let j 0
  let nodedistance 0
  let linknumber 0
3 v  y0 P+ V. F  
# {4 [& O9 v) K2 ?6 E. q4 W   while [j < count turtles]
   [
9 a, m& v9 k/ O. _       while [i < count turtles]
          [  if link-neighbor? turtle i
7 @! q. b& f/ I, R" }6 k" Y                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
) x% q. m6 C+ R2 y( f: c9 Z! ~                        ]
) @* |2 m$ W( A. @, x: `            set i i + 1
        ]
     set j j + 1
( y( w) k/ K9 w$ I  ]
, z% X) z4 }- j2 c1 u) ]' t  set average-path-length nodedistance / (linknumber * 2)
2 L8 x) z8 i2 Z8 f- a+ {' j# Pend