网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
, a0 }/ t' z6 G如何求它的平均节点距离
* S# ?7 G6 m5 H, A5 M& }即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
) E7 R3 R9 ?1 E4 u  A请达人帮我指出错误好改进

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
# K0 |6 ]) Y- h" @  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
5 U" M# T7 Y* a3 I  ]5 d     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
- m; O! T2 l# z) ~' P, o  [
" C: O" }% d4 }  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

8 z6 `1 N7 l5 X) O9 j[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

4 U) F5 v# A: g, @. [% ?/ Mto find-distance
' e1 E2 {, Q7 ~  let i 0
. }% J* f& F' l: s7 Q$ D  let j 0
" @6 [, j* G: |$ `+ e$ t, Y2 M  let nodedistance 0
6 o* m  M' C+ e( J% A# F* c  let linknumber 0
) h2 b5 Z% e7 W6 O$ Z  
0 J1 S5 l+ a! i2 J3 M   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
7 n  s" S& y% N, J2 P                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
  z! M' v# s$ N5 s4 P                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
% g( n- z+ n: R4 G* b        ]
' X: l" u8 w, d% l1 b8 g     set j j + 1
2 e5 v) C! k9 Y1 n* B  ]
  set average-path-length nodedistance / (linknumber * 2)
2 b, m5 V% O8 {9 k; tend