[RS]RSI Inverse Fisher Transform V1

study(title='[RS]RSI Inverse Fisher Transform V1', shorttitle='iF', overlay=false)
src = input(title='Source', type=source, defval=close)
window01 = input(title='RSI Length:', type=integer, defval=10)
window02 = input(title='RSI Smoothing:', type=integer, defval=5)
e = input(title='Inverse Fisher E Value:', type=float, defval=2.71)

f_fisher(_src, _window)=>
    _h = highest(_src, _window)
    _l = lowest(_src, _window)
    _value0 = .66 * ((_src - _l) / max(_h - _l, .001) - .5) + .67 * nz(_value0[1])
    _value1 = _value0 > .99 ? .999 : _value0 < -.99 ? -.999 : _value0
    _fisher = .5 * log((1 + _value1) / max(1 - _value1, .001)) + .5 * nz(_fisher[1])

f_inverse_fisher(_src, _e) => (pow(_e, 2*_src) - 1)/( pow(_e, 2*_src) + 1)

rsi = (ema(rsi(src, window01), window02) - 50) * 0.1
fish1 = f_inverse_fisher(rsi, e)

hline(1.35, color=color(black, 100))
hline(0.5, color=color(maroon, 0))
hline(0, color=black)
hline(-0.5, color=color(green, 0))
hline(-1, color=color(black, 100))

plot(series=fish1, title='F', style=area, color=fish1>0 ? color(green, 50) : color(maroon, 50))