网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
( w  \. @  s" t5 T即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
/ f/ u0 z( e# P7 D请达人帮我指出错误好改进

$ b8 e6 _1 {" ~2 [to find-distance
$ j- v1 x. R$ P9 Q1 t  let i 0
  let nodedistance 0
  let linknumber 0
4 p4 `( g8 q& k/ P: b3 a& s- c% l  while [i < count turtles]
[
if link-neighbor? turtle i
% q5 x1 F: d2 S/ B  d/ z# U9 Y    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
  J9 O6 L" Z* d2 p% O) N) r0 ? if linknumber != 0
2 ^' j4 C  X! j  [
  set average-node-distance (nodedistance / linknumber)
  ]
# |9 X- J/ X9 u  i- F  set i i + 1
  ]
end
4 Y0 s2 L# v$ b5 B7 D* m
$ e: I& m$ C% _  n[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
' O# f+ o# K& C: G4 A因为特殊要求，这里的边的长度是二维座标内的空间距离
! |2 T$ \+ }5 o, |/ }; W
* b! I5 M& l. l! ]to find-distance
$ _" k, G6 ~0 h, F* I# L  let i 0
  let j 0
  let nodedistance 0
/ t: S# r0 W. e  let linknumber 0
4 {+ R" ~8 T1 G/ w; k% ~. V7 r  
# i8 _' }- V( Q3 U   while [j < count turtles]
# z: \; m/ _6 }) c/ _" x4 m   [
       while [i < count turtles]
' y: P: m+ M. Z3 G          [  if link-neighbor? turtle i
% m* {6 L% F9 X- X/ T                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ ]  Q3 W5 O1 @% G, A                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
; A& m  m, C8 q# _6 k! f9 J; A; R* [                        ]
            set i i + 1
        ]
     set j j + 1
: W& ?: A3 c8 E# X. c6 g& j  ]
  set average-path-length nodedistance / (linknumber * 2)
end