/*[[
	Name := Trend Continuation Factor 
	Author := Copyright © 2004, MetaQuotes Software Corp.
	Link := http://www.metaquotes.net/
	Separate Window := Yes
	First Color := Blue
	First Draw Type := Line
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
]]*/
input: n(20),CountBars(5000);
Variable : shift(0),cnt(0),k_n(0),k_p(0),shiftt(0),ch_p(0),ch_n(0),cff_p(0),cff_n(0),AccountedBars(0);
array:CF_p[5001](0),CF_n[5001](0),Change_p[5001](0),Change_n[5001](0);
SetLoopCount(0);
// loop from first bar to current bar (with shift=0)
if AccountedBars=0 then AccountedBars = Bars-CountBars;

For cnt = AccountedBars To Bars-1 Begin
shift = Bars - 1 - cnt;

{
IF C[shift] > C[shift+1]then
  { Change_p[shift] = C[shift]- C[shift+1];
  CF_p[shift]= Change_p[shift] + CF_p[shift+1];
   Change_n[shift] = 0;
   CF_n[shift]= 0;
   }
    ELSE
  { Change_p[shift] = 0;
  	CF_p[shift] = 0;
   Change_n[shift]  = C[shift+1]- C[shift];
   CF_n[shift] = Change_n[shift]+ CF_n[shift+1];
   };
};

for shiftt=shift+n downto shift begin

ch_p = Change_p[shiftt] +ch_p;
ch_n = Change_n[shiftt]+ch_n ;
cff_p =  CF_p[shiftt]+cff_p; 
cff_n =  CF_n[shiftt]+cff_n;
end;
k_p=ch_p-cff_n;
k_n=ch_n-cff_p;
	SetIndexValue(shift,k_p);
	SetIndexValue2(shift, k_n);
	AccountedBars=AccountedBars+1;
ch_p=0;
ch_n=0;
cff_p=0;
cff_n=0;		
End;