RSI Based Strategy Shared by NKSTOCKTALK

 Recently tumbled upon Intra-day Strategy based on RSI shared by NKSTOCKTALK.

So just for fun converted into AFL to check.

_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(); 

RSI9=RSI(9);

EMA3=EMA(RSI9,3);

WMA21=WMA(RSI9,21);

Buy =   Cross(EMA3,WMA21) ;

Sell = Cross(WMA21,EMA3) ;

Buy=ExRem(Buy,Sell);

Sell=ExRem(Sell,Buy);

Short = Sell;

Cover = Buy;

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40); 

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-30); 

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45); 

PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40); 

PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50); 

PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);