网络边的平均距离

qy987

请教在netlogo中
& r* P; s; k1 n8 x5 h2 _4 m对于一个非完全连接的网络
  N* a+ g/ I( L如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

8 z/ h# N4 E: U' B4 c" S) pto find-distance
- U* z& N* s% ?3 O0 K/ W7 @0 z  let i 0
5 Q* b; X) y, j1 b& H3 _6 V) m5 L  let nodedistance 0
4 Z, n# ?1 `" C2 Q/ k  let linknumber 0
  while [i < count turtles]
+ R9 \. f. h' @) y/ j; k [
if link-neighbor? turtle i
) A* [5 t) B; |4 d( g$ M9 G    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
  h7 \+ B& G  L if linknumber != 0
  [
0 ]  e/ h& b3 A2 j* v  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
" ?/ F4 R# c) z& rend

$ @) k, [3 V1 k& ]% a[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
6 H0 V! `/ Z) b- E因为特殊要求，这里的边的长度是二维座标内的空间距离
2 z( s- Q* V/ [1 a! E$ B: U
# Q, _; x3 Q6 B" [! h/ {0 O( Vto find-distance
8 s: {! O2 C, s% c  let i 0
" d9 i, d8 L2 L" n- I1 h, ~2 t  \  let j 0
  let nodedistance 0
  let linknumber 0
" e( C) j) f  M  
) {% B" T& Z; Z* j3 p! N' T6 }   while [j < count turtles]
( z% K0 ^/ j; ^5 q- t3 f; r   [
       while [i < count turtles]
          [  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]
4 X/ E% |0 J6 n+ J( [& X; w                        ]
            set i i + 1
$ w0 M9 `1 L: H5 F  U        ]
$ m- J! ?+ s# t0 \; I     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
! ?5 a% W# |5 a" N6 D; ~* vend