3MA + Bandas Rsi + BB

//@version=4
study(title="Moving Average", shorttitle="3MA", overlay=true)
len = input(8, minval=1, title="Length")
src = input(close, title="Source")
out = sma(src, len)
plot(out, color=color.blue, title="MA")

len20 = input(20, minval=1, title="Length")
src20 = input(close, title="Source")
out20 = sma(src20, len20)
plot(out20, color=color.orange, title="MA")

len200 = input(156, minval=1, title="Length")
src200 = input(close, title="Source")
out200 = sma(src200, len200)
plot(out200, color=color.purple, title="MA")


show_rsirs = input(true, title="RSIBANDS_LB")
//study("RSI Bands [LazyBear]", shorttitle="RSIBANDS_LB", overlay=true)
obLevel = input(70, title="RSI Overbought")
osLevel = input(30, title="RSI Oversold")
lengthxx = input(14, title="RSI Length")
src1 = input(close, title="Source")
ep = 2 * lengthxx - 1
auc = ema( max( src1 - src1[1], 0 ), ep )
adc = ema( max( src1[1] - src1, 0 ), ep )
x1 = (lengthxx - 1) * ( adc * obLevel / (100-obLevel) - auc)
ub = iff( x1 >= 0, src1 + x1, src1 + x1 * (100-obLevel)/obLevel )
x2 = (lengthxx - 1) * ( adc * osLevel / (100-osLevel) - auc)
lb = iff( x2 >= 0, src1 + x2, src1 + x2 * (100-osLevel)/osLevel )

rsiup=plot(not show_rsirs ? na :  ub, title="Resistance", color=color.red, linewidth=2, transp=30)
rsidw=plot(not show_rsirs ? na :  lb, title="Support", color=color.green, linewidth=2, transp=30)
plot(not show_rsirs ? na :  avg(ub, lb), title="RSI Midline", color=color.gray, linewidth=1)
fill(rsiup, rsidw, color = color.blue, transp=100)



//@version=4
//study(shorttitle="BB", title="Bollinger Bands", overlay=true)
length = input(20, minval=1)
srcbb = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50)
basis = sma(srcbb, length)
dev = mult * stdev(srcbb, length)
upper = basis + dev
lower = basis - dev
plot(basis, color=color.red)
p1 = plot(upper, color=color.blue)
p2 = plot(lower, color=color.blue)
fill(p1, p2)