原碼:N:=3;
M1:=MA(C,10);
M2:=MA(C,20);
M3:=MA(C,30);
M4:=MA(C,40);
M5:=MA(C,50);
VARIABLE:MM[5]:=0;
MM[1]:=M1[datacount];
MM[2]:=M2[datacount];
MM[3]:=M3[datacount];
MM[4]:=M4[datacount];
MM[5]:=M5[datacount];
x:=SORT(MM,0,1,5);
for i= 1 to 5-N+1 do begin
UU:=MM[i]*1.0005; SS:=1;
for j=i+1 to i+n-1 do begin
SS:=SS+(MM[j]<=UU and MM[j]<>0);
end;
if SS=N then break;
end;
選中:SS=N;