网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
* N6 v$ `7 }8 C2 H* p9 M# i如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
  @1 g2 K& r  n& J( I
to find-distance
  let i 0
  let nodedistance 0
; l: t5 }9 @5 K4 r' O! s# Y  let linknumber 0
; t& C0 G7 j0 c" v4 ?  while [i < count turtles]
; c( U+ E; N3 Z [
if link-neighbor? turtle i
) q0 o0 x4 S4 I5 s$ D" {& @    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
, J% v$ x6 b3 `+ `/ b if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
) U$ C- f9 e. P. U; y# ~- \  ]
end
1 {$ M: ~3 E7 {' R1 q
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
5 `1 N& P2 o0 m0 w' A( T( v% b因为特殊要求，这里的边的长度是二维座标内的空间距离
& @* n5 w' |! Z! g+ G3 v3 I
  x6 S' ]2 y1 P2 [to find-distance
  let i 0
: z2 L9 F8 Y' d; a  let j 0
  let nodedistance 0
' U0 R) l3 p# C  y  let linknumber 0
* n: O# }/ n5 z. M" t1 X+ a  
   while [j < count turtles]
   [
       while [i < count turtles]
& N8 J% X1 y% i$ T* x/ V          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
" J# h" W1 h4 Y* P                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
; `2 v: _$ b5 t) F9 @7 K                        ]
- ?* v) U  ]6 ^: K3 C: o0 V            set i i + 1
- ?& r7 o: v! e2 W        ]
     set j j + 1
  ]
4 v( o4 ~0 l1 N( P  set average-path-length nodedistance / (linknumber * 2)
3 j) ?6 f0 F; L7 D" _! U2 J9 ]end