// Downloaded From https://www.WiseStockTrader.com
a=20;
b=40;
_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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
//Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
_SECTION_END();

_SECTION_BEGIN("EMA1");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
//Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
_SECTION_END();

Plot(EMA(C,a),"", colorGreen, styleThick);

Plot(EMA(O,b),"", colorBlue, styleThick);

Buy=EMA(C,a)>EMA(O,b);
Sell=EMA(O,b)>EMA(C,a);




Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

//PlotShapes(IIf(Buy, shapeCircle, shapeNone),colorGreen); 
//PlotShapes(IIf(Sell, shapeCircle, shapeNone),colorRed);

shape=Buy*shapeUpArrow + Sell*shapeDownArrow;
PlotShapes(shape,IIf(Buy,colorGreen, colorRed),0,IIf(Buy,Low,High));