网络边的平均距离

qy987

请教在netlogo中
0 i. h6 U9 v- v8 y3 B  h+ o  \对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
2 \. Q+ `2 u2 o4 C+ c- J请达人帮我指出错误好改进

* F! l  _* m4 d3 H( gto find-distance
3 V1 }4 b' D, r7 F# T& h  g  let i 0
6 u9 F/ Z" B- V' ^# Q( ]3 b  W  let nodedistance 0
9 c& z5 Y: ~( C0 c) Y  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
* @1 {: U/ r+ u& ?9 f     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
& g3 Z. O7 O, o* \$ N% U1 R  [
8 c3 k, L5 W$ c- K5 ?# p1 m  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
! V6 M* E( X' ^( |3 k% p4 I) w# v因为特殊要求，这里的边的长度是二维座标内的空间距离
# t2 ~6 @. _, G
to find-distance
  let i 0
- ]' s/ J1 w8 h  let j 0
( ~5 m' h6 {1 w8 e& p  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
/ J  c( X& a+ Y) s- r& b. J5 x- i       while [i < count turtles]
          [  if link-neighbor? turtle i
  A, E! {( U4 q: {$ q                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
: H# r$ A* w5 M) Q9 T                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
0 X$ r( o, ^; e" V* H0 J( X* N                        ]
            set i i + 1
: k" R4 O/ u1 g/ o9 p) o        ]
3 t# X, }" Z' h/ D     set j j + 1
$ z9 J$ E2 J6 D; k  ]
( S" T* A. o# q+ L3 O  set average-path-length nodedistance / (linknumber * 2)
end