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

我记得我写的时候是没用数组的，你自己加的？

对于这种情况，已经超过你给的定义了，所以不能再往后写了，

你发帖到高级区问问

无敌了，验证了好几遍都是对的，用户看看有没有不对的地方

ss:=0;kk:=1;tt:=0;
hh:(H-ref(H,1))/ref(H,1);
h1:ref(hh,1);
h2:ref(hh,2);
h3:ref(hh,3);
h4:ref(hh,4);
x1: ((hh-h1)<=0.002) + ((hh-h2)<=0.002) + ((hh-h3)<=0.002) + ((hh-h4)<=0.002) ;
x2: ((h1-hh)<=0.002) + ((h1-h2)<=0.002) + ((h1-h3)<=0.002) + ((h1-h4)<=0.002) ;
x3: ((h2-h1)<=0.002) + ((h2-hh)<=0.002) + ((h2-h3)<=0.002) + ((h2-h4)<=0.002) ;
x4: ((h3-h1)<=0.002) + ((h3-h2)<=0.002) + ((h3-hh)<=0.002) + ((h3-h4)<=0.002) ;
x5: ((h4-h1)<=0.002) + ((h4-h2)<=0.002) + ((h4-h3)<=0.002) + ((h4-hh)<=0.002) ;

if x1<>ss  then begin
 ss:=x1;
 tt:=hh;
end

if x2=ss and x2<>0  then begin
 tt:=tt+h1;
 kk:=kk+1;
end

if x2>ss   then begin
 ss:=x2; 
 tt:=h1;
 kk:=1;
end

if x3=ss and x3<>0    then begin
 tt:=tt+h2;
 kk:=kk+1;
end

if x3>ss   then begin
 ss:=x3;
 tt:=h2;
 kk:=1;
end

if x4=ss and x4<>0   then begin
 tt:=tt+h3;
 kk:=kk+1;
end

if x4>ss   then begin
 ss:=x4; 
 tt:=h3;
 kk:=1;
end

if x5=ss and x5<>0    then begin
 tt:=tt+h4;
 kk:=kk+1;
end

if x5>ss   then  begin
 ss:=x5; 
 tt:=h4;
 kk:=1;
end

if ss=0 then drawtext(islastbar,close,'没有符合的项');
if ss<>0 then avg:tt/kk;