CapnsBands

study(shorttitle="CapnsBB", title="CapnsBands", overlay=true)

//Define Variables
max = 80
hi = 70
mup = 50.5
mdo = 49.5
lo = 30
min = 20

//MajorTrend
src2 = close, len2 = input(84, minval=1, title="MajorTrend")
up2 = rma(max(change(src2), 0), len2)
down2 = rma(-min(change(src2), 0), len2)
rsi2 = down2 == 0 ? 100 : up2 == 0 ? 0 : 100 - (100 / (1 + up2 / down2))
rsi2c = rsi2 > mup ? lime : rsi2 < mdo ? red : rsi2 == 50 ? gray : yellow


length = input(80, minval=1)
src = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50)
basis = sma(src, length)
dev = mult * stdev(src, length)
upper = basis + dev
lower = basis - dev
p0 = plot(basis, linewidth=3, color=rsi2c)
p1 = plot(upper, color=green)
p2 = plot(lower, color=red)
fill(p1, p0, color=green, transp=95)
fill(p0, p2, color=red, transp=95)