Mayer MA

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

//@version=5
indicator('Mayer MA', overlay=true)
res = input('D', 'Resolution')
d_tckr = request.security(syminfo.tickerid, 'D', close)
w_tckr = request.security(syminfo.tickerid, 'W', close)
tckr = request.security(syminfo.tickerid, res, close)


getMaLen() =>
    if bar_index < 200
        bar_index + 1
    else
        200


//200 Week Moving Average Heatmap
MA200 = ta.sma(d_tckr, getMaLen())
wMA200 = ta.wma(d_tckr, getMaLen())
Mayer = hl2 / MA200
lowMA = plot(MA200 * 0.55, transp=100)
buylvl = plot(MA200 * 1.1, color=color.new(color.green, 0))
plot(MA200 * 1.7, color=color.new(color.white, 0))
selllvl = plot(MA200 * 2.5, color=color.new(color.red, 0))
hiMA = plot(MA200 * 5, transp=100)
lowWMA = plot(wMA200 * 0.55, color=color.new(color.white, 100))
hiWMA = plot(wMA200 * 5, color=color.new(color.white, 100))
fill(lowMA, lowWMA, color=color.new(color.green, 50))
fill(hiMA, hiWMA, color=color.new(color.red, 50))

//RSI
r = ta.sma(ta.rsi(d_tckr, 8), 4)
ob = 0.0
os = 0.0
ob := ta.cross(r, 70) and ta.rising(r, 2) ? d_tckr : ob[1]
os := ta.cross(r, 30) and ta.falling(r, 2) ? d_tckr : os[1]

fill(lowWMA, hiMA, d_tckr < os ? #34ebb4 : na, transp=90)
fill(lowWMA, hiMA, d_tckr > ob ? #e62595 : na, transp=90)

//Stoch RSI
rsi1 = ta.rsi(d_tckr, 14)
stoch = ta.sma(ta.stoch(rsi1, rsi1, rsi1, 14), 3)

//RSI
up = ta.rma(math.max(ta.change(d_tckr), 0), 14)
down = ta.rma(-math.min(ta.change(d_tckr), 0), 14)
rsi = down == 0 ? 100 : up == 0 ? 0 : 100 - 100 / (1 + up / down)


fill(lowWMA, hiMA, stoch < 20 and rsi < 30 ? color.aqua : na, transp=65)
fill(lowWMA, hiMA, stoch > 80 and rsi > 70 ? color.maroon : na, transp=60)