AFL Correction - Gann Sq of 9

Hi All memebers,

I found an AFL from net plotting lines for levels of Gann Square of 9.

I am trying to make changes so that lines show up only for current day. And just 3 lines above and 3 lines below the previous days close.

AFL seems to be very tricky for me. Please help me.

-------------------------------------------


_SECTION_BEGIN("gann_levels_plot_with_targets_and_ day_highlow");
//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);

Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

//avp=(O+C)/2;
avp=C;
tn=TimeNum();
Datey=DateNum();
gannh0=gannh1=gannh2=gannh3=gannh4=gannh5=gannh6=g annh7=gannh8=Null;
gannl0=gannl1=gannl2=gannl3=gannl4=gannl5=gannl6=g annl7=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]=C[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,styleL ine|styleDashed|styleNoTitle+styleNoRescale);
Plot(VarGet("gannl"+i),"Gannl"+i,colorWhite,styleL ine|styleDashed|styleNoTitle+styleNoRescale);
}
if ((i==2 OR i==6) AND PlotGannRed=="Yes")
{
Plot(VarGet("gannh"+i),"Gannh"+i,colorRed,styleLin e|styleDashed|styleNoTitle+styleNoRescale);
Plot(VarGet("gannl"+i),"Gannl"+i,colorRed,styleLin e|styleDashed|styleNoTitle+styleNoRescale);
}
if (i==4 AND PlotGannBlue=="Yes")
{
Plot(VarGet("gannh"+i),"Gannh"+i,colorBlue,styleLi ne|styleDashed|styleNoTitle+styleNoRescale);
Plot(VarGet("gannl"+i),"Gannl"+i,colorBlue,styleLi ne|styleDashed|styleNoTitle+styleNoRescale);
}


if (Plotgannodd=="Yes")
{
if (i==1 OR i==3 OR i==5 OR i==7)
{
Plot(VarGet("gannh"+i),"Gannh"+i,colorGreen,styleL ine|styleDashed|styleNoTitle+styleNoRescale);
Plot(VarGet("gannl"+i),"Gannl"+i,colorGreen,styleL ine|styleDashed|styleNoTitle+styleNoRescale);
}
}
}
}



_SECTION_END();

Attached Images

gann 9.PNG (26.7 KB)