网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
1 x8 e. ~- \, g
% }. A; i! s) \! F2 [' hto find-distance
' j' d( K1 F: @/ Q) ^  let i 0
' U5 Z* u' W$ f; z9 L9 Z% L" i  let nodedistance 0
  let linknumber 0
8 i( W, D9 ]" ^" z8 C6 U  while [i < count turtles]
[
. }* [1 r9 y' b( E! J* e  j- ^ if link-neighbor? turtle i
0 x) \0 h/ o+ h    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ x+ D' X4 s2 b# A. [/ q' M     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
1 S5 s& L0 r  H! H3 o  [
  set average-node-distance (nodedistance / linknumber)
  }& |7 y4 `. N% O  ]
& ?9 `, Y) O3 r+ G  set i i + 1
0 x) ?' r' g+ t2 L7 M' V  I7 Z  ]
. k. `. ]1 ?& hend

: P) e/ H8 T, ~[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
$ ~$ z9 _$ t8 o! @  let i 0
: \) k' k+ b$ I- C4 `9 t+ o( }( u  let j 0
2 D* C& j, ?- q- s  let nodedistance 0
  let linknumber 0
, m4 r" S  C5 U8 P  g! U  
& F/ j$ X! }( G   while [j < count turtles]
   [
0 ^; B- y7 @& j5 v       while [i < count turtles]
, v% Q* L  o* _+ d) U          [  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]
                        ]
. R/ r: _" Z1 }/ D& Q2 |- L8 u            set i i + 1
1 Q6 d- j. M% c) o        ]
     set j j + 1
  ]
$ X$ b6 m) B8 Q+ O' C  set average-path-length nodedistance / (linknumber * 2)
end