//Gann level Plotter
//Abnash Singh 5-11-2011
//Updated on 12-11-2011 to include context based Gann levels and days highs and lows
//abnash1978@yahoo.co.uk
//You can do any of the following:
//Suppress candle or bar plotting
//Choose to plot candle or bar
//Choose to plot 0/90 deg levels or also 45/225 and 135/315 deg levels
//Clip plotting from 15:25-15:30 to avoid clutter on day change
//Clip Gann lines outside the price range.
//Gann logic begin
SetBarsRequired( 5000, 0 );  

showcandlechart=ParamList("Show Candle chart","YES|NO");
stylecndl=ParamList("Bar/Candle chart","BAR|CANDLE");
PlotGann=ParamList("Show Gann Lines","Yes|No",0);
PlotGannBlue=ParamList("Show Gann Blue Lines","Yes|No",0);
PlotGannRed=ParamList("Show Gann Red Lines","Yes|No",0);
PlotGannodd=ParamList("Show Gann Odd Angle Lines","Yes|No",1);
ClipGann=ParamList("Clip Gann Lines above High/Low","Yes|No",1);
Clip1530=ParamList("Clip Lines at time 1530","Yes|No",1);


GannProx=ParamList("Gann to Mid price < 5 pts","Yes|No",1);

BarColor		= IIf(Close > Open, colorGreen, colorRed);
SetBarFillColor(BarColor);
if (stylecndl=="BAR")stylec=styleBar;
else stylec=styleCandle;
if (showcandlechart=="YES")
{
	
	Plot(C, "Close", colorWhite, styleNoTitle | stylec); 
}

