[RS]Decay Channel Candles V0

study("[RS]Decay Channel Candles V0", overlay=true)
linreg_length = input(type=integer, defval=4)
atr_length = input(type=integer, defval=100)
decay = atr(atr_length)*input(type=float, defval=0.125)
prev_top = nz(top[1], high)-decay
prev_bot = nz(bot[1], low)+decay
abs_top = valuewhen(high >= prev_top, high, 0)
abs_bot = valuewhen(low <= prev_bot, low, 0)
top = high >= prev_top ? high : prev_top
bot = low <= prev_bot ? low : prev_bot
top_close = max(high, min(top, linreg(avg(top, high), linreg_length, 0)))
bot_close = min(low, max(bot, linreg(avg(bot, low), linreg_length, 0)))
//#9ce0b2//#e0b29c
top_palete = rising(abs(top-top_close),1)?orange:#e0b29c
bot_palete = rising(abs(bot-bot_close),1)?olive:#9ce0b2
plotbar(top,top,top,top_close, color=top_palete)
plotbar(bot,bot,bot,bot_close, color=bot_palete)
plot(abs_top, color=abs_top==abs_top[1]?maroon:na)
plot(abs_bot, color=abs_bot==abs_bot[1]?green:na)