Gold Rush

[Oralet_Osman]

[@yörük@]

saatlik pivota...seanslık kanallama.....ve sağ 5...sol 3...işaretleme....

 //@version=5

indicator(title='Pivot Points High Low Extension', shorttitle='.', overlay=true)


pvtLenL = input.int(5, minval=1, title='Pivot Length Left Hand Side')
pvtLenR = input.int(3, minval=1, title='Pivot Length Right Hand Side')
maxLvlLen = input.int(0, minval=0, title='Maximum Extension Length')
ShowHHLL = input(false, title='Show HH,LL,LH,HL Markers On Pivots Points')
WaitForClose = input(false, title='Wait For Candle Close Before Printing Pivot')


// Get High and Low Pivot Points
pvthi_ = ta.pivothigh(high, pvtLenL, pvtLenR)
pvtlo_ = ta.pivotlow(low, pvtLenL, pvtLenR)

// Force Pivot completion before plotting.
Shunt = WaitForClose ? 1 : 0
pvthi = pvthi_[Shunt]
pvtlo = pvtlo_[Shunt]

//  ||-----------------------------------------------------------------------------------------------------||
//  ||---   Higher Highs, Lower Highs, Higher Lows, Lower Lows  -------------------------------------------||
valuewhen_1 = ta.valuewhen(pvthi, high[pvtLenR + Shunt], 1)
valuewhen_2 = ta.valuewhen(pvthi, high[pvtLenR + Shunt], 0)
higherhigh = na(pvthi) ? na : valuewhen_1 < valuewhen_2 ? pvthi : na
valuewhen_3 = ta.valuewhen(pvthi, high[pvtLenR + Shunt], 1)
valuewhen_4 = ta.valuewhen(pvthi, high[pvtLenR + Shunt], 0)
lowerhigh = na(pvthi) ? na : valuewhen_3 > valuewhen_4 ? pvthi : na
valuewhen_5 = ta.valuewhen(pvtlo, low[pvtLenR + Shunt], 1)
valuewhen_6 = ta.valuewhen(pvtlo, low[pvtLenR + Shunt], 0)
higherlow = na(pvtlo) ? na : valuewhen_5 < valuewhen_6 ? pvtlo : na
valuewhen_7 = ta.valuewhen(pvtlo, low[pvtLenR + Shunt], 1)
valuewhen_8 = ta.valuewhen(pvtlo, low[pvtLenR + Shunt], 0)
lowerlow = na(pvtlo) ? na : valuewhen_7 > valuewhen_8 ? pvtlo : na

plot(not ShowHHLL ? pvthi : na, title='PH *', style=plot.style_cross, ****=false, color=color.new(color.red, 0), offset=-pvtLenR - Shunt, linewidth=4)
plot(not ShowHHLL ? pvtlo : na, title='PL *', style=plot.style_cross, ****=false, color=color.new(color.lime, 0), offset=-pvtLenR - Shunt, linewidth=4)


