网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
+ n7 f7 O; Q( U即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

( L, ]  f& X: A/ G5 I. B* K' p4 oto find-distance
  let i 0
$ ]1 ~% Z5 k* _5 w$ u- n  let nodedistance 0
  let linknumber 0
$ N0 `, d% l# T  I% j- ^  while [i < count turtles]
[
if link-neighbor? turtle i
; c# J4 A) p7 t) h4 i* q    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
! d; S" P* H) i5 _9 o) z1 E8 p     set linknumber (linknumber + count [link-neighbors] of turtle i)]
/ W% ~8 ?& q' n& G  z( d if linknumber != 0
  [
5 l0 V, M* \& q# c6 f) j  set average-node-distance (nodedistance / linknumber)
- M& a  t1 R9 y, b# S  ]
' l  V  X$ \! v& G  set i i + 1
  ]
end

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
6 l, O9 X2 @, ?2 Q) d' q7 h7 _( v
: `, T: G  o" vto find-distance
  K4 W) O6 Z5 d. ~. K$ Z  let i 0
  let j 0
2 F0 X' Z7 c; V* I8 r' g  let nodedistance 0
  let linknumber 0
9 ]# C( c+ C2 }8 J  
; h5 C* z9 }/ `2 a$ E   while [j < count turtles]
/ `0 O" u& W9 {) M* u, r# Q   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
* M4 w8 Q5 {7 d% A7 B                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
6 H/ G6 g  A: N. ]2 y" X: u# P# ?            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
; a: g; ^/ G  K% U5 I6 w1 rend