网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
. d2 v; h8 O/ h2 r5 B即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
" L* P9 R5 W! E5 V/ q6 J请达人帮我指出错误好改进
5 j6 j/ s6 U" Q  L5 {: z9 F
+ t1 i$ k6 H/ C3 O6 S' Vto find-distance
% }  N$ L* d7 U  let i 0
9 y6 e) t) g9 k) ?3 ~* S  let nodedistance 0
/ F8 D8 o" k- H  let linknumber 0
% ^) B# W* s1 J* a  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
* F7 x3 e* ]# i  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
3 H# I2 F6 W/ ^3 t$ s  ]
end
( [6 t/ x: D4 [6 {0 g# C6 k0 I
7 ?" Z) ]4 u; G9 i. C1 S[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
8 w- o- g  Y9 V" X  D因为特殊要求，这里的边的长度是二维座标内的空间距离
" d# e! V1 A: x4 V
$ {3 z! n+ `4 M; v% d8 S/ lto find-distance
/ m# Z- V9 b3 Z0 t/ H/ {  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
3 a: _+ O2 l, O; X/ T2 s4 V& a   [
       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]
                        ]
            set i i + 1
0 j' a, J; b$ Q  v        ]
3 K/ Q, `3 b/ m+ w- v. A     set j j + 1
  ]
  `, s' p! P5 ]8 }  set average-path-length nodedistance / (linknumber * 2)
) r2 U! z& H0 }) _$ W0 q/ Kend