width = input.int(1, minval=1)
xHigh = request.security(syminfo.tickerid, '60', high[1])
xLow = request.security(syminfo.tickerid, '60', low[1])
xClose = request.security(syminfo.tickerid, '15', close[1])
vPP = (xHigh + xLow + xClose) / 3
vR1 = vPP + vPP - xLow
vS1 = vPP - (xHigh - vPP)
vR2 = vPP + xHigh - xLow
vS2 = vPP - (xHigh - xLow)
vR3 = xHigh + 2 * (vPP - xLow)
vS3 = xLow - 2 * (xHigh - vPP)
plot(vS1, color=color.new(#ff0000, 100), title='S1', style=plot.style_steplinebr, linewidth=width)
plot(vS2, color=color.new(#ff002a, 100), title='S2', style=plot.style_steplinebr, linewidth=width)
plot(vS3, color=color.new(#ff014a, 100), title='S3', style=plot.style_steplinebr, linewidth=width)
plot(vR1, color=color.new(#009600, 100), title='R1', style=plot.style_steplinebr, linewidth=width)
plot(vR2, color=color.new(#006F00, 100), title='R2', style=plot.style_steplinebr, linewidth=width)
plot(vR3, color=color.new(#004900, 100), title='R3', style=plot.style_steplinebr, linewidth=width)

//@version=5

Base = input.timeframe(title='Larger Res than Chart', defval='240')
breakline = input(title='Breaks in lines', defval=true)
so = request.security(syminfo.tickerid, Base, open)
sh = request.security(syminfo.tickerid, Base, high)
sl = request.security(syminfo.tickerid, Base, low)
sc = request.security(syminfo.tickerid, Base, close)
br = so != so[1] and sc != sc[1] and sh != sh[1] and sl != sl[1] and breakline == true ? 1 : na
col = so > sc ? color.red : color.green
a1 = na(br) ? so : na
a2 = na(br) ? sh : na
a3 = na(br) ? sl : na
a4 = na(br) ? sc : na
p1 = plot(a1, 'Open', color.new(color.white, 0), style=plot.style_linebr)
p2 = plot(a2, 'High', color.new(color.black, 75), style=plot.style_linebr)
p3 = plot(a3, 'Low', color.new(color.black, 75), style=plot.style_linebr)
p4 = plot(a4, 'Close', col, style=plot.style_linebr)
fill(p1, p4, col, transp=25)
fill(p2, p3, color.new(color.silver, 65)) 

[@yörük@]

pivotla trend hesaplama...ama mtf olarak....
ve altta periyotların durumunu göreme...al-sat-nötr şeklinde.....
bu arada barları renklendşirir.....

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

//@version=5
indicator("Price-Action Candles", overlay = true, max_bars_back = 100)

// inputs
sdLength    = input.int(3, title = 'Price-Action Length', minval = 2, maxval = 100)
labelType   = input.string('Repaint', title = 'Label Type', options = ['Repaint', 'No-Repaint'])
candleType  = input.string('Fill Only', title = 'Candle Color Type', options = ['Entire Candle', 'Fill Only'])

bullCSS     = input.color(color.lime, title = 'Bull')
bearCSS     = input.color(color.rgb(255, 0, 0), title = 'Bear')
neutCSS     = input.color(color.yellow, title = 'Neutral')

useTrendTable   = input.bool(true, title = 'Enabled', group = 'MTF Trend')

use_mtf1        = input.bool(true, title = 'MTF 1', group = 'MTF Trend', inline = '1')
mtf_1           = input.timeframe("1", title = '', group = 'MTF Trend', inline = '1')

use_mtf2        = input.bool(true, title = 'MTF 2', group = 'MTF Trend', inline = '2')
mtf_2           = input.timeframe("3", title = '', group = 'MTF Trend', inline = '2')

use_mtf3        = input.bool(true, title = 'MTF 3', group = 'MTF Trend', inline = '3')
mtf_3           = input.timeframe("5", title = '', group = 'MTF Trend', inline = '3')

use_mtf4        = input.bool(true, title = 'MTF 4', group = 'MTF Trend', inline = '4')
mtf_4           = input.timeframe("15", title = '', group = 'MTF Trend', inline = '4')

use_mtf5        = input.bool(true, title = 'MTF 5', group = 'MTF Trend', inline = '5')
mtf_5           = input.timeframe("60", title = '', group = 'MTF Trend', inline = '5')



// functions
f_getSwingValues(sdLength, offset) =>
    sh = ta.pivothigh(high, sdLength, sdLength)
    sl = ta.pivotlow(low, sdLength, sdLength)

    csh = ta.valuewhen(not na(sh), high[sdLength], 0)
    csl = ta.valuewhen(not na(sl), low[sdLength], 0)

    psh = ta.valuewhen(not na(sh), high[sdLength], 1)
    psl = ta.valuewhen(not na(sl), low[sdLength], 1)

    hh = sh >= psh
    lh = sh < psh
    ll = sl <= psl
    hl = sl > psl

    var int trend = na
    trend := ((hh and high >= psh) or close > csh) ? 1 : ((ll and low <= psl) or close < csl) ? -1 : lh or hl ? 0 : trend[1]

    var int last_signal = na
    last_signal := hh ? 2 : lh ? -1 : ll ? -2 : hl ? 1 : last_signal[1]

    [sh[offset], sl[offset], psh[offset], psl[offset], csh[offset], csl[offset], hh[offset], lh[offset], ll[offset], hl[offset], trend[offset], last_signal[offset]]



// calculate chart tf
[sh, sl, psh, psl, csh, csl, hh, lh, ll, hl, trend, last_signal] =
 request.security(syminfo.tickerid, "", f_getSwingValues(sdLength, 0))


plotshape(ll and not na(sl), text="LL", title="Lower Low", style=shape.labelup, display = display.none,
 color=bearCSS, textcolor=color.black, location=location.belowbar, offset = labelType == 'Repaint' ? -sdLength : 0)

plotshape(hl and not na(sl), text="HL", title="Higher Low", style=shape.labelup, display = display.none,
 color=neutCSS, textcolor=color.black, location=location.belowbar, offset = labelType == 'Repaint' ? -sdLength : 0)

plotshape(hh and not na(sh), text="HH", title="Higher High", style=shape.labeldown, display = display.none,
 color=bullCSS, textcolor=color.black, location=location.abovebar, offset = labelType == 'Repaint' ? -sdLength : 0)

plotshape(lh and not na(sh), text="LH", title="Lower High", style=shape.labeldown, display = display.none,
 color=neutCSS, textcolor=color.black, location=location.abovebar, offset = labelType == 'Repaint' ? -sdLength : 0)


barCSS = trend == 1 ? bullCSS
 : trend == -1 ? bearCSS
 : neutCSS


barcolor(candleType != 'Fill Only' ? na
 : barCSS, editable = false)


plotcandle(open, high, low, close, title = 'Price Action Candles',
 color = barCSS, wickcolor = barCSS, bordercolor = barCSS,
 display = candleType == 'Entire Candle' ? display.all : display.none, editable = false)



// calculate mtf
f_ltf_values(tf) =>
    var int returnTrend = na

    adjusted_timeframe = timeframe.in_seconds(tf) >= timeframe.in_seconds() ? '' : tf
    [ltf_sh, ltf_sl, ltf_psh, ltf_psl, ltf_csh, ltf_csl, ltf_hh, ltf_lh, ltf_ll, ltf_hl, ltf_trend, ltf_last_signal] = 
     request.security_lower_tf(syminfo.tickerid, adjusted_timeframe, f_getSwingValues(sdLength, 0))

    if array.size(ltf_trend) > 0
        returnTrend := array.last(ltf_trend)
    else
        returnTrend := 0

    returnTrend



f_htf_values(tf) =>
    [htf_sh, htf_sl, htf_psh, htf_psl, htf_csh, htf_csl, htf_hh, htf_lh, htf_ll, htf_hl, htf_trend, htf_last_signal] = 
     request.security(syminfo.tickerid, tf, f_getSwingValues(sdLength, 1), lookahead = barmerge.lookahead_on)

    htf_trend


f_sametf_values() =>
    [sametf_sh, sametf_sl, sametf_psh, sametf_psl, sametf_csh, sametf_csl, sametf_hh, sametf_lh, sametf_ll, sametf_hl, sametf_trend, sametf_last_signal] =
     f_getSwingValues(sdLength, 0)

    sametf_trend


var int mtf1_trend = na
var int mtf2_trend = na
var int mtf3_trend = na
var int mtf4_trend = na
var int mtf5_trend = na

if barstate.islast
    if use_mtf1
        if timeframe.in_seconds() == timeframe.in_seconds(mtf_1)
            mtf1_trend := f_sametf_values()
        else if timeframe.in_seconds() > timeframe.in_seconds(mtf_1)
            mtf1_trend := f_ltf_values(mtf_1)
        else
            mtf1_trend := f_htf_values(mtf_1)

    if use_mtf2
        if timeframe.in_seconds() == timeframe.in_seconds(mtf_2)
            mtf2_trend := f_sametf_values()
        else if timeframe.in_seconds() > timeframe.in_seconds(mtf_2)
            mtf2_trend := f_ltf_values(mtf_2)
        else
            mtf2_trend := f_htf_values(mtf_2)

    if use_mtf3
        if timeframe.in_seconds() == timeframe.in_seconds(mtf_3)
            mtf3_trend := f_sametf_values()
        else if timeframe.in_seconds() > timeframe.in_seconds(mtf_3)
            mtf3_trend := f_ltf_values(mtf_3)
        else
            mtf3_trend := f_htf_values(mtf_3)

    if use_mtf4
        if timeframe.in_seconds() == timeframe.in_seconds(mtf_4)
            mtf4_trend := f_sametf_values()
        else if timeframe.in_seconds() > timeframe.in_seconds(mtf_4)
            mtf4_trend := f_ltf_values(mtf_4)
        else
            mtf4_trend := f_htf_values(mtf_4)

    if use_mtf5
        if timeframe.in_seconds() == timeframe.in_seconds(mtf_5)
            mtf5_trend := f_sametf_values()
        else if timeframe.in_seconds() > timeframe.in_seconds(mtf_5)
            mtf5_trend := f_ltf_values(mtf_5)
        else
            mtf5_trend := f_htf_values(mtf_5)




// table
if barstate.islast and useTrendTable
    var trendTable = table.new(position = position.bottom_right, columns = 5, rows = 1, border_width = 1, border_color = color.black, frame_width = 2, frame_color = color.black)
    
    if use_mtf1
        table.cell(trendTable, 0, 0, text = str.tostring(mtf_1), text_color = color.black,
         bgcolor = color.new(mtf1_trend == 1 ? bullCSS : mtf1_trend == -1 ? bearCSS : neutCSS, 0))
        
    if use_mtf2
        table.cell(trendTable, 1, 0, text = str.tostring(mtf_2), text_color = color.black,
         bgcolor = color.new(mtf2_trend == 1 ? bullCSS : mtf2_trend == -1 ? bearCSS : neutCSS, 0))

    if use_mtf3
        table.cell(trendTable, 2, 0, text = str.tostring(mtf_3), text_color = color.black,
         bgcolor = color.new(mtf3_trend == 1 ? bullCSS : mtf3_trend == -1 ? bearCSS : neutCSS, 0))

    if use_mtf4
        table.cell(trendTable, 3, 0, text = str.tostring(mtf_4), text_color = color.black,
         bgcolor = color.new(mtf4_trend == 1 ? bullCSS : mtf4_trend == -1 ? bearCSS : neutCSS, 0))

    if use_mtf5
        table.cell(trendTable, 4, 0, text = str.tostring(mtf_5), text_color = color.black,
         bgcolor = color.new(mtf5_trend == 1 ? bullCSS : mtf5_trend == -1 ? bearCSS : neutCSS, 0)) 

[@yörük@]

bu kurcalanmalı....bence...

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

//@version=5
indicator("Protected Highs & Lows [TFO]", "Protected Highs & Lows [TFO]", true, max_lines_count = 500, max_labels_count = 500, max_boxes_count = 500)

var g_STR = "Structure"
ps = input.int(0, "Pivot Strength", group = g_STR)
color_trend = input.bool(true, "Trend Candles", inline = "TREND", group = g_STR)
show_labels = input.bool(true, "Show Structure Labels", inline = "MSS", group = g_STR)
label_type = input.string("MSS", "", options = ['MSS', 'BOS', 'All'], inline = "MSS", group = g_STR)

var g_PHL = "Protected Highs & Lows"
show_phl = input.bool(true, "Show Protected Highs & Lows", inline = "PHL", group = g_PHL)
trail_phl = input.bool(true, "Show Protected Trail", inline = "TRAIL", group = g_PHL)
trail_width = input.int(1, "", inline = "TRAIL", group = g_PHL)

var g_PB = "Pullbacks"
use_valid_pbs = input.bool(true, "Use Valid Pullback Criteria", tooltip = "When looking at the swing high that price must close above for a BOS/MSS, in order to form a valid protected low, price must first close below the low of the candle that made the swing high (and vice versa for protected highs)", group = g_PB)
extra_valid_pbs = input.bool(false, "Specific Pullback Candle Criteria", tooltip = "When 'Use Valid Pullback Criteria' is enabled, if a given swing high is formed with a down close candle, the script will look backward to find the most recent up-close candle. Using this candle, price must close below its low to validate a pullback from a swing high (and vice versa)", group = g_PB)

ph_color = input.color(#f23645, "", inline = "PHL", group = g_PHL)
pl_color = input.color(color.blue, "", inline = "PHL", group = g_PHL)

bull_color = input.color(color.teal, "", inline = "TREND", group = g_STR)
bear_color = input.color(#f23645, "", inline = "TREND", group = g_STR)

var g_RET = "Retracements"
show_rets = input.bool (true, "Show Retracements", tooltip = "Show retracements of the previous zone with 30, 50, and 70% retracement levels", group = g_RET)
box_transp = input.int(100, "Box Transparency", 0, 100, tooltip = "Larger values will make the retracement box more transparent", group = g_RET)
line_w = input.int(1, "Line Width", 0, 10, group = g_RET)
line_s = input.string('Dotted', "Line Style", options = ['Solid', 'Dashed', 'Dotted'], group = g_RET)

var style = switch line_s
    'Solid' => line.style_solid
    'Dashed' => line.style_dashed
    'Dotted' => line.style_dotted

var bool bull = na

var float trail_price = na
var color trail_color = na

var ph = array.new_float()
var pl = array.new_float()

var pht = array.new_int()
var plt = array.new_int()

var float last_high = na
var float last_low = na

var int last_high_idx = na
var int last_low_idx = na

var float track_high = na
var float track_low = na

var int track_high_idx = na
var int track_low_idx = na

type pb
    float price
    int idx
    bool valid = false
    bool bull

type snd
    box _box
    line _30
    line _50
    line _70

type dwg
    label[] _label
    label[] _phl
    line[] _line
    bool[] _bull

method snd_add(snd s, float _high, float _low, bool bull) =>
    _30 = (_high - _low) * 0.1 + _low
    _50 = (_high - _low) * 0.3 + _low
    _70 = (_high - _low) * 0.5 + _low
    s._box := box.new(time, _high, time, _low, xloc = xloc.bar_time, border_color = na, bgcolor = na)
    s._30 := line.new(time, _30, time, _30, xloc = xloc.bar_time, color = na, style = style, width = line_w)
    s._50 := line.new(time, _50, time, _50, xloc = xloc.bar_time, color = na, style = style, width = line_w)
    s._70 := line.new(time, _70, time, _70, xloc = xloc.bar_time, color = na, style = style, width = line_w)

method dwg_add(dwg d, label LB, label PHL, line LN, bool BL) =>
    d._label.unshift(LB)
    d._phl.unshift(PHL)
    d._line.unshift(LN)
    d._bull.unshift(BL)

method pb_set(pb p, float P, int I) =>
    p.price := P
    p.idx := I
    p.valid := false

clear_all() =>
    pl.clear()
    plt.clear()    
    ph.clear()
    pht.clear()

var pb_from_high = pb.new(bull = true)
var pb_from_low  = pb.new(bull = false)

if ta.pivotlow(low, ps, ps) and pl.size() == 0
    pl.unshift(low[ps])
    plt.unshift(time[ps])

    if extra_valid_pbs
        for i = 0 to 3
            if close[ps + i] < open[ps + i]
                pb_set(pb_from_low, high[ps + i], bar_index)
                break
    else
        pb_set(pb_from_low, high[ps], bar_index)

    if na(last_low)
        last_low := low[ps]
        last_low_idx := bar_index - ps
    else
        if low[ps] < last_low
            last_low := low[ps]
            last_low_idx := bar_index - ps
if ta.pivothigh(high, ps, ps) and ph.size() == 0
    ph.unshift(high[ps])
    pht.unshift(time[ps])
    
    if extra_valid_pbs
        for i = 0 to 3
            if close[ps + i] > open[ps + i]
                pb_set(pb_from_high, low[ps + i], bar_index)
                break
    else
        pb_set(pb_from_high, low[ps], bar_index)
    
    if na(last_high)
        last_high := high[ps]
        last_high_idx := bar_index - ps
    else
        if high[ps] > last_high
            last_high := high[ps]
            last_high_idx := bar_index - ps

check_pb(pb p) =>
    if p.bull
        if close < p.price and p.valid == false
            p.valid := true
    else
        if close > p.price and p.valid == false
            p.valid := true

check_pb(pb_from_high)
check_pb(pb_from_low)

if (high[ps] > track_high or na(track_high) or last_low_idx >= track_high_idx) and not na(ta.pivothigh(high, ps, ps)) and (use_valid_pbs ? pb_from_low.valid == true : true)
    track_high := high[ps]
    track_high_idx := bar_index - ps
if (low[ps] < track_low or na(track_low) or last_high_idx >= track_low_idx) and not na(ta.pivotlow(low, ps, ps)) and (use_valid_pbs ? pb_from_high.valid == true : true)
    track_low := low[ps]
    track_low_idx := bar_index - ps

bos_bear = false
bos_bull = false
mss_bear = false
mss_bull = false
change = false

var dwgs = dwg.new(array.new_label(), array.new_label(), array.new_line(), array.new_bool())
var snd = snd.new()

maintain(snd s) =>
    if not na(s._box)
        s._box.set_right(time)
        s._30.set_x2(time)
        s._50.set_x2(time)
        s._70.set_x2(time)

maintain(snd)

if ph.size() > 0 
    if close > ph.get(0)
        label _label = na
        label _phl = na

        if show_labels
            save = false
            if label_type == 'MSS' and not bull
                save := true
            else if label_type == 'BOS' and bull
                save := true
            else if label_type == 'All'
                save := true
            if save    
                _label := label.new(math.floor(math.avg(time, pht.get(0))), ph.get(0), bull ? "BOS" : "MSS", xloc = xloc.bar_time, style = label.style_label_down, color = #ffffff00, textcolor = na)

        if bull
            bos_bull := true
        else
            mss_bull := true

        if show_rets and (use_valid_pbs ? pb_from_high.valid == true : true)
            snd.snd_add(ph.get(0), track_low, true)

        _line = line.new(pht.get(0), ph.get(0), time, ph.get(0), color = na, xloc = xloc.bar_time, style = line.style_dashed)
        bull := true
        change := true

        clear_all()

        if not na(track_low)
            if show_phl
                _phl := label.new(time[bar_index - track_low_idx], track_low, "▲", xloc = xloc.bar_time, style = label.style_label_up, textcolor = na, color = #ffffff00)

            pl.unshift(track_low)
            plt.unshift(time[bar_index - track_low_idx])
            last_high := na

        dwgs.dwg_add(_label, _phl, _line, bull)

if pl.size() > 0
    if close < pl.get(0)
        label _label = na
        label _phl = na

        if show_labels
            save = false
            if label_type == 'MSS' and bull
                save := true
            else if label_type == 'BOS' and not bull
                save := true
            else if label_type == 'All'
                save := true
            if save    
                _label := label.new(math.floor(math.avg(time, plt.get(0))), pl.get(0), not bull ? "BOS" : "MSS", xloc = xloc.bar_time, style = label.style_label_up, color = #ffffff00, textcolor = na)

        if not bull
            bos_bear := true
        else
            mss_bear := true

        if show_rets and (use_valid_pbs ? pb_from_low.valid == true : true)
            snd.snd_add(pl.get(0), track_high, false)

        _line = line.new(plt.get(0), pl.get(0), time, pl.get(0), color = na, xloc = xloc.bar_time, style = line.style_dashed)
        bull := false
        change := true
                
        clear_all()

        if not na(track_high)
            if show_phl
                _phl := label.new(time[bar_index - track_high_idx], track_high, "▼", xloc = xloc.bar_time, style = label.style_label_down, textcolor = na, color = #ffffff00)

            ph.unshift(track_high)
            pht.unshift(time[bar_index - track_high_idx])                
            last_low := na
            
        dwgs.dwg_add(_label, _phl, _line, bull)

if change[1]
    if bos_bear[1] or mss_bear[1]
        trail_price := track_high
        trail_color := ph_color
    else if bos_bull[1] or mss_bull[1]
        trail_price := track_low
        trail_color := pl_color
        
    _bull = dwgs._bull.get(0)
    dwgs._label.get(0).set_textcolor(_bull ? bull_color : bear_color)
    dwgs._phl.get(0).set_textcolor(_bull ? pl_color : ph_color)
    dwgs._line.get(0).set_color(_bull ? bull_color : bear_color)

    snd._box.set_bgcolor(color.new(bull ? bull_color : bear_color, box_transp))
    snd._30.set_color(_bull ? bull_color : bear_color)
    snd._50.set_color(_bull ? bull_color : bear_color)
    snd._70.set_color(_bull ? bull_color : bear_color)

//barcolor(color_trend ? (bull ? bull_color : bear_color) : na)

plot(trail_phl ? trail_price : na, color = trail_color, linewidth = trail_width) 

[@yörük@]

20-50 ema....ama sentinelli...

 fi(ki)=>'ra' 
// © fikira This work is licensed under a Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/ 
// @version=5 

indicator (                                                                      "Sentinels"
          , overlay=true
          )
_                                                                                                                                                                                                                                                                        = '
                                                               Settings                                                
                                                             -------------                                                                                                                                                                                                 '

typeMA1   = input.string(   "EMA"  , 'Type'  , options=["SMA", "EMA", "SMMA (RMA)", "HullMA", "WMA", "VWMA", "DEMA", "TEMA", "NONE"], group=   'MA 1'  )
len1      = input.int   (     20    , 'Length'                                                                                       , group=   'MA 1'  )

typeMA2   = input.string(   "EMA"  , 'Type'  , options=["SMA", "EMA", "SMMA (RMA)", "HullMA", "WMA", "VWMA", "DEMA", "TEMA", "NONE"], group=   'MA 2'  )
len2      = input.int   (     50    , 'Length'                                                                                       , group=   'MA 2'  )

tentacles = input.bool  (    true   ,    ''   ,                                   inline= '1',                                         group='tentacles')
typeMA3   = input.string(   "EMA"  ,'******' ,                                   inline= '1' 
                                              , options=["SMA", "EMA", "SMMA (RMA)", "HullMA", "WMA", "VWMA", "DEMA", "TEMA", "NONE"], group='tentacles')

UpCol1    = input.color (color.rgb(  5, 250, 131    ),  ""  ,                   inline= '1',         group = '***********Head************-**Tentacles')
UpCol2    = input.color (color.rgb(255, 176,   6, 80),  ""  ,                   inline= '1',         group = '***********Head************-**Tentacles')
UpCol3    = input.color (color.rgb( 14, 236, 243, 37),"*-**",                   inline= '1',         group = '***********Head************-**Tentacles')
DnCol1    = input.color (color.rgb(255,   0,   0    ),  ""  ,                   inline= '2',         group = '***********Head************-**Tentacles')
DnCol2    = input.color (color.rgb(255, 176,   6, 80),  ""  ,                   inline= '2',         group = '***********Head************-**Tentacles')
DnCol3    = input.color (color.rgb(243,  25, 255, 37),"*-**",                   inline= '2',         group = '***********Head************-**Tentacles')

_                                                                                                                                                                                                                                                                        = '
                                                               Methods                                               
                                                             -----------                                                                                                                                                                                                '

method ma(string type, int length) =>
    //
    ema1 = ta.ema(close, length)
    ema2 = ta.ema(ema1 , length)
    ema3 = ta.ema(ema2 , length)
    //
    switch type
        "SMA"        => ta.sma (close, length)
        "EMA"        => ema1
        "SMMA (RMA)" => ta.rma (close, length)
        "HullMA"     => ta.hma (close, length)
        "WMA"        => ta.wma (close, length)
        "sar"       => ta.ema(close, length)
        "DEMA"       =>  2 * ema1  -      ema2
        "TEMA"       => (3 * ema1) - (3 * ema2) + ema3
        => na

method cond(int count, int n1, int n2) => count >= n1 and count <= n2

_                                                                                                                                                                                                                                                                        = '
                                                              Calculations                                                
                                                             --------------                                                                                                                                                                                                 '

ma1    = typeMA1.ma(len1)
ma2    = typeMA2.ma(len2)

trigUp = ta.crossover (ma1, ma2), bsUp = ta.barssince(trigUp)
trigDn = ta.crossunder(ma1, ma2), bsDn = ta.barssince(trigDn)
 
UpR1   = color.r(UpCol1), UpG1 = color.g(UpCol1), UpB1 = color.b(UpCol1), UpT1 = color.t(UpCol1)
UpR2   = color.r(UpCol2), UpG2 = color.g(UpCol2), UpB2 = color.b(UpCol2), UpT2 = color.t(UpCol2)
DnR1   = color.r(DnCol1), DnG1 = color.g(DnCol1), DnB1 = color.b(DnCol1), DnT1 = color.t(DnCol1)
DnR2   = color.r(DnCol2), DnG2 = color.g(DnCol2), DnB2 = color.b(DnCol2), DnT2 = color.t(DnCol2)

TupMn  = math.min(UpT1, UpT2), TupMx = math.max(UpT1, UpT2)
TdnMn  = math.min(DnT1, DnT2), TdnMx = math.max(DnT1, DnT2)

Rdn = (DnR1  -  DnR2) / 12, Rup = (UpR1  -  UpR2) / 12
Gdn = (DnG1  -  DnG2) / 12, Gup = (UpG1  -  UpG2) / 12
Bdn = (DnB1  -  DnB2) / 12, Bup = (UpB1  -  UpB2) / 12
Tup = (TupMx - TupMn) / 12, Tdn = (TdnMx - TdnMn) / 12

_                                                                                                                                                                                                                                                                        = '
                                                               Sentinels                                                
                                                             --------------                                                                                                                                                                                                 '

plot(bsUp.cond( 0,  1) ? ma1 : na, '', color=            color.rgb(UpR1 - (Rup *  0), UpG1 - (Gup *  0), UpB1 - (Bup *  0), TupMn + (Tup *  0)), style=plot.style_linebr, linewidth=7)
plot(bsUp.cond( 1,  2) ? ma1 : na, '', color=            color.rgb(UpR1 - (Rup *  1), UpG1 - (Gup *  1), UpB1 - (Bup *  1), TupMn + (Tup *  1)), style=plot.style_linebr, linewidth=6)
plot(bsUp.cond( 2,  5) ? ma1 : na, '', color=bsUp <  3 ? color.rgb(UpR1 - (Rup *  2), UpG1 - (Gup *  2), UpB1 - (Bup *  2), TupMn + (Tup *  2))
                                                       : color.rgb(UpR1 - (Rup *  3), UpG1 - (Gup *  3), UpB1 - (Bup *  3), TupMn + (Tup *  3)), style=plot.style_linebr, linewidth=5)
plot(bsUp.cond( 5, 11) ? ma1 : na, '', color=bsUp <  7 ? color.rgb(UpR1 - (Rup *  4), UpG1 - (Gup *  4), UpB1 - (Bup *  4), TupMn + (Tup *  4)) 
                                                       : color.rgb(UpR1 - (Rup *  5), UpG1 - (Gup *  5), UpB1 - (Bup *  5), TupMn + (Tup *  5)), style=plot.style_linebr, linewidth=4)
plot(bsUp.cond(11, 27) ? ma1 : na, '', color=bsUp < 18 ? color.rgb(UpR1 - (Rup *  6), UpG1 - (Gup *  6), UpB1 - (Bup *  6), TupMn + (Tup *  6))
                                                       : color.rgb(UpR1 - (Rup *  7), UpG1 - (Gup *  7), UpB1 - (Bup *  7), TupMn + (Tup *  7)), style=plot.style_linebr, linewidth=3)
plot(bsUp.cond(27, 40) ? ma1 : na, '', color=bsUp < 30 ? color.rgb(UpR1 - (Rup *  8), UpG1 - (Gup *  8), UpB1 - (Bup *  8), TupMn + (Tup *  8))
                                                       : color.rgb(UpR1 - (Rup *  9), UpG1 - (Gup *  9), UpB1 - (Bup *  9), TupMn + (Tup *  9)), style=plot.style_linebr, linewidth=2)
plot(bsUp.cond(40, 60) ? ma1 : na, '', color=bsUp < 50 ? color.rgb(UpR1 - (Rup * 10), UpG1 - (Gup * 10), UpB1 - (Bup * 10), TupMn + (Tup * 10)) 
                                                       : color.rgb(UpR1 - (Rup * 11), UpG1 - (Gup * 11), UpB1 - (Bup * 11), TupMn + (Tup * 11)), style=plot.style_linebr, linewidth=1)

plot(bsDn.cond( 0,  1) ? ma2 : na, '', color=            color.rgb(DnR1 - (Rdn *  0), DnG1 - (Gdn *  0), DnB1 - (Bdn *  0), TdnMn + (Tdn *  0)), style=plot.style_linebr, linewidth=7)
plot(bsDn.cond( 1,  2) ? ma2 : na, '', color=            color.rgb(DnR1 - (Rdn *  1), DnG1 - (Gdn *  1), DnB1 - (Bdn *  1), TdnMn + (Tdn *  1)), style=plot.style_linebr, linewidth=6)
plot(bsDn.cond( 2,  5) ? ma2 : na, '', color=bsDn <  3 ? color.rgb(DnR1 - (Rdn *  2), DnG1 - (Gdn *  2), DnB1 - (Bdn *  2), TdnMn + (Tdn *  2))
                                                       : color.rgb(DnR1 - (Rdn *  3), DnG1 - (Gdn *  3), DnB1 - (Bdn *  3), TdnMn + (Tdn *  3)), style=plot.style_linebr, linewidth=5)
plot(bsDn.cond( 5, 11) ? ma2 : na, '', color=bsDn <  7 ? color.rgb(DnR1 - (Rdn *  4), DnG1 - (Gdn *  4), DnB1 - (Bdn *  4), TdnMn + (Tdn *  4)) 
                                                       : color.rgb(DnR1 - (Rdn *  5), DnG1 - (Gdn *  5), DnB1 - (Bdn *  5), TdnMn + (Tdn *  5)), style=plot.style_linebr, linewidth=4)
plot(bsDn.cond(11, 27) ? ma2 : na, '', color=bsDn < 18 ? color.rgb(DnR1 - (Rdn *  6), DnG1 - (Gdn *  6), DnB1 - (Bdn *  6), TdnMn + (Tdn *  6))
                                                       : color.rgb(DnR1 - (Rdn *  7), DnG1 - (Gdn *  7), DnB1 - (Bdn *  7), TdnMn + (Tdn *  7)), style=plot.style_linebr, linewidth=3)
plot(bsDn.cond(27, 40) ? ma2 : na, '', color=bsDn < 30 ? color.rgb(DnR1 - (Rdn *  8), DnG1 - (Gdn *  8), DnB1 - (Bdn *  8), TdnMn + (Tdn *  8))
                                                       : color.rgb(DnR1 - (Rdn *  9), DnG1 - (Gdn *  9), DnB1 - (Bdn *  9), TdnMn + (Tdn *  9)), style=plot.style_linebr, linewidth=2)
plot(bsDn.cond(40, 60) ? ma2 : na, '', color=bsDn < 50 ? color.rgb(DnR1 - (Rdn * 10), DnG1 - (Gdn * 10), DnB1 - (Bdn * 10), TdnMn + (Tdn * 10)) 
                                                       : color.rgb(DnR1 - (Rdn * 11), DnG1 - (Gdn * 11), DnB1 - (Bdn * 11), TdnMn + (Tdn * 11)), style=plot.style_linebr, linewidth=1)

plotshape(bsUp == 0 ? ma1 : na, '', color=          chart.fg_color     , location=location.absolute, style=shape.circle, size=size.tiny  )
plotshape(bsUp == 0 ? ma1 : na, '', color=color.new(chart.fg_color, 75), location=location.absolute, style=shape.circle, size=size.small )
plotshape(bsUp == 0 ? ma1 : na, '', color=color.new(chart.fg_color, 85), location=location.absolute, style=shape.circle, size=size.normal)

plotshape(bsDn == 0 ? ma2 : na, '', color=          chart.fg_color     , location=location.absolute, style=shape.circle, size=size.tiny  )
plotshape(bsDn == 0 ? ma2 : na, '', color=color.new(chart.fg_color, 75), location=location.absolute, style=shape.circle, size=size.small )
plotshape(bsDn == 0 ? ma2 : na, '', color=color.new(chart.fg_color, 85), location=location.absolute, style=shape.circle, size=size.normal)

diff   = math.round((len2 - len1) / 6)

vwma1  = typeMA3.ma(len1 + diff * 1)
vwma2  = typeMA3.ma(len1 + diff * 2)
vwma3  = typeMA3.ma(len1 + diff * 3)
vwma4  = typeMA3.ma(len1 + diff * 4)
vwma5  = typeMA3.ma(len1 + diff * 5)
vwma6  = typeMA3.ma(len1 + diff * 6)

plot(tentacles ? bsDn > 0 and bsDn <= 15 ? bsDn < 3 ? ma2 : vwma1 : na : na, '', color=DnCol3, style=plot.style_linebr)
plot(tentacles ? bsDn > 0 and bsDn <= 20 ? bsDn < 3 ? ma2 : vwma2 : na : na, '', color=DnCol3, style=plot.style_linebr)
plot(tentacles ? bsDn > 0 and bsDn <= 25 ? bsDn < 3 ? ma2 : vwma3 : na : na, '', color=DnCol3, style=plot.style_linebr)
plot(tentacles ? bsDn > 0 and bsDn <= 30 ? bsDn < 3 ? ma2 : vwma4 : na : na, '', color=DnCol3, style=plot.style_linebr)
plot(tentacles ? bsDn > 0 and bsDn <= 35 ? bsDn < 3 ? ma2 : vwma5 : na : na, '', color=DnCol3, style=plot.style_linebr)
plot(tentacles ? bsDn > 0 and bsDn <= 40 ? bsDn < 3 ? ma2 : vwma6 : na : na, '', color=DnCol3, style=plot.style_linebr)

plot(tentacles ? bsUp > 0 and bsUp <= 15 ? bsUp < 3 ? ma1 : vwma1 : na : na, '', color=UpCol3, style=plot.style_linebr)
plot(tentacles ? bsUp > 0 and bsUp <= 20 ? bsUp < 3 ? ma1 : vwma2 : na : na, '', color=UpCol3, style=plot.style_linebr)
plot(tentacles ? bsUp > 0 and bsUp <= 25 ? bsUp < 3 ? ma1 : vwma3 : na : na, '', color=UpCol3, style=plot.style_linebr)
plot(tentacles ? bsUp > 0 and bsUp <= 30 ? bsUp < 3 ? ma1 : vwma4 : na : na, '', color=UpCol3, style=plot.style_linebr)
plot(tentacles ? bsUp > 0 and bsUp <= 35 ? bsUp < 3 ? ma1 : vwma5 : na : na, '', color=UpCol3, style=plot.style_linebr)
plot(tentacles ? bsUp > 0 and bsUp <= 40 ? bsUp < 3 ? ma1 : vwma6 : na : na, '', color=UpCol3, style=plot.style_linebr)
_                                                                                                                                                                                                                                                                        = '
                                                             --------------                                                                                                                                                                                                 ' 

[@yörük@]

son 16 barı...ikili gruplar....ve açılış ile kapanışı hesaplar...
kapanışa göre renklendirir....
pozitif momentumu bulut şeklinde gösterir....

 //@version=5
indicator('Squeeze TD', shorttitle='.', overlay=true, precision=2)

length = input.int(20, "TTM Squeeze Length")

//BOLLINGER BANDS
BB_mult = input.float(2.0, "Bollinger Band STD Multiplier")
BB_basis = ta.sma(close, length)
dev = BB_mult * ta.stdev(close, length)
BB_upper = BB_basis + dev
BB_lower = BB_basis - dev
atr = ta.atr(14)

//KELTNER CHANNELS
KC_mult_high = input.float(1.0, "Keltner Channel #1")
KC_mult_mid = input.float(1.5, "Keltner Channel #2")
KC_mult_low = input.float(2.0, "Keltner Channel #3")
KC_basis = ta.sma(close, length)
devKC = ta.sma(ta.tr, length)
KC_upper_high = KC_basis + devKC * KC_mult_high
KC_lower_high = KC_basis - devKC * KC_mult_high
KC_upper_mid = KC_basis + devKC * KC_mult_mid
KC_lower_mid = KC_basis - devKC * KC_mult_mid
KC_upper_low = KC_basis + devKC * KC_mult_low
KC_lower_low = KC_basis - devKC * KC_mult_low

//SQUEEZE CONDITIONS
NoSqz = BB_lower < KC_lower_low or BB_upper > KC_upper_low //NO SQUEEZE: GREEN
LowSqz = BB_lower >= KC_lower_low or BB_upper <= KC_upper_low //LOW COMPRESSION: BLACK
MidSqz = BB_lower >= KC_lower_mid or BB_upper <= KC_upper_mid //MID COMPRESSION: RED
HighSqz = BB_lower >= KC_lower_high or BB_upper <= KC_upper_high //HIGH COMPRESSION: ORANGE

//MOMENTUM OSCILLATOR
mom = ta.linreg(close - math.avg(math.avg(ta.highest(high, length), ta.lowest(low, length)), ta.sma(close, length)), length, 0)

//MOMENTUM HISTOGRAM COLOR
iff_1 = mom > nz(mom[1]) ? color.new(color.aqua, 0) : color.new(#2962ff, 0)
iff_2 = mom < nz(mom[1]) ? color.new(color.red, 0) : color.new(color.yellow, 0)
mom_color = mom > 0 ? iff_1 : iff_2

// Bullsqueeze and Bearsqueeze Conditions
bullsqueeze = ((NoSqz and mom_color == color.new(color.aqua, 0)) or (mom_color == color.new(color.aqua, 0) and mom_color[1] == color.new(color.red, 0)))
bearsqueeze = ((NoSqz and mom_color == color.new(color.red, 0)) or (mom_color == color.new(color.red, 0) and mom_color[1] == color.new(color.aqua, 0)))


// BULL AND BEAR WATCH OUT Conditions
buyConf = (mom_color == color.new(color.aqua, 0) and mom_color[1] == color.new(color.yellow, 0)) and not bullsqueeze
sellConf = (mom_color == color.new(color.red, 0) and mom_color[1] == color.new(#2962ff, 0)) and not bearsqueeze


// User inputs for colors and widths related to the BAND
userColorBullish = input.color(color.silver, "Bullish Band Color", group= "Customize BAND")
userColorBearish = input.color(color.black, "Bearish Band Color",group= "Customize BAND")
bandWidthMultiplier = input.float(2.0, "Band Width Multiplier", minval=1.0,group= "Customize BAND")
userWidth = input.int(1, "Band Width", minval=1,group= "Customize BAND")

// Adjusted band calculations
upperBand = high + (atr * bandWidthMultiplier)
lowerBand = low - (atr * bandWidthMultiplier)

// Initialize a color variable for the band
var color bandColor = na
// Initialize a variable to store the previous band color
var color prevBandColor = na

// Update the previous band color for the next bar
prevBandColor := bandColor[1]

// Create variables to store the previous squeeze state
var bool prevBullSqueeze = false
var bool prevBearSqueeze = false

// Update the previous squeeze state at the beginning of each new bar
if (barstate.isnew)
    prevBullSqueeze := bandColor == color.new(userColorBullish, 75)
    prevBearSqueeze := bandColor == color.new(userColorBearish, 75)

// Determine the band color based on custom conditions
if (bullsqueeze)
    bandColor := color.new(userColorBullish, 50)
else if (bearsqueeze) 
    bandColor := color.new(userColorBearish, 100)
else if (sellConf and prevBullSqueeze)
    bandColor := color.new(userColorBullish, 70) 
else if (sellConf)
    bandColor := color.new(userColorBearish, 100)
else if (buyConf and prevBearSqueeze)
    bandColor := color.new(userColorBearish, 100) 
else if (buyConf)
    bandColor := color.new(userColorBullish, 70)

    

// Plot the bands and store the plot references
upperBandPlot = plot(upperBand, "H", color=bandColor, linewidth=userWidth)
lowerBandPlot = plot(lowerBand, "L", color=bandColor, linewidth=userWidth)

// Fill between the bands using the plot references
fill(upperBandPlot, lowerBandPlot, color=bandColor)
///////////////////////////////

//@version=5

dual_color=false
var bar_value= 1 //(1-16)

currentHigh = high
previousHigh = high[1]
currentClose = close
previousClose = close[1]
currentLow = low
previousLow = low[1]

// 
condition1 = currentHigh > previousHigh and currentClose > previousClose and currentLow > previousLow
condition2 = currentHigh < previousHigh and currentClose > previousClose and currentLow > previousLow
condition3 = currentHigh > previousHigh and currentClose > previousClose and currentLow < previousLow
condition4 = currentHigh < previousHigh and currentClose > previousClose and currentLow < previousLow
//--------------------------------------------------------
condition5 = currentHigh > previousHigh and currentClose < previousClose and currentLow > previousLow
condition6 = currentHigh < previousHigh and currentClose < previousClose and currentLow > previousLow
condition7 = currentHigh > previousHigh and currentClose < previousClose and currentLow < previousLow
condition8 = currentHigh < previousHigh and currentClose < previousClose and currentLow < previousLow

open_up   = close > open[1]
open_down = close < open[1]

switch
    condition1 and open_up   => bar_value:=16
    condition1 and open_down => bar_value:=15
    condition2 and open_up   => bar_value:=14
    condition2 and open_down => bar_value:=13
    condition3 and open_up   => bar_value:=12
    condition3 and open_down => bar_value:=11
    condition4 and open_up   => bar_value:=10
    condition4 and open_down => bar_value:=9
    condition5 and open_up   => bar_value:=8
    condition5 and open_down => bar_value:=7
    condition6 and open_up   => bar_value:=6
    condition6 and open_down => bar_value:=5
    condition7 and open_up   => bar_value:=4
    condition7 and open_down => bar_value:=3
    condition8 and open_up   => bar_value:=2
    condition8 and open_down => bar_value:=1 
//plot(bar_value,display = display.none,title="Bar Value")


plotchar(open_up  , char="+", color=color.white)
plotchar(open_down, char="-", color=color.white)
barcolor(condition1 and not dual_color ? color.lime : na, title="C+L+H+")  
barcolor(condition2 and not dual_color ? color.lime   : na, title="C+L+H-")
barcolor(condition3 and not dual_color ? color.lime   : na, title="C+L-H+")
barcolor(condition4 and not dual_color ? color.yellow  : na, title="C+L-H-")
//--------------------------------------------------------------------------
barcolor(condition5 and not dual_color ? color.yellow : na, title="C-L+H+")
barcolor(condition6 and not dual_color ? color.red : na, title="C-L+H-")
barcolor(condition7 and not dual_color ? color.red    : na, title="C-L-H+")     
barcolor(condition8 and not dual_color ? color.red : na, title="C-L-H-")
/////////////////////// 

[@yörük@]

sadece günlükte çalışan...
yüzdeleme mantığı....

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

indicator(title="Hi-Lo-Gauges", overlay=true)

// ::Imports:: {
import faiyaz7283/tools/12 as tools
import faiyaz7283/printer/6 as prnt
import faiyaz7283/multidata/7 as mltd
import faiyaz7283/Gauge/3 as gge
// }

// ::Inputs:: {


var section01 = 'POSITION, SIZE & COLORS'
//---------------------:

var displayLoc = input.string(defval = position.middle_center, title = 'Display Location', options = [position.top_left, 
  position.top_center, position.top_right, position.middle_left, position.middle_center, position.middle_right, 
  position.bottom_left, position.bottom_center, position.bottom_right], group = section01)

var cellPad = input.int(defval = 1, title = 'Cell Spacing', minval = 0, maxval = 5, group = section01)

var orientation = input.string(defval = 'vertical', title = 'Orientation',  options = ['horizontal', 'vertical'], 
  group = section01) == 'vertical' ? false : true 

var grdUp = input.color(defval = #00ff007a, title = '⬆ Max', inline = 'grdnt', group = section01)

var grdNeutral = input.color(defval = #fff9c47e, title = '⮕ Neutral', inline = 'grdnt', group = section01)

var grdDown = input.color(defval = #ff00006b, title = '⬇ Min', inline = 'grdnt', group = section01)

var titleColor = input.color(defval = #ffe0b2, title = 'Title:\tText', inline = 'ttlCl', group = section01)

var titleBgColor = input.color(defval = #1E283273, title = 'Bg', inline = 'ttlCl', group = section01)

var titleSize = input.string(defval=size.auto, title = 'Size', options = ['hide', size.auto, size.tiny, size.small, 
  size.normal, size.large, size.huge], inline = 'ttlCl', group = section01)

var titleAlign = input.string(defval=text.align_center, title = 'Align', 
  options = [text.align_left, text.align_center, text.align_right], inline = 'ttlCl', group = section01)

var labelColor = input.color(defval = #00e3ff, title = 'Label:\tColor', inline = 'lblCl', group = section01)

var labelSize = input.string(defval=size.auto, title = 'Size', options = ['hide', size.auto, size.tiny, size.small, 
  size.normal, size.large, size.huge], inline = 'lblCl', group = section01)

var keySize = input.string(defval=size.auto, title = 'Percentage Size', options = ['hide', size.auto, size.tiny, size.small, 
  size.normal, size.large, size.huge], inline = 'prcCl', group = section01)

var offColor = input.color(defval = #0098E736, title = 'Inactive Color', inline = 'inctCl', group = section01)

var size = input.int(defval = 5, title = 'Gauge Size', minval = 5, maxval = 20, group = section01)


var section02 = 'DATA DISPLAY'
//----------------------------:

var closeTip = 'Check this box to measure price based on a candle\'s closing price. Uncheck the box to use a candle\'s high/low prices.'

useClose = input.bool(defval=false, title='Use Close', tooltip=closeTip, group=section02)
highSource = useClose ? close : high
hs = bool(useClose) ? 'close' : 'high'
lowSource = useClose ? close : low
ls = bool(useClose) ? 'close' : 'low'
var showAT = input.bool(defval=true, title='Show All Time High and Low', group=section02)
var show52W = input.bool(defval=true, title='Show 52 Weeks High and Low', group=section02)
var show1Y = input.bool(defval=true, title='Show Current Annual High and Low', group=section02)
var show6M = input.bool(defval=true, title='Show Current Semi-Annual High and Low', group=section02)
var show3M = input.bool(defval=true, title='Show Current Quarterly High and Low', group=section02)
var show1M = input.bool(defval=true, title='Show Current Monthly High and Low', group=section02)
var show1W = input.bool(defval=true, title='Show Current Weekly High and Low', group=section02)
var show1D = input.bool(defval=true, title='Show Current Daily High and Low', group=section02)

// }


// :Functions: {

weeklyMs() =>
    dayOfWeek = dayofweek(timenow)
    ms = switch
        dayOfWeek == 1 => timenow - (6 * 86400000)
        dayOfWeek > 1 => timenow - ((dayOfWeek - 1) * 86400000)
    timenow - timestamp(year(timenow), month(timenow), dayofmonth(ms))

monthlyMs() =>
    timenow - timestamp(year(timenow), month(timenow), 01)

quaterlyMs() =>
    cm = month(timenow)
    m = switch
        cm <= 3 => 01
        cm <= 6 and cm > 3 => 04
        cm <= 9 and cm > 6 => 07
        cm <= 12 and cm > 9 => 10
    timenow - timestamp(year(timenow), m, 01)

semiAnnuallyMs() =>
    m = month(timenow) <= 6 ? 01 : 07
    timenow - timestamp(year(timenow), m, 01)

annuallyMs() =>
    timenow - timestamp(year(timenow), 01, 01)

// }


if timeframe.isdaily

    // ::Data:: {

    var fiftyTwoWeekMS = timeframe.in_seconds('52W') * 1000
    atL = lowSource.allTimeLowest().get(ls)
    atH = highSource.allTimeHighest().get(hs)
    _52wL = fiftyTwoWeekMS.timeRangeLowest(lowSource).get(ls)
    _52wH = fiftyTwoWeekMS.timeRangeHighest(highSource).get(hs)
    _1yL = annuallyMs().timeRangeLowest(lowSource).get(ls)
    _1yH = annuallyMs().timeRangeHighest(highSource).get(hs)
    _6mL = semiAnnuallyMs().timeRangeLowest(lowSource).get(ls)
    _6mH = semiAnnuallyMs().timeRangeHighest(highSource).get(hs)
    _3mL = quaterlyMs().timeRangeLowest(lowSource).get(ls)
    _3mH = quaterlyMs().timeRangeHighest(highSource).get(hs)
    _1mL = monthlyMs().timeRangeLowest(lowSource).get(ls)
    _1mH = monthlyMs().timeRangeHighest(highSource).get(hs)
    _1wL = weeklyMs().timeRangeLowest(lowSource).get(ls)
    _1wH = weeklyMs().timeRangeHighest(highSource).get(hs)

    // }

    if barstate.islast
        tbs = prnt.tableStyle.new(bgColor=na, frameColor=na, borderColor=na, borderWidth=cellPad)
        printer = prnt.printer(stack=orientation, loc=displayLoc, tableStyle=tbs, gutterStyle=prnt.gutterStyle.new(true, 1, 1))
        prms = gge.gaugeParams.new(num=close, min=0, max=0, size=size, offColor=offColor, upColor=grdUp, 
          downColor=grdDown, neutralColor=grdNeutral, titleColor=titleColor, titleBgColor=titleBgColor, 
          labelColor=labelColor, titleAlign=titleAlign, titleSize=titleSize, keySize=keySize, labelSize=labelSize, 
          horizontal=orientation)

        if showAT
            paramsAT = gge.gaugeParams.copy(prms)
            paramsAT.min := atL
            paramsAT.max := atH
            paramsAT.title := 'TÜM ZAMANLAR'
            paramsAT.minLabel := str.format("{0,number,currency}", atL)
            paramsAT.maxLabel := str.format("{0,number,currency}", atH)
            printer.gauge(paramsAT)
        
        if show52W
            params52W = gge.gaugeParams.copy(prms)
            params52W.min := _52wL
            params52W.max := _52wH
            params52W.title := '52 HAFTA'
            params52W.minLabel := str.format("{0,number,currency}", _52wL)
            params52W.maxLabel := str.format("{0,number,currency}", _52wH)
            printer.gauge(params52W)
        
        if show1Y
            params1Y = gge.gaugeParams.copy(prms)  
            params1Y.min := _1yL
            params1Y.max := _1yH
            params1Y.title := 'YILLIK'
            params1Y.minLabel := str.format("{0,number,currency}", _1yL)
            params1Y.maxLabel := str.format("{0,number,currency}", _1yH)
            printer.gauge(params1Y)

        if show6M
            params6M = gge.gaugeParams.copy(prms)  
            params6M.min := _6mL
            params6M.max := _6mH
            params6M.title := '6 AYLIK'
            params6M.minLabel := str.format("{0,number,currency}", _6mL)
            params6M.maxLabel := str.format("{0,number,currency}", _6mH)
            printer.gauge(params6M)

        if show3M
            params3M = gge.gaugeParams.copy(prms)  
            params3M.min := _3mL
            params3M.max := _3mH
            params3M.title := '3 AYLIK'
            params3M.minLabel := str.format("{0,number,currency}", _3mL)
            params3M.maxLabel := str.format("{0,number,currency}", _3mH)
            printer.gauge(params3M)

        if show1M
            params1M = gge.gaugeParams.copy(prms)  
            params1M.min := _1mL
            params1M.max := _1mH
            params1M.title := 'AYLIK'
            params1M.minLabel := str.format("{0,number,currency}", _1mL)
            params1M.maxLabel := str.format("{0,number,currency}", _1mH)
            printer.gauge(params1M)

        if show1W
            params1W = gge.gaugeParams.copy(prms)
            params1W.min := _1wL
            params1W.max := _1wH
            params1W.title := 'HAFTALIK'
            params1W.minLabel := str.format("{0,number,currency}", _1wL)
            params1W.maxLabel := str.format("{0,number,currency}", _1wH)
            printer.gauge(params1W)

        if show1D
            params1D = gge.gaugeParams.copy(prms)
            params1D.min := low
            params1D.max := high
            params1D.title := 'GÜNLÜK'
            params1D.minLabel := str.format("{0,number,currency}", low)
            params1D.maxLabel := str.format("{0,number,currency}", high)
            printer.gauge(params1D)
else
    prnt._printer.new().print("SADECE GÜNLÜK GRAFİKTE ÇALIŞIR.") 

[@yörük@]

korku-çoşku kodu....

 //@version=5
// ══════════════════════════════════════════════════════════════════════════════════════════════════ //
//# * ══════════════════════════════════════════════════════════════════════════════════════════════
//# *
//# * Study       : Trading Psychology - Fear & Greed Index by DGT
//# * Author      : © dgtrd
//# *
//# * Revision History
//# *  Release    : Jul 21, 2020
//# *  Update     : Apr 09, 2021 : Added ability to display Current Time Frame's Fear and Greed Index
//# *  Update     : Apr 09, 2022 : Added Price Candle display option with Fear & Greed weighted risk levels 
//# *
//# * ══════════════════════════════════════════════════════════════════════════════════════════════
// ══════════════════════════════════════════════════════════════════════════════════════════════════ //

indicator('Trading Psychology - Fear & Greed Index by DGT', '.', true, max_bars_back=252)

// -Inputs ====================================================================================== //

display = input.string('Price Candles', 'Display as', options=['Price Candles', 'Fear & Greed Index'])
smoothLength = input.int(5, 'RMA Smoothing Length', minval=1, maxval=13)
faster = input(false, 'Fear & Greed Index : Calculation with Faster Legths')
daily = input(true, 'Display Daily Time Frame Calculated Value')
lagendDesc = input(true, 'Show Color Legend')
hLabel = input(false, 'Hide Statistical Label')


fastLength = faster ? 13 : 21
slowLength = faster ? 89 : 144

// -Calculations ================================================================================ //

pmacd = (close / ta.ema(close, slowLength) - 1) * 100
pmacd_d = request.security(syminfo.tickerid, 'D', pmacd, barmerge.gaps_off, barmerge.lookahead_on)

ror = (close - close[slowLength]) / close[slowLength] * 100
ror_d = request.security(syminfo.tickerid, 'D', ror, barmerge.gaps_off, barmerge.lookahead_on)

accDist = close == high and close == low or high == low ? 0 : (2 * close - low - high) / (high - low)
nzVolume = nz(volume)
moneyFlow = math.sum(accDist * nzVolume, fastLength) / math.sum(nzVolume, fastLength) * 100

accDist_d = request.security(syminfo.tickerid, 'D', accDist, barmerge.gaps_off, barmerge.lookahead_on)
nzVolume_d = request.security(syminfo.tickerid, 'D', nzVolume)
moneyFlow_d = math.sum(accDist_d * nzVolume_d, fastLength) / math.sum(nzVolume_d, fastLength) * 100

vix = request.security('VIX', timeframe.period, -(close / ta.ema(close, slowLength) - 1) * 100, barmerge.gaps_off, barmerge.lookahead_on)
vix_d = request.security('VIX', 'D', -(close / ta.ema(close, slowLength) - 1) * 100, barmerge.gaps_off, barmerge.lookahead_on)

gold = request.security('BIST:XU100', timeframe.period, -(1 - close[fastLength] / close) * 100, barmerge.gaps_off, barmerge.lookahead_on)
gold_d = request.security('BIST:XU100', 'D', -(1 - close[fastLength] / close) * 100, barmerge.gaps_off, barmerge.lookahead_on)

cycle_raw = nzVolume ? math.avg(pmacd, ror, moneyFlow, vix, gold) : math.avg(pmacd, ror, vix, gold)
cycle_raw_d = nzVolume_d ? math.avg(pmacd_d, ror_d, moneyFlow_d, vix_d, gold_d) : math.avg(pmacd_d, ror_d, vix_d, gold_d)

cycle = ta.rma(cycle_raw, smoothLength)
cycle_d = ta.rma(cycle_raw_d, smoothLength)

f_getText(_cycle) =>
    if _cycle > 73
        'AŞIRI ÇOSKULU'
    else if _cycle > 33
        'ÇOSKULU'
    else if _cycle < -25
        'KORKU'
    else if _cycle < -41
        'AŞIRI KORKU'
    else
        'NÖTR'

f_getColor(_cycle) =>
    if _cycle >= 73
        #006400
    else if _cycle >= 63 and _cycle < 73
        #007439
    else if _cycle >= 52 and _cycle < 63
        #008368
    else if _cycle >= 41 and _cycle < 52
        #009096
    else if _cycle >= 30 and _cycle < 41
        #009bbf
    else if _cycle >= 20 and _cycle < 30
        #00a4df
    else if _cycle >= 10 and _cycle < 20
        #00a4df
    else if _cycle >= 5 and _cycle < 10
        #65a095
    else if _cycle < -5 and _cycle >= -10
        #b7b763
    else if _cycle < -10 and _cycle >= -15
        #fafa6e
    else if _cycle < -15 and _cycle >= -20
        #fecb35
    else if _cycle < -20 and _cycle >= -25
        #ff9800
    else if _cycle < -25 and _cycle >= -31
        #ff7434
    else if _cycle < -31 and _cycle >= -37
        #ff5252
    else if _cycle < -37 and _cycle >= -41
        #c72e29
    else if _cycle < -41
        #910000
    else
        #92928f

f_getColor1(_cycle) =>
    if _cycle >= 73
        #910000
    else if _cycle >= 63 and _cycle  <  73
        #c72e29
    else if _cycle >= 52 and _cycle  <  63
        #ff5252
    else if _cycle >= 41 and _cycle  <  52
        #ff7434
    else if _cycle >= 30 and _cycle  <  41
        #ff9800
    else if _cycle >= 20 and _cycle  <  30
        #fecb35
    else if _cycle >= 10 and _cycle  <  20
        #fafa6e
    else if _cycle >= 5  and _cycle  <  10
        #b7b763
    else if _cycle < -5  and _cycle >= -10
        #65a095
    else if _cycle < -10 and _cycle >= -15
        #00a4df
    else if _cycle < -15 and _cycle >= -20
        #00a4df
    else if _cycle < -20 and _cycle >= -25
        #009bbf
    else if _cycle < -25 and _cycle >= -31
        #009096
    else if _cycle < -31 and _cycle >= -37
        #008368
    else if _cycle < -37 and _cycle >= -41
        #007439
    else if _cycle < -41 
        #006400
    else
        #92928f

// -Plotting ==================================================================================== //

fgColor = daily ? f_getColor(cycle_d) : f_getColor(cycle)
//plot(display == 'Fear & Greed Index' ? daily ? cycle_d : cycle : na, 'Psychology of The Market Cycle - Index Display', fgColor, 2)

var label fgiLabel = na
if not hLabel
    fgiLabel := label.new(time + math.round(ta.change(time) * 7), display == 'Price Candles' ? close : daily ? cycle_d : cycle, (daily ? '*Daily' : 'Daily') + ' Time Frame : ' + f_getText(cycle_d) + ' : ' + 
                             str.tostring(math.round(cycle_d, 2)) + '%\n' + (daily ? 'Current' : '*Current') + ' Time Frame (' + timeframe.period + ') : ' + f_getText(cycle) + ' : ' + 
                             str.tostring(math.round(cycle, 2)) + '%', xloc.bar_time, tooltip='Psychology of The Market Cycle by DGT\n\n' + 'Fear & Greed Index :\nDaily Time Frame : ' + f_getText(cycle_d) + ' : ' + 
                             str.tostring(math.round(cycle_d, 2)) + '%\nCurrent Time Frame (' + timeframe.period + ') : ' + f_getText(cycle) + ' : ' + 
                             str.tostring(math.round(cycle, 2)) + '%' + '%\n\nReference Sources : ' + '\n-------------------------------------------------------------------' + 
                             '\n 1 - Price Convergence/Divergence to/from its Moving Average (' + str.tostring(slowLength) + ') :\n     Daily TF ' + str.tostring(math.round(pmacd_d, 2)) + '% / Current TF ' + str.tostring(math.round(pmacd, 2)) + '%' + 
                             '\n 2 - Rate of Return (Momentum/RoC), Length (' + str.tostring(slowLength) + ') :\n     Daily TF ' + str.tostring(math.round(ror_d, 2)) + '% / Current TF ' + str.tostring(math.round(ror, 2)) + '%' + 
                             '\n 3 - Chaikin Money Flow, Length (' + str.tostring(fastLength) + ') :\n     Daily TF ' + str.tostring(math.round(moneyFlow_d, 2)) + '% / Current TF ' + str.tostring(math.round(moneyFlow, 2)) + '% \n      ps: cmf calculated only if volume data is provided' + 
                             '\n 4 - VIX - Volatility (Fear) Index, Length (' + str.tostring(slowLength) + ') :\n     Daily TF ' + str.tostring(math.round(vix_d, 2)) + '% / Current TF ' + str.tostring(math.round(vix, 2)) + '%' + 
                             '\n 5 - Safe Haven Demand - Gold Demand, Length (' + str.tostring(fastLength) + ') :\n     Daily TF ' + str.tostring(math.round(gold_d, 2)) + '% / Current TF ' + str.tostring(math.round(gold, 2)) + '%' + 
                             '\n\nWarren Buffett’s quote, buy when others are fearful, and sell when others are greedy', color=color.new(color.gray, 85), style=label.style_label_left, textcolor=color.gray, textalign=text.align_left)

label.delete(fgiLabel[1])

var o = 0., var h = 0., var l = 0., var c = 0.

if display == 'Price Candles'
    o := open, h := high, l := low, c := close

fgColor := daily ? f_getColor1(cycle_d) : f_getColor1(cycle)

if display == 'Fear & Greed Index'
    fgColor := na

//plotcandle(o, h, l, c, 'Psychology of The Market Cycle - Price Display', fgColor, fgColor, bordercolor = fgColor)

//var table logo = table.new(position.bottom_right, 1, 1)
//table.cell(logo, 0, 0, "☼☾  ", text_size = size.normal, text_color = color.teal)


var table legend = table.new(position.middle_center   , 1, 5)

if lagendDesc
    if display == 'Price Candles'
        table.cell(legend, 0, 0, "Max FIRSAT █", text_size = size.small, text_color = #006400, text_halign = text.align_right)
        table.cell(legend, 0, 1, "FIRSAT █", text_size = size.small, text_color = #008368, text_halign = text.align_right)
        table.cell(legend, 0, 2, "NÖTR █", text_size = size.small, text_color = #92928f, text_halign = text.align_right)
        table.cell(legend, 0, 3, "RİSK █", text_size = size.small, text_color = #ff7434, text_halign = text.align_right)
        table.cell(legend, 0, 4, "Max RİSK █", text_size = size.small, text_color = #910000, text_halign = text.align_right)
    else
        table.cell(legend, 0, 0, "AŞIRI ÇOŞKU █", text_size = size.small, text_color = #006400, text_halign = text.align_right)
        table.cell(legend, 0, 1, "ÇOŞKU █", text_size = size.small, text_color = #008368, text_halign = text.align_right)
        table.cell(legend, 0, 2, "NÖTR █", text_size = size.small, text_color = #92928f, text_halign = text.align_right)
        table.cell(legend, 0, 3, "KORKU █", text_size = size.small, text_color = #ff7434, text_halign = text.align_right)
        table.cell(legend, 0, 4, "AŞIRI KORKU █", text_size = size.small, text_color = #910000, text_halign = text.align_right)