网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
% O" v- H1 O1 Y* c8 [, q如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
  let i 0
4 U0 J" E$ D; r' _8 c% b3 O  ^# g  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
% v- @7 u  Y4 w! P! }( S [
4 x+ b: H: F6 b$ a/ a: W8 R if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
" z1 M! k* I* h( t+ W if linknumber != 0
* j' U6 t% D' q2 Q; R3 e4 q  [
  set average-node-distance (nodedistance / linknumber)
  ]
! B, B8 i# ~4 h( O) ~  set i i + 1
  ]
& P' r/ S3 d+ }1 T/ ]end

: [  c4 w3 Y% B! q( v( Q/ r; P[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
& `; z0 ^% {. N# Z. m0 d5 o因为特殊要求，这里的边的长度是二维座标内的空间距离

5 R. R- U% V( M: I4 y" O4 X) S) ~to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
5 l2 N5 c& c* x. q4 S" v  
5 W" h* }0 W1 `% {7 e   while [j < count turtles]
) i9 C3 B8 d# P) I* D  o   [
       while [i < count turtles]
) M; ~, a' g1 x# [          [  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]
6 ^2 f3 q7 S9 {) c                        ]
            set i i + 1
        ]
  K# R! _# ~3 y8 x7 d" D     set j j + 1
# _7 I3 x7 p/ `$ a) |' Y% L  m+ g* z  ]
  set average-path-length nodedistance / (linknumber * 2)
: X4 x5 H; r1 @& O6 {8 J3 Yend