Untitled

//@version=5
indicator(title="psar/rsı deneme", overlay=true, max_labels_count=500)

// Parabolik SAR
start = input(0.02)
increment = input(0.02)
maximum = input(0.2, "Max Value")
sar_out = ta.sar(start, increment, maximum)
RENKPSAR=input.color(color.black,"renkPSAR")
plot(sar_out, "Parabolik SAR", style=plot.style_cross, color=#2962FF)

var int sar_counter = 0
var int eski_sar_deger = na
var label sar_label = na

label_color = input(color.new(color.white, 100), title="SAR KAYDIRMA")
label_offset = input(5, title="SAR KAYDIRMA")

var bool sar_direction = na
var bool sar_direction_prev = na

if (sar_out > close and sar_out[1] > close[1]) or (sar_out < close and sar_out[1] < close[1])
    eski_sar_deger := sar_counter // PSAR yön değiştirmeden önceki son sayıyı sakla------------bu da yok 
    sar_counter := sar_counter + 1
else
    sar_counter := 1

if sar_counter == 10
    sar_counter := 1

if barstate.isconfirmed 
    sar_label := label.new(bar_index, sar_out + label_offset * syminfo.mintick, str.tostring(sar_counter), textcolor=RENKPSAR, style=label.style_none)

// Coral Trend Indicator (CTI)
src = input(close, title='CTI Source')
sm = input(21, title='CTI Smoothing Period')
cd = input(0.4, title='CTI Constant D')
RENKCT=input.color(color.black,"renkCTI")
bar_col = input(false, title='CTI Color Bars')
flat = input(color.new(color.blue, 0), title='CTI Line')

raise = input(color.new(color.green, 0), title='CTI Raise Color')
fall = input(color.new(color.red, 0), title='CTI Fall Color')

di = (sm - 1.0) / 2.0 + 1.0
c1 = 2 / (di + 1.0)
c2 = 1 - c1
c3 = 3.0 * (cd * cd + cd * cd * cd)
c4 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd)
c5 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd

var float cti_i1 = na
var float cti_i2 = na
var float cti_i3 = na
var float cti_i4 = na
var float cti_i5 = na
var float cti_i6 = na

cti_i1 := c1 * src + c2 * nz(cti_i1[1])
cti_i2 := c1 * cti_i1 + c2 * nz(cti_i2[1])
cti_i3 := c1 * cti_i2 + c2 * nz(cti_i3[1])
cti_i4 := c1 * cti_i3 + c2 * nz(cti_i4[1])
cti_i5 := c1 * cti_i4 + c2 * nz(cti_i5[1])
cti_i6 := c1 * cti_i5 + c2 * nz(cti_i6[1])

cti_Cto = -cd * cd * cd * cti_i6 + c3 * cti_i5 + c4 * cti_i4 + c5 * cti_i3

var int cti_counter = 0
var int eski_cti_deger = na   //ctı renk değiştirmeden önceki son rakam ..

cti_bfrC = cti_Cto > nz(cti_Cto[1]) ? raise : cti_Cto < nz(cti_Cto[1]) ? fall : na
cti_tc = bar_col ? flat : cti_bfrC

distance_between_bars = input(3, title='CTI KAYDIRMA')

plot(cti_Cto, title='CTI Trend', linewidth=3, style=plot.style_circles, color=cti_tc, editable=false)




if barstate.isconfirmed
    if cti_bfrC == cti_bfrC[1]
        cti_counter := cti_counter + 1
        if cti_counter > 9
            cti_counter := 1
    else
        cti_counter := 1

if barstate.isconfirmed
    label.new(bar_index, cti_Cto + distance_between_bars * syminfo.mintick, str.tostring(cti_counter),textcolor=RENKCT, style=label.style_none)


if sar_counter == cti_counter and (sar_counter == 3 or sar_counter == 6 or sar_counter == 9)   //sar ve ctı  değeri eşit ve sayılara eşit

    if math.abs(close - eski_sar_deger) < math.abs(close - eski_cti_deger)    // eski ctı daha yakın 
        cti_counter := eski_cti_deger+1
        cti_counter==10
        cti_counter:=1

     else           //eski psar daha yakın
        sar_counter := eski_sar_deger+1
        sar_counter == 10
        sar_counter:=1