网络边的平均距离

qy987

请教在netlogo中
; V7 T/ X, S1 a$ w2 I2 e0 ~# y$ V3 a对于一个非完全连接的网络
如何求它的平均节点距离
7 C: q0 {' X+ u6 C& K, P( |/ l8 L即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
( C0 k! E3 J+ U/ B! S请达人帮我指出错误好改进

7 m: X7 c; ^, gto find-distance
' `  G3 R/ G( ?! F4 r6 C  let i 0
  let nodedistance 0
) ?) h) C- e# S  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
" c4 v0 q0 O* U6 P) o if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
) \; ?' s( w9 ~$ d8 J' G  set i i + 1
/ Q' l# G/ {& x  ]
end
9 S, ~2 u6 t$ A
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
+ P% ]7 l, A' f因为特殊要求，这里的边的长度是二维座标内的空间距离
7 W2 v( O6 |0 Q
; H- G/ b+ ]5 Zto find-distance
2 K# f7 x) I; y% {+ E; o4 k* ^  let i 0
  let j 0
9 N5 _  b1 H/ |" O( W$ K  let nodedistance 0
  let linknumber 0
  
/ r/ H' F* U' E1 c   while [j < count turtles]
: F/ @: f; o2 t   [
- C7 p2 C0 M% L2 Q8 }       while [i < count turtles]
% q! k3 v0 T" L5 Q* V4 G          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
) D3 g3 G" N; ~. Y8 `( Q            set i i + 1
        ]
& N. x9 |! l. G' ]% ]' w     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end