[RS]Scalpers Channels V0

study(title="[RS]Scalpers Channels V0", shorttitle="SC", overlay=true)
useTrueRange = input(true)
length = input(1440, minval=1)
smooth = input(1)
extrasmooth = input(1)
mult_increment = input(0.1)
mult = na(mult[1]) ? mult_increment : high >= upper[1] ? mult[1] + mult_increment : low <= lower[1] ? mult[1] + mult_increment : mult[1]
src = input(close, title="Source")
plot(mult, color=black)
ma = ema(ema(ema(src, length), smooth), extrasmooth)
range = useTrueRange ? tr : cum(tr)/(n+1)
rangema = ema(ema(ema(range, length), smooth), extrasmooth) * mult
upper = ma + rangema * 1
u0882 = ma + rangema * 0.882
u0764 = ma + rangema * 0.764
u0618 = ma + rangema * 0.618
u0500 = ma + rangema * 0.500
u0382 = ma + rangema * 0.382
u0236 = ma + rangema * 0.236
l0236 = ma - rangema * 0.236
l0382 = ma - rangema * 0.382
l0500 = ma - rangema * 0.500
l0618 = ma - rangema * 0.618
l0764 = ma - rangema * 0.764
l0882 = ma - rangema * 0.882
lower = ma - rangema * 1
c = blue
u = plot(upper, color=c, title="Upper")
plot(title='U0882', series=u0882, style=circles, color=black, linewidth=1)
plot(title='U0764', series=u0764, style=circles, color=black, linewidth=1)
plot(title='U0618', series=u0618, style=circles, color=black, linewidth=1)
plot(title='U0500', series=u0500, style=circles, color=black, linewidth=1)
plot(title='U0382', series=u0382, style=circles, color=black, linewidth=1)
plot(title='U0236', series=u0236, style=circles, color=black, linewidth=1)
plot(title='L0236', series=l0236, style=circles, color=black, linewidth=1)
plot(title='L0382', series=l0382, style=circles, color=black, linewidth=1)
plot(title='L0500', series=l0500, style=circles, color=black, linewidth=1)
plot(title='L0618', series=l0618, style=circles, color=black, linewidth=1)
plot(title='L0764', series=l0764, style=circles, color=black, linewidth=1)
plot(title='L0882', series=l0882, style=circles, color=black, linewidth=1)
plot(ma, color=c, title="Basis")
l = plot(lower, color=c, title="Lower")
fill(u, l, color=c)