网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
2 k5 e: w. T8 c, [( k7 [* p请达人帮我指出错误好改进
0 Z4 k7 J$ O) \0 _
% i" N! G0 H$ R+ u  \2 Uto find-distance
2 m  ~, c, j) J  let i 0
, x) l) a. z$ X  let nodedistance 0
' p8 @) n( f( E3 ?+ q  let linknumber 0
  while [i < count turtles]
! y7 z" x: ~3 R) S [
if link-neighbor? turtle i
# o; y3 I; U; W! G- a    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
- V6 q9 R' p8 c  [
8 ?1 `4 y& e$ [  O& D5 j8 Z  set average-node-distance (nodedistance / linknumber)
  ]
) K) ~; R# R0 \# |  set i i + 1
  ]
2 [2 A$ p6 N7 f5 Q- Rend
! r- x, _# @8 w1 y3 m! }1 ]
* F: ]1 x; e: E3 V4 k2 }[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

5 x- ?9 F& m! Q0 C9 A9 Yto find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
( X& Z) H) m6 I( g  
   while [j < count turtles]
: q1 N9 k# }7 w6 z* _   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
: E2 P# D9 U% b. f                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
& A. `" P, _; Q8 H                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
& O% `' N2 \" X, T     set j j + 1
# a8 H) u9 y3 l+ H  ]
& W6 d1 z9 Y: a& U; B/ d  set average-path-length nodedistance / (linknumber * 2)
end