网络边的平均距离

qy987

请教在netlogo中
& F) Y7 ?- H$ p1 u2 d$ c( h对于一个非完全连接的网络
' C+ V' y( l8 H6 Q- Y如何求它的平均节点距离
4 }9 ~4 H, F$ A# v即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
! C' F+ t( w$ s" Z% n5 R% z请达人帮我指出错误好改进
. L6 R" o( i2 Q; }/ P
to find-distance
  let i 0
  let nodedistance 0
, ?* l5 D$ H7 g0 d- P; l& p  let linknumber 0
9 d# ~0 c- a9 P( K  while [i < count turtles]
1 N) F' d# I% F) f" h  I1 i7 q0 P [
if link-neighbor? turtle i
3 C$ B) Y& U* b: W: ^4 v6 u) G8 B    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
; n/ X; l5 E, k; P, | if linknumber != 0
7 t. V% l' t& x; H* ^0 T  [
8 x6 c! i$ B3 a" z; R  set average-node-distance (nodedistance / linknumber)
  ]
( J+ d" Y  R" @  set i i + 1
  ]
end
+ h% M" K9 I: @5 n3 e" w
5 ]1 x9 U0 L2 C5 H! c% m[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
! I, h8 v5 k6 O% s5 T$ W; s因为特殊要求，这里的边的长度是二维座标内的空间距离
( Y  `/ z3 i0 ?, t& F/ r
to find-distance
  let i 0
$ h2 @# V! |5 n1 Z% S4 o) l  let j 0
# W! M( ]9 s! N2 j7 o6 @4 O  let nodedistance 0
! v" n) J! u. N% Z! o' y; u  let linknumber 0
  
   while [j < count turtles]
2 P% j7 ~) E- B( F   [
  h' Z, H8 F  `' r2 `       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
7 W8 e5 N( K+ ~* U                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
, t' [3 {8 @+ f: I        ]
     set j j + 1
  ]
$ _: x- B9 Q6 ?4 W% N; J; k4 S  set average-path-length nodedistance / (linknumber * 2)
end