网络边的平均距离

qy987

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

qy987

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

) C( ~  k- r0 P2 Y4 F$ Q5 w3 Vto find-distance
' O, U, P* Q9 \% n; M* A  let i 0
) P  f* R' B" |# Q' I  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
8 }9 u) q$ B2 d* l2 d! L# O; W    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
& B% a7 L/ m6 ?7 R, h) \7 v     set linknumber (linknumber + count [link-neighbors] of turtle i)]
- }; s# e6 U# ^. P5 ~2 c if linknumber != 0
  [
3 W8 |7 J! n3 l7 S: C  set average-node-distance (nodedistance / linknumber)
  ]
6 G* [3 o3 L! Q) i% b  {  set i i + 1
# Y% S4 G- c* m& H0 p8 S  ]
end

+ x5 O$ i. Q2 J9 `- ?% z% F[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

6 n8 Q6 i# i2 S8 |+ e- Bto find-distance
  let i 0
  let j 0
  let nodedistance 0
0 l, N6 l3 c2 G5 _  let linknumber 0
6 l" [$ y9 W: |0 Q& Z  
   while [j < count turtles]
2 M% f  S) I8 s' O. ~2 a   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
1 B" e3 }" u. x                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
8 v# x  J1 X% L( n! j/ t     set j j + 1
/ f* y: w8 C. _% W! u  ]
  set average-path-length nodedistance / (linknumber * 2)
end