网络边的平均距离

qy987

请教在netlogo中
. o, t! F* G8 U' |9 C对于一个非完全连接的网络
如何求它的平均节点距离
) f* D$ y- _+ Y. [7 m9 r1 E; _# l即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

0 Q: F% u2 F; A1 M: wto find-distance
( o5 B0 L3 K1 H9 X& l4 a  let i 0
  x3 \0 D" e- o1 O( s  let nodedistance 0
% x) [) w& G4 M8 @6 t- |  F  let linknumber 0
  while [i < count turtles]
2 u: j( C8 e5 I. v% \* u1 J3 R [
; `# e/ N4 V" P1 E$ f if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
% B2 G1 _$ D9 @; G/ M7 X if linknumber != 0
' G/ D+ {! H" F, T* G  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
5 U* @: Z4 ]: h" z! B' H7 t. m  ]
$ [2 f, L, H& {2 _0 Jend

& h$ R/ a- H0 ]0 `8 Q[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

/ ?. s; j( L& Ato find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
4 F" X4 h4 |0 r" E( Y% w- P2 j" l   [
% `3 h! F8 d# v       while [i < count turtles]
9 K! K2 ^8 G  F" |/ 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]
; t; [/ k! {$ Y6 s" U8 S                        ]
4 |8 S+ u9 a. o4 N            set i i + 1
8 B8 D: M; D" u# P- v        ]
! h" o& {, L2 g3 W4 _     set j j + 1
  ]
; M9 k, F! b9 N0 s* e  set average-path-length nodedistance / (linknumber * 2)
end