[RS]Hull Bands W% V1

//@version=2
study(title='[RS]Hull Bands W% V1', shorttitle='HBW%', overlay=false)
length = input(2)
overbought = input(70)
oversold = input(30)

f_hull(_mode, _src, _length)=>
    _base_0 = ema(_src, _length)
    _base_1 = ema(_base_0, _length*2)
    _base_2 = ema(_base_1, _length*3)
    _base_3 = ema(_base_2, _length*4)
    _return = _mode > 0 ? max(_src, max(_base_0, max(_base_1, max(_base_2, _base_3)))) : min(_src, min(_base_0, min(_base_1, min(_base_2, _base_3))))

top = f_hull(+1, high, length)
bot = f_hull(-1, low, length)
hbw_c = ((close-bot)/(top-bot))*100
hbw_h = ((high-bot)/(top-bot))*100
hbw_l = ((low-bot)/(top-bot))*100
hbw_top = f_hull(+1, highest(hbw_h, length), length)
hbw_bot = f_hull(-1, lowest(hbw_l, length), length)

ob_hbw_h = hbw_h >= overbought ? hbw_h : overbought
os_hbw_l = hbw_l <= oversold ? hbw_l : oversold

plot(title='Decay', series=hbw_top, style=circles, color=maroon)
plot(title='Price', series=hbw_c, color=black)
//plot(hbw_h, color=black)
//plot(hbw_l, color=black)
plot(title='Growth', series=hbw_bot, style=circles, color=green)
hline(title='OB', price=overbought, color=maroon)
hline(title='OS', price=oversold, color=green)
plot(title='OB Area', series=ob_hbw_h, style=area, color=green, transp=60, histbase=overbought)
plot(title='OS Area', series=os_hbw_l, style=area, color=maroon, transp=60, histbase=oversold)