[LAVA] Ultimate Nonlinear Oscillator

study(title="[LAVA] Ultimate Nonlinear Oscillator", shorttitle="UNO_L", overlay=true)

length7 = input(7, minval=1, title="Fast"), length14 = input(14, minval=1, title="Slow"), length28 = input(28, minval=1, title="Long")
mult = input(2.5, type=float, minval=0.001, maxval=50, title="BB Multiplier")
sense = input(100, minval=0.0001, maxval=200, title="Sensitivity")
show = input(false, type=bool, title="Show EMA?")
source = hl2

average(bp, tr_, length) => sum(bp, length) / sum(tr_, length)

true_hi = highest(close, length14), true_lo = lowest(close, length14)
uppers = lowest(high, length14), lowers = highest(low, length14)
high_ = max(high, close[1]), low_ = min(low, close[1])
bp = close - low_, tr_ = high_ - low_, tp_ = uppers - lowers
avg7 = average(bp, tr_, length7), avg14 = average(bp, tr_, length14), avg28 = average(bp, tr_, length28)

bbd = 4 * stdev(source, length7*3) / sma(source, length7*3)
bbi = lowest(sma(bbd,4),42)>=bbd and bbd<bbd[1]

out = sense * (4*avg7 + 2*avg14 + avg28)/7
upper = uppers-out*(tp_*.015)
lower = lowers+out*(tp_*.015)
svgs = ema((upper+lower)/2, length7*3)
show_svgs = show ? svgs : na
vol = sma(volume, length7*3)
a_svgs = (bbi or (svgs > high and vol>vol[4])) and high < upper and barssince(high>=svgs)<length7 ? true : false
b_svgs = (bbi or (svgs < low  and vol>vol[4])) and low > lower and barssince(low<=svgs)<length7 ? true : false
a_line = barssince(a_svgs)<14 and (vol>vol[4] or bbi) and true_hi[1]==true_hi ? true_hi : na
b_line = barssince(b_svgs)<14 and (vol>vol[4] or bbi) and true_lo[1]==true_lo ? true_lo : na

p5 = plot(a_line, color=red, title="DOS TOP", linewidth=2, style=circles)
p3 = plot(upper, color=red, title="UNO TOP", linewidth=1)
p1 = plot(show_svgs, color=white, title="UNO SLOW", linewidth=1)
p4 = plot(lower, color=lime, title="UNO BOT", linewidth=1)
p6 = plot(b_line, color=lime, title="DOS BOT", linewidth=2, style=circles)