网络边的平均距离

qy987

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

qy987

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

/ ?' t7 P- U. N. ], x4 O8 ?to find-distance
9 j8 ^2 S4 q, C1 n8 A  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
  V! D5 F; ?5 G    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
3 c5 A8 h. t  }) [# ?' q6 O; ~     set linknumber (linknumber + count [link-neighbors] of turtle i)]
) `* Q  j2 c  _ if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  m% O7 U, J  z: M' J  ]
  set i i + 1
  ]
1 E* s% n) }3 p& k" [# P$ Pend

9 i  F9 ~: E8 K0 K$ f- f[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
, M& z. ]) t0 ?2 r因为特殊要求，这里的边的长度是二维座标内的空间距离
  M8 t9 k- O' T
to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
% x/ p2 X/ ~! e3 v( V   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
( N! o3 V3 b" f: @: V                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
. i' O! N: g- C7 }/ K; ]( N                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
3 c4 J4 ]. j2 n2 g  v        ]
     set j j + 1
  ]
; z" N* L2 ~" `' i2 b/ r! G  set average-path-length nodedistance / (linknumber * 2)
end