网络边的平均距离

qy987

请教在netlogo中
/ }) }( T5 M3 E" I4 V$ U1 ?7 k& k对于一个非完全连接的网络
如何求它的平均节点距离
5 u# i1 |4 r9 w" Q5 g即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
: k8 K9 ]% ~5 F4 G1 b  let i 0
# E0 h8 C2 Q+ T5 b  t  let nodedistance 0
  let linknumber 0
! z) {6 ?0 r% \  while [i < count turtles]
[
  p5 D6 \. K  I$ e if link-neighbor? turtle i
  Y( p+ q* v1 J    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
  L- R3 c7 F& z0 S* D- T if linknumber != 0
  [
- O( x% y7 P9 |- U9 c  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
/ _; G; v3 z2 S. {1 D- G/ A4 _  ]
end
# s, E4 F/ m% C9 S1 Q" Q6 c% Z
+ E: X! e& P( D) s6 X) r0 {[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

, W" `+ P4 a' H* O' j6 R) \# uto find-distance
  let i 0
  let j 0
; j7 |: C; O" p  let nodedistance 0
  let linknumber 0
  
) r  `% {/ q& {! t% t2 x   while [j < count turtles]
" L& U- I4 E& P   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
4 P. ?9 }1 w* y" c                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
# R% J9 j# P/ D                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
9 q$ X; K& k% u& w. n, H! ?  e            set i i + 1
! E8 p) f4 S$ s! X- a* P: N  i        ]
     set j j + 1
& B5 b- O# b, _! I$ \  ]
  set average-path-length nodedistance / (linknumber * 2)
end