网络边的平均距离

qy987

请教在netlogo中
6 O- [+ H! B8 T9 M! T3 I9 D3 x对于一个非完全连接的网络
9 ^& }0 t- Z0 M如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

1 p' f5 u  z- Q5 y; dto find-distance
  let i 0
  let nodedistance 0
: W! v; N% x$ j  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
" m. E1 |9 `* J$ ]. I  set i i + 1
% j* {1 I. W% _* F$ s+ {+ J  P+ Z  ]
end

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

qy987

我新调试好的程序如下，应该是对的，供参考
  f6 |* j! D) b) B: W/ |+ v3 J' m+ u因为特殊要求，这里的边的长度是二维座标内的空间距离
, o% {, V- C' `0 H) b4 |
0 t3 g, c( t( k2 s' w/ yto find-distance
7 c1 A/ L2 e2 P5 j  let i 0
  let j 0
- [$ W# Q: X3 R1 K! V% M% M  let nodedistance 0
& Y0 d7 A5 p' {2 \. [  let linknumber 0
; V9 @3 _' Y$ s/ H8 v0 W& W) Z7 r  
& g( @+ a! s" k/ n* n   while [j < count turtles]
   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
0 H8 c. b8 s- D                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
! W* Q* }8 F3 ^1 T* A& O, D, |                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
) j5 Z4 [; h8 a& p        ]
     set j j + 1
" ~4 T/ {- }2 M4 R7 P  ]
3 {: ^4 J8 p$ Z$ D: `3 Z  set average-path-length nodedistance / (linknumber * 2)
) o4 T# h- ]( s3 tend