网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
# E/ N* b& k7 h9 o; z- ~0 U/ r2 G
to find-distance
) c6 n& Z4 A! ]' b  [  let i 0
" [3 w+ i0 m' T. F, _  let nodedistance 0
6 m% n5 Z+ K/ z5 M$ ^  let linknumber 0
  while [i < count turtles]
[
( c! g5 b7 |5 h/ n9 T if link-neighbor? turtle i
4 ~. D' r) `) m    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
% }6 w; r) G/ H; [     set linknumber (linknumber + count [link-neighbors] of turtle i)]
' e- z% S0 k+ ]2 u* m8 A if linknumber != 0
+ m5 B2 q0 `* c/ {1 G& t  [
% {( C- }1 N: X8 x6 e9 ?  set average-node-distance (nodedistance / linknumber)
  ]
8 `' Y$ M: C5 H! X7 x) g5 H/ |  set i i + 1
' Z. R4 E3 l& x8 K  ]
% K0 r6 ~. x1 q- P# p4 vend

  {& r0 M5 ?* Z6 W: L[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

1 q0 _+ l7 t3 |7 Z  z7 n" {- Bto find-distance
1 ~4 d2 S8 W1 P% [  n6 }  let i 0
4 Q; I2 p$ I9 K. L: S1 J  let j 0
4 R9 }/ b, x! q5 H% u& z0 G5 f7 W  let nodedistance 0
4 T+ K' ]2 m! }- A+ Z  let linknumber 0
3 J% U( P" `# f8 T/ q* l* N& V% h  
   while [j < count turtles]
6 a0 ]' D! w, G   [
) M) }: M. r5 U1 g( w9 C3 A& s2 L% c       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
  S3 a" K0 ]' T4 I1 f9 G5 z                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
5 D( m# |7 D, [7 t     set j j + 1
  ]
" G  l; \; j6 K% r! D  set average-path-length nodedistance / (linknumber * 2)
end