Variable : AF($data), Hmax($data), Lmin($data), napr($data), SAR($data);
step=inparam("step=",0,1,0.02);
AFmax=inparam("AFmax=",0,1,0.2);
if cum(1)=1 then
 begin
  AF=step;
  Hmax=H;
  Lmin=L;
  napr=1;
  SAR=Lmin;
 end; else
  begin
   //Перенос старых значений
   AF=ref(AF,-1);
   Hmax=ref(Hmax,-1);
   Lmin=ref(Lmin,-1);
   napr=ref(napr,-1);
   SAR=ref(SAR,-1);
   //вычисление новых значений
   if H>Hmax then
    begin
     Hmax=H;
     if napr and (AF<=(AFmax-step)) then AF=AF+step;
    end;
   if L<Lmin then
    begin
     Lmin=L;
     if napr=-1 and (AF<=(AFmax-step)) then AF=AF+step;
    end;
   //проверяем есть ли пересечение
   if napr=1 then SAR=SAR+AF*(Hmax-SAR); else SAR=SAR+AF*(Lmin-SAR);
   if ((L<SAR) and (SAR<H)) or ((ref(L>SAR,-1)) and (SAR>H)) or ((ref(SAR>H,-1)) and (SAR<L)) then
    begin
     AF=Step;
     if napr=1 then SAR=Hmax; else SAR=Lmin;
     Lmin=L;
     Hmax=H;
     napr=napr*-1;
    end;
  end;
SAR;