cdb3

// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © ekrem6nel

//@version=4// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © ekrem6nel

//@version=4
study("Stochastic MTF II")

htf1 = input(4)
htf2 = input(16)
htf3 = input(64)
length = input(14)
lenk = input(3)
lend = input(3)
macd_fast = input(12)
macd_slow = input(26)
macd_smooth = input(9)

stokCandle(c, h, l, length, lenk, lend) =>
    k = sma(stoch(c, h, l, length), lenk)
    d = sma(k, lend)
    [k, d]

stok(src, length, lenk, lend) =>
    stokCandle(src, src, src, length, lenk, lend)

signalColor(k, d, floorColor, ceilingColor, upColor, downColor) =>
    k < 20 ? floorColor : (k > 80 ? ceilingColor : (change(d) > 0 ? upColor : downColor))

[k, d] = stokCandle(close, high, low, length*htf1, lenk*htf1, lend*htf1)
[krsi, drsi] = stok(rsi(close, length), length, lenk, lend)
[m, s, h] = macd(close, macd_fast, macd_slow, macd_smooth)
[kh, dh] = stok(h, length, lenk, lend)
[kt, dt] = stok(kh+krsi, length, lenk, lend)
c = correlation(close, kt, length)
[kc, dc] = stok(c, length, lenk, lend)

h80 = hline(80, "Upper Band", color=#606060)
h20 = hline(20, "Lower Band", color=#606060)
fill(h20, h80, color=color.gray, transp=95, title="Background")

floorColor = #ef5350
ceilingColor = #58d15b
upColor = #58d15b
downColor = #ef5350

rsiColor = ceilingColor //signalColor(fixnan(krsi), fixnan(drsi), floorColor, ceilingColor, upColor, downColor)
hColor = floorColor //signalColor(fixnan(kh), fixnan(dh), floorColor, ceilingColor, upColor, downColor)
cColor = signalColor(fixnan(kc), fixnan(dc), floorColor, ceilingColor, upColor, downColor)

pkh = plot((kh*k)/100, color=hColor, linewidth=1, style = plot.style_columns, transp = 60)
pkrsi = plot((krsi*k)/100, color=rsiColor, linewidth=2, style = plot.style_histogram, transp = 60)
plot(50, color = cColor, style = plot.style_circles, linewidth = 2)

pk = plot(k, color=color.purple, linewidth=3)
pd = plot(d, color=#2196f3, linewidth=2)

//end of this part

//@version=4
//study("Linear RSI")

//inputs
lengtha = input(defval=100, minval=1, title="LR length")
length2 = input(defval=13, minval=1, title="RSI length")
lag = 0
//input(-1, title="Lag for fast")

overBought = input(80)
overSold = input(20)

//rsi
srca = close
Lr = linreg(srca, lengtha, lag)
rsi = rsi(Lr, length2)

plot(rsi, color = rsi > overBought ? color.green : rsi < overSold ? color.red : color.silver)
plot(overBought, color=color.purple)
plot(overSold, color=color.purple)