avp=(O+C)/2;
tn=TimeNum();
Datey=DateNum();
gannh0=gannh1=gannh2=gannh3=gannh4=gannh5=gannh6=gannh7=gannh8=Null;
gannl0=gannl1=gannl2=gannl3=gannl4=gannl5=gannl6=gannl7=gannl8=Null;
gannmin=0;basec=basenoh=basenol=0;
gannmin=0;
Dayhigh=Daylow=Dayopen=Dayclose=0;
uptarget=lotarget=0;
for (i=1;i<BarCount;i++)
{

//day high low logic
			if (Datey[i]!=Datey[i-1])
			{
				ds=i;pkmax=trmin=0;
				Dayopen[i]=O[i];
				Dayclose[i]=C[i];
			}
			if (Datey[i]==Datey[i-1])
			{
				Dayopen[i]=Dayopen[i-1];
				Dayclose[i]=Dayclose[i-1];
				Dayhigh[i]=Dayhigh[i-1];
				Daylow[i]=Daylow[i-1];
			}

			if (H[i]>Dayhigh[i])Dayhigh[i]=H[i];
			if (Daylow[i]==0)Daylow[i]=L[i];
			if (L[i]<Daylow[i])Daylow[i]=L[i];





if (PlotGann=="Yes")
{
dnn=30;
basenoh=int(sqrt(dayopen[i]));
basenol=int(sqrt(C[i]));



//PlotText(WriteVal(basenol,1.0),i,H[i]+5,colorWhite);

	gannh0[i]=basenoh*basenoh;
	gannh1[i]=(basenoh+0.125)^2;
	gannh2[i]=(basenoh+0.25)^2;
	gannh3[i]=(basenoh+0.375)^2;
	gannh4[i]=(basenoh+0.5)^2;
	gannh5[i]=(basenoh+0.625)^2;
	gannh6[i]=(basenoh+0.75)^2;
	gannh7[i]=(basenoh+0.875)^2;
	gannh8[i]=(basenoh+1)^2;

if(basenoh!=basenol)	gannl0[i]=basenol*basenol;
if(basenoh!=basenol)	gannl1[i]=(basenol+0.125)^2;
if(basenoh!=basenol)	gannl2[i]=(basenol+0.25)^2;
if(basenoh!=basenol)	gannl3[i]=(basenol+0.375)^2;
if(basenoh!=basenol)	gannl4[i]=(basenol+0.5)^2;
if(basenoh!=basenol)	gannl5[i]=(basenol+0.625)^2;
if(basenoh!=basenol)	gannl6[i]=(basenol+0.75)^2;
if(basenoh!=basenol)	gannl7[i]=(basenol+0.875)^2;
if(basenoh!=basenol)	gannl8[i]=Null;//(basenol+1)^2;
	if(ClipGann=="Yes")
	{
		if (gannh0[i]>Dayhigh[i]+dnn OR gannh0[i]<Daylow[i]-dnn)gannh0[i]=Null;	
		if (gannh1[i]>Dayhigh[i]+dnn OR gannh1[i]<Daylow[i]-dnn)gannh1[i]=Null;	
		if (gannh2[i]>Dayhigh[i]+dnn OR gannh2[i]<Daylow[i]-dnn)gannh2[i]=Null;	
		if (gannh3[i]>Dayhigh[i]+dnn OR gannh3[i]<Daylow[i]-dnn)gannh3[i]=Null;	
		if (gannh4[i]>Dayhigh[i]+dnn OR gannh4[i]<Daylow[i]-dnn)gannh4[i]=Null;	
		if (gannh5[i]>Dayhigh[i]+dnn OR gannh5[i]<Daylow[i]-dnn)gannh5[i]=Null;	
		if (gannh6[i]>Dayhigh[i]+dnn OR gannh6[i]<Daylow[i]-dnn)gannh6[i]=Null;	
		if (gannh7[i]>Dayhigh[i]+dnn OR gannh7[i]<Daylow[i]-dnn)gannh7[i]=Null;	
		if (gannh8[i]>Dayhigh[i]+dnn OR gannh8[i]<Daylow[i]-dnn)gannh8[i]=Null;	
		if (gannl0[i]>Dayhigh[i]+dnn OR gannl0[i]<Daylow[i]-dnn)gannl0[i]=Null;	
		if (gannl1[i]>Dayhigh[i]+dnn OR gannl1[i]<Daylow[i]-dnn)gannl1[i]=Null;	
		if (gannl2[i]>Dayhigh[i]+dnn OR gannl2[i]<Daylow[i]-dnn)gannl2[i]=Null;	
		if (gannl3[i]>Dayhigh[i]+dnn OR gannl3[i]<Daylow[i]-dnn)gannl3[i]=Null;	
		if (gannl4[i]>Dayhigh[i]+dnn OR gannl4[i]<Daylow[i]-dnn)gannl4[i]=Null;	
		if (gannl5[i]>Dayhigh[i]+dnn OR gannl5[i]<Daylow[i]-dnn)gannl5[i]=Null;	
		if (gannl6[i]>Dayhigh[i]+dnn OR gannl6[i]<Daylow[i]-dnn)gannl6[i]=Null;	
		if (gannl7[i]>Dayhigh[i]+dnn OR gannl7[i]<Daylow[i]-dnn)gannl7[i]=Null;	
		if (gannl7[i]>Dayhigh[i]+dnn OR gannl7[i]<Daylow[i]-dnn)gannl7[i]=Null;		
	}
		
//if (IsNull(gannh8[i]))PlotText(WriteVal(1,1.0),i,L[i]-5,colorOrange);

//else
if (Clip1530=="Yes" AND tn[i]>=153000 AND tn[i]<=153500)
gannh0[i]=	gannh1[i]=	gannh2[i]=	gannh3[i]=	gannh4[i]=	gannh5[i]=	gannh6[i]=	gannh7[i]=	gannh8[i]=
gannl0[i]=	gannl1[i]=	gannl2[i]=	gannl3[i]=	gannl4[i]=	gannl5[i]=	gannl6[i]=	gannl7[i]=	gannl8[i]=
Null;
//Gann logic end

// is price close to a Gann Line?

gannmin[i]=100000;
if (!IsNull(gannh0[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannh0[i]-avp[i]));
if (!IsNull(gannh2[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannh2[i]-avp[i]));
if (!IsNull(gannh4[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannh4[i]-avp[i]));
if (!IsNull(gannh6[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannh6[i]-avp[i]));
if (!IsNull(gannh8[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannh8[i]-avp[i]));
if (!IsNull(gannl0[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannl0[i]-avp[i]));
if (!IsNull(gannl2[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannl2[i]-avp[i]));
if (!IsNull(gannl4[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannl4[i]-avp[i]));
if (!IsNull(gannl6[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannl6[i]-avp[i]));
if (!IsNull(gannl8[i]))
	gannmin[i]=Min (gannmin[i],	abs(gannl8[i]-avp[i]));
if (gannprox=="Yes" AND gannmin[i]<5 AND gannmin[i]<gannmin[i-1])PlotText(" ^",i,L[i]-5,colorOrange);

if (Plotgannodd=="Yes" AND PlotGannRed=="Yes" AND PlotGannBlue=="Yes" AND PlotGann=="Yes")
{
	if (avp[i]<gannh8[i] AND avp[i]>gannh7[i]){uptarget[i]=gannh8[i]; Lotarget[i]=gannh7[i];}
	if (avp[i]<gannh7[i] AND avp[i]>gannh6[i]){uptarget[i]=gannh7[i]; Lotarget[i]=gannh6[i];}
	if (avp[i]<gannh6[i] AND avp[i]>gannh5[i]){uptarget[i]=gannh6[i]; Lotarget[i]=gannh5[i];}
	if (avp[i]<gannh5[i] AND avp[i]>gannh4[i]){uptarget[i]=gannh5[i]; Lotarget[i]=gannh4[i];}
	if (avp[i]<gannh4[i] AND avp[i]>gannh3[i]){uptarget[i]=gannh4[i]; Lotarget[i]=gannh3[i];}
	if (avp[i]<gannh3[i] AND avp[i]>gannh2[i]){uptarget[i]=gannh3[i]; Lotarget[i]=gannh2[i];}
	if (avp[i]<gannh2[i] AND avp[i]>gannh1[i]){uptarget[i]=gannh2[i]; Lotarget[i]=gannh1[i];}
	if (avp[i]<gannh1[i] AND avp[i]>gannh0[i]){uptarget[i]=gannh1[i]; Lotarget[i]=gannh0[i];}
	if (avp[i]<gannh0[i] AND avp[i]>gannl7[i]){uptarget[i]=gannh0[i]; Lotarget[i]=gannl7[i];}
	if (avp[i]<gannl8[i] AND avp[i]>gannl7[i]){uptarget[i]=gannl8[i]; Lotarget[i]=gannl7[i];}
	if (avp[i]<gannl7[i] AND avp[i]>gannl6[i]){uptarget[i]=gannl7[i]; Lotarget[i]=gannl6[i];}
	if (avp[i]<gannl6[i] AND avp[i]>gannl5[i]){uptarget[i]=gannl6[i]; Lotarget[i]=gannl5[i];}
	if (avp[i]<gannl5[i] AND avp[i]>gannl4[i]){uptarget[i]=gannl5[i]; Lotarget[i]=gannl4[i];}
	if (avp[i]<gannl4[i] AND avp[i]>gannl3[i]){uptarget[i]=gannl4[i]; Lotarget[i]=gannl3[i];}
	if (avp[i]<gannl3[i] AND avp[i]>gannl2[i]){uptarget[i]=gannl3[i]; Lotarget[i]=gannl2[i];}
	if (avp[i]<gannl2[i] AND avp[i]>gannl1[i]){uptarget[i]=gannl2[i]; Lotarget[i]=gannl1[i];}
	if (avp[i]<gannl1[i] AND avp[i]>gannl0[i]){uptarget[i]=gannl1[i]; Lotarget[i]=gannl0[i];}
}
if (Plotgannodd=="No" AND PlotGannRed=="Yes" AND PlotGannBlue=="Yes" AND PlotGann=="Yes")
{
	if (avp[i]<gannh8[i] AND avp[i]>gannh6[i]){uptarget[i]=gannh8[i]; Lotarget[i]=gannh6[i];}
	if (avp[i]<gannh6[i] AND avp[i]>gannh4[i]){uptarget[i]=gannh6[i]; Lotarget[i]=gannh4[i];}
	if (avp[i]<gannh4[i] AND avp[i]>gannh2[i]){uptarget[i]=gannh5[i]; Lotarget[i]=gannh2[i];}
	if (avp[i]<gannh2[i] AND avp[i]>gannh0[i]){uptarget[i]=gannh4[i]; Lotarget[i]=gannh0[i];}
	if (avp[i]<gannh0[i] AND avp[i]>gannl6[i]){uptarget[i]=gannh0[i]; Lotarget[i]=gannl6[i];}
	if (avp[i]<gannl8[i] AND avp[i]>gannl6[i]){uptarget[i]=gannl8[i]; Lotarget[i]=gannl6[i];}
	if (avp[i]<gannl6[i] AND avp[i]>gannl4[i]){uptarget[i]=gannl6[i]; Lotarget[i]=gannl4[i];}
	if (avp[i]<gannl4[i] AND avp[i]>gannl2[i]){uptarget[i]=gannl4[i]; Lotarget[i]=gannl2[i];}
	if (avp[i]<gannl2[i] AND avp[i]>gannl0[i]){uptarget[i]=gannl2[i]; Lotarget[i]=gannl0[i];}
}
if (Plotgannodd=="No" AND PlotGannRed=="No" AND PlotGannBlue=="Yes" AND PlotGann=="Yes")
{
	if (avp[i]<gannh8[i] AND avp[i]>gannh4[i]){uptarget[i]=gannh8[i]; Lotarget[i]=gannh4[i];}
	if (avp[i]<gannh4[i] AND avp[i]>gannh0[i]){uptarget[i]=gannh4[i]; Lotarget[i]=gannh0[i];}
	if (avp[i]<gannh0[i] AND avp[i]>gannl4[i]){uptarget[i]=gannh0[i]; Lotarget[i]=gannl4[i];}
	if (avp[i]<gannl8[i] AND avp[i]>gannl4[i]){uptarget[i]=gannl8[i]; Lotarget[i]=gannl4[i];}
	if (avp[i]<gannl4[i] AND avp[i]>gannl0[i]){uptarget[i]=gannl4[i]; Lotarget[i]=gannl0[i];}
}
if (Plotgannodd=="No" AND PlotGannRed=="No" AND PlotGannBlue=="No" AND PlotGann=="Yes")
{
	if (avp[i]<gannh8[i] AND avp[i]>gannh0[i]){uptarget[i]=gannh8[i]; Lotarget[i]=gannh0[i];}
	if (avp[i]<gannh0[i] AND avp[i]>gannl0[i]){uptarget[i]=gannh0[i]; Lotarget[i]=gannl0[i];}
}

}


}

if (Plotgann=="Yes")
{
	for (i=0;i<=8;i++)
	{
		if (i==0 OR i==8)
			{
				Plot(VarGet("gannh"+i),"Gannh"+i,colorWhite,styleLine|styleDashed|styleNoTitle);
				Plot(VarGet("gannl"+i),"Gannl"+i,colorWhite,styleLine|styleDashed|styleNoTitle);
			}
		if ((i==2 OR i==6) AND PlotGannRed=="Yes")
			{
				Plot(VarGet("gannh"+i),"Gannh"+i,colorRed,styleLine|styleDashed|styleNoTitle);
				Plot(VarGet("gannl"+i),"Gannl"+i,colorRed,styleLine|styleDashed|styleNoTitle);
			}
		if (i==4 AND PlotGannBlue=="Yes")
			{
				Plot(VarGet("gannh"+i),"Gannh"+i,colorBlue,styleLine|styleDashed|styleNoTitle);
				Plot(VarGet("gannl"+i),"Gannl"+i,colorBlue,styleLine|styleDashed|styleNoTitle);
			}
	
				
		if (Plotgannodd=="Yes")
		{
			if (i==1 OR i==3 OR i==5 OR i==7)
			{
				Plot(VarGet("gannh"+i),"Gannh"+i,colorGreen,styleLine|styleDashed|styleNoTitle);
				Plot(VarGet("gannl"+i),"Gannl"+i,colorGreen,styleLine|styleDashed|styleNoTitle);
			}
		}
	}
}


Title = Date()+" Gann Levels "+ Interval(format=2)+"  "+Name()+" O "+WriteVal(O,1.2)+" H "+WriteVal(H,1.2)+"  L "+WriteVal(L,1.2)+" C "+WriteVal(C,1.2)+" "+EncodeColor(colorYellow)+" Dayhigh " +WriteVal(dayHigh,1.2)+" Daylow "+WriteVal(Daylow,1.2)
+"\n"+EncodeColor(colorGreen)+"Nearest Upper Gann Level "+WriteVal(uptarget,1.2)+EncodeColor(colorRed)+"  Nearest Lower Gann Level "+WriteVal(Lotarget,1.2);