网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
( e1 j! Z3 l" ?1 m$ d如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
) _' g' Z- T" k; X7 _请达人帮我指出错误好改进

( B# M; [# T* g, fto find-distance
7 m+ d5 A3 @; y  let i 0
  let nodedistance 0
( f% {' U9 Y/ D  let linknumber 0
  while [i < count turtles]
; ^9 r) H- X4 ^1 l' r, B9 V2 l [
2 }+ [) |8 M+ M& ~9 K if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
& n' B2 N5 G# W1 W( \     set linknumber (linknumber + count [link-neighbors] of turtle i)]
' H' L9 p2 f; E/ n! N if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end
8 W' D# Q7 U1 F1 s5 q" R" B
& x& z  X; i4 u! l$ U  d; v[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
6 R7 n( h  h: t' u- v因为特殊要求，这里的边的长度是二维座标内的空间距离
$ W% h) V$ s7 i" E
0 @  d5 Y) b4 J  O5 wto find-distance
2 \, z6 q0 K. h4 \  let i 0
! Y3 @- O8 v1 i' Y9 P2 e& @  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
   [
: N! o- o3 C' ^! B, m1 B. L       while [i < count turtles]
          [  if link-neighbor? turtle i
. @2 y6 a: B7 u% p% P, P) Y                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
) g/ T2 n9 w- a* @# O7 c* q  Z                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
, N7 O+ _# Y6 h            set i i + 1
$ Z* H6 Z$ `: w- }# g. r" l/ S; U        ]
& [6 u; ?: e& m( _     set j j + 1
% f# R# D2 M- U# S+ |- M+ O  ]
  set average-path-length nodedistance / (linknumber * 2)
end