// Downloaded From https://www.WiseStockTrader.com
periods = Param( "Periods", 14, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
regperiods = Param( "LinRegPeriods", 13 );
maperiods = Param( "MAPeriods", 4 );
LRSI = LinearReg(RSI( periods),regperiods);
LSTO = LinearReg(StochK( periods, Ksmooth),regperiods);
STORSI = (LRSI + LSTO)/2;
STORSIma = WMA(STORSI,maperiods);
Plot( STORSI, _DEFAULT_NAME(), ParamColor( "STORSIColor", colorBlue ), ParamStyle("STORSIStyle") );
Plot( STORSIma, "STORSIma" + _PARAM_VALUES(), ParamColor( "MAColor", colorRed ), ParamStyle("MAStyle") );