/*[[
    Name := XOIND
    Author := SHARIPOV AINUR
    Link := AINURHAL@mail.ru
    Notes := POINT FIGURES INDICATOR
    Separate Window := YES
    First Color := red
    First Draw Type := histogram
    First Symbol := 217
    Use Second Data := Yes
    Second Color := blue
    Second Draw Type := histogram
    Second Symbol := 218
]]*/

Input: KirPer(10);


Vars : cb(0),valuel(0),valueh(0),CurrentBar(0);
vars: KIR(0) ,Hi(0), Lo(0), KirUp(0), KirDn(0),mode(0),cnt(0),cnt1(0),cur(0),kr(0),no(0);
SetLoopCount(0);



	For CB = 0 To bars begin
	
	     CurrentBar=bars-CB;


	if Kir<1 then {;
	
	Hi=c[CurrentBar];
	Lo=c[CurrentBar];
	Kir=1;
	};
	  
	
	cur=(c[CurrentBar]);


				if cur > (Hi+KirPER*point) then {;
				Kir=Kir+1;
				Hi=cur;
				Lo=cur-KirPER*point;
				KirUp=1;
				KirDn=0;
				kr=kr+1;
				no=0;
				
				
				};


				if cur < (Lo-KirPER*point) Then {;
				Lo=cur;
				Hi=cur+KirPER*point;
				KirUp=0;
				KirDn=1;
				Kir=Kir+1;
				no=no+1;
				kr=0;
				
				
				};

	valueh=kr;
	valuel=0-no;
	setIndexValue(CurrentBar, valueh);
	setIndexValue2(CurrentBar, valuel);


end;