网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
1 Y5 b& ]/ B2 R- H5 ~4 v$ p( J如何求它的平均节点距离
4 B, b* m& j; x: [' @" g+ ~即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* W# w! }9 {0 Y# s请达人帮我指出错误好改进

4 h* w5 ]( e# W" r) Qto find-distance
  let i 0
) C- q. b8 n$ ]2 X" U( ]  let nodedistance 0
  let linknumber 0
7 m/ L$ S! O- Y9 |6 A1 f% ~2 L  w8 y  while [i < count turtles]
[
; D" r; S4 F5 H7 H7 i  _ if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
& @& p# ]( [. s" w     set linknumber (linknumber + count [link-neighbors] of turtle i)]
( H" z3 I( b' R/ R1 O6 i7 }, p if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
0 ]# _! F  m. h8 k) h  set i i + 1
  ]
/ T# |" N, I7 T) |. T: n. xend
! m! ^5 w1 f7 Y! u' L
/ x) ~# E0 K* y, E* S1 j[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
; S# [1 `1 i+ M* O+ m- H
/ y6 X* K0 F* B5 \9 n, Kto find-distance
4 h3 w% M+ S( O7 q! S2 p  let i 0
  let j 0
+ N$ I: J& T* T6 g7 B  m; g  let nodedistance 0
8 |; Z4 i6 {. |: x4 j6 i1 A8 Z  U  let linknumber 0
  
   while [j < count turtles]
, C& A$ g! ~  G/ r7 _) l6 a   [
6 ~' E5 [: \4 q- a, R; K3 C" S       while [i < count turtles]
) Z" W+ V- w) k1 t7 C5 l          [  if link-neighbor? turtle i
* L; w# S2 p9 S7 o' }                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
3 o1 C$ w$ I; ^" C' M                        ]
$ r: ?* b6 o/ r0 H( z            set i i + 1
        ]
8 L0 n) o6 Q5 l+ q     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
6 U6 L& W. l$ Xend