[blackcat] L3 Gann B-Xtrender

    // ____  __    ___   ________ ___________  ___________ __  ____ ___
// / __ )/ /   /   | / ____/ //_/ ____/   |/_  __<  / // / / __ |__ \
// / __  / /   / /| |/ /   / ,< / /   / /| | / /  / / // /_/ / / __/ /
// / /_/ / /___/ ___ / /___/ /| / /___/ ___ |/ /  / /__  __/ /_/ / __/
// /_____/_____/_/  |_\____/_/ |_\____/_/  |_/_/  /_/  /_/  \____/____/

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

indicator('[blackcat] L3 Gann B-Xtrender', 'GBX', overlay=false, max_bars_back=5000, max_labels_count=500)

//functions
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

xgs(src, len) =>
    //c0 = hlc3
    c0 = src
    a1 = ta.highest(c0, len)
    a2 = ta.lowest(c0, len)
    a3 = a1 - a2
    gann_slope = ta.ema((c0 - a2) / a3, 2) * 100
    gann_slope

//Courtesy of QuantTherapy for B-Xtrender @Puppytherapy
//tradingview.com/script/YHZimEz8-B-Xtrender-Puppytherapy/
short_l1 = input(20, title='Short - L1')
short_l2 = input(19, title='Short - L2')
short_l3 = input(18, title='Short - L3')

long_l1 = input(20, title='Long - L1')
long_l2 = input(15, title='Long - L2')

inp = input(hlc3)

shortTermXtrender = xgs(ta.ema(inp, short_l1) - ta.ema(inp, short_l2), short_l3) - 50
longTermXtrender = xgs(ta.ema(inp, long_l1), long_l2) - 50

shortXtrenderCol = shortTermXtrender > 0 ? shortTermXtrender > shortTermXtrender[1] ? color.lime : #228B22 : shortTermXtrender > shortTermXtrender[1] ? color.red : #8B0000
plot(shortTermXtrender, color=shortXtrenderCol, style=plot.style_columns, linewidth=1, title='B-Xtrender Osc. - Histogram', transp=50)

t3(src, len) =>
    xe1_1 = ta.ema(src, len)
    xe2_1 = ta.ema(xe1_1, len)
    xe3_1 = ta.ema(xe2_1, len)
    xe4_1 = ta.ema(xe3_1, len)
    xe5_1 = ta.ema(xe4_1, len)
    xe6_1 = ta.ema(xe5_1, len)
    b_1 = 0.7
    c1_1 = -b_1 * b_1 * b_1
    c2_1 = 3 * b_1 * b_1 + 3 * b_1 * b_1 * b_1
    c3_1 = -6 * b_1 * b_1 - 3 * b_1 - 3 * b_1 * b_1 * b_1
    c4_1 = 1 + 3 * b_1 + b_1 * b_1 * b_1 + 3 * b_1 * b_1
    nT3Average_1 = c1_1 * xe6_1 + c2_1 * xe5_1 + c3_1 * xe4_1 + c4_1 * xe3_1
    nT3Average_1

maShortTermXtrender = t3(shortTermXtrender, 5)

colShortTermXtrender = maShortTermXtrender > maShortTermXtrender[1] ? color.lime : color.red
plot(maShortTermXtrender, color=color.new(#000000, 0), style=plot.style_line, linewidth=5, title='B-Xtrender Shadow')
plot(maShortTermXtrender, color=colShortTermXtrender, style=plot.style_line, linewidth=3, title='B-Xtrender Color ')

plotshape(maShortTermXtrender > maShortTermXtrender[1] and maShortTermXtrender[1] < maShortTermXtrender[2] ? maShortTermXtrender : na, location=location.absolute, style=shape.circle, color=color.new(color.lime, 10), size=size.tiny)
plotshape(maShortTermXtrender < maShortTermXtrender[1] and maShortTermXtrender[1] > maShortTermXtrender[2] ? maShortTermXtrender : na, location=location.absolute, style=shape.circle, color=color.new(color.red, 10), size=size.tiny)

longXtrenderCol = longTermXtrender > 0 ? longTermXtrender > longTermXtrender[1] ? color.lime : #228B22 : longTermXtrender > longTermXtrender[1] ? color.red : #8B0000
macollongXtrenderCol = longTermXtrender > longTermXtrender[1] ? color.lime : color.red
plot(longTermXtrender, color=longXtrenderCol, style=plot.style_histogram, linewidth=2, title='B-Xtrender Trend - Histogram', transp=80)

plot(longTermXtrender, color=color.new(#000000, 80), style=plot.style_line, linewidth=5, title='B-Xtrender Trend - Line')
plot(longTermXtrender, color=macollongXtrenderCol, style=plot.style_line, linewidth=3, title='B-Xtrender Trend - Line', transp=80)