之前收盘价小于今天收盘价5%的周期数

runmode:0;

cc:c;

nn:=0;

for i=1 to barpos-1 do begin

    if cc[barpos-i]<=c*0.95 then begin

        nn:=i;

         break;

   end

end

nn为所求值