// Downloaded From https://www.WiseStockTrader.com
periods = Param( "Periods", 20, 1, 200, 1 );
momentum = Param( "Momentum", 2, 1, 200, 1 );
p1 = Param("TL 1 Periods", 25, 2, 300, 1, 10);
p2 = Param("TL 2 Periods", 5, 2, 300, 1, 10);
TL1 = LinearReg(C, p1);
TL2 = EMA(TL1, p2);
z = RMI(periods, momentum) ;
Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorYellow), ParamColor("TL Dn Colour", colorCustom12));
Plot(z,"", Col1, styleThick | styleNoLabel );

Overbought = Param( "Overbought", 70 );
Oversold = Param( "Oversold", 30 );

OverboughtColor = ParamColor("Overbought Color",colorDarkOliveGreen);
OversoldColor = ParamColor("Oversold Color",colorDarkRed);

Plot(Overbought,"", colorGreen, styleThick | styleDashed | styleNoLabel );
Plot(Oversold,"", colorRed, styleThick | styleDashed | styleNoLabel | styleNoDraw );
PlotOHLC(z,z,50,z,"",IIf(z>50, OverboughtColor, OversoldColor), styleCloud | styleNoLabel | styleClipMinMax, Oversold, Overbought );

W3050COLOR = IIf(50 > 30,colorPlum,colorDarkOliveGreen);
PlotOHLC(30,30,50,50," ",W3050COLOR,styleCloud | styleNoLabel | styleNoTitle);