这样写 好象不行
斜率:=(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;