// Downloaded From https://www.WiseStockTrader.com


_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("StyleBar") | GetPriceStyle() ); 

//ThisStyle = styleBar;
//break() );
_SECTION_BEGIN("DHIBINESH AFL");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),ParamColor("BgBottom", colorBlack));
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartOptions(0,0,chartGrid20 |chartGrid50 |chartGrid80);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} < open %g > < high %g > < low %g > < close %g > (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
  
//Plot(C,"\nPrice",IIf(C>O,ParamColor("Wick UP Color", colorDarkGreen),IIf(C<=O,ParamColor("Wick Down Color", colorDarkRed),colorWhite)),64,0,0,0,0);
Periods = Param("Periods", 39, 1, 300, 1 );
//TimeFrameSet();
TOP        = Open;
PHA        = Ref(H,-1);
PLA        = Ref(L,-1);
POA        = Ref(O,-1);
PCA        = Ref(C,-1);
PHB        = Ref(H,-2);
PLB        = Ref(L,-2);
POB        = Ref(O,-2);
PCB        = Ref(C,-2);
PHC        = Ref(H,-3);
PLC        = Ref(L,-3);
POC        = Ref(O,-3);
PCC        = Ref(C,-3);
PHD        = Ref(H,-4);
PLD        = Ref(L,-4);
POD        = Ref(O,-4);
PCD        = Ref(C,-4);
PHE        = Ref(H,-5);
PLE        = Ref(L,-5);
POE        = Ref(O,-5);
PCE        = Ref(C,-5);
PHF        = Ref(H,-6);
PLF        = Ref(L,-6);
POF        = Ref(O,-6);
PCF        = Ref(C,-6);
PHG        = Ref(H,-7);
PLG        = Ref(L,-7);
POG        = Ref(O,-7);
PCG        = Ref(C,-7);
PHH        = Ref(H,-8);
PLH        = Ref(L,-8);
POH        = Ref(O,-8);
PCH        = Ref(C,-8);

PCI        = Ref(C,-9);
PCJ        = Ref(C,-10);
PCK        = Ref(C,-11);
PCL          = Ref(C,-12);
PCM          = Ref(C,-13);
PCN          = Ref(C,-14);
PCO          = Ref(C,-15);







_SECTION_BEGIN("ema_crossover");




 

  
P5=C;
P10=(PCA+C)/2;
P15=(PCB+PCA+C)/3;
P20=(PCC+PCB+PCA+C)/4;
P25=(PCD+PCC+PCB+PCA+C)/5;
P30=(PCE+PCD+PCC+PCB+PCA+C)/6;
P35=(PCF+PCE+PCD+PCC+PCB+PCA+C)/7;
P40=(PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/8;
P45=(PCH+PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/9;
P50=(PCI+PCH+PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/10;
P55=(PCJ+PCI+PCH+PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/11;
P60=(PCK+PCJ+PCI+PCH+PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/12;
P65=(PCO+PCN+PCL+PCK+PCJ+PCI+PCH+PCG+PCF+PCE+PCD+PCC+PCB+PCA+C)/15;




PP5 = MA(P5,20);

PP10 = MA(P10,20);
PP20 = MA(P20,20) ;
PP30 = MA(P30,20) ;
PP40 = MA(P40,20) ;
PP50 = MA(P50,20);
PP60 = MA(P60,20);
PP15 = MA(P15,20) ;
PP25 = MA(P25,20);
PP35 = MA(P35,20);
PP45 = MA(P45,20);
PP55 = MA(P55,20);
PP60 = MA(P60,20);



/*Buy=PP60<PP30 AND PP50<PP20 AND PP40<PP10 
 AND PP55<PP25 AND PP45<PP15 AND PP35<PP5  AND PP5<PCA AND PHA<C;
Sell=PP60>PP30 AND PP50>PP20 AND PP40>PP10 
AND PP55>PP25 AND PP45>PP15 AND PP35>PP5 AND PP5>PCA AND PLA>C;*/
Buy=PP60<PP5  AND PHA<C;
Sell=PP60>PP5 AND PLA>C;
Buy= ExRem( Buy, Sell );
Sell= ExRem( Sell, Buy ); 




Plot(EMA(P15,15),"",colorWhite,styleLine);
Plot(MA(P10,1),"",colorRed,styleLine);
Plot(EMA(P15,1),"",colorRed,styleLine);
Plot(MA(P20,1),"",colorRed,styleLine);
Plot(MA(P25,1),"",colorRed,styleLine);
Plot(MA(P30,1),"",colorYellow,styleLine);
Plot(MA(P35,1),"",colorYellow,styleLine);
Plot(MA(P40,1),"",colorYellow,styleLine);
Plot(MA(P45,1),"",colorYellow,styleLine);
Plot(MA(P50,1),"",colorYellow,styleLine);
Plot(MA(P15,5),"",colorBlue,styleLine);
Plot(MA(P65,2),"",colorWhite,styleLine);



Plot(MA(C,200),"",colorYellow,styleLine);




PlotShapes(IIf(Buy, shapeHollowUpTriangle, shapeNone),colorWhite, 0,L, Offset=-27); 
PlotShapes(IIf(Sell, shapeHollowDownTriangle, shapeNone),colorRed, 0,H, Offset=-27);
PlotShapes(IIf(Buy, shapeHollowUpArrow, shapeNone),colorWhite, 0,L, Offset=-27); 
PlotShapes(IIf(Sell, shapeHollowDownArrow, shapeNone),colorRed, 0,H, Offset=-27);

GraphXSpace = 15;

dist = 1.5*ATR(25);
dist1 = 1.5*ATR(25);

for( i = 0; i < BarCount; i++ )
{


if( Buy[i] )
{

PlotText( "\nBuy Above    :" + H[ i ] +"\nT1= " + (H[i]*1.005)      +"\nSL= " + (PLA[i]-.25), i, L[ i ]-dist[i], colorGreen, colorBlack );
}
if( Sell[i] )
{
PlotText( "Sell Blow:" + L[ i ]  +"\nT1= " + (L[i]*0.995) +"\nSL= " + (PHA[i]+.25), i, H[ i ]+dist1[i], colorRed, colorBlack );
}
}





Filter= Buy OR Sell;  





		GfxSelectFont( "Arial", 10, 700, False );
	GfxSetTextAlign(0);
   GfxTextOut( ": :dhibinesh afl 15 MINTS ONLY     : :", 550, 30);

///////////////////////////////////////////////



//MY MAIL CON;TKM109BALA@GMAIL.COM