网络边的平均距离

qy987

请教在netlogo中
; T/ L) [! n8 F: v6 K9 n/ u, ^对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* I+ Z/ y( ^) O; z. ^& F请达人帮我指出错误好改进
$ @7 X, f0 W: {4 z6 m) y9 Q
  R" R, H. P: A) Wto find-distance
9 t9 B& j3 _( k/ T; C$ z  let i 0
  let nodedistance 0
  let linknumber 0
  \) p& |4 \3 R$ A  while [i < count turtles]
[
/ K# [: ?$ `" _$ C* R9 e: [' H if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
! p2 e' o0 `$ l; h if linknumber != 0
  [
8 H9 M0 G4 G  }7 N5 |# T% P7 ]+ |! i  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
; c  }( T4 T" Y9 R  ]
! K, l3 G# f4 `4 {# ?end

7 S3 j) Q; \4 O- _[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
5 N9 f/ ]5 z9 y  let j 0
  let nodedistance 0
  let linknumber 0
) D6 X) ^; \/ h; g+ a  
   while [j < count turtles]
   [
       while [i < count turtles]
          [  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]
                        ]
0 c+ g5 x2 @( U$ Y. J0 l5 [            set i i + 1
7 n* m+ m/ c9 p# ]6 G) l/ Z2 S        ]
/ J9 l( T- P+ P! p; u/ f& A6 _     set j j + 1
+ W6 Q2 p2 L+ y, i  ]
  set average-path-length nodedistance / (linknumber * 2)
end