/*[[
	Name := Silver sen
	Author := Copyright © 2003, VIAC.RU AlexSilver
	Link := http://viac.ru/
	Separate Window := No
	First Color := SlateBlue
	First Draw Type := Symbol
	First Symbol := 135
	Use Second Data := No
]]*/
Inputs : CCIP(14), limit(250), delta(20), KBars(500);//, yyyy(0), mm(0), dd(0), hh(0), mn(0)
// limit - границы в которых находится зигзаг
// delta - расстояние между "хвостами" и "серединой"
Variables : shift(0), cnt(0), sh(0), loopbegin(0), firstTime(True);
Variables : val(0),cciU(0),cciD(0);
Array: tt[20](0);

SetLoopCount(0);
//var1 = StrToTime(NumberToStr(yyyy)+"."+NumberToStr(mm+"."+NumberToStr(dd)+" "+NumberToStr(hh)+":"+NumberToStr(mn));	// current time
// moving average
If firstTime Then
 {
  	if KBars==0 then
	{
		loopbegin = Bars-1;
	}
	else
	{
		loopbegin = KBars-1;
	}
 };
For shift = loopbegin Downto 0 Begin
	val=0;
	cciU=0;
	cciD=0;
	For sh = 0 to 8
	{
//	Заполнение массива точек.
		tt[sh]=iCCIEx(CCIP,PRICE_TYPICAL,shift+sh);
//  Определение наличия тренда.
		if sh<=8 then
		{
			if tt[sh]>=0 then
			{
				cciU++;		
			}
			else
			{
				cciD++;
			}
		}
	}
	/*Comment("Kmn ", NumberToStr(kmn,5)
	,"\n","Kmx ", NumberToStr(kmx,5)
	,"\n","pmn1 ", NumberToStr(pmn1,5)
	,"\n","pmn2 ", NumberToStr(pmn2,5)
	,"\n","pmx1 ", NumberToStr(pmx1,5)
	,"\n","pmx2 ", NumberToStr(pmx2,5));*/
// HFE в нисходящем тренде
	if tt[1]<=-limit and cciD>=6
		and tt[0]>-limit
		and tt[1]<tt[0]-delta
		then
	{

				val=L[shift]-9*Point;
				//val=-1;	
	}
	
//  TLB ctr в восходящем тренде
	if  tt[1]>=limit and cciU>=6
		and tt[0]<limit
		and tt[1]>tt[0]-delta
		then
	{
			val=H[shift]+9*Point;
			//val=1;
	}
	/*Comment("Kmn ", NumberToStr(kmn,5)
	,"\n","Kmx ", NumberToStr(kmx,5)
	,"\n","pmn1 ", NumberToStr(pmn1,5)
	,"\n","pmn2 ", NumberToStr(pmn2,5)
	,"\n","pmx1 ", NumberToStr(pmx1,5)
	,"\n","pmx2 ", NumberToStr(pmx2,5)
	,"\n","tmn1 ", NumberToStr(tmn1,5)
	,"\n","tmn2 ", NumberToStr(tmn2,5)
	,"\n","tmx1 ", NumberToStr(tmx1,5)
	,"\n","tmx2 ", NumberToStr(tmx2,5)
	,"\n","line ", NumberToStr(line,5));
	*/
	SetIndexValue(shift,val);
	loopbegin = loopbegin-1;
End;