/*
Up Green Arrow --- Buy

Down  Red  Arrow --- Sell
*/

 _SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
 ToolTip=StrFormat("Open: %g\nHigh:  %g\nLow:   %g\nClose:  %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}
_SECTION_END();

 
 
 

eCloseUp = C > EMA (C,20)   AND C > EMA (C, 50) AND C > EMA (C,100) AND  ADX(14) >= 20   ;
eCloseDown =C < EMA (C,20) AND C < EMA (C, 50) AND C < EMA (C,100) AND   ADX(14) >= 20    ;

 


eBuy2=   C > EMA (C,20)    AND Ref (C,-1) < EMA (Ref (C,-1),20)     AND C > O   AND ADX(14) >= 20  AND PDI() > MDI()  AND    V > EMA(V,15);
eSell2= (C < EMA (C,20)   AND Ref (C,-1) > EMA (Ref (C,-1),20))  AND C < O  AND   ADX(14) >= 20   AND PDI() < MDI()  AND    V > EMA(V,15);


IIf( (eBuy2  ),PlotShapes(shapeUpTriangle*eBuy2  ,colorGreen),0);
IIf( (eSell2 ),PlotShapes(shapeDownTriangle*eSell2 ,colorRed),0);

 
Buy =  eBuy2 OR eCloseup;
Sell =  eSell2 OR eClosedown;

Filter = Buy OR Sell ; 
AddColumn( Buy, "Buy", format = 1.0 );
AddColumn( Sell, "Sell", format = 1.0 );
AlertIf( Buy, "", "Medium Buy: "+Name(), 2 );
AlertIf( Sell, "", "Strong Sell: "+Name(), 2 );