k=inparam("K=", 0, 500, 1);
if cum(1)=1 then
 begin
  Trend=0;
  HPrice=c;
  LPrice=c;
  Reverse=c;
 end; else
  begin
   Trend=ref(Trend,-1);
   HPrice=ref(HPrice,-1);
   LPrice=ref(LPrice,-1);
   Reverse=ref(Reverse,-1);   

   if (Trend>=0) then 
    begin
     if (C > HPrice) then HPrice = C;
     Reverse = HPrice*(1 - K*0.01);
     if (C <= Reverse) then 
      begin
       Trend = -1;
       LPrice = C;
       Reverse = LPrice*(1 + K*0.01);
      end;
    end;
   if (Trend <= 0) then 
    begin
     if (C < LPrice) then LPrice = C;
     Reverse = LPrice*(1 + K*0.01);
     if (C > Reverse) then
      begin
       Trend = 1;
       HPrice = C;
       Reverse = HPrice*(1 - K*0.01);
      end;
    end;
  end;
NRTR = Reverse;
NRTR;