// Subhankar chakraborty
// ph8768142154,
// waves analysisest
// pivot analysisest
// box analysisest
//afl
SetBarsRequired(1000);
BarLum1 		= Param("Bar Color Intensity", 8, 0, 10,01);
UpBarColor		= ColorBlend(ColorRGB(5,36,5), ColorRGB(10,75,10), BarLum1);
DnBarColor		= ColorBlend(ColorRGB(36,5,5), ColorRGB(75,10,10), BarLum1);
BarColor		= IIf(Close > Open, UpBarColor, DnBarColor);
SetBarFillColor(BarColor);
stylecndl=ParamToggle("Bar or Candle chart?","Bar|Candle",0);
Showboll=ParamToggle("Show Bollinger Bands","No|Yes",0);
showgann=ParamToggle("Show shortest path?","No|Yes",1);
nobars=Param("N bars = ",2,1,5,1);
upbar=downbar=j=k=0;


if (nobars==1)upbar=H>Ref(H,-1);
if (nobars==2)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2);
if (nobars==3)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3);
if (nobars==4)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3) AND Ref(H,-3)>Ref(H,-4);
if (nobars==5)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3) AND Ref(H,-3)>Ref(H,-4) AND Ref(H,-4)>Ref(H,-5);;


if (nobars==1)downbar=L<Ref(L,-1);
if (nobars==2)downbar=L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2);
if (nobars==3)downbar=L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3);
if (nobars==4)downbar=L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3) AND Ref(L,-3)<Ref(L,-4);
if (nobars==5)downbar=L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3) AND Ref(L,-3)<Ref(L,-4) AND Ref(L,-4)<Ref(L,-5);


if (stylecndl)stylec=styleCandle;
else stylec=styleBar;

tline=tlinebs=barhi=barlo=beglo=beghi=endi=begi=hilo=Lastlo=Lasthi=lastlo1=lasthi1=0;
for (i=1;i<BarCount;i++)
{

if (i>=nobars+2)
{
//if (i>begi+1)PlotText(WriteVal(I>begi+1,1.0),i,H[i]+15,colorOrange);	


	if ((upbar[i] AND i>beglo ) OR (H[i]>H[beghi]))
	{
		if (((beghi>beglo AND H[i]>H[beghi]) OR beghi==0) OR beglo>beghi)
		{
			tline[i]=H[i];
			barhi=1;
			barlo=0;
			prevhi=beghi;
			beghi=i;
			if ((H[beghi]>H[prevhi] AND prevhi>beglo) OR beglo>prevhi)	{lasthi1=Lasthi;Lasthi=i;}
		}
	}
	if ((downbar[i] AND i>beghi )  OR (L[i]<L[beglo] AND i!=beghi))
	{
		if (((beglo>beghi AND L[i]<L[beglo]) OR beglo==0) OR beghi>beglo)
		{
			tline[i]=L[i];
			barlo=1;
			barhi=0;
			prevlo=beglo;
			beglo=i;
			if ((L[beglo]<L[prevlo] AND prevlo>beghi) OR beghi>prevlo){lastlo1=lastlo;Lastlo=i;}
		}
	}
}


	if (i==beglo)
	{

		if (prevlo>beghi)
		{
			if (showgann==0){begi=prevlo; begval=L[prevlo];}
			else {begi=Lasthi; begval=H[lasthi];}
			endi=beglo;endval=L[beglo];
		}
		else if (beghi>prevlo)
		{

			if (showgann==0){begi=beghi; begval=H[beghi];}
			else {begi=Lasthi; begval=H[lasthi];}
			endi=beglo;endval=L[beglo];
		}
	}
	if (i==beghi)
	{
		if (prevhi>beglo)
		{
			if (showgann==0){begi=prevhi; begval=H[prevhi];}
			else {begi=Lastlo; begval=L[Lastlo];}

			endi=beghi;endval=H[beghi];
		}
		else if (beglo>prevhi)
		{
			if (showgann==0){begi=beglo; begval=L[beglo];}
			else {begi=Lastlo; begval=L[Lastlo];}
			endi=beghi;endval=H[beghi];
		}
	}

	if (endi-begi>1)
	{
		incr=(endval-begval)/(endi-begi);
		for (k=begi;k<=endi;k++)
		{
			tline[k]=begval+(k-begi)*incr;
		}
	}	

if (tline[i]==0)tline[i]=Null;
//trend line end
}
tline=IIf(tline>0,tline,Null);
Plot(tline,"Trendline",colorWhite,styleLine);
//PlotOHLC(ox,Hx,Lx,cx,"Gann Trend",colorGreen,styleBar);
if (showboll)
{
	_SECTION_BEGIN("B");
	P = ParamField("Price field",-1);
	Periods = Param("Periods", 15, 2, 300, 1 );
	Width = Param("Width", 2, 0, 10, 0.05 );
	Color = ParamColor("Color", colorCycle );
	Style = ParamStyle("Style");
	Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); 
	Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style ); 
	_SECTION_END();


	_SECTION_BEGIN("MA");
	P = ParamField("Price field",-1);
	Periods = Param("Periods", 15, 2, 300, 1, 10 );
	Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
	_SECTION_END();
}