Stoch MFI

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

//@version=5
indicator('Stoch MFI')





//WAVETREND CROSS▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼

//hline(70, color=color.new(#ffffff, 25))
//hline(30, color=color.new(#ffffff, 25))
hline(50, title='Middle Line', linestyle=hline.style_dotted)
obLevel = hline(80, title='Overbought', linestyle=hline.style_dotted, linewidth=2)
osLevel = hline(20, title='Oversold', linestyle=hline.style_dotted, linewidth=2)
fill(obLevel, osLevel, title='Background', color=color.new(#9915FF, 80))

n1 = 9
n2 = 12
ap = hlc3
esa = ta.ema(ap, n1)
d1 = ta.ema(math.abs(ap - esa), n1)
ci = (ap - esa) / (0.015 * d1)
tci = ta.ema(ci, n2)
hline = 0
wt1 = tci
wt2 = ta.sma(wt1, 4)

wt1color = wt1 > 0 ? #00bcd4 : #e91e63
wtcrossuppre = wt1 > wt2 and wt1[1] < wt2[1] and wt2 < -10
wtcrossdownpre = wt1 < wt2 and wt1[1] > wt2[1] and wt2 > 10
wtcrossup = wtcrossuppre or wtcrossuppre[1] or wtcrossuppre[2]
wtcrossdown = wtcrossdownpre or wtcrossdownpre[1] or wtcrossdownpre[2]

//plot(wt1, style=plot.style_areabr, color=wt1color)
//plot(wt2, style=plot.style_areabr, color=color.new(#5d606b, 50))
//plot(wt2, color=color.new(#000000, 50), linewidth=2)
//plot(wtcrossuppre ? wt2 : na, title="Cross Up Circles", color=color.lime, style=plot.style_circles, linewidth=4)
//plot(wtcrossdownpre ? wt2 : na, title="Cross down Circles", color=#e91e63, style=plot.style_circles, linewidth=4)

/////////////-------------------------MFI-----------------------///////////////////////////

length = input.int(title='Length', defval=14, minval=1, maxval=2000)
src = hlc3
upper = math.sum(volume * (ta.change(src) <= 0 ? 0 : src), length)
lower = math.sum(volume * (ta.change(src) >= 0 ? 0 : src), length)
_rsi(upper, lower) =>
    100.0 - 100.0 / (1.0 + upper / lower)
mf = _rsi(upper, lower)
plot(mf, 'MF', color=color.new(color.lime, 0), linewidth=1)



//STOCH DIVERGENCE▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼

periodK14 = 14
smoothK14 = 3
periodD14 = 3
k14 = ta.sma(ta.stoch(close, high, low, periodK14), smoothK14)
d14 = ta.sma(k14, periodD14)
plot(k14, title='%K', linewidth=2, color=color.new(#ffeb3b, 0))
plot(d14, title='%D', linewidth=1, color=color.new(#ffffff, 0))
//h0 = hline(80, "Upper Band", linestyle=hline.style_solid, color=color.new(#787B86, 50))
//h1 = hline(20, "Lower Band", linestyle=hline.style_solid, color=color.new(#787B86, 50))
//fill(h0, h1, color=color.new(#00bcd4, 90), title="Background")

//Divergence
lbR14 = 2
lbL14 = 6
rangeUpper14 = 15
rangeLower14 = 6
plotBull14 = true
plotHiddenBull14 = false
plotBear14 = true
plotHiddenBear14 = false

bearColor14 = #e91e63
bullColor14 = #00bcd4
hiddenBullColor14 = #00bcd4
hiddenBearColor14 = #e91e63
textColor14 = color.white
noneColor14 = color.new(color.white, 100)

osc14 = k14

plFound14 = na(ta.pivotlow(osc14, lbL14, lbR14)) ? false : true
phFound14 = na(ta.pivothigh(osc14, lbL14, lbR14)) ? false : true

_inRange14(cond) =>
    bars14 = ta.barssince(cond == true)
    rangeLower14 <= bars14 and bars14 <= rangeUpper14

//Regular Bullish

//Osc: Higher Low
oscHL14 = osc14[lbR14] > ta.valuewhen(plFound14, osc14[lbR14], 1) and _inRange14(plFound14[1])

//Price: Lower Low
priceLL14 = low[lbR14] < ta.valuewhen(plFound14, low[lbR14], 1)

bullCond14 = plotBull14 and priceLL14 and oscHL14 and plFound14
plot(plFound14 ? osc14[lbR14] : na, offset=-lbR14, title='Regular Bullish', linewidth=2, color=bullCond14 ? bullColor14 : noneColor14)
plotshape(bullCond14 ? osc14[lbR14] : na, offset=-lbR14, title='Regular Bullish Label', text='𝐁𝐔𝐋𝐋', style=shape.labelup, location=location.bottom, color=color.new(bullColor14, 0), textcolor=color.new(textColor14, 0))

//Hidden Bullish

//Osc: Lower Low
oscLL14 = osc14[lbR14] < ta.valuewhen(plFound14, osc14[lbR14], 1) and _inRange14(plFound14[1])

//Price: Higher Low
priceHL14 = low[lbR14] > ta.valuewhen(plFound14, low[lbR14], 1)

hiddenBullCond14 = plotHiddenBull14 and priceHL14 and oscLL14 and plFound14
plot(plFound14 ? osc14[lbR14] : na, offset=-lbR14, title='Hidden Bullish', linewidth=2, color=hiddenBullCond14 ? hiddenBullColor14 : noneColor14)
plotshape(hiddenBullCond14 ? osc14[lbR14] : na, offset=-lbR14, title='Hidden Bullish Label', text=' H Bull ', style=shape.labelup, location=location.absolute, color=color.new(bullColor14, 0), textcolor=color.new(textColor14, 0))

//Regular Bearish


//Osc: Lower High
oscLH14 = osc14[lbR14] < ta.valuewhen(phFound14, osc14[lbR14], 1) and _inRange14(phFound14[1])

//Price: Higher High
priceHH14 = high[lbR14] > ta.valuewhen(phFound14, high[lbR14], 1)

bearCond14 = plotBear14 and priceHH14 and oscLH14 and phFound14
plot(phFound14 ? osc14[lbR14] : na, offset=-lbR14, title='Regular Bearish', linewidth=2, color=bearCond14 ? bearColor14 : noneColor14)
plotshape(bearCond14 ? osc14[lbR14] : na, offset=-lbR14, title='Regular Bearish Label', text='𝐁𝐄𝐀𝐑', style=shape.labeldown, location=location.absolute, color=color.new(bearColor14, 0), textcolor=color.new(textColor14, 0))

//Hidden Bearish

//Osc: Higher High
oscHH14 = osc14[lbR14] > ta.valuewhen(phFound14, osc14[lbR14], 1) and _inRange14(phFound14[1])

//Price: Lower High
priceLH14 = high[lbR14] < ta.valuewhen(phFound14, high[lbR14], 1)

hiddenBearCond14 = plotHiddenBear14 and priceLH14 and oscHH14 and phFound14
plot(phFound14 ? osc14[lbR14] : na, offset=-lbR14, title='Hidden Bearish', linewidth=2, color=hiddenBearCond14 ? hiddenBearColor14 : noneColor14)
plotshape(hiddenBearCond14 ? osc14[lbR14] : na, offset=-lbR14, title='Hidden Bearish Label', text=' H Bear ', style=shape.labeldown, location=location.absolute, color=color.new(bearColor14, 0), textcolor=color.new(textColor14, 0))

bulldiv = bullCond14 or bullCond14[1] or bullCond14[2]
beardiv = bearCond14 or bearCond14[1] or bearCond14[2]


//PLOT STARS▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼

//plot(wtcrossup and bulldiv ? -90 : na, style=plot.style_circles, color=color.new(#ffeb3b, 50), linewidth=6)
//plot(wtcrossup and bulldiv ? -90 : na, style=plot.style_circles, color=color.new(#ffffff, 0), linewidth=2)
//plot(wtcrossdown and beardiv ? 110 : na, style=plot.style_circles, color=color.new(#ffeb3b, 50), linewidth=6)
//plot(wtcrossdown and beardiv ? 110 : na, style=plot.style_circles, color=color.new(#ffffff, 0), linewidth=2)





/////////////---------------------------//////////////////////


xrf(values, length) =>
    r_val = float(na)
    if length >= 1
        for i = 0 to length by 1
            if na(r_val) or not na(values[i])
                r_val := values[i]
                r_val
    r_val
xsa(src, len, wei) =>
    sumf = 0.0
    ma = 0.0
    out = 0.0
    sumf := nz(sumf[1]) - nz(src[len]) + src
    ma := na(src[len]) ? na : sumf / len
    out := na(out[1]) ? ma : (src * wei + out[1] * (len - wei)) / len
    out
//algorithm
var2 = xrf(low, 1)
var3 = xsa(math.abs(low - var2), 13, 1) / xsa(math.max(low - var2, 0), 13, 1) * 100
var4 = ta.ema(close * 1.2 ? var3 * 13 : var3 / 13, 13)
var5 = ta.lowest(low, 34)
var6 = ta.highest(var4, 34)
lowest_1 = ta.lowest(low, 55)
var7 = lowest_1 ? 1 : 0
var8 = ta.ema(low <= var5 ? (var4 + var6 * 2) / 2 : 0, 3) / 618 * var7
var9 = ta.ema(close, 5)
var10 = (close - ta.sma(close, 34)) / ta.sma(close, 34) * -10
var11 = ta.ema(low <= var5 ? (var4 + var6 * 2) / 2 : 0, 3) / 618 * var7 * -1
var12 = ta.ema(close, 5) * -1

//plot sudden dump strength with yellow stick lines
plotcandle(0, var8, 0, var8, color=var8 > xrf(var8, 1) ? color.yellow : na)
xl1 = ta.sma(low, 2) * 0.96
xl2 = ta.sma(low, 26) * 0.85
xl3 = xrf(xl1, 1) < xl2 and xrf(xl1, 1) < xl1 and xrf(xl1, 1) < xrf(xl1, 2)
dump = xl3 ? 0 : var8 * 1
//plot(dump,color=color.yellow, linewidth=4)
//after a dump there are some quick chance to see a temporary bottom in lime sticks
plotcandle(0, -var11, 0, -var11, color=var11 > xrf(var11, 1) ? color.lime : na)
// plot orange curve to track post-dump opportunity
xrf_1 = xrf(var8, 1)
fundready = var8 > xrf_1 ? 0 : var8
//plot(fundready,color=color.lime, linewidth=1)

//use KDJ to detect long entry opportunity after a dump
rsv = (close - ta.lowest(low, 9)) / (ta.highest(high, 9) - ta.lowest(low, 9)) * 100
k = xsa(rsv, 3, 1)
d = xsa(k, 3, 1)
j = 3 * k - 2 * d
x = ta.lowest(j, 2) == ta.lowest(j, 8)
longengry = ta.crossover(j, xrf(j + 0.01, 1)) and fundready > 0 and dump > 0
//bgcolor( longengry ? color.green:na, transp=40)




buy_cond = ta.crossover(d14, 25)
plotshape(buy_cond, color=color.new(color.lime, 0), location=location.bottom, style=shape.triangleup, size=size.tiny, text='')

sell_cond = ta.crossunder(d14, 80)
plotshape(sell_cond, color=color.new(color.red, 0), location=location.top, style=shape.triangledown, size=size.tiny, text='')


backgroundColour = k14 > d14 ? color.green : color.red
bgcolor(color=backgroundColour, transp=70)