网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
1 y% J% N( x) _" b* H1 H4 u. _8 x
1 {; A9 p: l3 `1 b/ Cto find-distance
2 N+ a5 a5 r9 C( M: t5 V  let i 0
$ X; o. b6 f6 K7 [5 {3 k* n  let nodedistance 0
  let linknumber 0
* C' p: Z/ M$ w6 ?  while [i < count turtles]
[
if link-neighbor? turtle i
% I+ T! E. S' h) U: X9 Q    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
' S/ g6 `: [, i8 L if linknumber != 0
5 a. r; B1 l$ S; I7 P; ]  [
  set average-node-distance (nodedistance / linknumber)
  ]
' G) j& G' U/ H  set i i + 1
  ]
, s5 y/ Y; q' l! D! `$ S+ xend
1 R$ w& z# K$ x4 G/ t
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
! w& d" @& Y9 }0 c: F  let j 0
  let nodedistance 0
  let linknumber 0
: l5 d% P1 H) [9 o, b: W- u  
4 o5 [/ E) N6 O! r; f   while [j < count turtles]
& n  J8 p& _+ J( ~: b; i   [
5 \* K- A3 R( N% m5 \       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
. ], m3 z; m0 ~" T9 r- `                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
' i! r) c! B+ Y/ ~+ d  R/ ^                        ]
2 [0 x8 _( f& c! z            set i i + 1
        ]
     set j j + 1
+ Z  O: M9 Z9 ]+ j1 m1 C4 z  ]
9 Y+ B# A+ i  O$ `* a  set average-path-length nodedistance / (linknumber * 2)
end