// Downloaded From https://www.WiseStockTrader.com
Periods=Param("Periods",15,3,70,2);
SmoothFactor = Param("SM",5,3,14,1);
Levelup= 70;
Leveldown=30;
R= RSI(Periods);
StochR=100*(R-LLV(R,periods))/(HHV(R,periods)-LLV(R,periods));
SR=EMA(StochR,SmoothFactor);
Buy= Cross( SR,Leveldown);
Sell= Cross(Levelup,SR);
Short=Sell;
Cover=Buy;
Buy= ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PH =30; 
RHeight = 100/PH*100;
GraphXSpace = 3*PH;
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
Plot(0,"",colorBlack,styleDashed|styleOwnScale,0,RHeight);
Plot(SR,"   RSI Value ",4,styleThick|styleOwnScale,0,RHeight);
Plot(Levelup,"     LevelUP ",colorPlum,styleDashed|styleOwnScale,0,RHeight);
Plot(Leveldown,"    Level Down",colorBlue,styleDashed|styleOwnScale,0,RHeight);
Plot(100,"",colorBlack,styleThick|styleOwnScale,0,RHeight);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);                      
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);