标题：如何找出数组中与其他值之差<0.02的次数最多的那个值？

斜率:=(H-ref(H,1))/ref(H1,1);

前N天的斜率形成一个长度为N的数组，比如按IF日线，就是0.0060, 0.0042, 0.0048, 0.0018, -0.0022, 0.0066

 

现在想遍历数组中每个值与其它值的差，然后找出差<0.002的次数最多的那个值。

比如0.0048，就和其中3个数的差都小于0.002，因此就选出0.0060, 0.0042, 0.0048, 0.0066这4个次数都为3的值，求得它们的平均数为当前斜率。

而0.0018, -0.0022因为骗离其它值太远，就被抛弃了。

 

现在有简单的函数或算法，来实现这个目标吗？

这样写 好象不行

 

斜率:=(H-ref(H,1))/ref(H1,1);

variable:ss=0,kk=0;
variable:A[5]=0;
hh:=斜率;
A[1]:=ref(hh,1);
A[2]:=ref(hh,2);
A[3]:=ref(hh,3);
A[4]:=ref(hh,4);
A[5]:=ref(hh,5);

斜率差:=0.002;
if count((hh-A)<=斜率差,6)>=4 then begin
      ss:=ss+hh;
      kk:=kk+1;
      end
if count((A[1]-A)<=斜率差,6)>=4 then begin
      ss:=ss+A[1];
      kk:=kk+1;
      end
if count((A[2]-A)<=斜率差,6)>=4 then begin
      ss:=ss+A[2];
      kk:=kk+1;
      end
if count((A[3]-A)<=斜率差,6)>=4 then begin
      ss:=ss+A[3];
      kk:=kk+1;
      end
if count((A[4]-A)<=斜率差,6)>=4 then begin
      ss:=ss+A[4];
      kk:=kk+1;
      end
if count((A[5]-A)<=斜率差,6)>=4 then begin
      ss:=ss+A[5];
      kk:=kk+1;
      end

当前斜率:ss/kk,colorgreen;