Tradingview

[@yörük@]

hurst dönü-aynalı-sarlı-dalga mesafeli-boxlı

//@version=6
indicator("]", overlay=true, max_boxes_count=500, max_labels_count=500, max_lines_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. GİRDİLER 
// ─────────────────────────────────────────────────────────────────
c_start = input.float(0.0, "Çırak (Hızlı) Başlangıç", step=0.1)
c_inc   = input.float(0.1, "Çırak (Hızlı) İvme", step=0.1)
c_max   = input.float(0.3, "Çırak (Hızlı) Max", step=0.1)

u_start = input.float(0.0, "Usta (Ana Yön) Başlangıç", step=0.1)
u_inc   = input.float(0.1, "Usta (Ana Yön) İvme", step=0.1)
u_max   = input.float(0.1, "Usta (Ana Yön) Max", step=0.1)

// YENİ: Gerilim Sınırı (Kervan ile Atlının açılma toleransı)
g_carpan = input.float(4.5, "Aşırı Gerilim Sınırı (ATR Çarpanı)", step=0.1, tooltip="Usta ile Çırak arasındaki mesafe bu değeri aşarsa Sarı Çarpı (Mola/Geri Çekilme) uyarısı verir.")

// ─────────────────────────────────────────────────────────────────
//  2. ZAMANDAN ARINDIRILMIŞ SAF SAR MOTORU
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
                
        sar_val := nextsar
    
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────
//  3. ÇIPLAK İKİLİ AYNA HESAPLAMASI
// ─────────────────────────────────────────────────────────────────
[sar_cirak, trend_cirak] = f_ozel_sar(high, low, c_start, c_inc, c_max)
ayna_cirak = trend_cirak > 0 ? close + math.abs(close - sar_cirak) : close - math.abs(close - sar_cirak)

[sar_usta, trend_usta] = f_ozel_sar(high, low, u_start, u_inc, u_max)
ayna_usta = trend_usta > 0 ? close + math.abs(close - sar_usta) : close - math.abs(close - sar_usta)

// ─────────────────────────────────────────────────────────────────
//  4. KARAR MOTORU (Yön ve Renk)
// ─────────────────────────────────────────────────────────────────
bool ayni_deger = ayna_cirak == ayna_usta
bool ayni_renk  = trend_cirak == trend_usta

int nihai_yon = 1
if ayni_deger and ayni_renk
    nihai_yon := trend_cirak
else
    nihai_yon := trend_usta

color col_nihai = nihai_yon > 0 ? color.lime : color.red

// ─────────────────────────────────────────────────────────────────
//  5. SİNYAL MOTORU (Kopuş ve Gerilim)
// ─────────────────────────────────────────────────────────────────
// 1. KOPUŞ: Bir önceki mumda beraberken, bu mumda ayrıldıkları an
bool kopus_ani = (ayna_cirak != ayna_usta) and (ayna_cirak[1] == ayna_usta[1])

// 2. AŞIRI GERİLİM: İki çizgi arasındaki mesafe, dinamik ATR sınırını aştığında
float ayna_mesafe = math.abs(ayna_cirak - ayna_usta)
float gerilim_haddi = ta.atr(14) * g_carpan

// Sinyal karmaşasını önlemek için sadece sınırı geçtiği "ilk" anı alırız
bool gerilim_ani = (ayna_mesafe > gerilim_haddi) and (ayna_mesafe[1] <= gerilim_haddi[1])

// ─────────────────────────────────────────────────────────────────
//  6. ÇİZİMLER
// ─────────────────────────────────────────────────────────────────
p_cirak = plot(ayna_cirak, title="1", color=col_nihai, style=plot.style_line, linewidth=1)
p_usta  = plot(ayna_usta,  title="0", color=col_nihai, style=plot.style_line, linewidth=1)
fill(p_cirak, p_usta, color=color.new(col_nihai, 85), title="Güç Koridoru")

// Sinyal Çizimleri
plotshape(kopus_ani ? ayna_cirak : na, title="Kopuş Sinyali", style=shape.circle, location=location.absolute, color=color.white, size=size.small)
plotshape(gerilim_ani ? ayna_cirak : na, title="Aşırı Gerilim", style=shape.cross, location=location.absolute, color=color.yellow, size=size.small)
//////////////////
// ─────────────────────────────────────────────────────────────────
//  LONESOME SAR MOTORU (Kesintisiz Akış)
// ─────────────────────────────────────────────────────────────────
f_ozel_sar22(src_h, src_l, _start, _inc, _max) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
                
        sar_val := nextsar
    
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────

// ─────────────────────────────────────────────────────────────────
//  2. ORTA KANAL (Denge / Dünya) | İvme: 0.001 | Dolgusuz | Sarı-Mavi
// ─────────────────────────────────────────────────────────────────
[sar2, trend2] = f_ozel_sar22(high, low, 0.0, 0.01, 0.3)
delta2 = math.abs(close - sar2)
ayna_h2 = trend2 > 0 ? close + delta2 : close - delta2
ayna_z2 = trend2 > 0 ? close - delta2 : close + delta2

var float s2_ust = na, var float s2_alt = na
if ta.change(trend2) != 0
    s2_ust := math.max(ayna_h2, ayna_z2)
    s2_alt := math.min(ayna_h2, ayna_z2)

col2 = trend2 > 0 ? color.new(#00e677, 100) : color.new(#ff5252, 100)
plot(s2_ust, title="Dir", color=col2, style=plot.style_line, linewidth=1)
plot(s2_alt, title="Des", color=col2, style=plot.style_line, linewidth=1)

// ─────────────────────────────────────────────────────────────────

//  HESAPLAMALAR VE ÇEKİM
// ─────────────────────────────────────────────────────────────────
// Orijinal kodda belirtilen (0.01 - 0.02 - 0.03) ivme değerlerine göre çekimler
[roSarSlow, _]     = f_ozel_sar22(high, low, 0., 0.1, 0.3)
[roSarModerate, _] = f_ozel_sar22(high, low, 0., 0.2, 0.3)
[roSarFast, _]     = f_ozel_sar22(high, low, 0., 0.3, 0.3)

// ─────────────────────────────────────────────────────────────────
//  ÇİZİMLER
// ─────────────────────────────────────────────────────────────────
plot(roSarSlow,     title="C", color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
plot(roSarModerate, title="B",  color=color.new(color.yellow, 0), style=plot.style_cross, linewidth=1)
plot(roSarFast,     title="A", color=color.new(color.yellow, 0),   style=plot.style_cross, linewidth=1)

//////////////////
// ─────────────────────────────────────────────────────────────────
//  DALGA MESAFESİ (Daireleri Birbirinden Ayıran Boşluk)
// ─────────────────────────────────────────────────────────────────
// Fiyatın hareketliliğine göre aralarındaki mesafeyi ayarlar
dalga_araligi = ta.atr(14) * 0.25 

// ─────────────────────────────────────────────────────────────────
//  OTONOM BEYİN (Özelleştirilmiş MTK SAR Motoru)
// ─────────────────────────────────────────────────────────────────
type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong

method f_initState(float accel_start) => SARState.new(na, na, accel_start, false)

method f_updateState(SARState state, float high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float atr_offset) =>
    bool isInitialTrend = false
    
    // İLK BAŞLANGIÇ
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong        := true
            state.extreme_point := high_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := low_val[1] - atr_offset 
        else
            state.isLong        := false
            state.extreme_point := low_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := high_val[1] + atr_offset
        isInitialTrend          := true
        state.accel_factor      := accel_start
        
    state.sar_value += state.accel_factor * (state.extreme_point - state.sar_value)
    
    // YÖN DEĞİŞİMİ (KIRILIM ANI) - Daire Formunun Yaratıldığı Yer!
    if state.isLong
        if state.sar_value > low_val
            isInitialTrend      := true
            state.isLong        := false
            // Düşüşe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.max(high_val, state.extreme_point) + atr_offset
            state.extreme_point := low_val
            state.accel_factor  := accel_start
    else
        if state.sar_value < high_val
            isInitialTrend      := true
            state.isLong        := true
            // Yükselişe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.min(low_val, state.extreme_point) - atr_offset
            state.extreme_point := high_val
            state.accel_factor  := accel_start
            
    if not isInitialTrend
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
                
    if bar_index > 1
        if state.isLong
            state.sar_value := math.min(state.sar_value, low_val[1])
            if bar_index > 2
                state.sar_value := math.min(state.sar_value, low_val[2])
        else
            state.sar_value := math.max(state.sar_value, high_val[1])
            if bar_index > 2
                state.sar_value := math.max(state.sar_value, high_val[2])
    state

// ─────────────────────────────────────────────────────────────────
//  ŞAHİNLERİN YARATILMASI (6 Tabaka)
// ─────────────────────────────────────────────────────────────────
var SARState sar1_beyaz = f_initState(0.04)
var SARState sar2_kirm  = f_initState(0.01)
var SARState sar3_yesil = f_initState(0.01)
var SARState sar4_mavi  = f_initState(0.01)
var SARState sar5_sari  = f_initState(0.01) // Sarı ayarını şimdilik 0.01 yaptım
var SARState sar6_kutup = f_initState(0.001)

// Her şahine farklı bir "Uzaklık" (Offset) veriyoruz ki iç içe daireler oluşsun
sar1_beyaz := sar1_beyaz.f_updateState(high, low, close, 0., 0.04, 0.2, dalga_araligi * 0) // En iç dalga
sar2_kirm  := sar2_kirm.f_updateState(high, low, close, 0., 0.003, 0.2, dalga_araligi * 1)
sar3_yesil := sar3_yesil.f_updateState(high, low, close, 0., 0.002, 0.2, dalga_araligi * 2)
sar4_mavi  := sar4_mavi.f_updateState(high, low, close, 0., 0.01, 0.2, dalga_araligi * 3)
sar5_sari  := sar5_sari.f_updateState(high, low, close, 0., 0.001, 0.2, dalga_araligi * 4)
sar6_kutup := sar6_kutup.f_updateState(high, low, close, 0.,0.001,0.2, dalga_araligi * 5) // En dış dalga

// ÇİZİMLER
plot(sar1_beyaz.sar_value, "yörük", color=color.fuchsia,  style=plot.style_circles, linewidth=1)
//plot(sar2_kirm.sar_value,  "3", color=color.fuchsia,    style=plot.style_line, linewidth=1)
//plot(sar3_yesil.sar_value, "SAR4", color=color.green,  style=plot.style_cross, linewidth=1)
//plot(sar4_mavi.sar_value,  "2", color=color.fuchsia,   style=plot.style_line, linewidth=1)
//plot(sar5_sari.sar_value,  "SAR5", color=color.yellow, style=plot.style_cross, linewidth=1)
plot(sar6_kutup.sar_value, "Trend", color=color.silver,style=plot.style_circles, linewidth=1)
///////////
// ─────────────────────────────────────────────────────────────────
//  1. GİRDİLER VE RİSK YÖNETİMİ
// ─────────────────────────────────────────────────────────────────
targetMult = input.float(1.0, title="Hedef Çarpanı (Risk/Ödül Oranı)")
boxLength  = input.int(2, title="Kutu Uzunluğu (Görsel)")

u_start99 = input.float(0.0, "Usta Ayna Başlangıç", step=0.1)
u_inc99   = input.float(0.1, "Usta Ayna İvme", step=0.1)
u_max99   = input.float(0.1, "Usta Ayna Max", step=0.1)

grpCool = "Soğuma (Cooldown) Filtresi"
useCooldown  = input.bool(true, title="İşlemler Arası Bekleme Süresi", group=grpCool)
cooldownBars = input.int(2, title="Bekleme Mum Sayısı", group=grpCool)

// ─────────────────────────────────────────────────────────────────
//  2. ZAMANDAN ARINDIRILMIŞ MTK-1-2-3 SAR MOTORU (USTA)
// ─────────────────────────────────────────────────────────────────
f_ozel_sar99(src_h, src_l, _start, _inc, _max) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
                
        sar_val := nextsar
    
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────
//  3. USTA AYNA VE ZİRVE/DİP (BARAJ DUVARI) HAFIZASI
// ─────────────────────────────────────────────────────────────────
[sar_usta99, trend_usta99] = f_ozel_sar99(high, low, u_start99, u_inc99, u_max99)

var float son_zirve = na
var float son_dip   = na
var float aktif_tepe = high
var float aktif_dip  = low
var int lastTradeBar = na

donus_asagi  = trend_usta99 < 0 and nz(trend_usta99[1]) > 0
donus_yukari = trend_usta99 > 0 and nz(trend_usta99[1]) < 0

if trend_usta99 > 0
    aktif_tepe := math.max(aktif_tepe, high)
if donus_asagi
    son_zirve := aktif_tepe
    aktif_dip := low // Yön aşağı döndüğünde yeni dip arayışı başlar

if trend_usta99 < 0
    aktif_dip := math.min(aktif_dip, low)
if donus_yukari
    son_dip := aktif_dip
    aktif_tepe := high // Yön yukarı döndüğünde yeni tepe arayışı başlar

// Görsel Teyit: Baraj duvarlarını (Destek/Direnç) grafikte basamak olarak gösteririz
//plot(son_zirve, title="Usta Zirve (Direnç)", color=color.new(color.red, 70), style=plot.style_stepline, linewidth=1)
//plot(son_dip, title="Usta Dip (Destek)", color=color.new(color.lime, 70), style=plot.style_stepline, linewidth=1)

// ─────────────────────────────────────────────────────────────────
//  4. BARAJIN YIKILMASI VE RİSK KUTULARININ ÇİZİMİ
// ─────────────────────────────────────────────────────────────────
canEnter = useCooldown ? (na(lastTradeBar) or (bar_index - lastTradeBar >= cooldownBars)) : true

bool isBullishCandle = close > open
bool isBearishCandle = close < open

// ALIM: Fiyatın Usta'nın tescillediği son zirveyi yukarı kırması
bool bullishBreakout = isBullishCandle and ta.crossover(close, son_zirve) and canEnter
// SATIM: Fiyatın Usta'nın tescillediği son dibi aşağı kırması
bool bearishBreakout = isBearishCandle and ta.crossunder(close, son_dip) and canEnter

if bullishBreakout
    float entryPrice = close
    float stopPrice  = son_dip // Stop noktamız Ustanın belirlediği en son sağlam diptir
    float risk       = entryPrice - stopPrice
    
    if risk > 0
        float targetPrice = entryPrice + (risk * targetMult)
        lastTradeBar := bar_index
        
        box.new(left=bar_index, top=entryPrice, right=bar_index + boxLength, bottom=stopPrice, border_color=color.new(color.red, 50), bgcolor=color.new(color.aqua, 50))
        box.new(left=bar_index, top=targetPrice, right=bar_index + boxLength, bottom=entryPrice, border_color=color.new(color.teal, 50), bgcolor=color.new(color.yellow, 50))

        //label.new(x=bar_index + boxLength, y=entryPrice, text="GİRİŞ", style=label.style_label_left, color=color.new(color.blue, 20), textcolor=color.white, size=size.small)
        //label.new(x=bar_index + boxLength, y=stopPrice, text="STOP", style=label.style_label_lower_left, color=color.new(color.red, 20), textcolor=color.white, size=size.small)
        //label.new(x=bar_index + boxLength, y=targetPrice, text="HEDEF", style=label.style_label_upper_left, color=color.new(color.teal, 20), textcolor=color.white, size=size.small)

if bearishBreakout
    float entryPrice = close
    float stopPrice  = son_zirve // Stop noktamız Ustanın belirlediği en son aşılamaz zirvedir
    float risk       = stopPrice - entryPrice
    
    if risk > 0
        float targetPrice = entryPrice - (risk * targetMult)
        lastTradeBar := bar_index
        
        box.new(left=bar_index, top=stopPrice, right=bar_index + boxLength, bottom=entryPrice, border_color=color.new(color.red, 50), bgcolor=color.new(color.aqua, 50))
        box.new(left=bar_index, top=entryPrice, right=bar_index + boxLength, bottom=targetPrice, border_color=color.new(color.teal, 50), bgcolor=color.new(color.yellow, 50))

        //label.new(x=bar_index + boxLength, y=entryPrice, text="GİRİŞ", style=label.style_label_left, color=color.new(color.blue, 20), textcolor=color.white, size=size.small)
        //label.new(x=bar_index + boxLength, y=stopPrice, text="STOP", style=label.style_label_upper_left, color=color.new(color.red, 20), textcolor=color.white, size=size.small)
        //label.new(x=bar_index + boxLength, y=targetPrice, text="HEDEF", style=label.style_label_lower_left, color=color.new(color.teal, 20), textcolor=color.white, size=size.small)
//////////////////
// Girdiler
scl_t = input.int(10, title="Short Cycle Length")
mcl_t = input.int(30, title="Medium Cycle Length")
scm   = input.float(1.0, title="Short Cycle Multiplier")
mcm   = input.float(3.0, title="Medium Cycle Multiplier")
src   = input.source(close, title="Source")

// Uzunlukların tam sayıya (integer) çevrilmesi
scl = int(scl_t / 2)
mcl = int(mcl_t / 2)

// Hareketli Ortalamalar
ma_scl = ta.rma(src, scl)
ma_mcl = ta.rma(src, mcl)

// ATR ile sapma hesaplamaları
scm_off = scm * ta.atr(scl)
mcm_off = mcm * ta.atr(mcl)

// Geriye dönük indekslerin tam sayı olması
scl_2 = int(scl / 2)
mcl_2 = int(mcl / 2)

// Bant Sınırları
sct = nz(ma_scl[scl_2], src) + scm_off
scb = nz(ma_scl[scl_2], src) - scm_off
mct = nz(ma_mcl[mcl_2], src) + mcm_off
mcb = nz(ma_mcl[mcl_2], src) - mcm_off

// Çizgilerin grafikte görünmemesi için display.none parametresi eklendi
sctl = plot(sct, title="ShortCycleTop", display=display.none)
scbl = plot(scb, title="ShortCycleBottom", display=display.none)
plot(math.avg(sct, scb), title="ShortCycleMedian", style=plot.style_line, display=display.none)

mctl = plot(mct, title="MediumCycleTop", style=plot.style_line, display=display.none)
mcbl = plot(mcb, title="MediumCycleBottom", style=plot.style_line, display=display.none)
plot(math.avg(mct, mcb), title="MediumCycleMedian", style=plot.style_line, display=display.none)

// Dolguların renkleri ve tam %50 şeffaflık ayarı
fill(sctl, scbl, color=color.new(color.red, 50), title="Short Cycle Fill")
fill(mctl, mcbl, color=color.new(color.green, 50), title="Medium Cycle Fill") 

[@yörük@]

stratejisini kendinize göre değiştirip test edin...

//@version=5
indicator("🌷", overlay=true, max_lines_count=500, max_labels_count=500)
////

// ─────────────────────────────────────────────────────────────────
//  MOTOR AYARLARI (PSAR)
// ─────────────────────────────────────────────────────────────────
grpCore = "Motor Ayarları"
p1_acc  = input.float(0.4, "1. SAR (Öncü)", step=0.01, group=grpCore)
p2_acc  = input.float(0.02, "2. SAR (Hızlı)", step=0.01, group=grpCore)
p3_acc  = input.float(0.1, "3. SAR (Ana Hedef)", step=0.01, group=grpCore)

p1 = ta.sar(p1_acc, p1_acc, 0.2)
p2 = ta.sar(p2_acc, p2_acc, 0.2)
p3 = ta.sar(p3_acc, p3_acc, 0.1)

p1_bull = close > p1
p2_bull = close > p2
p3_bull = close > p3

p1_bear = close < p1
p2_bear = close < p2
p3_bear = close < p3

p1_al  = ta.crossover(close, p1)
p1_sat = ta.crossunder(close, p1)

p2_al  = ta.crossover(close, p2)
p2_sat = ta.crossunder(close, p2)

p3_al  = ta.crossover(close, p3)
p3_sat = ta.crossunder(close, p3)

// ─────────────────────────────────────────────────────────────────
//  YAPI VE DİNAMİK FİBONACCİ (MİZAN)
// ─────────────────────────────────────────────────────────────────
swing_len = 3
ph = ta.pivothigh(high, swing_len, swing_len)
pl = ta.pivotlow(low, swing_len, swing_len)

var float res_level = na
var float sup_level = na
if not na(ph)
    res_level := ph
if not na(pl)
    sup_level := pl

// Dinamik Fibo Hesaplaması
float fibo_top   = not na(res_level) ? (high > res_level ? high : res_level) : high
float fibo_bot   = not na(sup_level) ? (low < sup_level ? low : sup_level) : low
float fibo_range = fibo_top - fibo_bot

f_618 = fibo_bot + fibo_range * 0.618
f_500 = fibo_bot + fibo_range * 0.500
f_382 = fibo_bot + fibo_range * 0.382

// ─────────────────────────────────────────────────────────────────
//  MTK DAİRE FORMU: SİNYAL VE HEDEF KURALLARI
// ─────────────────────────────────────────────────────────────────
// LONG (AL)
mtk1_long   = p1_al and p2_bear and p3_bear
mtk2_long   = p2_al and p3_bear
mtk1_2_long = p1_al and p2_al and p3_bear
devam_long  = p3_al and p1_bull and p2_bull

// SHORT (SAT)
mtk1_short   = p1_sat and p2_bull and p3_bull
mtk2_short   = p2_sat and p3_bull
mtk1_2_short = p1_sat and p2_sat and p3_bull
devam_short  = p3_sat and p1_bear and p2_bear

// Hedef Takip Mekanizması
var string aktif_faz = "BEKLEMEDE"
var string yon = "YATAY"

if mtk1_long or mtk1_short
    aktif_faz := "FAZ 1 (Hedef 2. SAR)"
    yon := mtk1_long ? "BOĞA" : "AYI"

if mtk2_long or mtk1_2_long or mtk2_short or mtk1_2_short
    aktif_faz := "FAZ 2 (Hedef 3. SAR)"
    yon := (mtk2_long or mtk1_2_long) ? "BOĞA" : "AYI"

if devam_long or devam_short
    aktif_faz := "FAZ 3 (DEVAM)"
    yon := devam_long ? "BOĞA" : "AYI"

if (yon == "BOĞA" and p1_sat) or (yon == "AYI" and p1_al)
    aktif_faz := "TREND YORULDU"
    yon := "YATAY"

// Grafik Üzerinde Gösterilecek Görsel Hedef Değeri (Dinamik)
float gorsel_hedef = na
if aktif_faz == "FAZ 1 (Hedef 2. SAR)"
    gorsel_hedef := p2
else if aktif_faz == "FAZ 2 (Hedef 3. SAR)"
    gorsel_hedef := p3

// ─────────────────────────────────────────────────────────────────
//  GÖRSELLEŞTİRME
// ─────────────────────────────────────────────────────────────────
// Fibo Seviyeleri
plot(f_618, "0.618", color=color.new(color.silver, 100), style=plot.style_linebr)
plot(f_500, "0.500", color=color.new(color.silver, 100), style=plot.style_linebr)
plot(f_382, "0.382", color=color.new(color.silver, 100), style=plot.style_linebr)

// Motorlar
plot(p1, "1.", color=color.new(color.white, 00), style=plot.style_linebr, linewidth=1)
plot(p2, "2.", color=color.new(color.aqua, 00), style=plot.style_linebr, linewidth=1)
plot(p3, "3.", color=color.new(color.yellow, 0), style=plot.style_linebr, linewidth=1)

// Görsel Hedef İzleyici (Gümüş Halkalar)
plot(gorsel_hedef, "Hedef", color=color.new(color.orange, 00), style=plot.style_circles, linewidth=4)

// Etiketler
plotshape(mtk1_long,   "1L", shape.triangleup, location.belowbar, color.white, size=size.small, text="1")
plotshape(mtk2_long,   "2L", shape.triangleup, location.belowbar, color.aqua, size=size.small, text="2")
plotshape(mtk1_2_long, "1+2L", shape.triangleup, location.belowbar, color.lime, size=size.small, text="1+2")
plotshape(devam_long,  "DEVAM", shape.flag, location.belowbar, color.yellow, size=size.small, text="@")

plotshape(mtk1_short,   "1S", shape.triangledown, location.abovebar, color.white, size=size.small, text="1")
plotshape(mtk2_short,   "2S", shape.triangledown, location.abovebar, color.aqua, size=size.small, text="2")
plotshape(mtk1_2_short, "1+2S", shape.triangledown, location.abovebar, color.red, size=size.small, text="1+2")
plotshape(devam_short,  "DEVAM", shape.flag, location.abovebar, color.yellow, size=size.small, text="@")

// ─────────────────────────────────────────────────────────────────
//  v6 BİLGİ TABLOSU (DASHBOARD)
// ─────────────────────────────────────────────────────────────────
var table v6Table = table.new(position.top_right, 2, 6, bgcolor=color.new(color.black, 30), border_width=1)

if barstate.islast
    table.cell(v6Table, 0, 0, "@yörük@", text_color=color.gray, text_size=size.small)
    table.cell(v6Table, 1, 0, "Yatırım Tavsiyesi DEĞİLDİR.", text_color=color.gray, text_size=size.small)
    
    table.cell(v6Table, 0, 1, "1.(0.04)", text_color=color.white, text_size=size.small)
    table.cell(v6Table, 1, 1, p1_bull ? "BOĞA" : "AYI", text_color=p1_bull ? color.lime : color.red)
    
    table.cell(v6Table, 0, 2, "2.(0.02)", text_color=color.aqua, text_size=size.small)
    table.cell(v6Table, 1, 2, p2_bull ? "BOĞA" : "AYI", text_color=p2_bull ? color.lime : color.red)
    
    table.cell(v6Table, 0, 3, "Ana(0.01)", text_color=color.yellow, text_size=size.small)
    table.cell(v6Table, 1, 3, p3_bull ? "BOĞA" : "AYI", text_color=p3_bull ? color.lime : color.red)

    table.cell(v6Table, 0, 4, "Sistem Yönü", text_color=color.white, text_size=size.small)
    table.cell(v6Table, 1, 4, yon, text_color=yon == "BOĞA" ? color.lime : yon == "AYI" ? color.red : color.gray)

    table.cell(v6Table, 0, 5, "Durum", text_color=color.white, text_size=size.small)
    table.cell(v6Table, 1, 5, aktif_faz, text_color=color.silver, text_size=size.small)
////////////////////////
swingLen     = input.int(3,   "Swing Length (bars)",        minval=3,  maxval=50,  group="Swing Detection")
maxSwings    = input.int(4,   "Max Swings per Side",        minval=4,  maxval=15,  group="Swing Detection")
useFib236    = input.bool(false,  "0.236", group="Retracement Levels", inline="r1")
useFib382    = input.bool(false,  "0.382", group="Retracement Levels", inline="r1")
useFib500    = input.bool(false,  "0.500", group="Retracement Levels", inline="r1")
useFib618    = input.bool(true,  "0.618", group="Retracement Levels", inline="r2")
useFib786    = input.bool(false,  "0.786", group="Retracement Levels", inline="r2")
useFib1000   = input.bool(false, "1.000", group="Retracement Levels", inline="r2")
showExt113   = input.bool(false, "1.130 (above high)", group="Extension Zones", inline="e1")
showExt127   = input.bool(false, "1.270 (above high)", group="Extension Zones", inline="e1")
showExtN013  = input.bool(false, "-0.130 (below low)", group="Extension Zones", inline="e2")
showExtN027  = input.bool(false, "-0.270 (below low)", group="Extension Zones", inline="e2")
atrMult      = input.float(0.5, "Cluster Tolerance (x ATR)", minval=0.1, maxval=3.0, step=0.1, group="Clustering",
     tooltip="Two Fib levels from different swing pairs must be within this distance to be counted as confluent. Default 0.5x ATR.")
minStr       = input.int(2,     "Min Cluster Strength",      minval=2,   maxval=20,             group="Clustering",
     tooltip="Minimum number of distinct swing pairs that must agree on a zone for it to be displayed.")
maxClusters  = input.int(5,     "Max Clusters to Display",   minval=1,   maxval=10,             group="Clustering")
sepMult      = input.float(1.5, "Min Separation (x ATR)",    minval=0.5, maxval=5.0, step=0.1,  group="Clustering",
     tooltip="Minimum center-to-center distance between displayed zones. Prevents visual crowding.")
zoneHalfMult = input.float(0.2, "Zone Half-Height (x ATR)", minval=0.1, maxval=2.0, step=0.1, group="Display")
showDots     = input.bool(false, "Show Swing Dots",          group="Display")
showLabels   = input.bool(false,  "Show Zone Labels",         group="Display")
showDash     = input.bool(false,  "Show Dashboard",           group="Display")
dashSize     = input.string("normal", "Dashboard Text Size", options=["tiny","small","normal","large"], group="Display")
extRight     = input.int(60,     "Extend Right (bars)",      minval=5, maxval=300, group="Display")
colElite     = input.color(#21c997, "Cluster Elite  (>=6)", group="Colors")
colStrong    = input.color(#26a69a, "Cluster Strong (4-5)", group="Colors")
colMedium    = input.color(#00897b, "Cluster Medium (2-3)", group="Colors")
colExt1      = input.color(#cc24e2, "Ext 1.130 / -0.130",  group="Colors")
colExt2      = input.color(#880e4f, "Ext 1.270 / -0.270",  group="Colors")
boxTransp    = input.int(75, "Box Transparency",    minval=0, maxval=100, group="Colors")
brdTransp    = input.int(40, "Border Transparency", minval=0, maxval=100, group="Colors")
colLabel     = input.color(color.white, "Label Text", group="Colors")
type SwingPt
    float price
    int   barIdx
    bool  isHigh
type FibCluster
    float center
    int   strength
type DashEntry
    float price
    int   strength
    bool  isExt
    bool  isAbove
getDashSize(string s) =>
    switch s
        "tiny"   => size.tiny
        "small"  => size.small
        "large"  => size.large
        => size.normal
getCurrentSession() =>
    int h = hour(time, "GMT")
    string sess = h >= 0 and h < 8 ? "Asian" : h >= 8 and h < 13 ? "London" : h >= 13 and h < 17 ? "London-NY" : h >= 17 and h < 22 ? "New York" : "Asian"
    sess
float atr14 = ta.atr(14)
float phVal = ta.pivothigh(high, swingLen, swingLen)
float plVal = ta.pivotlow(low,  swingLen, swingLen)
float adr10 = ta.sma(high - low, 10)
var array<SwingPt> swingHighs = array.new<SwingPt>()
var array<SwingPt> swingLows  = array.new<SwingPt>()
int swingCap = math.min(maxSwings, 15)
if not na(phVal)
    array.unshift(swingHighs, SwingPt.new(phVal, bar_index[swingLen], true))
    if array.size(swingHighs) > swingCap
        array.pop(swingHighs)
if not na(plVal)
    array.unshift(swingLows, SwingPt.new(plVal, bar_index[swingLen], false))
    if array.size(swingLows) > swingCap
        array.pop(swingLows)
plotshape(showDots and not na(phVal), title="SH", location=location.abovebar, style=shape.circle, color=color.new(#21c997, 20), size=size.tiny)
plotshape(showDots and not na(plVal), title="SL", location=location.belowbar,  style=shape.circle, color=color.new(#cc24e2, 20), size=size.tiny)
var array<box>   drawnBoxes  = array.new<box>()
var array<line>  drawnLines  = array.new<line>()
var array<label> drawnLabels = array.new<label>()
var table        dashTbl     = na
if barstate.islast
    for bx in drawnBoxes
        box.delete(bx)
    for ln in drawnLines
        line.delete(ln)
    for lb in drawnLabels
        label.delete(lb)
    array.clear(drawnBoxes)
    array.clear(drawnLines)
    array.clear(drawnLabels)
    int   nH          = array.size(swingHighs)
    int   nL          = array.size(swingLows)
    float clusterTol  = atr14 * atrMult
    float minRange    = atr14 * 2.0
    array<FibCluster> clusters    = array.new<FibCluster>()
    array<int>        pairHits    = array.new_int()
    float domHigh  = na
    float domLow   = na
    float domRange = 0.0
    if nH > 0 and nL > 0
        for hi = 0 to nH - 1
            SwingPt sh = array.get(swingHighs, hi)
            for li = 0 to nL - 1
                SwingPt sl  = array.get(swingLows, li)
                float   rng = sh.price - sl.price
                if rng < minRange
                    continue
                if rng > domRange
                    domRange := rng
                    domHigh  := sh.price
                    domLow   := sl.price
                array<float> pairLevels = array.new_float()
                if useFib236
                    array.push(pairLevels, sh.price - rng * 0.236)
                if useFib382
                    array.push(pairLevels, sh.price - rng * 0.382)
                if useFib500
                    array.push(pairLevels, sh.price - rng * 0.500)
                if useFib618
                    array.push(pairLevels, sh.price - rng * 0.618)
                if useFib786
                    array.push(pairLevels, sh.price - rng * 0.786)
                if useFib1000
                    array.push(pairLevels, sh.price - rng * 1.000)
                int nLevels = array.size(pairLevels)
                if nLevels == 0
                    continue
                int nC = array.size(clusters)
                array<bool> pairContributed = array.new<bool>()
                for k = 0 to math.max(0, nC - 1)
                    array.push(pairContributed, false)
                for lv = 0 to nLevels - 1
                    float lp = array.get(pairLevels, lv)
                    int   bestK    = -1
                    float bestDist = clusterTol + 1.0
                    int nCurr = array.size(clusters)
                    if nCurr > 0
                        for k = 0 to nCurr - 1
                            FibCluster ck = array.get(clusters, k)
                            float dist    = math.abs(lp - ck.center)
                            if dist <= clusterTol and dist < bestDist
                                bestDist := dist
                                bestK    := k
                    if bestK >= 0
                        FibCluster ck = array.get(clusters, bestK)
                        bool alreadyHit = array.size(pairContributed) > bestK ? array.get(pairContributed, bestK) : false
                        float newCenter = (ck.center * ck.strength + lp) / (ck.strength + 1)
                        ck.center := newCenter
                        if not alreadyHit
                            ck.strength := ck.strength + 1
                            if array.size(pairContributed) > bestK
                                array.set(pairContributed, bestK, true)
                        array.set(clusters, bestK, ck)
                    else
                        array.push(clusters, FibCluster.new(lp, 1))
                        array.push(pairContributed, true)
    int nRaw = array.size(clusters)
    array<FibCluster> qualified = array.new<FibCluster>()
    if nRaw > 0
        for k = 0 to nRaw - 1
            FibCluster ck = array.get(clusters, k)
            if ck.strength >= minStr
                array.push(qualified, ck)
    int nQ = array.size(qualified)
    if nQ > 1
        for i = 0 to nQ - 2
            for j = 0 to nQ - 2 - i
                FibCluster ca = array.get(qualified, j)
                FibCluster cb = array.get(qualified, j + 1)
                if ca.strength < cb.strength
                    array.set(qualified, j,     cb)
                    array.set(qualified, j + 1, ca)
    array<FibCluster> selected = array.new<FibCluster>()
    float minSep = atr14 * sepMult
    if nQ > 0
        for i = 0 to nQ - 1
            if array.size(selected) >= maxClusters
                break
            FibCluster cand = array.get(qualified, i)
            bool overlaps   = false
            int nSel = array.size(selected)
            if nSel > 0
                for j = 0 to nSel - 1
                    FibCluster ex = array.get(selected, j)
                    if math.abs(cand.center - ex.center) < minSep
                        overlaps := true
                        break
            if not overlaps
                array.push(selected, cand)
    int nSel = array.size(selected)
    float zoneHalf = atr14 * zoneHalfMult
    if nSel > 0
        for i = 0 to nSel - 1
            FibCluster cl = array.get(selected, i)
            int    rank   = i + 1
            int    s      = cl.strength
            float zTop    = cl.center + zoneHalf
            float zBottom = cl.center - zoneHalf
            color baseCol = s >= 6 ? colElite : s >= 4 ? colStrong : colMedium
            color bgCol   = color.new(baseCol, boxTransp)
            color bdCol   = color.new(baseCol, brdTransp)
            box newBox = box.new(left=bar_index - 300, top=zTop, right=bar_index + extRight, bottom=zBottom, bgcolor=bgCol, border_color=bdCol, border_width=1, extend=extend.none)
            array.push(drawnBoxes, newBox)
            line newLine = line.new(x1=bar_index - 300, y1=cl.center, x2=bar_index + extRight, y2=cl.center, color=color.new(baseCol, math.max(0, brdTransp - 10)), style=line.style_dashed, width=1)
            array.push(drawnLines, newLine)
            if showLabels
                string tier    = s >= 6 ? "ELITE" : s >= 4 ? "STRONG" : "MEDIUM"
                float  distPct = math.abs(close - cl.center) / close * 100.0
                string txt     = "#" + str.tostring(rank) + "  STR " + str.tostring(s) + "  " + tier + "  " + str.tostring(distPct, "#.##") + "% away"
                label newLabel = label.new(x=bar_index + extRight, y=cl.center, text=txt, color=color.new(color.black, 100), textcolor=colLabel, size=size.normal, style=label.style_label_left, xloc=xloc.bar_index)
                array.push(drawnLabels, newLabel)
    bool hasDomSwing = not na(domHigh) and not na(domLow) and domRange > 0.0
    float ep1 = na
    float ep2 = na
    float en1 = na
    float en2 = na
    if hasDomSwing
        if showExt113
            ep1 := domHigh + domRange * 0.130
            array.push(drawnBoxes, box.new(left=bar_index - 300, top=ep1 + zoneHalf, right=bar_index + extRight, bottom=ep1 - zoneHalf, bgcolor=color.new(colExt1, boxTransp), border_color=color.new(colExt1, brdTransp), border_width=1, extend=extend.none))
            array.push(drawnLines,  line.new(x1=bar_index - 300, y1=ep1, x2=bar_index + extRight, y2=ep1, color=color.new(colExt1, math.max(0, brdTransp - 10)), style=line.style_dashed, width=1))
            if showLabels
                float dp1 = math.abs(close - ep1) / close * 100.0
                array.push(drawnLabels, label.new(x=bar_index + extRight, y=ep1, text="EXT 1.130  " + str.tostring(dp1, "#.##") + "% away", color=color.new(color.black, 100), textcolor=colLabel, size=size.normal, style=label.style_label_left, xloc=xloc.bar_index))
        if showExt127
            ep2 := domHigh + domRange * 0.270
            array.push(drawnBoxes, box.new(left=bar_index - 300, top=ep2 + zoneHalf, right=bar_index + extRight, bottom=ep2 - zoneHalf, bgcolor=color.new(colExt2, boxTransp), border_color=color.new(colExt2, brdTransp), border_width=1, extend=extend.none))
            array.push(drawnLines,  line.new(x1=bar_index - 300, y1=ep2, x2=bar_index + extRight, y2=ep2, color=color.new(colExt2, math.max(0, brdTransp - 10)), style=line.style_dashed, width=1))
            if showLabels
                float dp2 = math.abs(close - ep2) / close * 100.0
                array.push(drawnLabels, label.new(x=bar_index + extRight, y=ep2, text="EXT 1.270  " + str.tostring(dp2, "#.##") + "% away", color=color.new(color.black, 100), textcolor=colLabel, size=size.normal, style=label.style_label_left, xloc=xloc.bar_index))
        if showExtN013
            en1 := domLow - domRange * 0.130
            array.push(drawnBoxes, box.new(left=bar_index - 300, top=en1 + zoneHalf, right=bar_index + extRight, bottom=en1 - zoneHalf, bgcolor=color.new(colExt1, boxTransp), border_color=color.new(colExt1, brdTransp), border_width=1, extend=extend.none))
            array.push(drawnLines,  line.new(x1=bar_index - 300, y1=en1, x2=bar_index + extRight, y2=en1, color=color.new(colExt1, math.max(0, brdTransp - 10)), style=line.style_dashed, width=1))
            if showLabels
                float dn1 = math.abs(close - en1) / close * 100.0
                array.push(drawnLabels, label.new(x=bar_index + extRight, y=en1, text="EXT -0.130  " + str.tostring(dn1, "#.##") + "% away", color=color.new(color.black, 100), textcolor=colLabel, size=size.normal, style=label.style_label_left, xloc=xloc.bar_index))
        if showExtN027
            en2 := domLow - domRange * 0.270
            array.push(drawnBoxes, box.new(left=bar_index - 300, top=en2 + zoneHalf, right=bar_index + extRight, bottom=en2 - zoneHalf, bgcolor=color.new(colExt2, boxTransp), border_color=color.new(colExt2, brdTransp), border_width=1, extend=extend.none))
            array.push(drawnLines,  line.new(x1=bar_index - 300, y1=en2, x2=bar_index + extRight, y2=en2, color=color.new(colExt2, math.max(0, brdTransp - 10)), style=line.style_dashed, width=1))
            if showLabels
                float dn2 = math.abs(close - en2) / close * 100.0
                array.push(drawnLabels, label.new(x=bar_index + extRight, y=en2, text="EXT -0.270  " + str.tostring(dn2, "#.##") + "% away", color=color.new(color.black, 100), textcolor=colLabel, size=size.normal, style=label.style_label_left, xloc=xloc.bar_index))
    /////////////
///////////////////////
// --- 1. AYARLAR: KUTU VE GÖRSELLİK ---
i_boxColor        = input.color(color.new(#787b86, 92), "Ana Kutu (Range) Arka Planı", group="Görsel Ayarlar")
i_gpBullishColor  = input.color(color.new(#4caf50, 60), "Destek GP Rengi", group="Görsel Ayarlar")
i_gpBearishColor  = input.color(color.new(#f44336, 60), "Direnç GP Rengi", group="Görsel Ayarlar")
i_liqColor        = input.color(color.new(#ffeb3b, 85), "Likidite Bölgeleri Rengi", group="Görsel Ayarlar")
i_lineColor       = input.color(color.white, "Çizgi Rengi", group="Görsel Ayarlar")

i_autoFit         = input.bool(true, "Kutuyu Son Tepe/Dibe Otomatik Uyarla", group="Hesaplama Ayarları")
i_dynamicExpand   = input.bool(false, "Dinamik Genişlemeyi Etkinleştir", group="Hesaplama Ayarları")
i_lookback        = input.int(500, "Geriye Dönük Tarama (Max 300)", minval=2, maxval=500, group="Hesaplama Ayarları")
i_offsetR         = input.int(10, "Kutuyu Sağa Uzat (Bar Sayısı)", minval=0, group="Hesaplama Ayarları")
i_showLabels      = input.bool(true, "Fiyat Çizgilerini ve Etiketleri Göster", group="Görsel Ayarlar")

// --- 2. HESAPLAMALAR: YAPI VE SINIRLAR ---
float windowHigh = ta.highest(high, i_lookback)
float windowLow  = ta.lowest(low, i_lookback)

var float rHigh = na
var float rLow  = na

if barstate.islast
    if i_dynamicExpand
        rHigh := windowHigh
        rLow  := windowLow
    else
        rHigh := high[i_lookback] > windowHigh ? high[i_lookback] : windowHigh
        rLow  := low[i_lookback] < windowLow ? low[i_lookback] : windowLow

int hOffLookback = ta.highestbars(high, i_lookback)
int lOffLookback = ta.lowestbars(low, i_lookback)
int anchorBar = i_autoFit ? math.min(bar_index + hOffLookback, bar_index + lOffLookback) : (bar_index - i_lookback)

// Golden Pocket (Altın Oran) Mesafe Hesapları
float rDiff = rHigh - rLow
float bUp = rLow + (rDiff * 0.382)
float bLo = rLow + (rDiff * 0.35)
float sUp = rHigh - (rDiff * 0.35)
float sLo = rHigh - (rDiff * 0.382)

// --- 3. GÖRSELLEŞTİRME: KUTULAR VE ETİKETLER ---
var box b_Range   = box.new(na, na, na, na, xloc=xloc.bar_index, bgcolor=i_boxColor, border_color=color.gray)
var box b_Bullish = box.new(na, na, na, na, xloc=xloc.bar_index, bgcolor=i_gpBullishColor, border_color=na, text="", text_color=color.white, text_size=size.small)
var box b_Bearish = box.new(na, na, na, na, xloc=xloc.bar_index, bgcolor=i_gpBearishColor, border_color=na, text="", text_color=color.white, text_size=size.small)
var box b_LiqTop  = box.new(na, na, na, na, xloc=xloc.bar_index, bgcolor=i_liqColor, border_color=na, text="", text_color=color.white, text_size=size.tiny)
var box b_LiqBot  = box.new(na, na, na, na, xloc=xloc.bar_index, bgcolor=i_liqColor, border_color=na, text="", text_color=color.white, text_size=size.tiny)

var line[] l_levels = array.new_line()
var label[] lb_prices = array.new_label()

if barstate.isfirst
    for i = 0 to 7
        array.push(l_levels, line.new(na, na, na, na, xloc=xloc.bar_index, color=i_lineColor))
        array.push(lb_prices, label.new(na, na, "", xloc=xloc.bar_index, color=color.new(color.black, 100), textcolor=i_lineColor, size=size.small, style=label.style_label_left))

if barstate.islast
    int rightBar = bar_index + i_offsetR
    
    // Kutuları Yatay ve Dikey Olarak Çiz
    box.set_lefttop(b_Range, anchorBar, rHigh)
    box.set_rightbottom(b_Range, rightBar, rLow)
    
    box.set_lefttop(b_Bullish, anchorBar, bUp)
    box.set_rightbottom(b_Bullish, rightBar, bLo)
    
    box.set_lefttop(b_Bearish, anchorBar, sUp)
    box.set_rightbottom(b_Bearish, rightBar, sLo)
    
    box.set_lefttop(b_LiqTop, anchorBar, rHigh)
    box.set_rightbottom(b_LiqTop, rightBar, rHigh - (rDiff * 0.05))
    
    box.set_lefttop(b_LiqBot, anchorBar, rLow + (rDiff * 0.05))
    box.set_rightbottom(b_LiqBot, rightBar, rLow)

    // Sınır Çizgilerini ve Fiyat Etiketlerini Yerleştir
    if i_showLabels
        float[] p_vals = array.from(rHigh, rHigh - (rDiff * 0.05), sUp, sLo, bUp, bLo, rLow + (rDiff * 0.05), rLow)
        for i = 0 to 7
            float v = array.get(p_vals, i)
            line.set_xy1(array.get(l_levels, i), anchorBar, v)
            line.set_xy2(array.get(l_levels, i), rightBar, v)
            label.set_xy(array.get(lb_prices, i), rightBar, v)
            label.set_text(array.get(lb_prices, i), " " + str.tostring(v, format.mintick)) 

[@yörük@]

sar hesaplaması denemeleri....

//@version=6
indicator(":)", overlay=true, max_labels_count=500, max_lines_count=500, max_boxes_count=500) 


// ─────────────────────────────────────────────────────────────────
//  DALGA MESAFESİ (Daireleri Birbirinden Ayıran Boşluk)
// ─────────────────────────────────────────────────────────────────
// Fiyatın hareketliliğine göre aralarındaki mesafeyi ayarlar
dalga_araligi = ta.atr(14) * 0.25 

// ─────────────────────────────────────────────────────────────────
//  OTONOM BEYİN (Özelleştirilmiş MTK SAR Motoru)
// ─────────────────────────────────────────────────────────────────
type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong

method f_initState(float accel_start) => SARState.new(na, na, accel_start, false)

method f_updateState(SARState state, float high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float atr_offset) =>
    bool isInitialTrend = false
    
    // İLK BAŞLANGIÇ
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong        := true
            state.extreme_point := high_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := low_val[1] - atr_offset 
        else
            state.isLong        := false
            state.extreme_point := low_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := high_val[1] + atr_offset
        isInitialTrend          := true
        state.accel_factor      := accel_start
        
    state.sar_value += state.accel_factor * (state.extreme_point - state.sar_value)
    
    // YÖN DEĞİŞİMİ (KIRILIM ANI) - Daire Formunun Yaratıldığı Yer!
    if state.isLong
        if state.sar_value > low_val
            isInitialTrend      := true
            state.isLong        := false
            // Düşüşe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.max(high_val, state.extreme_point) + atr_offset
            state.extreme_point := low_val
            state.accel_factor  := accel_start
    else
        if state.sar_value < high_val
            isInitialTrend      := true
            state.isLong        := true
            // Yükselişe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.min(low_val, state.extreme_point) - atr_offset
            state.extreme_point := high_val
            state.accel_factor  := accel_start
            
    if not isInitialTrend
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
                
    if bar_index > 1
        if state.isLong
            state.sar_value := math.min(state.sar_value, low_val[1])
            if bar_index > 2
                state.sar_value := math.min(state.sar_value, low_val[2])
        else
            state.sar_value := math.max(state.sar_value, high_val[1])
            if bar_index > 2
                state.sar_value := math.max(state.sar_value, high_val[2])
    state

// ─────────────────────────────────────────────────────────────────
//  ŞAHİNLERİN YARATILMASI (6 Tabaka)
// ─────────────────────────────────────────────────────────────────
var SARState sar1_beyaz = f_initState(0.04)
var SARState sar2_kirm  = f_initState(0.01)
var SARState sar3_yesil = f_initState(0.01)
var SARState sar4_mavi  = f_initState(0.01)
var SARState sar5_sari  = f_initState(0.01) // Sarı ayarını şimdilik 0.01 yaptım
var SARState sar6_kutup = f_initState(0.001)

// Her şahine farklı bir "Uzaklık" (Offset) veriyoruz ki iç içe daireler oluşsun
sar1_beyaz := sar1_beyaz.f_updateState(high, low, close, 0., 0.04, 0.2, dalga_araligi * 0) // En iç dalga
sar2_kirm  := sar2_kirm.f_updateState(high, low, close, 0., 0.003, 0.2, dalga_araligi * 1)
sar3_yesil := sar3_yesil.f_updateState(high, low, close, 0., 0.002, 0.2, dalga_araligi * 2)
sar4_mavi  := sar4_mavi.f_updateState(high, low, close, 0., 0.01, 0.2, dalga_araligi * 3)
sar5_sari  := sar5_sari.f_updateState(high, low, close, 0., 0.001, 0.2, dalga_araligi * 4)
sar6_kutup := sar6_kutup.f_updateState(high, low, close, 0.,0.001,0.2, dalga_araligi * 5) // En dış dalga

// ÇİZİMLER
plot(sar1_beyaz.sar_value, "1", color=color.white,  style=plot.style_line, linewidth=1)
plot(sar2_kirm.sar_value,  "3", color=color.red,    style=plot.style_line, linewidth=1)
//plot(sar3_yesil.sar_value, "SAR4", color=color.green,  style=plot.style_cross, linewidth=1)
plot(sar4_mavi.sar_value,  "2", color=color.blue,   style=plot.style_line, linewidth=1)
//plot(sar5_sari.sar_value,  "SAR5", color=color.yellow, style=plot.style_cross, linewidth=1)
plot(sar6_kutup.sar_value, "Trend", color=color.fuchsia,style=plot.style_line, linewidth=1)
///////////
// ==========================================

///////////////////

// ─────────────────────────────────────────────────────────────────
//  1. GİRDİLER 
// ─────────────────────────────────────────────────────────────────
h_start = input.float(0., "Hızlı SAR Başlangıç", step=0.01, group="Hızlı Ayna (Kalın)")
h_inc   = input.float(0.06, "Hızlı SAR İvme", step=0.01, group="Hızlı Ayna (Kalın)")
h_max   = input.float(0.30, "Hızlı SAR Max", step=0.1, group="Hızlı Ayna (Kalın)")

y_start = input.float(0., "Yavaş SAR Başlangıç", step=0.005, group="Yavaş Ayna (İnce)")
y_inc   = input.float(0.01, "Yavaş SAR İvme", step=0.005, group="Yavaş Ayna (İnce)")
y_max   = input.float(0.10, "Yavaş SAR Max", step=0.1, group="Yavaş Ayna (İnce)")

// ─────────────────────────────────────────────────────────────────
//  2. GELİŞMİŞ LONESOME SAR MOTORU
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset_hiz) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        if _reset_hiz
            af := _start

        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
                
        sar_val := nextsar
    
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────
//  3. ÇIPLAK AYNA HESAPLAMASI
// ─────────────────────────────────────────────────────────────────
yeni_gun = ta.change(time("D")) != 0

// Hızlı Ayna
[sar_hizli, trend_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, yeni_gun)
ayna_hizli = trend_hizli > 0 ? close + math.abs(close - sar_hizli) : close - math.abs(close - sar_hizli)

// Yavaş Ayna
[sar_yavas, trend_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, yeni_gun)
ayna_yavas = trend_yavas > 0 ? close + math.abs(close - sar_yavas) : close - math.abs(close - sar_yavas)

// ─────────────────────────────────────────────────────────────────
//  4. RENK VE ÇİZİMLER
// ─────────────────────────────────────────────────────────────────
bool hizli_yesil = ayna_hizli > close
bool yavas_yesil = ayna_yavas > close

color col_hizli = hizli_yesil ? color.lime : color.red
color col_yavas = yavas_yesil ? color.lime : color.red

plot(ayna_hizli, title="Trend", color=col_hizli, style=plot.style_line, linewidth=1)
//plot(ayna_yavas, title="Yavaş Ayna", color=col_yavas, style=plot.style_line, linewidth=1)
// ==========================================

/////////////////

// ─────────────────────────────────────────────────────────────────
//  MTK-1-2-3 DAİRE FORMLU PSAR MOTORU
// ─────────────────────────────────────────────────────────────────
f_ozel_sar33(src_h, src_l, _start, _inc, _max, _reset_hiz) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        if _reset_hiz
            af := _start

        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
                
        sar_val := nextsar
    
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────
//  HESAPLAMALAR VE ÇEKİM
// ─────────────────────────────────────────────────────────────────
//yeni_gun = ta.change(time("D")) != 0

// Orijinal kodda belirtilen (0.01 - 0.02 - 0.03) ivme değerlerine göre çekimler
[roSarSlow, _]     = f_ozel_sar33(high, low, 0., 0.01, 0.2, yeni_gun)
[roSarModerate, _] = f_ozel_sar33(high, low, 0., 0.02, 0.2, yeni_gun)
[roSarFast, _]     = f_ozel_sar33(high, low, 0., 0.03, 0.2, yeni_gun)

// ─────────────────────────────────────────────────────────────────
//  ÇİZİMLER
// ─────────────────────────────────────────────────────────────────
plot(roSarSlow,     title="C", color=color.new(color.lime, 0),  style=plot.style_cross, linewidth=1)
plot(roSarModerate, title="B",  color=color.new(color.yellow, 0), style=plot.style_cross, linewidth=1)
plot(roSarFast,     title="A", color=color.new(color.red, 0),   style=plot.style_cross, linewidth=1) 

[@yörük@]

sarlara göre değişen ayna rengi çalışması...

//@version=6
indicator(":)", overlay=true, max_labels_count=500, max_lines_count=500, max_boxes_count=500) 


// ─────────────────────────────────────────────────────────────────
//  DALGA MESAFESİ (Daireleri Birbirinden Ayıran Boşluk)
// ─────────────────────────────────────────────────────────────────
// Fiyatın hareketliliğine göre aralarındaki mesafeyi ayarlar
dalga_araligi = ta.atr(14) * 0.15 

// ─────────────────────────────────────────────────────────────────
//  OTONOM BEYİN (Özelleştirilmiş MTK SAR Motoru)
// ─────────────────────────────────────────────────────────────────
type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong

method f_initState(float accel_start) => SARState.new(na, na, accel_start, false)

method f_updateState(SARState state, float high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float atr_offset) =>
    bool isInitialTrend = false
    
    // İLK BAŞLANGIÇ
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong        := true
            state.extreme_point := high_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := low_val[1] - atr_offset 
        else
            state.isLong        := false
            state.extreme_point := low_val
            // Başlangıç çizgisine offset (mesafe) eklendi
            state.sar_value     := high_val[1] + atr_offset
        isInitialTrend          := true
        state.accel_factor      := accel_start
        
    state.sar_value += state.accel_factor * (state.extreme_point - state.sar_value)
    
    // YÖN DEĞİŞİMİ (KIRILIM ANI) - Daire Formunun Yaratıldığı Yer!
    if state.isLong
        if state.sar_value > low_val
            isInitialTrend      := true
            state.isLong        := false
            // Düşüşe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.max(high_val, state.extreme_point) + atr_offset
            state.extreme_point := low_val
            state.accel_factor  := accel_start
    else
        if state.sar_value < high_val
            isInitialTrend      := true
            state.isLong        := true
            // Yükselişe geçerken her SAR farklı bir mesafeden başlar
            state.sar_value     := math.min(low_val, state.extreme_point) - atr_offset
            state.extreme_point := high_val
            state.accel_factor  := accel_start
            
    if not isInitialTrend
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
                
    if bar_index > 1
        if state.isLong
            state.sar_value := math.min(state.sar_value, low_val[1])
            if bar_index > 2
                state.sar_value := math.min(state.sar_value, low_val[2])
        else
            state.sar_value := math.max(state.sar_value, high_val[1])
            if bar_index > 2
                state.sar_value := math.max(state.sar_value, high_val[2])
    state

// ─────────────────────────────────────────────────────────────────
//  ŞAHİNLERİN YARATILMASI (6 Tabaka)
// ─────────────────────────────────────────────────────────────────
var SARState sar1_beyaz = f_initState(0.04)
var SARState sar2_kirm  = f_initState(0.01)
var SARState sar3_yesil = f_initState(0.01)
var SARState sar4_mavi  = f_initState(0.01)
var SARState sar5_sari  = f_initState(0.01) // Sarı ayarını şimdilik 0.01 yaptım
var SARState sar6_kutup = f_initState(0.001)

// Her şahine farklı bir "Uzaklık" (Offset) veriyoruz ki iç içe daireler oluşsun
sar1_beyaz := sar1_beyaz.f_updateState(high, low, close, 0.04, 0.04, 0.2, dalga_araligi * 0) // En iç dalga
sar2_kirm  := sar2_kirm.f_updateState(high, low, close, 0.01, 0.003, 0.2, dalga_araligi * 1)
sar3_yesil := sar3_yesil.f_updateState(high, low, close, 0.01, 0.002, 0.2, dalga_araligi * 2)
sar4_mavi  := sar4_mavi.f_updateState(high, low, close, 0.01, 0.01, 0.2, dalga_araligi * 3)
sar5_sari  := sar5_sari.f_updateState(high, low, close, 0.01, 0.001, 0.2, dalga_araligi * 4)
sar6_kutup := sar6_kutup.f_updateState(high, low, close, 0.001,0.001,0.2, dalga_araligi * 5) // En dış dalga

// ÇİZİMLER
plot(sar1_beyaz.sar_value, "SAR1", color=color.white,  style=plot.style_cross, linewidth=1)
plot(sar2_kirm.sar_value,  "SAR3", color=color.red,    style=plot.style_cross, linewidth=1)
plot(sar3_yesil.sar_value, "SAR4", color=color.green,  style=plot.style_cross, linewidth=1)
plot(sar4_mavi.sar_value,  "SAR2", color=color.blue,   style=plot.style_cross, linewidth=1)
plot(sar5_sari.sar_value,  "SAR5", color=color.yellow, style=plot.style_cross, linewidth=1)
plot(sar6_kutup.sar_value, "SAR6", color=color.fuchsia,style=plot.style_cross, linewidth=1)
///////////
// ==========================================

// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 3. ÇİFT AYNALI OMURGA MOTORU (13 ve 34)                                      │
// └──────────────────────────────────────────────────────────────────────────────┘
float s_start_sabit = 0.08
float s_inc_sabit   = 0.05
float s_max_sabit   = 0.2

f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

// GÜNEŞ (32) VE AY (12) YÖRÜNGELERİ
float ayna_12 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 13)
float ayna_32 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 34)

bool makro_al_12 = ayna_12 > close
color col_ayna_12 = makro_al_12 ? (ayna_12 < ayna_12[1] ? color.blue : color.lime) : (ayna_12 > ayna_12[1] ? color.yellow : color.red)

bool makro_al_32 = ayna_32 > close
color col_ayna_32 = makro_al_32 ? (ayna_32 < ayna_32[1] ? color.blue : color.lime) : (ayna_32 > ayna_32[1] ? color.yellow : color.red)

aort= (ayna_12+ayna_32)/2
bool is_sari_12 = col_ayna_12 == color.yellow
bool is_mavi_12 = col_ayna_12 == color.blue
bool is_sari_32 = col_ayna_32 == color.yellow
bool is_mavi_32 = col_ayna_32 == color.blue

bool ikisi_sari = is_sari_12 and is_sari_32
bool ikisi_mavi = is_mavi_12 and is_mavi_32

//plot(ayna_12, "Ayna İlk", color=col_ayna_12, linewidth=2, style=plot.style_stepline)
//plot(ayna_32, "Ayna Son", color=col_ayna_32, linewidth=2, style=plot.style_stepline)
plot(aort, "@yörük@", color=col_ayna_32, linewidth=3, style=plot.style_stepline)
/////////////////// 

[@yörük@]

13-34 iki ayna ortalaması... 4 renk değişimli çalışma...

//@version=6
indicator(":)", overlay=true, max_labels_count=500, max_lines_count=500, max_boxes_count=500) 


///////////
// ==========================================

// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 3. ÇİFT AYNALI OMURGA MOTORU (13 ve 34)                                      │
// └──────────────────────────────────────────────────────────────────────────────┘
float s_start_sabit = 0.08
float s_inc_sabit   = 0.05
float s_max_sabit   = 0.2

f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

// GÜNEŞ (32) VE AY (12) YÖRÜNGELERİ
float ayna_12 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 13)
float ayna_32 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 34)

bool makro_al_12 = ayna_12 > close
color col_ayna_12 = makro_al_12 ? (ayna_12 < ayna_12[1] ? color.blue : color.lime) : (ayna_12 > ayna_12[1] ? color.yellow : color.red)

bool makro_al_32 = ayna_32 > close
color col_ayna_32 = makro_al_32 ? (ayna_32 < ayna_32[1] ? color.blue : color.lime) : (ayna_32 > ayna_32[1] ? color.yellow : color.red)

aort= (ayna_12+ayna_32)/2
bool is_sari_12 = col_ayna_12 == color.yellow
bool is_mavi_12 = col_ayna_12 == color.blue
bool is_sari_32 = col_ayna_32 == color.yellow
bool is_mavi_32 = col_ayna_32 == color.blue

bool ikisi_sari = is_sari_12 and is_sari_32
bool ikisi_mavi = is_mavi_12 and is_mavi_32

//plot(ayna_12, "Ayna İlk", color=col_ayna_12, linewidth=2, style=plot.style_stepline)
//plot(ayna_32, "Ayna Son", color=col_ayna_32, linewidth=2, style=plot.style_stepline)
plot(aort, "@yörük@", color=col_ayna_32, linewidth=3, style=plot.style_stepline)
/////////////////// 

[@yörük@]

13-34 ort aynanın... hurst döngüsyle birleştirme çalışması....

//@version=6
indicator("Hurst Cycyle- Yörük", shorttitle="..", overlay=true)

// Girdiler
scl_t = input.int(10, title="Short Cycle Length")
mcl_t = input.int(30, title="Medium Cycle Length")
scm   = input.float(1.0, title="Short Cycle Multiplier")
mcm   = input.float(3.0, title="Medium Cycle Multiplier")
src   = input.source(close, title="Source")

// Uzunlukların tam sayıya (integer) çevrilmesi
scl = int(scl_t / 2)
mcl = int(mcl_t / 2)

// Hareketli Ortalamalar
ma_scl = ta.rma(src, scl)
ma_mcl = ta.rma(src, mcl)

// ATR ile sapma hesaplamaları
scm_off = scm * ta.atr(scl)
mcm_off = mcm * ta.atr(mcl)

// Geriye dönük indekslerin tam sayı olması
scl_2 = int(scl / 2)
mcl_2 = int(mcl / 2)

// Bant Sınırları
sct = nz(ma_scl[scl_2], src) + scm_off
scb = nz(ma_scl[scl_2], src) - scm_off
mct = nz(ma_mcl[mcl_2], src) + mcm_off
mcb = nz(ma_mcl[mcl_2], src) - mcm_off

// Çizgilerin grafikte görünmemesi için display.none parametresi eklendi
sctl = plot(sct, title="ShortCycleTop", display=display.none)
scbl = plot(scb, title="ShortCycleBottom", display=display.none)
plot(math.avg(sct, scb), title="ShortCycleMedian", style=plot.style_line, display=display.none)

mctl = plot(mct, title="MediumCycleTop", style=plot.style_line, display=display.none)
mcbl = plot(mcb, title="MediumCycleBottom", style=plot.style_line, display=display.none)
plot(math.avg(mct, mcb), title="MediumCycleMedian", style=plot.style_line, display=display.none)

// Dolguların renkleri ve tam %50 şeffaflık ayarı
fill(sctl, scbl, color=color.new(color.red, 50), title="Short Cycle Fill")
fill(mctl, mcbl, color=color.new(color.green, 50), title="Medium Cycle Fill")
////////////////

// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 3. ÇİFT AYNALI OMURGA MOTORU (13 ve 34)                                      │
// └──────────────────────────────────────────────────────────────────────────────┘
float s_start_sabit = 0.08
float s_inc_sabit   = 0.05
float s_max_sabit   = 0.2

f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

// GÜNEŞ (32) VE AY (12) YÖRÜNGELERİ
float ayna_12 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 13)
float ayna_32 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 34)

bool makro_al_12 = ayna_12 > close
color col_ayna_12 = makro_al_12 ? (ayna_12 < ayna_12[1] ? color.blue : color.lime) : (ayna_12 > ayna_12[1] ? color.yellow : color.red)

bool makro_al_32 = ayna_32 > close
color col_ayna_32 = makro_al_32 ? (ayna_32 < ayna_32[1] ? color.blue : color.lime) : (ayna_32 > ayna_32[1] ? color.yellow : color.red)

aort= (ayna_12+ayna_32)/2
bool is_sari_12 = col_ayna_12 == color.yellow
bool is_mavi_12 = col_ayna_12 == color.blue
bool is_sari_32 = col_ayna_32 == color.yellow
bool is_mavi_32 = col_ayna_32 == color.blue

bool ikisi_sari = is_sari_12 and is_sari_32
bool ikisi_mavi = is_mavi_12 and is_mavi_32

//plot(ayna_12, "Ayna İlk", color=col_ayna_12, linewidth=2, style=plot.style_stepline)
//plot(ayna_32, "Ayna Son", color=col_ayna_32, linewidth=2, style=plot.style_stepline)
plot(aort, "@yörük@", color=col_ayna_32, linewidth=3, style=plot.style_stepline)
/////////////////// 

[@yörük@]

reverse sinyalli-bar color çalışması....

//@version=5
indicator("🌷", overlay=true, max_lines_count=500, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  3. MTK 6-SAR DAİRE FORMU (TÜM KATMANLAR)
// ─────────────────────────────────────────────────────────────────
grpHedef = "SAR Ayarları"
sari_ayar = input.float(0.005, "Ayarlanabilir Sarı SAR", step=0.001, group=grpHedef)

sar6_kutup = ta.sar(0.001, 0.001, 0.2) // 6. En Dip Kaya (Mor)
sar5_sari  = ta.sar(sari_ayar, sari_ayar, 0.2) // 5. Ayarlanabilir (Sarı)
sar4_mavi  = ta.sar(0.01, 0.01, 0.2) // 4. Artçı (Mavi)
sar3_yesil = ta.sar(0.01, 0.02, 0.2) // 3. Artçı (Yeşil)
sar2_kirm  = ta.sar(0.01, 0.03, 0.2) // 2. Kilit (Kırmızı)
sar1_beyaz = ta.sar(0.04, 0.04, 0.2) // 1. Kilit (Beyaz)

// 6 SAR'ın Tamamı (Daire Formunda)
plot(sar6_kutup, "6. ",  color=color.new(color.red, 0),  style=plot.style_circles, linewidth=2)
plot(sar5_sari,  "5. ",  color=color.new(color.red, 0), style=plot.style_circles, linewidth=2)
plot(sar4_mavi,  "4. ",  color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
plot(sar3_yesil, "3. ",  color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
plot(sar2_kirm,  "2. ",  color=color.new(color.yellow, 0),    style=plot.style_cross, linewidth=1)
plot(sar1_beyaz, "1.",   color=color.new(color.blue, 0),  style=plot.style_circles, linewidth=2)
///////

// ─────────────────────────────────────────────────────────────────
//  ORİJİNAL MATEMATİKSEL FONKSİYONLAR (HİÇ DOKUNULMADI)
// ─────────────────────────────────────────────────────────────────
cosh(float x) =>
    (math.exp(x) + math.exp(-x)) / 2

acosh(float x) =>
    x < 1 ? na : math.log(x + math.sqrt(x * x - 1))

sinh(float x) =>
    (math.exp(x) - math.exp(-x)) / 2

asinh(float x) =>
    math.log(x + math.sqrt(x * x + 1))

atan(float x) =>
    math.pi / 2 - math.atan(1 / x)

chebyshevI(float src, int len, float ripple) =>
    a = 0., b = 0., g = 0., chebyshev = 0.
    a := cosh(1 / len * acosh(1 / (1 - ripple)))
    b := sinh(1 / len * asinh(1 / ripple))
    g := (a - b) / (a + b)
    chebyshev := (1 - g) * src + g * nz(chebyshev[1])
    chebyshev

bool_to_float(bool source) =>
    source ? 1 : 0

ema(source)=>
    var float ema = 0.0
    var int count = 0
    count := nz(count[1]) + 1
    ema := (1.0 - 2.0 / (count + 1.0)) * nz(ema[1]) + 2.0 / (count + 1.0) * source
    ema

atan2(y, x) =>
    var float angle = 0.0
    if x > 0
        angle := math.atan(y / x)
    else
        if x < 0 and y >= 0
            angle := math.atan(y / x) + math.pi
        else
            if x < 0 and y < 0
                angle := math.atan(y / x) - math.pi
            else
                if x == 0 and y > 0
                    angle := math.pi / 2
                else
                    if x == 0 and y < 0
                        angle := -math.pi / 2
    angle

degrees(float source) =>
    source * 180 / math.pi

tra()=>
    atr = ema(ta.tr)
    slope = (close - close[10]) / (atr * 10)
    angle_rad = atan2(slope, 1)
    degrees = degrees(angle_rad)
    source = ta.sma((degrees > 0 ? high : low), 2)

mats(source, length) =>
    smooth = 0.
    higher_high = math.max(math.sign(ta.change(ta.highest(length))), 0)
    lower_low = math.max(math.sign(ta.change(ta.lowest(length)) * -1), 0)
    time_constant = math.pow(ta.sma(bool_to_float(higher_high or lower_low), length), 2)
    smooth := nz(smooth[1] + time_constant * (source - smooth[1]), source)

    wilders_period = length * 4 - 1
    atr = math.abs(nz(smooth[1]) - smooth)
    ma_atr = ta.ema(atr, wilders_period)
    delta_fast_atr = ta.ema(ma_atr, wilders_period) * length * 0.4

    result = 0.0
    if smooth > nz(result[1])
        if smooth - delta_fast_atr < result[1]
            result := result[1]
        else
            result := smooth - delta_fast_atr
    else
        if smooth + delta_fast_atr > result[1]
            result := result[1]
        else
            result := smooth + delta_fast_atr
    result

// ─────────────────────────────────────────────────────────────────
//  3'LÜ MOTOR AYARLARI VE HESAPLAMALARI
// ─────────────────────────────────────────────────────────────────
len1 = input.int(5,  "1. Motor (Hızlı)")
//len2 = input.int(20, "2. Motor (Orta)")
len3 = input.int(50, "3. Motor (Yavaş / Ana)")

up_color   = input.color(#00E676, "Yükseliş Rengi")
down_color = input.color(#FF1744, "Düşüş Rengi")

// Eğim değeri her bar için sadece BİR KEZ hesaplanır (Hafıza bozulmaması için)
src_tra = tra()

// 3 Farklı Uzunluk için MATS Hesaplaması
mats_1 = mats(src_tra, len1)
//mats_2 = mats(src_tra, len2)
mats_3 = mats(src_tra, len3)

// Renk Belirleme (Orijinal koddaki gibi SMA(2) ile kıyaslama)
sma_ref = ta.sma(close, 2)
c1 = sma_ref > mats_1 ? up_color : down_color
//c2 = sma_ref > mats_2 ? up_color : down_color
c3 = sma_ref > mats_3 ? up_color : down_color

// ─────────────────────────────────────────────────────────────────
//  GÖRSELLEŞTİRME (ÇİZİMLER)
// ─────────────────────────────────────────────────────────────────
// 1. Motor (Saniye)
plot(mats_1, "Üst", color=c1, linewidth=1)

// 2. Motor (Dakika)
//plot(mats_2, "20", color=c2, linewidth=1)

// 3. Motor (Akrep) - Orijinal Glow/Parlama efektiyle
plot(mats_3, "Alt", color=c3, linewidth=1)
//plot(mats_3, "MATS 50 Parlama 1", color=color.new(c3, 70), linewidth=5, editable=false)
//plot(mats_3, "MATS 50 Parlama 2", color=color.new(c3, 85), linewidth=8, editable=false)
/////////////////

// ==========================================
// 1. 5 KADEMELİ EXTENDED SAR MOTORU
// ==========================================
sarext(simple float start_value=0.0, simple float offset_on_reverse=0.0,
       simple float af_init_long=0.02, simple float af_long=0.02, simple float af_max_long=0.20,
       simple float af_init_short=0.02, simple float af_short=0.02, simple float af_max_short=0.20) =>
    if af_init_long < 0
        runtime.error("AF init long must be >= 0")
    if af_long < 0
        runtime.error("AF long must be >= 0")
    if af_max_long < af_init_long
        runtime.error("AF max long must be >= AF init long")
    if af_init_short < 0
        runtime.error("AF init short must be >= 0")
    if af_short < 0
        runtime.error("AF short must be >= 0")
    if af_max_short < af_init_short
        runtime.error("AF max short must be >= AF init short")

    var bool is_long = true
    var float sar = na
    var float ep = na
    var float af = af_init_long
    var float result = na

    if bar_index == 0
        result := na
    else if bar_index == 1
        if start_value > 0
            is_long := true
            sar := math.abs(start_value)
        else if start_value < 0
            is_long := false
            sar := math.abs(start_value)
        else
            float plus_dm = high - high[1]
            float minus_dm = low[1] - low
            if plus_dm < 0
                plus_dm := 0
            if minus_dm < 0
                minus_dm := 0
            is_long := plus_dm > minus_dm
            sar := is_long ? low[1] : high[1]

        ep := is_long ? high : low
        af := is_long ? af_init_long : af_init_short

        if is_long
            if sar > low[1]
                sar := low[1]
            if sar > low
                sar := low
        else
            if sar < high[1]
                sar := high[1]
            if sar < high
                sar := high

        result := is_long ? sar : -sar
    else
        float new_sar = sar + af * (ep - sar)

        if is_long
            new_sar := math.min(new_sar, low[1])
            new_sar := math.min(new_sar, low[2])
            if low < new_sar
                is_long := false
                new_sar := ep
                if offset_on_reverse != 0
                    new_sar := new_sar + offset_on_reverse
                ep := low
                af := af_init_short
            else
                if high > ep
                    ep := high
                    af := math.min(af + af_long, af_max_long)
        else
            new_sar := math.max(new_sar, high[1])
            new_sar := math.max(new_sar, high[2])
            if high > new_sar
                is_long := true
                new_sar := ep
                if offset_on_reverse != 0
                    new_sar := new_sar - offset_on_reverse
                ep := high
                af := af_init_long
            else
                if low < ep
                    ep := low
                    af := math.min(af + af_short, af_max_short)

        sar := new_sar
        result := is_long ? new_sar : -new_sar
    result

// İvme (AF) Değerleri
i_af_h1 = 0.20   // Hızlı 1
i_af_h2 = 0.05   // Hızlı 2
i_af_de = 0.02   // Denge
i_af_y1 = 0.005  // Yavaş 1
i_af_y2 = 0.001  // Yavaş 2
i_af_mx = 0.2    

// Motorları Çalıştır
s_h1 = sarext(0.0, 0.0, i_af_h1, i_af_h1, math.max(i_af_h1, i_af_mx), i_af_h1, i_af_h1, math.max(i_af_h1, i_af_mx))
s_h2 = sarext(0.0, 0.0, i_af_h2, i_af_h2, math.max(i_af_h2, i_af_mx), i_af_h2, i_af_h2, math.max(i_af_h2, i_af_mx))
s_de = sarext(0.0, 0.0, i_af_de, i_af_de, math.max(i_af_de, i_af_mx), i_af_de, i_af_de, math.max(i_af_de, i_af_mx))
s_y1 = sarext(0.0, 0.0, i_af_y1, i_af_y1, math.max(i_af_y1, i_af_mx), i_af_y1, i_af_y1, math.max(i_af_y1, i_af_mx))
s_y2 = sarext(0.0, 0.0, i_af_y2, i_af_y2, math.max(i_af_y2, i_af_mx), i_af_y2, i_af_y2, math.max(i_af_y2, i_af_mx))


// ==========================================
// 2. HAKİKİ AYNA (SİMETRİK HEDEF HESAPLAMASI)
// ==========================================
// Denge (0.02) motorunun mesafesini alıp fiyatın karşı tarafına yansıtan Ayna Formülü
float s_de_abs = math.abs(s_de)
bool is_de_up = s_de > 0
float delta_de = math.abs(close - s_de_abs)
float raw_mirror = is_de_up ? close + delta_de : close - delta_de
float ayna_hma = ta.hma(raw_mirror, 55) // Pürüzsüzleştirilmiş Yansıma Hedefi


// ==========================================

// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 3. ÇİFT AYNALI OMURGA MOTORU (12 ve 32)                                      │
// └──────────────────────────────────────────────────────────────────────────────┘
float s_start_sabit = 0.08
float s_inc_sabit   = 0.05
float s_max_sabit   = 0.2

f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

// GÜNEŞ (32) VE AY (12) YÖRÜNGELERİ
float ayna_12 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 22)
float ayna_32 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 32)

bool makro_al_12 = ayna_12 > close
color col_ayna_12 = makro_al_12 ? (ayna_12 < ayna_12[1] ? color.blue : color.lime) : (ayna_12 > ayna_12[1] ? color.yellow : color.red)

bool makro_al_32 = ayna_32 > close
color col_ayna_32 = makro_al_32 ? (ayna_32 < ayna_32[1] ? color.blue : color.lime) : (ayna_32 > ayna_32[1] ? color.yellow : color.red)

aort= (ayna_12+ayna_32)/2
bool is_sari_12 = col_ayna_12 == color.yellow
bool is_mavi_12 = col_ayna_12 == color.blue
bool is_sari_32 = col_ayna_32 == color.yellow
bool is_mavi_32 = col_ayna_32 == color.blue

bool ikisi_sari = is_sari_12 and is_sari_32
bool ikisi_mavi = is_mavi_12 and is_mavi_32

//plot(ayna_12, "Ayna İlk", color=col_ayna_12, linewidth=2, style=plot.style_stepline)
//plot(ayna_32, "Ayna Son", color=col_ayna_32, linewidth=2, style=plot.style_stepline)
plot(aort, "@yörük@", color=col_ayna_32, linewidth=2, style=plot.style_stepline)

// ==========================================
// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 1. SAR MOTORLARI (HIZLI VE YAVAŞ)                                            │
// └──────────────────────────────────────────────────────────────────────────────┘
float yemre = ta.sar(0.01, 0.01, 0.2) 
float yusuf = ta.sar(0.01, 0.05, 0.2)
float fato = ta.sar(0.01, 0.09, 0.2)
float mf = (yemre + yusuf + fato) / 3

// ==========================================
// 5. KALKAN GÜCÜ (MUM BOYAMA)
// ==========================================
int kalkan = 0
if close > yemre 
    kalkan += 1
if close > yusuf 
    kalkan += 1
if close > fato 
    kalkan += 1

if close < yemre and close < mf
    kalkan += 1
if close < yusuf and close < mf
    kalkan += 1
if close < fato and close < mf
    kalkan += 1

color bar_col = na
if kalkan >= 3
    bar_col := close > mf ? color.rgb(0, 255, 132, 50) : color.rgb(250, 4, 4, 50)
else if kalkan == 2
    bar_col := color.rgb(21, 5, 249)
else
    bar_col := color.rgb(212, 3, 249)

barcolor(bar_col)

// ==========================================

//////////////////

//---------------------------------------------------------------------------------------------------------------------}
// Constants
//---------------------------------------------------------------------------------------------------------------------{
color BULL_COLOR = #089981
color BEAR_COLOR = #f23645

//---------------------------------------------------------------------------------------------------------------------}
// Inputs
//---------------------------------------------------------------------------------------------------------------------{
int   fastLengthInput       = input.int(3, "Fast Slope Length", minval = 1, group = "Slopes")
int   slowLengthInput       = input.int(3, "Slow Slope Length", minval = 1, group = "Slopes")
int   atrLengthInput        = input.int(2, "ATR Length", minval = 1, group = "ATR Settings")
float fastThresholdInput    = input.float(1.0, "Fast Slope Threshold (ATR Multiplier)", minval = 0, step = 0.1, group = "Thresholds")
float reverseThresholdInput = input.float(2.0, "Reverse Threshold (ATR Multiplier)", minval = 0, step = 0.1, group = "Thresholds")

//---------------------------------------------------------------------------------------------------------------------}
// Calculations
//---------------------------------------------------------------------------------------------------------------------{
float atr = ta.atr(atrLengthInput)

var float rollSeg     = close
var int   trend       = 1
var float activeSlope = 0.0
var bool  isFastMode  = false

bool bullReversal = false
bool bearReversal = false

// Logic processing
if not na(atr)
    float distFromSeg = close - rollSeg
    
    // Check for reversal
    bullReversal := trend == -1 and distFromSeg > reverseThresholdInput * atr
    bearReversal := trend == 1 and -distFromSeg > reverseThresholdInput * atr
    
    if bullReversal
        trend := 1
    else if bearReversal
        trend := -1
    
    // Check for speed change
    bool newIsFastMode = math.abs(distFromSeg) > fastThresholdInput * atr
    bool speedChanged  = newIsFastMode != isFastMode
    
    // Freeze ATR and update activeSlope when trend or speed mode changes
    if bullReversal or bearReversal or speedChanged or activeSlope == 0.0
        isFastMode  := newIsFastMode
        activeSlope := isFastMode ? atr / fastLengthInput : atr / slowLengthInput
    
    // Update Rolling Segment with linear movement
    rollSeg := rollSeg + (trend * activeSlope)
else
    rollSeg := close

//---------------------------------------------------------------------------------------------------------------------}
// Visuals
//---------------------------------------------------------------------------------------------------------------------{
color trendColor = trend == 1 ? BULL_COLOR : BEAR_COLOR

//plotSeg   = plot(rollSeg, "Rolling Segment", color = trendColor, linewidth = 2)
//plotPrice = plot(close, "Price Reference", display = display.none)

// Reversal signals
if bullReversal
    label.new(bar_index - 5, rollSeg, "▲", color = #00000000, textcolor = BULL_COLOR, style = label.style_label_up, size = size.huge)
if bearReversal
    label.new(bar_index - 5, rollSeg, "▼", color = #00000000, textcolor = BEAR_COLOR, style = label.style_label_down, size = size.huge)

//-----------------------------------------------------------------------------------------------------------}

//////////////////

// ─────────────────────────────────────────────────────────────────
//  1. DİNAMİK MİZAN (İki Farklı Akıntı)
// ─────────────────────────────────────────────────────────────────
// 3-Bar (Hızlı Yüzey Akıntısı)
ADAM3 = close[1]
TX3   = ta.highest(high, 2)[1]
RX3   = ta.lowest(low, 2)[1]
YGT3  = (ADAM3 + RX3 + TX3) / 3

// 5-Bar (Ağır Dip Akıntısı)
ADAM5 = close[1]
TX5   = ta.highest(high, 3)[1]
RX5   = ta.lowest(low, 3)[1]
YGT5  = (ADAM5 + RX5 + TX5) / 3

// ─────────────────────────────────────────────────────────────────
//  2. MTK-1-2-3 DAİRE FORMU (PSAR MOTORU)
// ─────────────────────────────────────────────────────────────────
psar_oncu = ta.sar(0.04, 0.04, 0.2) // 1. Daire (Öncü)
psar_hizli = ta.sar(0.02, 0.02, 0.2) // 2. Daire (Hızlı)
psar_ana   = ta.sar(0.01, 0.01, 0.2) // 3. Daire (Ana Taş)

// PSAR motorları fiyatın neresinde? (Yön onayı)
psar_bull = (close > psar_oncu) and (close > psar_hizli) and (close > psar_ana)
psar_bear = (close < psar_oncu) and (close < psar_hizli) and (close < psar_ana)

// ─────────────────────────────────────────────────────────────────
//  3. SİNYAL MANTIĞI (KESİŞİM + PSAR MUTABAKATI)
// ─────────────────────────────────────────────────────────────────
// Hızlı akıntı, yavaş akıntıyı kesiyor
akim_al_kesisimi  = ta.crossover(YGT3, YGT5)
akim_sat_kesisimi = ta.crossunder(YGT3, YGT5)

// Kusursuz nizam: Hem akıntılar kesişmeli, hem de 3'lü PSAR Daireleri bu yönü desteklemeli!
al_sinyali  = akim_al_kesisimi and psar_bull
sat_sinyali = akim_sat_kesisimi and psar_bear

// ─────────────────────────────────────────────────────────────────
//  4. GÖRSELLEŞTİRME (ÇİZGİLER VE DAİRELER)
// ─────────────────────────────────────────────────────────────────
// İki Akıntının Çizimleri
//plot(YGT3, "3-Bar Hızlı Akıntı", color=color.new(color.aqua, 0), linewidth=2)
//plot(YGT5, "5-Bar Yavaş Akıntı", color=color.new(color.orange, 0), linewidth=2)

// MTK Daire Formu (Görsel Derinlik)
//plot(psar_ana,   "3",  color=color.new(color.yellow, 0), style=plot.style_circles, linewidth=1)
//plot(psar_hizli, "2", color=color.new(color.lime, 0), style=plot.style_circles, linewidth=1)
//plot(psar_oncu,  "1",  color=color.new(color.white, 0), style=plot.style_circles, linewidth=1)

// Sinyal Etiketleri
plotshape(al_sinyali, "AL", shape.triangleup, location.belowbar, color.yellow, size=size.small, text="AL")
plotshape(sat_sinyali, "SAT", shape.triangledown, location.abovebar, color.aqua, size=size.small, text="SAT")
//////////////////

// İMZA
var table ytd_table = table.new(position.bottom_center, 1, 1)
if barstate.islast
    table.cell(ytd_table, 0, 0, "(Aİ) Eğitim çalışmasıdır. Yatırım tavsiyesi KULLANILAMAZ.", text_color=color.new(color.white, 00), text_size=size.normal)
///////////////// 

[@yörük@]

deneme...

//@version=5
indicator(".", overlay=true, max_lines_count=500, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  3. MTK 6-SAR DAİRE FORMU (TÜM KATMANLAR)
// ─────────────────────────────────────────────────────────────────
grpHedef = "SAR Ayarları"
sari_ayar = input.float(0.005, "Ayarlanabilir Sarı SAR", step=0.001, group=grpHedef)

sar6_kutup = ta.sar(0.001, 0.001, 0.2) // 6. En Dip Kaya (Mor)
sar5_sari  = ta.sar(sari_ayar, sari_ayar, 0.2) // 5. Ayarlanabilir (Sarı)
sar4_mavi  = ta.sar(0.01, 0.01, 0.2) // 4. Artçı (Mavi)
sar3_yesil = ta.sar(0.01, 0.02, 0.2) // 3. Artçı (Yeşil)
sar2_kirm  = ta.sar(0.01, 0.03, 0.2) // 2. Kilit (Kırmızı)
sar1_beyaz = ta.sar(0.04, 0.04, 0.2) // 1. Kilit (Beyaz)

// 6 SAR'ın Tamamı (Daire Formunda)
//plot(sar6_kutup, "6. ",  color=color.new(color.red, 0),  style=plot.style_circles, linewidth=2)
plot(sar5_sari,  "SAR5. ",  color=color.new(color.yellow, 0), style=plot.style_cross, linewidth=1)
plot(sar4_mavi,  "SAR4. ",  color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
plot(sar3_yesil, "SAR3. ",  color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
plot(sar2_kirm,  "SAR2. ",  color=color.new(color.yellow, 0),    style=plot.style_cross, linewidth=1)
plot(sar1_beyaz, "SAR1.",   color=color.new(color.yellow, 0),  style=plot.style_cross, linewidth=1)
///////

// ─────────────────────────────────────────────────────────────────

// ==========================================
// 1. 5 KADEMELİ EXTENDED SAR MOTORU
// ==========================================
sarext(simple float start_value=0.0, simple float offset_on_reverse=0.0,
       simple float af_init_long=0.02, simple float af_long=0.02, simple float af_max_long=0.20,
       simple float af_init_short=0.02, simple float af_short=0.02, simple float af_max_short=0.20) =>
    if af_init_long < 0
        runtime.error("AF init long must be >= 0")
    if af_long < 0
        runtime.error("AF long must be >= 0")
    if af_max_long < af_init_long
        runtime.error("AF max long must be >= AF init long")
    if af_init_short < 0
        runtime.error("AF init short must be >= 0")
    if af_short < 0
        runtime.error("AF short must be >= 0")
    if af_max_short < af_init_short
        runtime.error("AF max short must be >= AF init short")

    var bool is_long = true
    var float sar = na
    var float ep = na
    var float af = af_init_long
    var float result = na

    if bar_index == 0
        result := na
    else if bar_index == 1
        if start_value > 0
            is_long := true
            sar := math.abs(start_value)
        else if start_value < 0
            is_long := false
            sar := math.abs(start_value)
        else
            float plus_dm = high - high[1]
            float minus_dm = low[1] - low
            if plus_dm < 0
                plus_dm := 0
            if minus_dm < 0
                minus_dm := 0
            is_long := plus_dm > minus_dm
            sar := is_long ? low[1] : high[1]

        ep := is_long ? high : low
        af := is_long ? af_init_long : af_init_short

        if is_long
            if sar > low[1]
                sar := low[1]
            if sar > low
                sar := low
        else
            if sar < high[1]
                sar := high[1]
            if sar < high
                sar := high

        result := is_long ? sar : -sar
    else
        float new_sar = sar + af * (ep - sar)

        if is_long
            new_sar := math.min(new_sar, low[1])
            new_sar := math.min(new_sar, low[2])
            if low < new_sar
                is_long := false
                new_sar := ep
                if offset_on_reverse != 0
                    new_sar := new_sar + offset_on_reverse
                ep := low
                af := af_init_short
            else
                if high > ep
                    ep := high
                    af := math.min(af + af_long, af_max_long)
        else
            new_sar := math.max(new_sar, high[1])
            new_sar := math.max(new_sar, high[2])
            if high > new_sar
                is_long := true
                new_sar := ep
                if offset_on_reverse != 0
                    new_sar := new_sar - offset_on_reverse
                ep := high
                af := af_init_long
            else
                if low < ep
                    ep := low
                    af := math.min(af + af_short, af_max_short)

        sar := new_sar
        result := is_long ? new_sar : -new_sar
    result

// İvme (AF) Değerleri
i_af_h1 = 0.20   // Hızlı 1
i_af_h2 = 0.05   // Hızlı 2
i_af_de = 0.02   // Denge
i_af_y1 = 0.005  // Yavaş 1
i_af_y2 = 0.001  // Yavaş 2
i_af_mx = 0.2    

// Motorları Çalıştır
s_h1 = sarext(0.0, 0.0, i_af_h1, i_af_h1, math.max(i_af_h1, i_af_mx), i_af_h1, i_af_h1, math.max(i_af_h1, i_af_mx))
s_h2 = sarext(0.0, 0.0, i_af_h2, i_af_h2, math.max(i_af_h2, i_af_mx), i_af_h2, i_af_h2, math.max(i_af_h2, i_af_mx))
s_de = sarext(0.0, 0.0, i_af_de, i_af_de, math.max(i_af_de, i_af_mx), i_af_de, i_af_de, math.max(i_af_de, i_af_mx))
s_y1 = sarext(0.0, 0.0, i_af_y1, i_af_y1, math.max(i_af_y1, i_af_mx), i_af_y1, i_af_y1, math.max(i_af_y1, i_af_mx))
s_y2 = sarext(0.0, 0.0, i_af_y2, i_af_y2, math.max(i_af_y2, i_af_mx), i_af_y2, i_af_y2, math.max(i_af_y2, i_af_mx))


// ==========================================
// 2. HAKİKİ AYNA (SİMETRİK HEDEF HESAPLAMASI)
// ==========================================
// Denge (0.02) motorunun mesafesini alıp fiyatın karşı tarafına yansıtan Ayna Formülü
float s_de_abs = math.abs(s_de)
bool is_de_up = s_de > 0
float delta_de = math.abs(close - s_de_abs)
float raw_mirror = is_de_up ? close + delta_de : close - delta_de
float ayna_hma = ta.hma(raw_mirror, 55) // Pürüzsüzleştirilmiş Yansıma Hedefi


// ==========================================

// ┌──────────────────────────────────────────────────────────────────────────────┐
// │ 3. ÇİFT AYNALI OMURGA MOTORU (12 ve 32)                                      │
// └──────────────────────────────────────────────────────────────────────────────┘
float s_start_sabit = 0.08
float s_inc_sabit   = 0.05
float s_max_sabit   = 0.2

f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

// GÜNEŞ (32) VE AY (12) YÖRÜNGELERİ
float ayna_12 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 13)
float ayna_32 = f_katman_ana(s_start_sabit, s_inc_sabit, s_max_sabit, 21)

bool makro_al_12 = ayna_12 > close
color col_ayna_12 = makro_al_12 ? (ayna_12 < ayna_12[1] ? color.blue : color.lime) : (ayna_12 > ayna_12[1] ? color.yellow : color.red)

bool makro_al_32 = ayna_32 > close
color col_ayna_32 = makro_al_32 ? (ayna_32 < ayna_32[1] ? color.blue : color.lime) : (ayna_32 > ayna_32[1] ? color.yellow : color.red)

aort= (ayna_12+ayna_32)/2
bool is_sari_12 = col_ayna_12 == color.yellow
bool is_mavi_12 = col_ayna_12 == color.blue
bool is_sari_32 = col_ayna_32 == color.yellow
bool is_mavi_32 = col_ayna_32 == color.blue

bool ikisi_sari = is_sari_12 and is_sari_32
bool ikisi_mavi = is_mavi_12 and is_mavi_32

//plot(ayna_12, "Ayna İlk", color=col_ayna_12, linewidth=2, style=plot.style_stepline)
//plot(ayna_32, "Ayna Son", color=col_ayna_32, linewidth=2, style=plot.style_stepline)
plot(aort, "@yörük@", color=col_ayna_32, linewidth=3, style=plot.style_stepline)
//////////////


// ─────────────────────────────────────────────────────────────────
//  GİRDİLER (Inputs)
// ─────────────────────────────────────────────────────────────────
// Hızlı Blok (13)
len_hizli = input.int(13, 'Hızlı Regresyon (İç Zırh)', group="Hızlı (13)")
up_color_hizli = input.color(color.rgb(14, 223, 216, 50), 'Hızlı Yükseliş', group="Hızlı (13)")
down_color_hizli = input.color(color.rgb(132, 85, 226, 50), 'Hızlı Düşüş', group="Hızlı (13)")

// Yavaş Blok (34)
len_yavas = input.int(34, 'Yavaş Regresyon (Dış Zırh)', group="Yavaş (34)")
up_color_yavas = input.color(color.rgb(14, 223, 216, 100), 'Yavaş Yükseliş (Şeffaf)', group="Yavaş (34)")
down_color_yavas = input.color(color.rgb(132, 85, 226, 100), 'Yavaş Düşüş (Şeffaf)', group="Yavaş (34)")

// ─────────────────────────────────────────────────────────────────
//  DOĞRUSAL REGRESYON HESAPLAMASI (Linear Regression)
// ─────────────────────────────────────────────────────────────────
calc_lr(src, len) =>
    ta.linreg(src, len, 0)

// Hızlı (13) Hesaplamaları
lr_open_h = calc_lr(open, len_hizli)
lr_high_h = calc_lr(high, len_hizli)
lr_low_h  = calc_lr(low, len_hizli)
lr_close_h= calc_lr(close, len_hizli)

// Yavaş (34) Hesaplamaları
lr_open_y = calc_lr(open, len_yavas)
lr_high_y = calc_lr(high, len_yavas)
lr_low_y  = calc_lr(low, len_yavas)
lr_close_y= calc_lr(close, len_yavas)

// ─────────────────────────────────────────────────────────────────
//  FİTİLLERİ GÖVDEYE HAPSETME (Blok Mum Üretimi)
// ─────────────────────────────────────────────────────────────────
// Yavaş (34) Blok Mantığı
is_up_y = lr_close_y >= lr_open_y
blok_open_y  = is_up_y ? lr_low_y  : lr_high_y
blok_close_y = is_up_y ? lr_high_y : lr_low_y
color_y = is_up_y ? up_color_yavas : down_color_yavas

// Hızlı (13) Blok Mantığı
is_up_h = lr_close_h >= lr_open_h
blok_open_h  = is_up_h ? lr_low_h  : lr_high_h
blok_close_h = is_up_h ? lr_high_h : lr_low_h
color_h = is_up_h ? up_color_hizli : down_color_hizli

// ─────────────────────────────────────────────────────────────────
//  ÇİZİM (Çift Zırh Katmanı)
// ─────────────────────────────────────────────────────────────────
plotcandle(blok_open_y, lr_high_y, lr_low_y, blok_close_y, title = 'DENGE', color = color_y, wickcolor = color_y, bordercolor = color_y)
plotcandle(blok_open_h, lr_high_h, lr_low_h, blok_close_h, title = 'HIZLI',  color = color_h, wickcolor = color_h, bordercolor = color_h)


/////////////////
//  AYARLAR: Asimetrik Damıtma Değerleri
// ─────────────────────────────────────────────────────────────────
ilk_damitma = input.int(34, "1. Damıtma (Kalın Elek - EMA)", minval=1, tooltip="Çıplak fiyatın gürültüsünü emen ilk ağır filtre.")
ikinci_damitma = input.int(13, "2. Damıtma (İnce Tülbent - EMA)", minval=1, tooltip="Heikin Ashi sonrası tepki hızını belirleyen ince filtre.")

// ─────────────────────────────────────────────────────────────────
//  1. ŞAM ÇELİĞİ: ASİMETRİK SIVI ZIRH [Saf Blok Versiyonu]
// ─────────────────────────────────────────────────────────────────
// Birinci Damıtma (Kalın Elek: Örn. 20 veya 34)
o16 = ta.ema(open, ilk_damitma)
c16 = ta.ema(close, ilk_damitma)
h16 = ta.ema(high, ilk_damitma)
l16 = ta.ema(low, ilk_damitma)

// Heikin Ashi Havuzu
haclose6 = (o16 + h16 + l16 + c16) / 4
var float haopen6 = na
haopen6 := na(haopen6[1]) ? (o16 + c16) / 2 : (haopen6[1] + haclose6[1]) / 2
hahigh6 = math.max(h16, math.max(haopen6, haclose6))
halow6  = math.min(l16, math.min(haopen6, haclose6))

// İkinci Damıtma (İnce Tülbent: Örn. 10 veya 13)
o26 = ta.ema(haopen6, ikinci_damitma)
c26 = ta.ema(haclose6, ikinci_damitma)
h26 = ta.ema(hahigh6, ikinci_damitma)
l2_val6 = ta.ema(halow6, ikinci_damitma)

zirh_yesil6 = (c26 >= o26)
zirh_renk6 = zirh_yesil6 ? color.new(color.lime, 100) : color.new(color.red, 100)

// ─────────────────────────────────────────────────────────────────
//  FİTİLLERİ GÖVDEYE HAPSETME (Kalıba Dökme)
// ─────────────────────────────────────────────────────────────────
// Eğer Yükselişse (Yeşil): Gövde en dipten (halow) başlar, en tepede (hahigh) biter.
// Eğer Düşüşse (Kırmızı): Gövde en tepeden (hahigh) başlar, en dipte (halow) biter.
blok_open6  = zirh_yesil6 ? l2_val6 : h26
blok_close6 = zirh_yesil6 ? h26 : l2_val6

// ÇİZİM (Artık fitiller yok, saf pürüzsüz bloklar var)
plotcandle(blok_open6, h26, l2_val6, blok_close6, title="YAVAŞ", color=zirh_renk6, wickcolor=zirh_renk6, bordercolor=zirh_renk6, editable=false)

// ─────────────────────────────────────────────────────────────────

// ─────────────────────────────────────────────────────────────────
//  1. LONESOME SAR MATEMATİĞİ (BAĞIMSIZ FONKSİYON)
// ─────────────────────────────────────────────────────────────────
// Bu fonksiyon, her çağrıldığında kendi içinde bağımsız bir hafıza (var) oluşturur.
f_ozel_sar(_start, _inc, _max) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    if trend == 0 and not na(high[1])
        trend   := high >= high[1] or low >= low[1] ? 1 : -1
        sar_val := trend > 0 ? low[1] : high[1]
        ep      := trend > 0 ? high[1] : low[1]
        af      := _start
    else 
        float nextsar = sar_val
        if trend > 0
            if high[1] > ep
                ep := high[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(low[1], low[2]), nextsar)
            
            // Dönüş (Reversal) Aşağı
            if nextsar > low
                trend   := -1
                nextsar := ep
                ep      := low
                af      := _start
        else 
            if low[1] < ep
                ep := low[1]
                af := math.min(_max, af + _inc)
            
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(high[1], high[2]), nextsar)
            
            // Dönüş (Reversal) Yukarı
            if nextsar < high
                trend   := 1
                nextsar := ep
                ep      := high
                af      := _start
                
        sar_val := nextsar
    
    // Fonksiyon, hesaplanan SAR değerini ve mevcut trend yönünü dışarı verir
    [sar_val, trend]

// ─────────────────────────────────────────────────────────────────
//  2. MTK 1-2-3 DAİRE MOTORUNUN ÇALIŞTIRILMASI
// ─────────────────────────────────────────────────────────────────
// Başlangıç: 0.01, Artış (İvme): 0.1
[sar_02, trend_02] = f_ozel_sar(0., 0.1, 0.2) // İç Daire
[sar_03, trend_03] = f_ozel_sar(0., 0.01, 0.5) // Orta Daire
[sar_04, trend_04] = f_ozel_sar(0., 0.001, 0.9) // Dış Daire

// ─────────────────────────────────────────────────────────────────
//  3. GÖRSELLEŞTİRME (FUŞYA HALKALAR)
// ─────────────────────────────────────────────────────────────────
// 3 Daire de Fuşya renginde, kalınlıkları ile birbirinden ayrılıyor.
plot(sar_04, "3", color=color.fuchsia, linewidth=1, style=plot.style_steplinebr)
plot(sar_03, "2",color=color.red, linewidth=1, style=plot.style_steplinebr)
plot(sar_02, "1",  color=color.white, linewidth=1, style=plot.style_steplinebr)
////////////////