网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
5 A4 P. I. F  Y3 d9 O) M4 v3 t1 ]% X如何求它的平均节点距离
" p4 P! X6 q4 G, K* `即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* B4 q1 N6 q8 z2 M) ?请达人帮我指出错误好改进
' D- Z, u2 K7 ?+ j
to find-distance
  let i 0
4 [( H) I* _. U+ y$ T5 M  let nodedistance 0
- B- J4 h% X5 Z  let linknumber 0
  while [i < count turtles]
[
+ n+ L4 _- v( w3 C! K* |# O( z if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
/ G! J* R$ K" u; F9 E1 ^3 X+ H     set linknumber (linknumber + count [link-neighbors] of turtle i)]
* H( Y" |$ N7 w6 L# o! _# K: S if linknumber != 0
  [
7 d3 d# K# T0 e% e; Q3 O9 ]' Q  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
9 ?3 S* f2 G  ^+ f; Pend

3 R6 P4 K- D/ {" @5 i4 E4 B[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
0 e/ x% ]- n8 J0 I/ P
to find-distance
  let i 0
  let j 0
+ t* O+ A2 A7 e- K  a  G; v! a( I  let nodedistance 0
( s+ e5 W9 |( j& f4 E* e5 H8 w  let linknumber 0
  
   while [j < count turtles]
   [
, D. p' v; L9 Z% O. {0 ]2 ~2 `       while [i < count turtles]
          [  if link-neighbor? turtle i
/ S, T) e, _% u/ ?                        [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
) l* R9 N) w6 b9 _% F" w2 K        ]
     set j j + 1
( {! C4 b& ?  f  ]
; a2 M: p, B, v* }# n  set average-path-length nodedistance / (linknumber * 2)
end