Respected AFL masters, please improve my code. Waiting your good responce
_SECTION_BEGIN("COLOR BAR & CANDEL");
MASK= ParamStyle("MASK",styleCandle, maskPrice);
barcolor = IIf(C > Ref(C,-1), ParamColor("Up Color",colorBrightGreen), IIf(C
==Ref(C,-1),colorOrange, ParamColor("Dn Color",colorOrange)));
Plot( C, "Close", barcolor,MASK);
_SECTION_END();
//////////////////////////////////////////////////////////////SELL
CONDITION////////////////////////////
_SECTION_BEGIN("SELL");
COLS=Param("COLOUR SELL",4,-60,55);
H1=0;
L1=0;
H2=0;
L2=0;
H3=0;
L3=0;
for( i = BarCount-9; i < BarCount; i++ )
{
if(H[i]>H[i-1] AND (L[i]>L[i-1]))
{
H1=H[i];L1=L[i] ;H1bar=i;
for( j = H1bar-8; j < H1bar; j++ )
{
if(H[j]<H1 AND L[j]<L1)
{
H2=H[j];L2=L[j] ;H2bar=j;
for( k = H2bar-7; k < H2bar; k++ )
{
if(H[k]<H2 AND L[k]<L2)
{
H3=H[k];L3=L[k] ;H3bar=k;
}
}
}
}
}
}
for( P = BarCount-20; P < BarCount; P++ )
{
if(H[P]>H[P-1] AND (L[P]>L[P-1]))
{
HP1=H[P];LP1=L[P] ;HP1bar=P;
for( Q = HP1bar-20; Q < HP1bar; Q++ )
{
if(H[Q]<HP1 AND L[Q]<LP1)
{
HP2=H[Q];LP2=L[Q] ;HP2bar=Q;
for( R = HP2bar-20; R < HP2bar; R++ )
{
if(H[R]<HP2 AND L[R]<LP2)
{
HP3=H[R];LP3=L[R] ;HP3bar=R;
}
}
}
}
}
}
PAPA=IIf(L3,L3,LP3);
TgtL1=(L3-(H1-L3));
TgtL2=(LP3-(HP1-LP3));
TgtL=IIf(L3,TgtL1,IIf(LP3,TgtL2,Null));
Bar_x1=BarCount -15 ;
Bar_x2=BarCount - (15 - i);
Bar_x3=BarCount -9 ;
Bar_x4=BarCount - (9 - i);
PER=Param("PER",20,1,100,1);
Plot(LineArray(Bar_x1,PAPA,Bar_x2,PAPA,extend=PER) ,"SELL",COLS,styleDashed);
Plot(LineArray( Bar_x3,TgtL,Bar_x4,TgtL,extend=PER), "TGTL",
COLS,styleLine|styleDashed|styleThick);
_SECTION_END();
//////////////////////////////////////////////////////BUY
CONDITION////////////////////////////////////
_SECTION_BEGIN("BUY");
COLB=Param("COLOUR BUY",-18,-60,55);
HB1=0;
LB1=0;
HB2=0;
LB2=0;
HB3=0;
LB3=0;
for( x = BarCount-9; x < BarCount; x++ )
{
if(L[x]< L[x-1]AND (H[x]<H[x-1])){ LB1=L[x]; HB1=H[x]; LB1bar=x;
for( y = LB1bar-8; y < LB1bar; y++ )
{
if(L[y]>LB1 AND H[y]>HB1){ LB2=L[y]; HB2=H[y]; LB2bar=y;
for( z = LB2bar-7; z < LB2bar; z++ )
{
if(L[z]>LB2 AND H[z]>HB2){LB3=L[z];HB3=H[z] ; LB3bar=z;
}
}
}
}
}
}
for( D = BarCount-20; D < BarCount; D++ )
{
if(L[D]< L[D-1]AND (H[D]<H[D-1])){ LBD1=L[D]; HBD1=H[D]; LBD1bar=D;
for( E = LBD1bar-20; E < LBD1bar; E++ )
{
if(L[E]>LBD1 AND H[E]>HBD1){ LBD2=L[E]; HBD2=H[E]; LBD2bar=E;
for( F = LBD2bar-20; F < LBD2bar; F++ )
{
if(L[F]>LBD2 AND H[F]>HBD2){LBD3=L[F];HBD3=H[F] ; LBD3bar=F;
}
}
}
}
}
}
AJAY=IIf(HB3,HB3,HBD3);
TgtH1=(HB3+(HB3-LB1));
TgtH2=(HBD3+(HBD3-LBD1));
TgtH=IIf(HB3,TgtH1,IIf(HBD3,TgtH2,Null));
Barx1=BarCount -15 ;
Barx2=BarCount - (15 - x);
Barx3=BarCount -9 ;
Barx4=BarCount - (15 - x);
PER2=Param("PER2",20,1,100,1);
Plot(LineArray(Barx1,AJAY,Barx2,AJAY,extend=PER2), "BUY",COLB,styleDashed);
Plot(LineArray(Barx3,TgtH,Barx4,TgtH,extend=PER2), "TGTH",
COLB,styleLine|styleDashed|styleThick);
_SECTION_END();
//////////////////////////////////////////////////////////////FILTER////////////////////////////////////
Buy=Cross(C,HB3);
Buy1=Cross(C,HBD3);
Sell=Cross(L3,C);
Sell1=Cross(LP3,C);
PERB=(C-HB3)/HB3*100;
PERS=(C-L3)/L3*100;
GAMEB=(TgtH-HB3)/TgtH*100;
GAMES=(TgtL-L3)/TgtL*100;
PERCENTAGE=(IIf(Buy,PERB,IIf(Sell,PERS,Null)));
GAME=(IIf(Buy,GAMEB,IIf(Sell,GAMES,Null)));
BALANCE=PERCENTAGE-GAME;
Filter=Buy OR BUY1 OR Sell OR Sell1;
AddColumn(BALANCE,"BG",1.1,colorBlack,IIf(Buy,colorSeaGreen,colorOrange),39);
AddColumn(GAME,"GAME",1.1,colorBlack,IIf(Buy,colorSeaGreen,colorOrange),33);
AddColumn(IIf(Buy,HB3,IIf(BUY1,HBD3,IIf(Sell,L3,IIf(SELL1,LP3,Null)))),"ENTERY",1.2,
colorDefault, IIf(Buy,colorGreen,
IIf(Buy1,colorGreen,IIf(Sell,colorOrange,IIf(Sell1 ,colorOrange,Null)))),60);
AddColumn(IIf(Buy,TgtH,IIf(Sell,TgtL,Null)),"TARGE T",1.2, colorDefault,
IIf(Buy,colorGreen,IIf(Sell,colorOrange,Null)),60) ;
AddColumn(C,"CLOSE",1.2,colorDefault,colorLightGrey,50);
_SECTION_END();
With Respect Dhiraj Sood
([email protected])
