网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
( L4 b$ N; `8 Z+ J8 M即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
% O# o$ U8 t1 `请达人帮我指出错误好改进
- D, \$ M6 J1 D4 s) P0 |
to find-distance
) p2 _6 A6 H2 i$ j: f  let i 0
9 X7 A/ ?; ^6 V% }2 T  let nodedistance 0
$ K/ b: h7 V5 e) w  let linknumber 0
  while [i < count turtles]
0 l/ X: V/ z- p [
5 |  b  X" `. Y/ z( F2 `: ^ if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
2 f; h  ]. N8 e% l& ^ if linknumber != 0
, w  W, \- t; s$ N! Z2 @2 m2 e; P+ ~  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
0 Q/ O" y9 t5 u& a, ?2 u  ]
  @9 D! [* E# B% _" v# Mend

) D6 M/ |2 o3 F4 G* ~[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
' k$ X/ |; g  p& l因为特殊要求，这里的边的长度是二维座标内的空间距离

" E' m2 n5 G: Z- A2 q$ a8 [to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
! n( `  i' i  z. ?" d5 H4 U2 u9 L   while [j < count turtles]
4 r' t' M/ k/ X: q   [
0 Z( u' v8 _5 b       while [i < count turtles]
          [  if link-neighbor? turtle i
9 s; W% K8 y6 d6 v                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
  q7 w, A! A0 _                        ]
. Q0 ^# K: {* A( ^2 d1 T) a4 o            set i i + 1
. X- j$ i, [6 w+ |" [1 }. s) M        ]
     set j j + 1
9 r9 }( j  g& ^" @  ]
, [3 ?1 W: e9 B% N  set average-path-length nodedistance / (linknumber * 2)
end