网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
) t# D& b# Q& S1 w1 `9 M. J0 Z如何求它的平均节点距离
6 V& p+ m. U' f7 I. ~& v0 t即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
, j  a$ g) o, Y# |. ~# a' q
to find-distance
3 W. n6 U8 N) b7 m; {" I% H  let i 0
  let nodedistance 0
  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)]
if linknumber != 0
  [
- U$ V2 K0 M: o- p( w4 A3 _  set average-node-distance (nodedistance / linknumber)
2 _0 A/ I( d! v3 b+ V. w  ]
  set i i + 1
' \  ]: W, H% B- E; J  ]
# G/ ?& l% N! x  f# p7 Fend
& H% o# r1 M' ^: A0 _) F
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
6 v3 R& E* k, u! g0 T+ e: S因为特殊要求，这里的边的长度是二维座标内的空间距离
8 ~' M5 U% e0 X  i: b4 V7 `) r
2 y& d- ^8 U5 K8 m8 [' d4 t- Sto find-distance
  let i 0
  let j 0
6 z! K$ H+ E' P% G  let nodedistance 0
3 S" k3 p+ o* k" s9 q, u! {  let linknumber 0
  
! X! T! E, E6 Z# W1 T6 T0 }: _   while [j < count turtles]
) _& [& L" P2 f" t0 a   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
9 }& U# A! k6 U9 e/ a% p. p% ~  \                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
- ?+ ~8 }) v% t" t                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
* S# p! I* j3 f+ k+ n                        ]
' |) X" T' I1 X0 e            set i i + 1
        ]
) x2 U3 v7 ~' E8 l$ x; a' h4 F     set j j + 1
  ]
( f9 C- A2 O$ j6 Y, \: d  set average-path-length nodedistance / (linknumber * 2)
2 H/ W2 N* g. s. O" ^end