网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
2 H3 }: S+ v1 W/ x" @9 k# t如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
! Z$ M' T$ d- Q1 j) A, u2 E. K* n8 c请达人帮我指出错误好改进

9 a  R2 }/ [) s0 h4 ?8 tto find-distance
  let i 0
( x* a  G3 M1 D  let nodedistance 0
; U2 j/ H- R8 e9 R  let linknumber 0
  while [i < count turtles]
# O8 ?2 A8 o# w [
8 m8 L8 y' j( I) z- \2 @# H# ^ if link-neighbor? turtle i
8 {) D! F& [" L8 |" T5 B    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ \2 z/ `% C0 v     set linknumber (linknumber + count [link-neighbors] of turtle i)]
# m& Q+ Q1 y7 K5 N9 ]! N$ a/ r if linknumber != 0
  [
5 M  p% ?; R6 T; g8 i6 y* U  set average-node-distance (nodedistance / linknumber)
; F- e) ]4 j% R% x  ]
  set i i + 1
" y+ f4 c- e. e. V# U  ]
end
5 C' [% @4 H- g0 N
& F) [7 V4 l( r' ~[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
+ \- L# q$ `) w( y9 y( `; F因为特殊要求，这里的边的长度是二维座标内的空间距离
5 G5 c$ M, p# G6 t' s, l( z8 d" R
to find-distance
  let i 0
  let j 0
7 X6 X7 \& {& h' A$ g  let nodedistance 0
+ B: T' m/ a( V" U  let linknumber 0
  
   while [j < count turtles]
   [
4 f) [$ u7 A: s- S5 o       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 g5 p7 I# P3 [' Q  H                        ]
( J# U; z5 |- T2 z: Z' f: h! Z& e" m            set i i + 1
        ]
     set j j + 1
* A: w' A/ W0 }' J" S  ]
( W7 m  ]! ^' S4 t! r8 H0 l3 C  set average-path-length nodedistance / (linknumber * 2)
end