网络边的平均距离

qy987

请教在netlogo中
5 b* D, \4 e+ h& c/ r8 x+ S对于一个非完全连接的网络
9 _9 K- h& g9 e+ ^3 e' D如何求它的平均节点距离
' \; U, t! C& B. h% H2 \9 m8 C' Y即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
$ @/ W$ E( |, {; Z9 w8 ~9 F
to find-distance
$ j: s' Q' U& s' ~* f* m8 w  let i 0
5 W6 P3 `+ z( U; [0 ^) W  let nodedistance 0
  let linknumber 0
8 ~8 W  @  d3 ^" J6 p$ H9 ?7 ?  while [i < count turtles]
[
if link-neighbor? turtle i
. v8 `9 A% B+ b. D, O    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
. S8 B2 C, H$ b3 `& ~     set linknumber (linknumber + count [link-neighbors] of turtle i)]
" }( e+ H+ x9 g  p6 i4 B if linknumber != 0
: S9 d# r$ ]+ }" I  [
6 O% t" q* O4 v  set average-node-distance (nodedistance / linknumber)
* X. d: o8 S( D4 [0 t' f8 c  ]
% c+ U3 X& y' S8 w) ^, ^7 f# e  set i i + 1
  ]
end

2 s( t; O9 U4 }[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
8 f, c) w! k* {! Q因为特殊要求，这里的边的长度是二维座标内的空间距离
. I9 Z8 f! Q( Z& p  @& i, k% a
to find-distance
  let i 0
  let j 0
! ]% I: c, h' ~* m" M0 i  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
9 h# j' r& N* N- Q7 y9 n* b7 c1 Q   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
. J1 K" @8 a$ w6 S4 k6 D                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
6 `/ ^7 c& k* d- ^2 {/ @0 d! Y                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
( C! C  [+ w+ D                        ]
9 g  }9 e! b; ?$ p5 E            set i i + 1
4 d" P- C8 {9 ?3 ~* t* f- L        ]
3 p8 y6 }& E) D. n     set j j + 1
  ]
' t; W7 K* F- a) n' k  set average-path-length nodedistance / (linknumber * 2)
end