// Downloaded From https://www.WiseStockTrader.com
perRsi = Param( "Per RSI", 21, 1, 100 );
smoothPer = Param( "Smooth Periods", 3, 1, 100 );
perLowestA = Param( "Lowest Periods X", 8, 1, 100 );
perLowestB = Param( "Lowest Periods Z", 13, 1, 100 );
perHighest = Param( "Highest Periods Y", 13, 1, 100 );

r = RSI( perRsi );
cctstochrsi = 100 * (r - LLV( r , perLowestA )) / (HHV( r , perHighest ) - LLV( r, perLowestB) + 0.0001);

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