EMA RSI Adaptive

//By Glaz
study("EMA RSI Adaptive",overlay=true)
EmaPeriod = input(14)
RsiPeriod = input(14)
Price = close

docol = input(false,title="Color Change")
RSvoltl = abs(rsi(close,RsiPeriod)-50)+1.0
multi   = (5.0+100.0/RsiPeriod)/(0.06+0.92*RSvoltl+0.02*pow(RSvoltl,2))
pdsx    = multi*EmaPeriod
alpha   = 2.0 /(1.0+pdsx)
ema = nz(ema[1])+alpha*(sma(close,EmaPeriod)-nz(ema[1]))

col = docol ? ema > ema[1] ? #0094FF : #FF006E : #0094FF
plot(ema,color=col)