主题：如何筛选出“主流”平均值？

举个简单的例子，如果你的元素太多太复杂的话，那么这样的也没用了

variable:ss=0,kk=0;
hh:H-ref(H,1);
h1:ref(hh,1);
h2:ref(hh,2);
h3:ref(hh,3);
h4:ref(hh,4);
if (hh-h1)<=0.02 and (hh-h2)<=0.02 and (hh-h3)<=0.02 and (hh-h4)<=0.02 then begin
      ss:=ss+hh;
      kk:=kk+1;
end

if (h1-hh)<=0.02 and (h1-h2)<=0.02 and (h1-h3)<=0.02 and (h1-h4)<=0.02 then begin
      ss:=ss+h1;
      kk:=kk+1;
end
if (h2-h1)<=0.02 and (h2-hh)<=0.02 and (h2-h3)<=0.02 and (h2-h4)<=0.02 then begin
      ss:=ss+h2;
      kk:=kk+1;
end

if (h3-h1)<=0.02 and (h3-h2)<=0.02 and (h3-hh)<=0.02 and (h3-h4)<=0.02 then begin
      ss:=ss+h2;
      kk:=kk+1;
end
if (h4-h1)<=0.02 and (h4-h2)<=0.02 and (h4-h3)<=0.02 and (h4-hh)<=0.02 then begin
      ss:=ss+h4;
      kk:=kk+1;
end
avg:ss/kk;