网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
3 N6 I$ @# G" x3 j7 Z即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
) d  I: m: y/ [! i  let nodedistance 0
1 s) [$ o0 M+ Z) y& w% @  let linknumber 0
$ l* m) U% t: C2 J; W# x3 R  while [i < count turtles]
$ J7 L  H1 \8 Y: H# _ [
if link-neighbor? turtle i
, K  j) \, U  [( R) g! H. s: y4 M    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
0 G- t9 w  I9 Q# E. V! a     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
4 x+ @' F+ n$ v  M# v. F  [
  set average-node-distance (nodedistance / linknumber)
/ @7 X5 K! `# `+ d  ]
  set i i + 1
4 x" G2 b# h' j, Q7 ~  ]
( w) J* T% q) `! ?$ N9 D( N; k+ Xend
! a$ }8 e7 }& d( E
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

' D  I: Q" Z9 bto find-distance
  let i 0
  let j 0
9 I; k, |$ [  n* ?) s0 \  let nodedistance 0
  let linknumber 0
  
/ P" q  ^4 F2 F' W6 A7 _' l$ G   while [j < count turtles]
! S( I, V% y* \' Z+ I   [
+ b/ c- g% c# `       while [i < count turtles]
          [  if link-neighbor? turtle i
: _# e8 Q' Z4 C$ u7 T                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
# A4 ?2 m) i, L+ e            set i i + 1
' f1 u- R. |3 j! z" u        ]
, l# t/ s5 x: A     set j j + 1
' ]$ ~( e% e7 E9 \+ `  ]
  set average-path-length nodedistance / (linknumber * 2)
end