网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
2 S& n- k6 k8 L. X1 O2 N8 ^) `如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
- K% Z9 O2 _" J9 }5 E请达人帮我指出错误好改进
7 J2 ?+ Q2 j3 j. G# ^) F$ P
to find-distance
  let i 0
  let nodedistance 0
% I5 i3 W$ ?, q% e8 U3 C  let linknumber 0
  while [i < count turtles]
/ d- |8 _0 \* M- J* R0 s [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
% j- s' C7 q6 I' I     set linknumber (linknumber + count [link-neighbors] of turtle i)]
- K! `. m% {8 v' i$ } if linknumber != 0
3 [, ?! m( P+ F3 a7 O8 f, d: B! r  [
- K& \" ?% L# A& j) O/ q' o, d  set average-node-distance (nodedistance / linknumber)
5 {+ U3 F8 ^# T4 N/ w+ c) _  ]
1 t6 D) C7 N8 d3 \  set i i + 1
6 A+ [' p) Z5 g+ ?% ~  ]
end
2 T2 }, L# V8 V  m) H
* Z+ v2 x' r& u$ V' [. s# l  T[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

6 Y- z) L5 |% k8 [+ D1 c3 r" Lto find-distance
  let i 0
* D/ P& A4 r$ |# x. u7 S  let j 0
  let nodedistance 0
6 H; N7 S8 y0 Y  d8 g! U' _  let linknumber 0
  
1 P6 x; O. e/ Q- m4 D   while [j < count turtles]
1 d6 r: f& H8 T( x+ k   [
       while [i < count turtles]
3 V6 s* l+ r& Y) ]/ w9 y) h  V          [  if link-neighbor? turtle i
/ c4 u! A) A* y4 T3 x; x8 y7 B5 I                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
" g) W  {6 f" w                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
% \6 F' |; Q# j1 [' _$ ?' r            set i i + 1
        ]
# U* G) {* b2 o) @! I9 i     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end