// Downloaded From https://www.WiseStockTrader.com
source = (H+L+C)/3;
length = Param("Period",7,1,100,1);
hullma = wma(2*wma(source, length/2)-wma(source, length), round(sqrt(length)));
Hrsi = RSIa(hullma,length);
bcolor = iif( hrsi-50 > 0, 
		iif( hrsi > nz(Ref(hrsi,-1)), colorlime, colorblue),
		iif( hrsi < nz(Ref(hrsi,-1)), colorred, coloryellow));
plot(hrsi-50,"Smoothed RSI", bcolor, styleHistogram,Null, Null,0,0,4 );