网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
' o0 t' r: z/ ]7 K9 i: f如何求它的平均节点距离
3 j! O+ m) Z) N" n/ h2 K即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进

( o2 n: I  Q$ @" a+ X$ n+ @to find-distance
: ?7 A9 v4 T# V: t3 h  let i 0
; @1 h( C% U- X9 ?8 |  let nodedistance 0
3 S9 B% F& ~6 j' t  let linknumber 0
1 a4 B, ?3 _4 L6 J: P* x+ A/ ^  while [i < count turtles]
& Y0 b! L# ?; ]% d* u' B [
1 `, t. S5 p/ U; p3 k5 A7 b4 z3 T, L if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
# ^- V( p1 m. C7 M. X1 n     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
# M# [. \1 c2 w# v/ |  [
+ M7 w  G7 G6 i  set average-node-distance (nodedistance / linknumber)
; Q& v: a( i) y, a( K# P& {  ]
  set i i + 1
4 J( h2 k. _' Z% w5 T  ]
end
+ |8 a- F) R4 y! w
+ ~5 ?/ G3 W+ g[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
: Z+ P8 N  j4 n因为特殊要求，这里的边的长度是二维座标内的空间距离
/ O: L3 @) X7 e2 w$ |9 O
& ~5 I' _; X2 Fto find-distance
$ d6 n- V' P/ b3 O) a& l  let i 0
# C/ `, V! ^. b5 J6 e! E  let j 0
  let nodedistance 0
  let linknumber 0
  
( m5 w! q4 t6 N* i% {( L8 o   while [j < count turtles]
   [
/ L8 }8 d- |# [2 X& \       while [i < count turtles]
: `# k3 N8 @; `, R1 {          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
# G7 c0 D2 u. q5 o- T9 A! f            set i i + 1
        ]
     set j j + 1
7 }6 d! J6 o+ J/ ]  ]
1 ?. v$ H( u, I# }  set average-path-length nodedistance / (linknumber * 2)
; @1 O% |5 R0 i7 Xend