Try this --
SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )),
ParamColor("BgBottom", ColorRGB( 172,172,172
)),ParamColor("titleblock",ColorRGB( 172,172,172 )));
_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( );
Regards
Nihar Ranjan Pal
PPlease don't print this e-mail unless you really need to.
He who plants in the sea will harvest the storm
________________________________
From: NIFTY <[email protected]>
To: [email protected]
Sent: Sat, 27 March, 2010 4:11:18 PM
Subject: [amibroker] Logic
Respected AFL masters, please improve my code. Waiting your good responce
_SECTION_BEGIN( "COLOR BAR & CANDEL");
MASK= ParamStyle(" MASK",styleCandl e, maskPrice);
barcolor = IIf(C > Ref(C,-1), ParamColor(" Up Color",colorBrightG reen), 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,styleDas hed);
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,colorSea Green,colorOrang
e),39);
AddColumn(GAME, "GAME",1. 1,colorBlack, IIf(Buy,colorSea Green,colorOrang
e),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 (nift...@yahoo. com)
Your Mail works best with the New Yahoo Optimized IE8. Get it NOW!
http://downloads.yahoo.com/in/internetexplorer/
