网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
4 w' R* a, \% ~4 k4 I  O4 d如何求它的平均节点距离
6 W" H. u$ M0 N7 e0 K即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
8 X+ e/ ~9 X5 t/ G) q请达人帮我指出错误好改进

( ?( y4 `! Y% f3 v, rto find-distance
  let i 0
$ C) L% j2 v* X5 |  let nodedistance 0
' T: M2 E0 D9 }/ J* D6 H0 d  let linknumber 0
3 X" u" {% f: h; Y% S  while [i < count turtles]
; ~0 P7 K5 T$ N/ t. ]& T1 n8 t [
' n6 Y# L+ p, G2 Z' k if link-neighbor? turtle i
& A" Z7 u! I1 |9 e. Z# p: A3 c8 D    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
) ]. u* u6 K/ {% B' O. ~0 } if linknumber != 0
$ W" z  |. [1 X, F$ @! l' K  [
  set average-node-distance (nodedistance / linknumber)
6 ?1 v/ X, q8 E' c% N# ?  ]
2 t6 e3 e7 ]- ^2 \  set i i + 1
  ]
end
" R% g5 p* I7 t' {0 j: c! N6 |* ]
  P' u1 H( y5 \3 {) D5 C[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
- B. M$ X% w' ^因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
  let i 0
  let j 0
, ~0 D' h' t: ]; _/ R( H  let nodedistance 0
- Q* i0 F6 \! Z! @: L9 }  let linknumber 0
  
4 V3 S6 r' Z% a, L3 q$ A   while [j < count turtles]
   [
2 j# S. R5 v, I9 L+ z" G4 s8 j       while [i < count turtles]
$ y1 @$ _' z* M$ ?          [  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]
                        ]
            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
- H/ t' ]  ?* x9 P& b5 hend