BlackComposite4bottom

//@version=4
study(title = "BlackComposite4bottom", shorttitle="bcmas")
showStoch=input(true, title="Turn ON Stochastic")
showRSI=input(true, title="Turn ON RSI")
showMACD=input(true, title="Turn ON MACD")
scaleMACD=input(1, title="MACD scale")


p90 = plot(showRSI ? 90 : na, title= "Upper Line 90", style=plot.style_line, linewidth=2, color=color.lime,transp=50)
p70 = plot(showRSI ? 70 : na, style=plot.style_line, linewidth=1, color=color.lime)
plot(showRSI ? 50 : na, title="Middle Line", style=plot.style_line, linewidth=1, color=color.black)
p30 = plot(showRSI ? 30 : na, style=plot.style_line, linewidth=1, color=color.red)
p10 = plot(showRSI ? 10 : na, style=plot.style_line, linewidth=2, color=color.red,transp=50)
fill(p90, p70, color=color.lime, transp=85)
fill(p70, p30, color=color.purple, transp=90)
fill(p30, p10, color=color.red, transp=85)

k = sma(stoch(close, high, low, 14), 3)
d = sma(k, 3)
plot(showStoch?k:na, color=#0094FF)
plot(showStoch?d:na, color=#FF6A00)
h0 = hline(showStoch ? 80 : na, "Upper Band", color=#606060)
h1 = hline(showStoch ? 20 : na, "Lower Band", color=#606060)
fill(h0, h1, color=#9915FF, transp=95, title="Background")

plot(showRSI?rsi(close, 7):na,color=color.black)
plot(showRSI?rsi(close, 14):na,color=color.purple)

[macdLine, signalLine, histLine] = macd(close, 12, 26, 9)
plot(showMACD?0:na, style=plot.style_line, linewidth=1, color=color.black,transp=50)
plot(showMACD?macdLine*scaleMACD:na, color=color.blue)
plot(showMACD?signalLine*scaleMACD:na, color=color.orange)
plot(showMACD?histLine*scaleMACD:na, color = change(macdLine) <= 0 ? color.red : color.green, style=plot.style_histogram)