// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("STOCHRSI3");

per = Param("Periods", 13, 1, 100);
cctstochrsi = 100*( ( RSI( per ) - LLV( RSI( per ) , per ) ) / ( ( HHV( RSI(
per ) , per ) ) - LLV(RSI( per ), per ) ) );

Plot( cctstochrsi , "StoRSI", colorRed, styleThick);
Plot( EMA(cctstochrsi, 3) , "Signal", colorBlue, styleThick);
Plot(90 , "Signal", colorBlue, styleDashed);
Plot(10 , "Signal", colorBlue, styleDashed);

_SECTION_END();

_SECTION_BEGIN("StochMACD");
StochMACD=100*(MACD()-LLV(MACD(),14))/(HHV(MACD(),14)-LLV(MACD(),14));
Plot(StochMACD,"StochMACD",colorBrightGreen,styleThick);
Plot(90,"",colorRed,styleLine);
Plot(50,"",colorYellow,styleDashed);
Plot(10,"",colorRed,styleLine);

_SECTION_END();

_SECTION_BEGIN("William's +");
R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Plot(R, "Williams %R", colorYellow, styleThick,styleOwnScale);
Plot(-10,"",colorRed,styleLine);
Plot(-90,"",colorRed,styleLine);

_SECTION_END();

_SECTION_BEGIN("Trend arrow");
n= Param("No. of Bars",3,2,8,1);
TrendUp = H > Ref(HHV(H,n),-1);
TrendDn = L < Ref(LLV(L,n),-1);
TrendUp = ExRem(TrendUp,TrendDn);
TrendDn = ExRem(TrendDn,TrendUp);
PlotShapes(TrendUp*shapeUpArrow,colorWhite);
PlotShapes(TrendDn*shapeDownArrow,colorBlack);
_SECTION_END();