@yörük@’ün Heybesinden

[@yörük@]

sade...

// © Kinetik Komuta Merkezi - KKM V7 MATRIX ULTIMATE (Kanal İçi Otonom OTE Fib + Radarlar)
//@version=6
indicator(".", overlay=true, max_lines_count=500, max_boxes_count=500, max_labels_count=500)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR VE ZIRH EKLENTİLERİ
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar_ep(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, ep]

f_adaptif_ema(src, dyn_len) =>
    var float ema_val = na
    float alpha = 2.0 / (dyn_len + 1.0)
    ema_val := na(ema_val[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(ema_val[1]))
    ema_val

// Komutanın Emri: Frama ve Kutu Fonksiyonları Eklendi
f_tam_otonom_kutu(series float src, series float _dynAtr, series float _dynMult, series float _dynMu) =>
    float threshold = _dynAtr * _dynMult
    var float z = na
    var float v = 0.0
    float zPrev = na(z[1]) ? src : z[1]
    float vPrev = v[1]
    float zPred = zPrev + vPrev
    float zTemp = zPred + _dynMu * (src - zPred)
    float diff = zTemp - zPrev
    v := math.abs(diff) > threshold ? math.sign(diff) * (math.abs(diff) - threshold) : 0.0
    z := zPrev + v
    z

f_otonom_frama(src, series int len) =>
    var float filt = na
    int safe_len = math.max(2, nz(len, 3)) 
    int n1 = math.max(1, math.floor(safe_len / 2))
    int n2 = math.max(1, safe_len - n1)
    float hh1 = ta.highest(high, n1)
    float ll1 = ta.lowest(low, n1)
    float hh2 = ta.highest(high[n1], n2)
    float ll2 = ta.lowest(low[n1], n2)
    float hh3 = ta.highest(high, safe_len)
    float ll3 = ta.lowest(low, safe_len)
    float n1_range = (hh1 - ll1) / n1
    float n2_range = (hh2 - ll2) / n2
    float n3_range = (hh3 - ll3) / safe_len
    float D = 0.0
    if (n1_range > 0 and n2_range > 0 and n3_range > 0)
        D := (math.log(n1_range + n2_range) - math.log(n3_range)) / math.log(2)
    float alpha = math.exp(-4.6 * (nz(D) - 1))
    alpha := math.max(0.01, math.min(1.0, alpha))
    filt := na(filt[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(filt[1]))
    filt

// ═════════════════════════════════════════════════════════════════════════
//  2. ÖZGÜR AYNA VE META-SAR (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 3), 0.0001)
float min_vol = nz(ta.lowest(ham_volatilite, 3), 0.0)
float vol_orani = (max_vol == min_vol) ? 0.0 : ((ham_volatilite - min_vol) / (max_vol - min_vol))

float ayna_start = 0.02 + (vol_orani * 0.08) 
float ayna_inc   = 0.02 + (vol_orani * 0.08) 
float ayna_max   = 0.20 + (vol_orani * 0.30) 
[ayna_sar, ayna_trend, ayna_ep] = f_ozel_sar_ep(high, low, ayna_start, ayna_inc, ayna_max)
float ayna = ayna_trend > 0 ? hl2 + math.abs(hl2 - ayna_sar) : hl2 - math.abs(hl2 - ayna_sar)

float ayna_ivme_genel = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = nz(ta.highest(ayna_ivme_genel, 3), 0.0001)
float min_ivme  = nz(ta.lowest(ayna_ivme_genel, 3), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme_genel - min_ivme) / (max_ivme - min_ivme))

float ayna_h = math.max(ayna, nz(ayna[1], ayna))
float ayna_l = math.min(ayna, nz(ayna[1], ayna))
float oto_start = 0.02 + (ivme_orani * 0.04) 
float oto_inc   = 0.02 + (ivme_orani * 0.04) 
float oto_max   = 0.15 + (ivme_orani * 0.15) 
[meta_sar, meta_trend, meta_ep] = f_ozel_sar_ep(ayna_h, ayna_l, oto_start, oto_inc, oto_max)

// ═════════════════════════════════════════════════════════════════════════
//  3. ANA TREND FİLTRESİ VE OMURGA HAFIZASI (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
var ep_kasa = array.new_float(3, hl2)
if meta_trend != meta_trend[1]
    array.unshift(ep_kasa, meta_ep[1])
    array.pop(ep_kasa)

int dinamik_uzunluk = math.max(1, math.min(3, math.floor(1.0 - (ivme_orani * 3.0))))
float ham_medyan = array.median(array.slice(ep_kasa, 0, dinamik_uzunluk))
ham_medyan := na(ham_medyan) ? hl2 : ham_medyan

float ema1 = f_adaptif_ema(ham_medyan, dinamik_uzunluk)
float ema2 = f_adaptif_ema(ema1, dinamik_uzunluk)
float omurga = ema1 + (ema1 - ema2)

var int omurga_yon = 1
var float o_tepe = hl2, var float o_dip = hl2
var float c_high = hl2, var float c_low = hl2

if omurga > nz(omurga[1], omurga)
    if omurga_yon == -1
        o_dip := c_low
        c_high := omurga
    omurga_yon := 1
else if omurga < nz(omurga[1], omurga)
    if omurga_yon == 1
        o_tepe := c_high
        c_low := omurga
    omurga_yon := -1

if omurga_yon == 1
    c_high := math.max(c_high, omurga)
else if omurga_yon == -1
    c_low := math.min(c_low, omurga)

float macro_dip = omurga_yon == -1 ? c_low : o_dip
float macro_tepe = omurga_yon == 1 ? c_high : o_tepe

// ═════════════════════════════════════════════════════════════════════════
//  4. SAF GÜÇ STRATEJİSİ (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
bool long_sart  = (hl2 > omurga) and (hl2 > meta_sar)
bool short_sart = (hl2 < omurga) and (hl2 < meta_sar)

var int aktif_islem = 0
bool taktik_al = false
bool taktik_sat = false

if long_sart and aktif_islem != 1
    taktik_al := true
    aktif_islem := 1

if short_sart and aktif_islem != -1
    taktik_sat := true
    aktif_islem := -1

// ═════════════════════════════════════════════════════════════════════════
//  5. OTONOM KANAL KUTULARI VE SARI OTE (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
var box b_tp = na, var box b_sl = na
var label l_tp = na, var label l_sl = na, var label l_en = na
var line l_f50 = na, var line l_f61 = na, var line l_f78 = na
var label lb_f50 = na, var label lb_f61 = na, var label lb_f78 = na
var float entry_p = na, var float tp_p = na, var float sl_p = na

if not na(b_tp)
    box.set_right(b_tp, bar_index + 3), box.set_right(b_sl, bar_index + 3)
    label.set_x(l_tp, bar_index + 3), label.set_x(l_sl, bar_index + 3), label.set_x(l_en, bar_index + 3)
    line.set_x2(l_f50, bar_index + 3), line.set_x2(l_f61, bar_index + 3), line.set_x2(l_f78, bar_index + 3)
    label.set_x(lb_f50, bar_index + 3), label.set_x(lb_f61, bar_index + 3), label.set_x(lb_f78, bar_index + 3)

if taktik_al or taktik_sat
    box.delete(b_tp), box.delete(b_sl)
    label.delete(l_tp), label.delete(l_sl), label.delete(l_en)
    line.delete(l_f50), line.delete(l_f61), line.delete(l_f78)
    label.delete(lb_f50), label.delete(lb_f61), label.delete(lb_f78)
    
    entry_p := hl2
    sl_p := taktik_al ? macro_dip : macro_tepe
    tp_p := taktik_al ? o_tepe    : o_dip
    
    tp_p := taktik_al ? math.max(tp_p, entry_p + (entry_p * 0.001)) : math.min(tp_p, entry_p - (entry_p * 0.001))
    sl_p := taktik_al ? math.min(sl_p, entry_p - (entry_p * 0.001)) : math.max(sl_p, entry_p + (entry_p * 0.001))
    
    float dalga_boyu = math.abs(tp_p - sl_p)
    float f50_p = taktik_al ? sl_p + (dalga_boyu * 0.500) : sl_p - (dalga_boyu * 0.500)
    float f61_p = taktik_al ? sl_p + (dalga_boyu * 0.618) : sl_p - (dalga_boyu * 0.618)
    float f78_p = taktik_al ? sl_p + (dalga_boyu * 0.786) : sl_p - (dalga_boyu * 0.786)

    color c_tp = taktik_al ? color.new(color.lime, 95) : color.new(color.aqua, 95)
    color c_border = taktik_al ? color.rgb(0, 230, 119, 00) : color.rgb(0, 187, 212, 00)
    
    b_tp := box.new(bar_index, taktik_al ? tp_p : entry_p, bar_index + 3, taktik_al ? entry_p : tp_p, bgcolor=c_tp, border_color=c_border)
    b_sl := box.new(bar_index, taktik_al ? entry_p : sl_p, bar_index + 3, taktik_al ? sl_p : entry_p, bgcolor=color.new(color.red, 80), border_color=color.red)
    
    l_tp := label.new(bar_index + 3, tp_p, "TP: " + str.tostring(tp_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=c_border, size=size.small)
    l_sl := label.new(bar_index + 3, sl_p, "SL: " + str.tostring(sl_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.red, size=size.small)
    l_en := label.new(bar_index + 3, entry_p, "@: " + str.tostring(entry_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.white, size=size.small)

    l_f50 := line.new(bar_index, f50_p, bar_index + 3, f50_p, color=color.yellow, width=1, style=line.style_dashed)
    l_f61 := line.new(bar_index, f61_p, bar_index + 3, f61_p, color=color.yellow, width=1, style=line.style_dashed)
    l_f78 := line.new(bar_index, f78_p, bar_index + 3, f78_p, color=color.yellow, width=1, style=line.style_dashed)

    lb_f50 := label.new(bar_index + 5, f50_p, "0", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f61 := label.new(bar_index + 5, f61_p, "1", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f78 := label.new(bar_index + 5, f78_p, "2", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)

// ═════════════════════════════════════════════════════════════════════════
//  6. YENİ EKLENTİ: MİKRO FRAMA KUTU ZEMİNİ
// ═════════════════════════════════════════════════════════════════════════
float mikro_frama = f_otonom_frama(hl2, 2)
float dinamik_atr = ta.atr(10)
float kutu_zemin = f_tam_otonom_kutu(mikro_frama, dinamik_atr, 0.2, 0.1) 

var int kutu_yon = 1
kutu_yon := kutu_zemin > nz(kutu_zemin[1], kutu_zemin) ? 1 : kutu_zemin < nz(kutu_zemin[1], kutu_zemin) ? -1 : nz(kutu_yon[1], 1)

// ═════════════════════════════════════════════════════════════════════════
//  7. YENİ EKLENTİ: KÖPEKBALIĞI RADARI (YÖNLÜ ERKEN UYARI SİSTEMİ)
// ═════════════════════════════════════════════════════════════════════════
bool shark_squeeze = low[2] < low[1] and low[1] < low and high[2] > high[1] and high[1] > high

bool shark_al  = shark_squeeze and (hl2 > omurga)
bool shark_sat = shark_squeeze and (hl2 < omurga)

bgcolor(shark_al  ? color.new(color.lime, 85) : na, title="Köpekbalığı AL Sıkışması")
bgcolor(shark_sat ? color.new(color.red,  85) : na, title="Köpekbalığı SAT Sıkışması")

if shark_al or shark_sat
    float ana_mum_h = high[2]
    float ana_mum_l = low[2]
    float ana_fark  = ana_mum_h - ana_mum_l
    
    if shark_al
        float ust_hedef = ana_mum_h + ana_fark
        line.new(bar_index, ana_mum_h, bar_index + 3, ana_mum_h, color=color.lime, width=1, style=line.style_solid)
        line.new(bar_index, ust_hedef, bar_index + 3, ust_hedef, color=color.lime, width=2, style=line.style_dotted)
        label.new(bar_index + 3, ust_hedef, "Av: " + str.tostring(ust_hedef, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.lime, size=size.small)

    else if shark_sat
        float alt_hedef = ana_mum_l - ana_fark
        line.new(bar_index, ana_mum_l, bar_index + 3, ana_mum_l, color=color.red, width=1, style=line.style_solid)
        line.new(bar_index, alt_hedef, bar_index + 3, alt_hedef, color=color.red, width=2, style=line.style_dotted)
        label.new(bar_index + 3, alt_hedef, "Av: " + str.tostring(alt_hedef, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.red, size=size.small)

// ═════════════════════════════════════════════════════════════════════════
//  8. YENİ EKLENTİ: FIRTINA RADARI (VOLATİLİTE SIKIŞMASI VE 3X UYARISI)
// ═════════════════════════════════════════════════════════════════════════
var float pc_a = na
var float pc_b = na
var float pc_size = na

float chg_a = nz(pc_a[1]) - nz(pc_a[2])
float chg_b = nz(pc_b[1]) - nz(pc_b[2])

pc_size := (chg_a > 0 or chg_b < 0) ? ta.atr(100) : nz(pc_size[1], ta.tr(true))

int bs_a = nz(ta.barssince(chg_a > 0) + 1, 1)
int bs_b = nz(ta.barssince(chg_b < 0) + 1, 1)

pc_a := math.max(hl2, nz(pc_a[1], hl2)) - (pc_size / 100) * bs_a
pc_b := math.min(hl2, nz(pc_b[1], hl2)) + (pc_size / 100) * bs_b

float daralma_miktari = pc_a - pc_b
bool firtina_radari = daralma_miktari > 0 and daralma_miktari < (ta.atr(100) * 0.25)

var int firtina_sayaci = 0
firtina_sayaci := firtina_radari ? firtina_sayaci + 1 : 0
bool ucx_uyari = firtina_sayaci >= 3

color firtina_renk = omurga_yon == 1 ? color.lime : color.red

plotshape(firtina_radari and not ucx_uyari, "Fırtına Hazırlığı", shape.circle, location.bottom, color=color.new(firtina_renk, 50), size=size.tiny)
plotshape(ucx_uyari, "3X KRİTİK SIKIŞMA", shape.xcross, location.bottom, color=firtina_renk, size=size.small)
bgcolor(ucx_uyari ? color.new(firtina_renk, 85) : na, title="3X Fırtına Radarı Arkaplanı")

// ═════════════════════════════════════════════════════════════════════════
//  9. GÖRSELLEŞTİRME 
// ═════════════════════════════════════════════════════════════════════════
color sar_renk = meta_trend > 0 ? color.lime : color.red
plot(meta_sar, "@", color=sar_renk, linewidth=1, style=plot.style_line)

color omurga_renk = omurga_yon == 1 ? color.fuchsia : color.yellow
plot(omurga, "0", color=omurga_renk, linewidth=1, style=plot.style_stepline)

// Eklenen Mikro Kutu Zemini Çizimi
color kutu_r = kutu_yon == 1 ? color.yellow : color.fuchsia
plot(kutu_zemin, "1", color=kutu_r, linewidth=1, style=plot.style_stepline)
////////////sarlar////////////////
sar_fast = ta.sar(0.02, 0.02, 0.20)
sar_mid = ta.sar(0.03, 0.03, 0.25)
sar_slow = ta.sar(0.04, 0.04, 0.30)
psar_uzun = ta.sar(0., 0.01, 0.10)
plot(psar_uzun, title = '2', color = close > psar_uzun ? #0901ff : #0901ff, style = plot.style_cross, linewidth = 2)
plot(sar_fast, 'C', color = color.rgb(0, 255, 0), style = plot.style_cross, linewidth = 1)
plot(sar_mid, 'B', color = color.rgb(255, 0, 0), style = plot.style_cross, linewidth = 1)
plot(sar_slow, 'A', color = color.rgb(244, 244, 4), style = plot.style_cross, linewidth = 1) 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM V12.3 MATRIX ULTIMATE (TRINITY LRB GÖRSEL RADAR AÇIK)
//@version=6
indicator("Karargah V12 Matrix Ultimate", overlay=true, max_lines_count=500, max_boxes_count=500, max_labels_count=500, max_bars_back=500)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK: OTONOM LRB-SAR MOTORU 
// ═════════════════════════════════════════════════════════════════════════
f_kuantum_lrb(src, decay, smooth, max_atr_dist) =>
    var float hh = na
    var float ll = na
    float pre_hh = nz(hh[1], src)
    float pre_ll = nz(ll[1], src)
    
    float atr_gucu = nz(ta.atr(14), ta.tr)
    float cur_decay = atr_gucu * decay
    float decay_sma = ta.sma(cur_decay, smooth) 
    
    float temp_hh = src >= pre_hh ? src : pre_hh - decay_sma
    float temp_ll = src <= pre_ll ? src : pre_ll + decay_sma
    
    float max_mesafe = atr_gucu * max_atr_dist
    hh := math.min(temp_hh, src + max_mesafe) 
    ll := math.max(temp_ll, src - max_mesafe) 
    
    float mid = math.avg(hh, ll)
    [hh, ll, mid]

// ═════════════════════════════════════════════════════════════════════════
//  2. TRINITY MATRIX (ÜÇLÜ TEHDİT MOTORLARI) 
// ═════════════════════════════════════════════════════════════════════════
[macro_hh, macro_ll, macro_mid] = f_kuantum_lrb(hl2, 0.05, 80, 6.0)
[mid_hh, mid_ll, mid_mid] = f_kuantum_lrb(hl2, 0.15, 40, 2.0)
[micro_hh, micro_ll, micro_mid] = f_kuantum_lrb(hl2, 0.35, 20, 1.0)

// ═════════════════════════════════════════════════════════════════════════
//  2.5 RADAR EKRANI: TRINITY BANTLARININ GÖRSELLEŞTİRİLMESİ
// ═════════════════════════════════════════════════════════════════════════
// 1. Ağır Zırh (Beyaz - Kalın)
plot(macro_hh, "Makro Tavan", color=color.new(color.white, 70), linewidth=2)
plot(macro_ll, "Makro Taban", color=color.new(color.white, 70), linewidth=2)

// 2. Likidite Radarı (Sarı - İnce)
plot(mid_hh, "Mid Tavan", color=color.new(color.yellow, 60), linewidth=1)
plot(mid_ll, "Mid Taban", color=color.new(color.yellow, 60), linewidth=1)

// 3. Vur-Kaç Kalkanı (Pembe/Mavi - Noktalı)
plot(micro_hh, "Micro Tavan", color=color.new(color.fuchsia, 50), style=plot.style_circles, linewidth=1)
plot(micro_ll, "Micro Taban", color=color.new(color.aqua, 50), style=plot.style_circles, linewidth=1)

// ═════════════════════════════════════════════════════════════════════════
//  3. MAKRO TREND TAYİNİ VE DİP/TEPE HAFIZASI
// ═════════════════════════════════════════════════════════════════════════
var int macro_trend = 1
if ta.crossover(hl2, macro_hh)
    macro_trend := 1
else if ta.crossunder(hl2, macro_ll)
    macro_trend := -1

var float o_tepe = hl2, var float o_dip = hl2
var float c_high = hl2, var float c_low = hl2

if macro_trend == 1
    c_high := math.max(c_high, hl2)
    if macro_trend[1] == -1
        o_dip := c_low
        c_high := hl2
else if macro_trend == -1
    c_low := math.min(c_low, hl2)
    if macro_trend[1] == 1
        o_tepe := c_high
        c_low := hl2

float macro_dip = macro_trend == -1 ? c_low : o_dip
float macro_tepe = macro_trend == 1 ? c_high : o_tepe

// ═════════════════════════════════════════════════════════════════════════
//  4. OTONOM KUTU (OTE) ÇİZİMİ
// ═════════════════════════════════════════════════════════════════════════
bool long_sart  = (macro_trend == 1)
bool short_sart = (macro_trend == -1)

var int aktif_islem = 0
bool taktik_al = false, bool taktik_sat = false

if long_sart and aktif_islem != 1
    taktik_al := true, aktif_islem := 1
if short_sart and aktif_islem != -1
    taktik_sat := true, aktif_islem := -1

var box b_tp = na, var box b_sl = na
var label l_tp = na, var label l_sl = na, var label l_en = na, var label lb_f61 = na
var float entry_p = na, var float tp_p = na, var float sl_p = na
var float f61_p = na

if not na(b_tp)
    box.set_right(b_tp, bar_index + 3), box.set_right(b_sl, bar_index + 3)
    label.set_x(l_tp, bar_index + 3), label.set_x(l_sl, bar_index + 3), label.set_x(l_en, bar_index + 3)
    label.set_x(lb_f61, bar_index + 3)

if taktik_al or taktik_sat
    box.delete(b_tp), box.delete(b_sl)
    label.delete(l_tp), label.delete(l_sl), label.delete(l_en), label.delete(lb_f61)
    
    entry_p := hl2
    sl_p := taktik_al ? macro_dip : macro_tepe
    tp_p := taktik_al ? o_tepe    : o_dip
    
    tp_p := taktik_al ? math.max(tp_p, entry_p + (entry_p * 0.001)) : math.min(tp_p, entry_p - (entry_p * 0.001))
    sl_p := taktik_al ? math.min(sl_p, entry_p - (entry_p * 0.001)) : math.max(sl_p, entry_p + (entry_p * 0.001))
    float d_boyu = math.abs(tp_p - sl_p)
    
    f61_p := taktik_al ? sl_p + (d_boyu * 0.618) : sl_p - (d_boyu * 0.618)

    color c_tp = taktik_al ? color.new(color.lime, 95) : color.new(color.aqua, 95)
    color c_border = taktik_al ? color.rgb(0, 230, 119, 00) : color.rgb(0, 187, 212, 00)
    
    b_tp := box.new(bar_index, taktik_al ? tp_p : entry_p, bar_index + 3, taktik_al ? entry_p : tp_p, bgcolor=c_tp, border_color=c_border)
    b_sl := box.new(bar_index, taktik_al ? entry_p : sl_p, bar_index + 3, taktik_al ? sl_p : entry_p, bgcolor=color.new(color.red, 95), border_color=color.red)
    
    l_tp := label.new(bar_index + 3, tp_p, "TP: " + str.tostring(tp_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=c_border, size=size.small)
    l_sl := label.new(bar_index + 3, sl_p, "SL: " + str.tostring(sl_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.red, size=size.small)
    l_en := label.new(bar_index + 3, entry_p, "@: " + str.tostring(entry_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.white, size=size.small)
    lb_f61 := label.new(bar_index + 5, f61_p, "61.8 [" + str.tostring(f61_p, format.mintick) + "]", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)

// ═════════════════════════════════════════════════════════════════════════
//  5. KUTU İÇİ PUSU TETİĞİ
// ═════════════════════════════════════════════════════════════════════════
bool kutu_ici_long  = (aktif_islem == 1)  and (hl2 <= entry_p) and (hl2 >= sl_p)
bool kutu_ici_short = (aktif_islem == -1) and (hl2 >= entry_p) and (hl2 <= sl_p)

var bool horoz_long = false, var bool horoz_short = false
if taktik_al or taktik_sat
    horoz_long := false, horoz_short := false

if kutu_ici_long and (hl2 <= f61_p) and (hl2 <= mid_ll)
    horoz_long := true
if kutu_ici_short and (hl2 >= f61_p) and (hl2 >= mid_hh)
    horoz_short := true

bool otonom_pusu_long  = horoz_long  and ta.crossover(hl2, mid_hh) and barstate.isconfirmed
bool otonom_pusu_short = horoz_short and ta.crossunder(hl2, mid_ll) and barstate.isconfirmed

if otonom_pusu_long
    horoz_long := false
if otonom_pusu_short
    horoz_short := false

plotshape(otonom_pusu_long,  "Kutu İçi Long Pusu",  shape.triangleup,   location.belowbar, color=color.lime, size=size.small, text="PUSU\nAL",  textcolor=color.white)
plotshape(otonom_pusu_short, "Kutu İçi Short Pusu", shape.triangledown, location.abovebar, color=color.red,  size=size.small, text="PUSU\nSAT", textcolor=color.white)

// ═════════════════════════════════════════════════════════════════════════
//  6. AGRESİF TAHLİYE 
// ═════════════════════════════════════════════════════════════════════════
var float iz_suren_stop = na
var int savas_durumu = 0 

if otonom_pusu_long
    savas_durumu := 1
    iz_suren_stop := sl_p 
else if otonom_pusu_short
    savas_durumu := -1
    iz_suren_stop := sl_p 

bool tahliye_sinyali = false

if savas_durumu == 1
    iz_suren_stop := math.max(nz(iz_suren_stop[1], iz_suren_stop), micro_ll)
    if ta.crossunder(hl2, iz_suren_stop) and barstate.isconfirmed
        savas_durumu := 0
        tahliye_sinyali := true

if savas_durumu == -1
    iz_suren_stop := math.min(nz(iz_suren_stop[1], iz_suren_stop), micro_hh)
    if ta.crossover(hl2, iz_suren_stop) and barstate.isconfirmed
        savas_durumu := 0
        tahliye_sinyali := true

color iz_renk = savas_durumu == 1 ? color.aqua : savas_durumu == -1 ? color.fuchsia : na
plot(savas_durumu != 0 ? iz_suren_stop : na, "Aktif İz Süren Kalkan", color=iz_renk, style=plot.style_stepline, linewidth=4)
plotshape(series=tahliye_sinyali ? hl2 : na, title="İşlem Kapatıldı", style=shape.xcross, location=location.absolute, color=color.new(color.yellow, 0), size=size.small, text="TAHLİYE", textcolor=color.white) 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM V11 MATRIX ULTIMATE (OTE + DBHF + Anomali + LRB Likidite Avı)
//@version=6
indicator("Karargah V11 Matrix Ultimate", overlay=true, max_lines_count=500, max_boxes_count=500, max_labels_count=500, max_bars_back=500)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR 
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar_ep(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, ep]

f_adaptif_ema(src, dyn_len) =>
    var float ema_val = na
    float alpha = 2.0 / (dyn_len + 1.0)
    ema_val := na(ema_val[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(ema_val[1]))
    ema_val

f_dbhf_sniper(src, atrLen, atrMult, enterMult, exitMult, response) =>
    var float dbhf = na
    if na(dbhf)
        dbhf := src
    float baseTau = ta.atr(atrLen) * atrMult
    float em = math.max(enterMult, 0.0001), xm = math.min(exitMult, em)
    float tauEnter = baseTau * em, tauExit = baseTau * xm
    float diff = src - dbhf
    if diff > tauEnter
        dbhf += response * (diff - tauEnter)
    else if diff < -tauEnter
        dbhf += response * (diff + tauEnter)
    int trend = 0
    if dbhf > nz(dbhf[1], dbhf)
        trend := 1
    else if dbhf < nz(dbhf[1], dbhf)
        trend := -1
    else
        trend := nz(trend[1], 0) 
    [dbhf, trend]

// ═════════════════════════════════════════════════════════════════════════
//  2. LİKİDİTE AVI (LRB BANTLARI - YENİ EKLENDİ)
// ═════════════════════════════════════════════════════════════════════════
// Komutanın getirdiği kod V6'ya çevrildi.
float lrb_decay = 0.125
int lrb_smooth = 4
var float lrb_hh = na, var float lrb_ll = na
float pre_hh = nz(lrb_hh[1], high)
float pre_ll = nz(lrb_ll[1], low)

lrb_hh := close >= pre_hh ? high : pre_hh - ta.sma(math.abs(ta.change(high) * lrb_decay), lrb_smooth)
lrb_ll := close <= pre_ll ? low : pre_ll + ta.sma(math.abs(ta.change(low) * lrb_decay), lrb_smooth)

// Ekranda görmek için LRB Bantları çizimi (İnce sarı noktalar)
plot(lrb_hh, "LRB Likidite Tavanı", color=color.new(color.yellow, 70), style=plot.style_circles, linewidth=1)
plot(lrb_ll, "LRB Likidite Tabanı", color=color.new(color.yellow, 70), style=plot.style_circles, linewidth=1)

// ═════════════════════════════════════════════════════════════════════════
//  3. ANA TREND FİLTRESİ VE OMURGA HAFIZASI 
// ═════════════════════════════════════════════════════════════════════════
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 3), 0.0001), float min_vol = nz(ta.lowest(ham_volatilite, 3), 0.0)
float vol_orani = (max_vol == min_vol) ? 0.0 : ((ham_volatilite - min_vol) / (max_vol - min_vol))
[ayna_sar, ayna_trend, ayna_ep] = f_ozel_sar_ep(high, low, 0.0 + (vol_orani * 0.08), 0.001 + (vol_orani * 0.08), 0.10 + (vol_orani * 0.30))
float ayna = ayna_trend > 0 ? hl2 + math.abs(hl2 - ayna_sar) : hl2 - math.abs(hl2 - ayna_sar)

float ayna_ivme = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme = nz(ta.highest(ayna_ivme, 3), 0.001), float min_ivme = nz(ta.lowest(ayna_ivme, 3), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme - min_ivme) / (max_ivme - min_ivme))

[meta_sar, meta_trend, meta_ep] = f_ozel_sar_ep(math.max(ayna, nz(ayna[1])), math.min(ayna, nz(ayna[1])), 0.0 + (ivme_orani * 0.004), 0.001 + (ivme_orani * 0.004), 0.15 + (ivme_orani * 0.15))

var ep_kasa = array.new_float(3, hl2)
if meta_trend != meta_trend[1]
    array.unshift(ep_kasa, meta_ep[1]), array.pop(ep_kasa)

int d_len = math.max(1, math.min(3, math.floor(1.0 - (ivme_orani * 3.0))))
float ham_medyan = nz(array.median(array.slice(ep_kasa, 0, d_len)), hl2)
float ema1 = f_adaptif_ema(ham_medyan, d_len), float ema2 = f_adaptif_ema(ema1, d_len)
float omurga = ema1 + (ema1 - ema2)

var int omurga_yon = 1
var float o_tepe = hl2, var float o_dip = hl2, var float c_high = hl2, var float c_low = hl2

if omurga > nz(omurga[1], omurga)
    if omurga_yon == -1
        o_dip := c_low, c_high := omurga
    omurga_yon := 1
else if omurga < nz(omurga[1], omurga)
    if omurga_yon == 1
        o_tepe := c_high, c_low := omurga
    omurga_yon := -1

if omurga_yon == 1
    c_high := math.max(c_high, omurga)
else if omurga_yon == -1
    c_low := math.min(c_low, omurga)

float macro_dip = omurga_yon == -1 ? c_low : o_dip
float macro_tepe = omurga_yon == 1 ? c_high : o_tepe

// ═════════════════════════════════════════════════════════════════════════
//  4. SAF GÜÇ STRATEJİSİ VE KUTU ÇİZİMİ
// ═════════════════════════════════════════════════════════════════════════
bool long_sart  = (hl2 > omurga) and (hl2 > meta_sar)
bool short_sart = (hl2 < omurga) and (hl2 < meta_sar)

var int aktif_islem = 0
bool taktik_al = false, bool taktik_sat = false

if long_sart and aktif_islem != 1
    taktik_al := true, aktif_islem := 1
if short_sart and aktif_islem != -1
    taktik_sat := true, aktif_islem := -1

var box b_tp = na, var box b_sl = na
var label l_tp = na, var label l_sl = na, var label l_en = na, var label lb_f50 = na, var label lb_f61 = na, var label lb_f78 = na
var float entry_p = na, var float tp_p = na, var float sl_p = na
var float f50_p = na, var float f61_p = na, var float f78_p = na

if not na(b_tp)
    box.set_right(b_tp, bar_index + 3), box.set_right(b_sl, bar_index + 3)
    label.set_x(l_tp, bar_index + 3), label.set_x(l_sl, bar_index + 3), label.set_x(l_en, bar_index + 3)
    label.set_x(lb_f50, bar_index + 3), label.set_x(lb_f61, bar_index + 3), label.set_x(lb_f78, bar_index + 3)

if taktik_al or taktik_sat
    box.delete(b_tp), box.delete(b_sl)
    label.delete(l_tp), label.delete(l_sl), label.delete(l_en), label.delete(lb_f50), label.delete(lb_f61), label.delete(lb_f78)
    
    entry_p := hl2
    sl_p := taktik_al ? macro_dip : macro_tepe
    tp_p := taktik_al ? o_tepe    : o_dip
    
    tp_p := taktik_al ? math.max(tp_p, entry_p + (entry_p * 0.001)) : math.min(tp_p, entry_p - (entry_p * 0.001))
    sl_p := taktik_al ? math.min(sl_p, entry_p - (entry_p * 0.001)) : math.max(sl_p, entry_p + (entry_p * 0.001))
    float d_boyu = math.abs(tp_p - sl_p)
    
    f50_p := taktik_al ? sl_p + (d_boyu * 0.500) : sl_p - (d_boyu * 0.500)
    f61_p := taktik_al ? sl_p + (d_boyu * 0.618) : sl_p - (d_boyu * 0.618)
    f78_p := taktik_al ? sl_p + (d_boyu * 0.786) : sl_p - (d_boyu * 0.786)

    color c_tp = taktik_al ? color.new(color.lime, 95) : color.new(color.aqua, 95)
    color c_border = taktik_al ? color.rgb(0, 230, 119, 00) : color.rgb(0, 187, 212, 00)
    
    b_tp := box.new(bar_index, taktik_al ? tp_p : entry_p, bar_index + 3, taktik_al ? entry_p : tp_p, bgcolor=c_tp, border_color=c_border)
    b_sl := box.new(bar_index, taktik_al ? entry_p : sl_p, bar_index + 3, taktik_al ? sl_p : entry_p, bgcolor=color.new(color.red, 95), border_color=color.red)
    
    l_tp := label.new(bar_index + 3, tp_p, "TP: " + str.tostring(tp_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=c_border, size=size.small)
    l_sl := label.new(bar_index + 3, sl_p, "SL: " + str.tostring(sl_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.red, size=size.small)
    l_en := label.new(bar_index + 3, entry_p, "@: " + str.tostring(entry_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.white, size=size.small)
    lb_f50 := label.new(bar_index + 5, f50_p, "0 [" + str.tostring(f50_p, format.mintick) + "]", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f61 := label.new(bar_index + 5, f61_p, "1 [" + str.tostring(f61_p, format.mintick) + "]", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f78 := label.new(bar_index + 5, f78_p, "2 [" + str.tostring(f78_p, format.mintick) + "]", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)

// ═════════════════════════════════════════════════════════════════════════
//  5. ÇİFT KATMANLI DBHF SİSTEMİ VE ANOMALİ KALKANI
// ═════════════════════════════════════════════════════════════════════════
[dbhf_micro_cizgi, dbhf_micro_trend] = f_dbhf_sniper(hl2, 14, 1.0, 1.0, 0.5, 0.2)
[dbhf_macro_cizgi, dbhf_macro_trend] = f_dbhf_sniper(hl2, 14, 2.5, 1.0, 0.5, 0.1)

float anomali_atr = ta.atr(14)
bool anomali_var = math.abs(close - open) > (anomali_atr * 1.5)

// ═════════════════════════════════════════════════════════════════════════
//  6. KUTU İÇİ PUSU (LRB LİKİDİTE AVI ONAYLI)
// ═════════════════════════════════════════════════════════════════════════
bool kutu_ici_long  = (aktif_islem == 1)  and (hl2 <= entry_p) and (hl2 >= sl_p)
bool kutu_ici_short = (aktif_islem == -1) and (hl2 >= entry_p) and (hl2 <= sl_p)

var bool horoz_long = false, var bool horoz_short = false
if taktik_al or taktik_sat
    horoz_long := false, horoz_short := false

// YENİ ŞART: Fiyat hem 61.8'e inmeli, HEM DE LRB alt bandına iğne atıp likidite temizlemeli!
if kutu_ici_long and (hl2 <= f61_p) and (low <= lrb_ll)
    horoz_long := true
if kutu_ici_short and (hl2 >= f61_p) and (high >= lrb_hh)
    horoz_short := true

bool otonom_pusu_long  = horoz_long  and ta.crossover(dbhf_micro_trend, 0) and barstate.isconfirmed and not anomali_var
bool otonom_pusu_short = horoz_short and ta.crossunder(dbhf_micro_trend, 0) and barstate.isconfirmed and not anomali_var

if otonom_pusu_long
    horoz_long := false
if otonom_pusu_short
    horoz_short := false

plotshape(otonom_pusu_long,  "Kutu İçi Long Pusu",  shape.triangleup,   location.belowbar, color=color.lime, size=size.small, text="PUSU\nAL",  textcolor=color.white)
plotshape(otonom_pusu_short, "Kutu İçi Short Pusu", shape.triangledown, location.abovebar, color=color.red,  size=size.small, text="PUSU\nSAT", textcolor=color.white)

// ═════════════════════════════════════════════════════════════════════════
//  7. %100 OTONOM DBHF TAHLİYE SİSTEMİ 
// ═════════════════════════════════════════════════════════════════════════
var float iz_suren_stop = na
var int savas_durumu = 0 

if otonom_pusu_long
    savas_durumu := 1
    iz_suren_stop := sl_p 
else if otonom_pusu_short
    savas_durumu := -1
    iz_suren_stop := sl_p 

bool tahliye_sinyali = false

if savas_durumu == 1
    iz_suren_stop := math.max(nz(iz_suren_stop[1], iz_suren_stop), dbhf_macro_cizgi)
    if ta.crossunder(hl2, iz_suren_stop) and barstate.isconfirmed
        savas_durumu := 0
        tahliye_sinyali := true

if savas_durumu == -1
    iz_suren_stop := math.min(nz(iz_suren_stop[1], iz_suren_stop), dbhf_macro_cizgi)
    if ta.crossover(hl2, iz_suren_stop) and barstate.isconfirmed
        savas_durumu := 0
        tahliye_sinyali := true

color iz_renk = savas_durumu == 1 ? color.aqua : savas_durumu == -1 ? color.fuchsia : na
plot(savas_durumu != 0 ? iz_suren_stop : na, "Makro DBHF Kalkanı", color=iz_renk, style=plot.style_stepline, linewidth=2) 

[@yörük@]

// © Kinetik Komuta Merkezi - ICC Piyasa Yapısı (Saf Çekirdek)
//@version=6
indicator("ICC Piyasa Yapısı - SAF GÜÇ", overlay=true, max_boxes_count=100)

// ═══════════════════════════════════════════════════════════════════════════════
// AYARLAR
// ═══════════════════════════════════════════════════════════════════════════════
swing_length = input.int(5, "Dalga (Swing) Hassasiyeti", minval=2)
zlema_len    = input.int(50, "ZLEMA Trend Filtresi", minval=10)

// ═══════════════════════════════════════════════════════════════════════════════
// KÜTLE MERKEZİ VE SIFIR GECİKME MOTORU
// ═══════════════════════════════════════════════════════════════════════════════
f_zlema(sig, len) =>
    float ema1 = ta.ema(sig, len)
    float ema2 = ta.ema(ema1, len)
    ema1 + (ema1 - ema2)

zlema_trend = f_zlema(hl2, zlema_len)
plot(zlema_trend, "ZLEMA Yön", color=color.new(color.yellow, 0), linewidth=2)

// ═══════════════════════════════════════════════════════════════════════════════
// PİYASA YAPISI (HL2 TABANLI SWING NOKTALARI)
// ═══════════════════════════════════════════════════════════════════════════════
sh = ta.pivothigh(hl2, swing_length, swing_length)
sl = ta.pivotlow(hl2, swing_length, swing_length)

var float last_sh = na
var float last_sl = na
var box sh_box = na
var box sl_box = na

float atr = ta.atr(14)
float zone_buffer = atr * 0.2 // Kutulara esneklik payı

if not na(sh)
    last_sh := sh
    sh_box := box.new(bar_index - swing_length, sh + zone_buffer, bar_index, sh - zone_buffer, bgcolor=color.new(color.red, 85), border_color=color.red, border_style=line.style_dashed)

if not na(sl)
    last_sl := sl
    sl_box := box.new(bar_index - swing_length, sl + zone_buffer, bar_index, sl - zone_buffer, bgcolor=color.new(color.lime, 85), border_color=color.lime, border_style=line.style_dashed)

// Kutuları güncel fiyata kadar sağa uzat
if not na(sh_box)
    box.set_right(sh_box, bar_index)
if not na(sl_box)
    box.set_right(sl_box, bar_index)

// ═══════════════════════════════════════════════════════════════════════════════
// KIRILIM (BREAKOUT) TETİĞİ VE NO-REPAINT
// ═══════════════════════════════════════════════════════════════════════════════
// hl2 kütlesi kutuyu delerse ve ZLEMA onay verirse tetik düşer
bull_break = barstate.isconfirmed and not na(last_sh) and hl2 > (last_sh + zone_buffer) and hl2[1] <= (last_sh + zone_buffer) and hl2 > zlema_trend
bear_break = barstate.isconfirmed and not na(last_sl) and hl2 < (last_sl - zone_buffer) and hl2[1] >= (last_sl - zone_buffer) and hl2 < zlema_trend

plotshape(bull_break, "YAPISAL AL", shape.labelup, location.belowbar, color.lime, text="AL", textcolor=color.black, size=size.small)
plotshape(bear_break, "YAPISAL SAT", shape.labeldown, location.abovebar, color.red, text="SAT", textcolor=color.white, size=size.small)

////////////sarlar////////////////
sar_fast = ta.sar(0.02, 0.02, 0.20)
sar_mid = ta.sar(0.03, 0.03, 0.25)
sar_slow = ta.sar(0.04, 0.04, 0.30)
psar_uzun = ta.sar(0., 0.01, 0.10)
plot(psar_uzun, title = '2', color = close > psar_uzun ? #62ff01 : #ff0101, style = plot.style_line, linewidth = 1)
plot(sar_fast, 'C', color = color.rgb(0, 255, 0), style = plot.style_cross, linewidth = 1)
plot(sar_mid, 'B', color = color.rgb(255, 0, 0), style = plot.style_cross, linewidth = 1)
plot(sar_slow, 'A', color = color.rgb(244, 244, 4), style = plot.style_cross, linewidth = 1)
////////////// 

[@yörük@]

hub...

// © Kinetik Komuta Merkezi - Master Hub (v5 - FINAL)
//@version=6
indicator("@yörük@ Hub", overlay=true, max_labels_count=50, max_lines_count=50)

// ─────────────────────────────────────────────────────────────────
//  A. MASTER ŞALTER (SİSTEM SEÇİCİ)
// ─────────────────────────────────────────────────────────────────
var string SYS1 = "1. Scalping Trade (1m)"
var string SYS2 = "2. Swing Trade (Üçlü Kral)"
var string SYS3 = "3. Scalping + Swing Trade"
var string SYS4 = "4. Day Trade"
var string SYS5 = "5. Otonom Trade"

aktif_sistem = input.string(SYS5, "Aktif Sistemi Seç", options=[SYS1, SYS2, SYS3, SYS4, SYS5])

// Şalter Kontrolleri
bool is_sys1 = aktif_sistem == SYS1
bool is_sys2 = aktif_sistem == SYS2
bool is_sys3 = aktif_sistem == SYS3
bool is_sys4 = aktif_sistem == SYS4
bool is_sys5 = aktif_sistem == SYS5

// Ortak Renk Paleti
color col_up  = color.new(#00e676, 0)
color col_dn  = color.new(#ff1744, 0)
color col_gri = color.new(color.white, 0)

// ─────────────────────────────────────────────────────────────────
//  0. GLOBAL KİNETİK MOTOR VE FONKSİYONLAR (Ortak)
// ─────────────────────────────────────────────────────────────────
f_kutu_kutle(series float src, int _atrLen, float _atrMult, float _mu) =>
    float threshold = ta.atr(_atrLen) * _atrMult
    var float z = na
    var float v = 0.0
    if bar_index == 0
        z := src
    else
        float zPrev = z[1]
        float vPrev = v[1]
        float zPred = zPrev + vPrev
        float zTemp = zPred + _mu * (src - zPred)
        float diff = zTemp - zPrev
        if math.abs(diff) > threshold
            v := math.sign(diff) * (math.abs(diff) - threshold)
        else
            v := 0.0
        z := zPrev + v
    [z, v]

f_kutu_kutle_z(series float src, int _atrLen, float _atrMult, float _mu) =>
    [z_val, _] = f_kutu_kutle(src, _atrLen, _atrMult, _mu)
    z_val

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]

f_zlema(series float src, simple int len) =>
    float ema1 = ta.ema(src, len)
    float ema2 = ta.ema(ema1, len)
    ema1 + (ema1 - ema2)

type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong
    int   trend_age
    int   bounce_count
    bool  was_touching 

method f_updateState(SARState state, float src_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInitialTrend = false
    bool trend_changed = false
    if na(state.sar_value)
        state.isLong := src_val > src_val[1] ? true : false
        state.extreme_point := src_val
        state.sar_value := state.isLong ? src_val[1] - atr_val : src_val[1] + atr_val
        isInitialTrend := true
        state.accel_factor := accel_start
        state.trend_age := 0
    else
        state.trend_age += 1
    state.sar_value += state.accel_factor * (state.extreme_point - state.sar_value)
    if state.isLong
        if state.sar_value > src_val
            trend_changed := true
            state.isLong := false
            state.sar_value := math.max(src_val, state.extreme_point)
            state.extreme_point := src_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < src_val
            trend_changed := true
            state.isLong := true
            state.sar_value := math.min(src_val, state.extreme_point)
            state.extreme_point := src_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    if trend_changed
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.1 
        bool is_touch = state.isLong ? (src_val <= state.sar_value + tol) : (src_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
    float decay_factor = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float yasli_inc    = accel_inc * decay_factor
    if not isInitialTrend
        if state.isLong
            if src_val > state.extreme_point
                state.extreme_point := src_val
                state.accel_factor := math.min(state.accel_factor + yasli_inc, accel_max)
        else
            if src_val < state.extreme_point
                state.extreme_point := src_val
                state.accel_factor := math.min(state.accel_factor + yasli_inc, accel_max)
    if bar_index > 1
        state.sar_value := state.isLong ? math.min(state.sar_value, src_val[1]) : math.max(state.sar_value, src_val[1])
    state


// =================================================================
//  SİSTEM 1: SCALPING TRADE (Kinetik Kütle + Kinetik SAR)
// =================================================================
string GRP1 = "1. SCALPING TRADE AYARLARI"
float s1_start = input.float(0.02, "SAR Başlangıç", step=0.01, group=GRP1)
float s1_inc   = input.float(0.02, "SAR Artış", step=0.01, group=GRP1)
float s1_max   = input.float(0.2,  "SAR Maksimum", step=0.01, group=GRP1)

float s1_kin_z = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)

var float s1_k_sar = na
var int   s1_trend = 0
var float s1_ep    = 0.0
var float s1_af    = s1_start

if bar_index > 1
    if s1_trend == 0
        s1_trend := s1_kin_z > s1_kin_z[1] ? 1 : -1
        s1_k_sar := s1_trend == 1 ? low[1] : high[1]
        s1_ep    := s1_trend == 1 ? high[1] : low[1]
        s1_af    := s1_start
    else
        s1_k_sar := s1_k_sar + s1_af * (s1_ep - s1_k_sar)
        if s1_trend == 1
            if s1_kin_z < s1_k_sar
                s1_trend := -1
                s1_k_sar := s1_ep
                s1_ep    := s1_kin_z
                s1_af    := s1_start
            else
                if s1_kin_z > s1_ep
                    s1_ep := s1_kin_z
                    s1_af := math.min(s1_max, s1_af + s1_inc)
        else
            if s1_kin_z > s1_k_sar
                s1_trend := 1
                s1_k_sar := s1_ep
                s1_ep    := s1_kin_z
                s1_af    := s1_start
            else
                if s1_kin_z < s1_ep
                    s1_ep := s1_kin_z
                    s1_af := math.min(s1_max, s1_af + s1_inc)

bool s1_earlyWarn = math.abs(s1_kin_z - s1_k_sar) < (ta.stdev(s1_kin_z, 20) * 0.5)

plot(s1_earlyWarn ? na : s1_k_sar, "S1: Kinetik SAR", style=plot.style_line, linewidth=1, color=color.new(s1_trend == 1 ? col_up : col_dn, 0), display=is_sys1 ? display.all : display.none)
plot(s1_kin_z, "S1: Kinetik Kütle", color=color.new(color.fuchsia, 0), linewidth=1, style=plot.style_stepline, display=is_sys1 ? display.all : display.none)


// =================================================================
//  SİSTEM 2: SWING TRADE (Üçlü KSAR Senfonisi)
// =================================================================
string GRP2 = "2. SWING TRADE AYARLARI"
float s2_atrMult = input.float(3.5, "Kinetik Gürültü Duvarı", group=GRP2)
float s2_mu      = input.float(0.6, "Yakınsaklık (μ)", group=GRP2)

f_get_king_s2(int _len) =>
    var float[] fibs = array.from(1.0, 2.0, 3.0, 5.0, 8.0, 13.0, 21.0, 34.0, 55.0)
    var states = array.new<SARState>()
    if barstate.isfirst
        for i = 0 to 8
            states.push(SARState.new(na, na, 0.01, false, 0, 0, false))
    float kin_z = f_kutu_kutle_z(hl2, _len, s2_atrMult, s2_mu)
    float atr_v = ta.atr(14)
    for i = 0 to 8
        SARState s = states.get(i)
        s.f_updateState(kin_z, 0.01, 0.02, 0.20, fibs.get(i), atr_v)
    var int king_idx = 8 
    int new_king = -1
    for i = 0 to 8
        if states.get(i).bounce_count >= 2
            new_king := i
            break 
    if new_king != -1
        king_idx := new_king 
    [states.get(king_idx).sar_value, states.get(king_idx).isLong]

[s2_k50_val,  s2_k50_long]  = f_get_king_s2(50)
[s2_k100_val, s2_k100_long] = f_get_king_s2(100)
[s2_k200_val, s2_k200_long] = f_get_king_s2(200)

plot(s2_k50_val,  "S2: Hızlı Kral (50)",  color=color.new(s2_k50_long ? col_up : col_dn, 0),  linewidth=1, display=is_sys2 ? display.all : display.none)
plot(s2_k100_val, "S2: Orta Kral (100)",  color=color.new(s2_k100_long ? col_up : col_dn, 0), linewidth=1, display=is_sys2 ? display.all : display.none)
plot(s2_k200_val, "S2: Makro Kral (200)", color=color.new(s2_k200_long ? col_up : col_dn, 0), linewidth=1, display=is_sys2 ? display.all : display.none)


// =================================================================
//  SİSTEM 3: SCALPING + SWING TRADE
// =================================================================
string GRP3 = "3. SCALPING + SWING TRADE AYARLARI"
string s3_symB = input.symbol("BIST:XU100", "Kıyaslanacak Endeks / Hisse", group=GRP3)

float s3_celik_zemin = f_kutu_kutle_z(hl2, 200, 3.5, 0.6)
float s3_tetikci_z   = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)

bool s3_kutle_al  = ta.crossover(s3_tetikci_z, s3_celik_zemin)
bool s3_kutle_sat = ta.crossunder(s3_tetikci_z, s3_celik_zemin)

plotshape(is_sys3 and s3_kutle_al,  "S3 AL",  shape.triangleup,   location.belowbar, color=color.new(col_up, 50), size=size.large)
plotshape(is_sys3 and s3_kutle_sat, "S3 SAT", shape.triangledown, location.abovebar, color=color.new(col_dn, 50), size=size.large)

float s3_kin_z_y = f_kutu_kutle_z(hl2, 5, 2.5, 0.9)

[s3_s_mavi1, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.003, 0.003, 0.02)
[s3_s_mavi2, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.001, 0.001, 0.02)
[s3_s_mavi3, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.0005, 0.0005, 0.02)
float s3_mavi_kalkan = (s3_s_mavi1 + s3_s_mavi2 + s3_s_mavi3) / 3

[s3_s_sari1, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.01, 0.2)
[s3_s_sari2, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.02, 0.2)
[s3_s_sari3, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.03, 0.2)
float s3_sari_kalkan = (s3_s_sari1 + s3_s_sari2 + s3_s_sari3) / 3

plot(s3_mavi_kalkan, "S3 Mavi", color=hl2 > s3_mavi_kalkan ? col_up : col_dn, linewidth=1, display=is_sys3 ? display.all : display.none)
plot(s3_sari_kalkan, "S3 Sarı", color=hl2 > s3_sari_kalkan ? col_up : col_dn, linewidth=1, display=is_sys3 ? display.all : display.none)

plot(ta.sar(0.001, 0.0005, 0.02), "S3 Y", color.new(#040cfb, 0), 1, plot.style_cross, display=is_sys3 ? display.all : display.none)
plot(ta.sar(0.01, 0.03, 0.2), "S3 X", style=plot.style_cross, color=color.new(color.yellow, 0), linewidth=1, display=is_sys3 ? display.all : display.none)

[s3_sar_hizli, s3_trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float s3_ayna_hizli = s3_trend_hizli > 0 ? hl2 + math.abs(hl2 - s3_sar_hizli) : hl2 - math.abs(hl2 - s3_sar_hizli)
plot(s3_ayna_hizli, "S3 Aynası", color=s3_ayna_hizli > hl2 ? col_up : col_dn, style=plot.style_line, linewidth=1, display=is_sys3 ? display.all : display.none)


// =================================================================
//  SİSTEM 4: DAY TRADE
// =================================================================
string GRP4 = "4. DAY TRADE AYARLARI"
int   s4_atrLen    = input.int(5, "Kinetik Hafıza", group=GRP4)
float s4_atrMult   = input.float(2.5, "Gürültü Duvarı", step=0.1, group=GRP4)
float s4_mu        = input.float(0.9, "Yakınsaklık", step=0.1, group=GRP4)
string s4_symB     = input.symbol("BIST:XU100", "Kıyas Endeksi", group=GRP4)
int   s4_zLenFast  = input.int(55, "ZLEMA Hızlı", group=GRP4)
int   s4_zLenSlow  = input.int(233, "ZLEMA Yavaş", group=GRP4)

float s4_kin_z = f_kutu_kutle_z(hl2, s4_atrLen, s4_atrMult, s4_mu)
plot(s4_kin_z, "S4 Kütle", color=color.new(color.fuchsia, 0), style=plot.style_stepline, linewidth=1, display=is_sys4 ? display.all : display.none)

plot(ta.sar(0.01, 0.03, 0.2), "S4 X", style=plot.style_cross, color=color.new(color.yellow, 0), linewidth=1, display=is_sys4 ? display.all : display.none)

[s4_c2, s4_hl2_2] = request.security(s4_symB, timeframe.period, [close, hl2], lookahead=barmerge.lookahead_off)
float s4_rs_c = close / s4_c2
bool s4_isBullFast = s4_rs_c > f_zlema(hl2 / s4_hl2_2, s4_zLenFast)
bool s4_isBullSlow = s4_rs_c > f_zlema(hl2 / s4_hl2_2, s4_zLenSlow)
color s4_barCol = (s4_isBullFast and s4_isBullSlow) ? color.new(color.yellow,0) : (not s4_isBullFast and not s4_isBullSlow) ? color.new(color.fuchsia,0) : s4_isBullFast ? col_up : col_dn

float s4_tetikci_z = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)
plot(s4_tetikci_z, "S4 TETİKÇİ", color=color.new(color.fuchsia, 0), linewidth=1, style=plot.style_stepline, display=is_sys4 ? display.all : display.none)

float s4_o377 = f_zlema(ta.median(hl2, 233), 610)
plot(s4_o377, "S4 Omurga 377", color=color.fuchsia, linewidth=1, display=is_sys4 ? display.all : display.none)

plotshape(is_sys4 and ta.crossover(s4_tetikci_z, s4_o377),  "S4 AL",  shape.triangleup,   location.belowbar, color=col_up, size=size.large)
plotshape(is_sys4 and ta.crossunder(s4_tetikci_z, s4_o377), "S4 SAT", shape.triangledown, location.abovebar, color=col_dn, size=size.large)


// =================================================================
//  SİSTEM 5: OTONOM TRADE
// =================================================================
string GRP5 = "5. OTONOM TRADE AYARLARI"
string s5_symB     = input.symbol("BIST:XU100", "Z-RS Kıyas Endeksi", group=GRP5)
string s5_hft_res  = input.timeframe("5", "Kurumsal MTF Çapası (Örn: 5m)", group=GRP5)

int   s5_atrLen    = input.int(10, "L1 Hafıza (ATR)", group=GRP5)
float s5_atrMult   = input.float(3.5, "L1 Gürültü Duvarı", step=0.1, group=GRP5)
float s5_mu        = input.float(0.6, "L1 Yakınsaklık (μ)", step=0.1, group=GRP5)

float s5_k_start = input.float(0.01, "Kral Başlangıç", step=0.01, group=GRP5)
float s5_k_inc   = input.float(0.02, "Kral İvme", step=0.01, group=GRP5)
float s5_k_max   = input.float(0.20, "Kral Max", step=0.01, group=GRP5)

[s5_hl2_idx] = request.security(s5_symB, timeframe.period, [hl2], lookahead=barmerge.lookahead_off)
float s5_z_rs4 = f_zlema(ta.median(hl2 / s5_hl2_idx, 8), 89) 
bool  s5_isRsBull = s5_z_rs4 > s5_z_rs4[1]
bool  s5_isRsBear = s5_z_rs4 < s5_z_rs4[1]

f_s5_hft_paket() =>
    [z, v]   = f_kutu_kutle(hl2, s5_atrLen, s5_atrMult, s5_mu)
    [cel, _] = f_kutu_kutle(hl2, 1, 0.01, 0.01)
    [z, v, cel, f_zlema(z, 5), f_zlema(z, 20)]

[s5_z_m, s5_v_m, s5_cel_m, s5_f_m, s5_s_m] = request.security(syminfo.tickerid, s5_hft_res, f_s5_hft_paket(), lookahead=barmerge.lookahead_off)
[s5_z_l, s5_v_l]   = f_kutu_kutle(hl2, s5_atrLen, s5_atrMult, s5_mu)
[s5_cel_l, _]      = f_kutu_kutle(hl2, 1, 0.01, 0.01)

float s5_kin_z = na(s5_z_m) ? s5_z_l : s5_z_m
float s5_celik = na(s5_cel_m) ? s5_cel_l : s5_cel_m
plot(s5_celik, "S5 İZ STOP", color=color.new(#d500f9, 0), linewidth=1, style=plot.style_stepline, display=is_sys5 ? display.all : display.none)

[s5_sar_hizli, s5_trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float s5_ayna_hizli = s5_trend_hizli > 0 ? hl2 + math.abs(hl2 - s5_sar_hizli) : hl2 - math.abs(hl2 - s5_sar_hizli)

var float[] s5_fibs = array.from(1.0, 2.0, 3.0, 5.0, 8.0, 13.0, 21.0, 34.0, 55.0)
var s5_states = array.new<SARState>()
if barstate.isfirst
    for i = 0 to 8
        s5_states.push(SARState.new(na, na, s5_k_start, false, 0, 0, false))

float s5_gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    SARState s = s5_states.get(i)
    s.f_updateState(s5_kin_z, s5_k_start, s5_k_inc, s5_k_max, s5_fibs.get(i), s5_gercek_oynaklik)

var int s5_king_idx = 8 
int s5_new_king = -1
for i = 0 to 8
    if s5_states.get(i).bounce_count >= 2
        s5_new_king := i
        break 
if s5_new_king != -1
    s5_king_idx := s5_new_king 

float s5_kral_sar = s5_states.get(s5_king_idx).sar_value
bool  s5_kral_yon = s5_states.get(s5_king_idx).isLong
float s5_kral_ayna = s5_kral_yon ? hl2 + math.abs(hl2 - s5_kral_sar) : hl2 - math.abs(hl2 - s5_kral_sar)

plot(s5_kral_sar, "S5 KSAR", color=s5_kral_yon ? col_up : col_dn, style=plot.style_line, linewidth=2, display=is_sys5 ? display.all : display.none)

bool s5_isBullTrigger = (s5_kral_ayna > hl2) and s5_isRsBull
bool s5_isBearTrigger = (s5_kral_ayna < hl2) and s5_isRsBear

float s5_roSar1 = ta.sar(0.03, 0.003, 0.3)
bool  s5_trigger = (math.abs(s5_roSar1 - ta.sar(0.05, 0.005, 0.5)) <= syminfo.mintick) and (math.abs(s5_roSar1 - ta.sar(0.10, 0.010, 1.0)) <= syminfo.mintick) and not ((math.abs(s5_roSar1[1] - ta.sar(0.05, 0.005, 0.5)[1]) <= syminfo.mintick) and (math.abs(s5_roSar1[1] - ta.sar(0.10, 0.010, 1.0)[1]) <= syminfo.mintick))
plotshape(is_sys5 and s5_trigger ? s5_roSar1 : na, "S5 3'lü SAR", shape.diamond, location.absolute, color=(hl2 > s5_roSar1) ? color.new(#00e676, 70) : color.new(#ff1744, 70), size=size.large)


// =================================================================
//  ORTAK BAR RENKLENDİRME
// =================================================================
color final_bar_col = na
if is_sys1
    final_bar_col := s1_trend == 1 ? color.new(col_up, 0) : color.new(col_dn, 0)
else if is_sys2
    final_bar_col := s2_k50_long ? color.new(col_up, 50) : color.new(col_dn, 50)
else if is_sys3
    final_bar_col := s3_tetikci_z > s3_tetikci_z[1] ? color.new(col_up, 0) : color.new(col_dn, 0)
else if is_sys4
    final_bar_col := s4_barCol
else if is_sys5
    final_bar_col := s5_isBullTrigger ? col_up : s5_isBearTrigger ? col_dn : col_gri

barcolor(final_bar_col)


// =================================================================
//  MÜŞTEREK MASTER DASHBOARD (ORTAK TABLO)
// =================================================================
var table master_dash = table.new(position.bottom_right, 3, 8, bgcolor=color.new(#131722, 20), border_width=1, border_color=color.new(#363a45, 50))

if barstate.islast
    // Başlık Satırı
    table.cell(master_dash, 0, 0, "SİSTEM", text_color=color.white, text_size=size.normal, bgcolor=color.new(#2962ff, 50))
    table.cell(master_dash, 1, 0, "DEĞER",  text_color=color.white, text_size=size.normal, bgcolor=color.new(#2962ff, 50))
    table.cell(master_dash, 2, 0, "SONUÇ",  text_color=color.white, text_size=size.normal, bgcolor=color.new(#2962ff, 50))

    // Sistem 1
    color s1_bg = is_sys1 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 1, is_sys1 ? "► Scalping Trade" : "Scalping Trade", text_color=color.white, text_size=size.normal, text_halign=text.align_left, bgcolor=s1_bg)
    table.cell(master_dash, 1, 1, str.tostring(s1_k_sar, format.mintick), text_color=color.silver, text_size=size.normal, bgcolor=s1_bg)
    table.cell(master_dash, 2, 1, s1_trend == 1 ? "AL" : "SAT", text_color=s1_trend == 1 ? col_up : col_dn, text_size=size.normal, bgcolor=s1_bg)

    // Sistem 2
    color s2_bg = is_sys2 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 2, is_sys2 ? "► Swing Trade" : "Swing Trade", text_color=color.white, text_size=size.normal, text_halign=text.align_left, bgcolor=s2_bg)
    table.cell(master_dash, 1, 2, str.tostring(s2_k50_val, format.mintick), text_color=color.silver, text_size=size.normal, bgcolor=s2_bg)
    table.cell(master_dash, 2, 2, s2_k50_long ? "AL" : "SAT", text_color=s2_k50_long ? col_up : col_dn, text_size=size.normal, bgcolor=s2_bg)

    // Sistem 3
    color s3_bg = is_sys3 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 3, is_sys3 ? "► Scalp + Swing" : "Scalp + Swing", text_color=color.white, text_size=size.normal, text_halign=text.align_left, bgcolor=s3_bg)
    table.cell(master_dash, 1, 3, str.tostring(s3_tetikci_z, format.mintick), text_color=color.silver, text_size=size.normal, bgcolor=s3_bg)
    table.cell(master_dash, 2, 3, s3_tetikci_z > s3_celik_zemin ? "AL" : "SAT", text_color=s3_tetikci_z > s3_celik_zemin ? col_up : col_dn, text_size=size.normal, bgcolor=s3_bg)

    // Sistem 4
    color s4_bg = is_sys4 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 4, is_sys4 ? "► Day Trade" : "Day Trade", text_color=color.white, text_size=size.normal, text_halign=text.align_left, bgcolor=s4_bg)
    table.cell(master_dash, 1, 4, str.tostring(s4_tetikci_z, format.mintick), text_color=color.silver, text_size=size.normal, bgcolor=s4_bg)
    table.cell(master_dash, 2, 4, s4_tetikci_z > s4_o377 ? "AL" : "SAT", text_color=s4_tetikci_z > s4_o377 ? col_up : col_dn, text_size=size.normal, bgcolor=s4_bg)

    // Sistem 5
    color s5_bg = is_sys5 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 5, is_sys5 ? "► Otonom Trade" : "Otonom Trade", text_color=color.white, text_size=size.normal, text_halign=text.align_left, bgcolor=s5_bg)
    table.cell(master_dash, 1, 5, str.tostring(s5_kral_sar, format.mintick), text_color=color.silver, text_size=size.normal, bgcolor=s5_bg)
    table.cell(master_dash, 2, 5, s5_kral_yon ? "AL" : "SAT", text_color=s5_kral_yon ? col_up : col_dn, text_size=size.normal, bgcolor=s5_bg)

    // İmza (Sabit Alt Kısım)
    table.cell(master_dash, 0, 6, "Gemini Pro Eğitim Çalışmasıdır. Yatırım tavsiyesi olarak KULLANILAMAZ. @yörük@", text_color=color.new(color.white, 0), text_size=size.small, bgcolor=color.new(#000000, 50))
    table.merge_cells(master_dash, 0, 6, 2, 6) 

[@yörük@]

// © Kinetik Komuta Merkezi - Master Hub (v5 - FINAL + S1 TP/SL Kalkanı)
//@version=6
indicator("KKM Master Hub", overlay=true, max_labels_count=50, max_lines_count=50, max_boxes_count=50)

// ─────────────────────────────────────────────────────────────────
//  A. MASTER ŞALTER (SİSTEM SEÇİCİ)
// ─────────────────────────────────────────────────────────────────
var string SYS1 = "1. Scalping Trade (1m)"
var string SYS2 = "2. Swing Trade (Üçlü Kral)"
var string SYS3 = "3. Scalping + Swing Trade"
var string SYS4 = "4. Day Trade"
var string SYS5 = "5. Otonom Trade"

aktif_sistem = input.string(SYS1, "Aktif Sistemi Seç", options=[SYS1, SYS2, SYS3, SYS4, SYS5])

// Şalter Kontrolleri
bool is_sys1 = aktif_sistem == SYS1
bool is_sys2 = aktif_sistem == SYS2
bool is_sys3 = aktif_sistem == SYS3
bool is_sys4 = aktif_sistem == SYS4
bool is_sys5 = aktif_sistem == SYS5

// Ortak Renk Paleti
color col_up  = color.new(#00e676, 0)
color col_dn  = color.new(#ff1744, 0)
color col_gri = color.new(color.white, 0)

// ─────────────────────────────────────────────────────────────────
//  0. GLOBAL KİNETİK MOTOR VE FONKSİYONLAR (Ortak)
// ─────────────────────────────────────────────────────────────────
f_kutu_kutle(series float src, int _atrLen, float _atrMult, float _mu) =>
    float threshold = ta.atr(_atrLen) * _atrMult
    var float z = na
    var float v = 0.0
    if bar_index == 0
        z := src
    else
        float zPrev = z[1]
        float vPrev = v[1]
        float zPred = zPrev + vPrev
        float zTemp = zPred + _mu * (src - zPred)
        float diff = zTemp - zPrev
        if math.abs(diff) > threshold
            v := math.sign(diff) * (math.abs(diff) - threshold)
        else
            v := 0.0
        z := zPrev + v
    [z, v]

f_kutu_kutle_z(series float src, int _atrLen, float _atrMult, float _mu) =>
    [z_val, _] = f_kutu_kutle(src, _atrLen, _atrMult, _mu)
    z_val

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]

f_zlema(series float src, simple int len) =>
    float ema1 = ta.ema(src, len)
    float ema2 = ta.ema(ema1, len)
    ema1 + (ema1 - ema2)

type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong
    int   trend_age
    int   bounce_count
    bool  was_touching 

method f_updateState(SARState state, float src_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInitialTrend = false
    bool trend_changed = false
    if na(state.sar_value)
        state.isLong := src_val > src_val[1] ? true : false
        state.extreme_point := src_val
        state.sar_value := state.isLong ? src_val[1] - atr_val : src_val[1] + atr_val
        isInitialTrend := true
        state.accel_factor := accel_start
        state.trend_age := 0
    else
        state.trend_age += 1
    state.sar_value += state.accel_factor * (state.extreme_point - state.sar_value)
    if state.isLong
        if state.sar_value > src_val
            trend_changed := true
            state.isLong := false
            state.sar_value := math.max(src_val, state.extreme_point)
            state.extreme_point := src_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < src_val
            trend_changed := true
            state.isLong := true
            state.sar_value := math.min(src_val, state.extreme_point)
            state.extreme_point := src_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    if trend_changed
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.1 
        bool is_touch = state.isLong ? (src_val <= state.sar_value + tol) : (src_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
    float decay_factor = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float yasli_inc    = accel_inc * decay_factor
    if not isInitialTrend
        if state.isLong
            if src_val > state.extreme_point
                state.extreme_point := src_val
                state.accel_factor := math.min(state.accel_factor + yasli_inc, accel_max)
        else
            if src_val < state.extreme_point
                state.extreme_point := src_val
                state.accel_factor := math.min(state.accel_factor + yasli_inc, accel_max)
    if bar_index > 1
        state.sar_value := state.isLong ? math.min(state.sar_value, src_val[1]) : math.max(state.sar_value, src_val[1])
    state


// =================================================================
//  SİSTEM 1: SCALPING TRADE (Kinetik Kütle + Kinetik SAR + TP/SL KUTU)
// =================================================================
string GRP1 = "1. SCALPING TRADE AYARLARI"
float s1_start  = input.float(0.02, "SAR Başlangıç", step=0.01, group=GRP1)
float s1_inc    = input.float(0.02, "SAR Artış", step=0.01, group=GRP1)
float s1_max    = input.float(0.2,  "SAR Maksimum", step=0.01, group=GRP1)

// Otonom TP/SL Girdileri
float s1_sl_atr = input.float(1.5, "Otonom SL (ATR Çarpanı)", step=0.1, group=GRP1)
float s1_rr     = input.float(2.0, "Otonom TP (Risk/Ödül Oranı)", step=0.1, group=GRP1)

float s1_kin_z = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)

var float s1_k_sar = na
var int   s1_trend = 0
var float s1_ep    = 0.0
var float s1_af    = s1_start

if bar_index > 1
    if s1_trend == 0
        s1_trend := s1_kin_z > s1_kin_z[1] ? 1 : -1
        s1_k_sar := s1_trend == 1 ? low[1] : high[1]
        s1_ep    := s1_trend == 1 ? high[1] : low[1]
        s1_af    := s1_start
    else
        s1_k_sar := s1_k_sar + s1_af * (s1_ep - s1_k_sar)
        if s1_trend == 1
            if s1_kin_z < s1_k_sar
                s1_trend := -1
                s1_k_sar := s1_ep
                s1_ep    := s1_kin_z
                s1_af    := s1_start
            else
                if s1_kin_z > s1_ep
                    s1_ep := s1_kin_z
                    s1_af := math.min(s1_max, s1_af + s1_inc)
        else
            if s1_kin_z > s1_k_sar
                s1_trend := 1
                s1_k_sar := s1_ep
                s1_ep    := s1_kin_z
                s1_af    := s1_start
            else
                if s1_kin_z < s1_ep
                    s1_ep := s1_kin_z
                    s1_af := math.min(s1_max, s1_af + s1_inc)

bool s1_earlyWarn = math.abs(s1_kin_z - s1_k_sar) < (ta.stdev(s1_kin_z, 20) * 0.5)

plot(s1_earlyWarn ? na : s1_k_sar, "S1: Kinetik SAR", style=plot.style_line, linewidth=1, color=color.new(s1_trend == 1 ? col_up : col_dn, 0), display=is_sys1 ? display.all : display.none)
plot(s1_kin_z, "S1: Kinetik Kütle", color=color.new(color.fuchsia, 0), linewidth=1, style=plot.style_stepline, display=is_sys1 ? display.all : display.none)

// --- SİSTEM 1: OTONOM KÂR AL / ZARAR KES KUTULARI ---
bool s1_buy_sig  = s1_trend == 1 and s1_trend[1] == -1
bool s1_sell_sig = s1_trend == -1 and s1_trend[1] == 1

var int   s1_trade_dir = 0
var float s1_entry_p   = na
var float s1_sl_p      = na
var float s1_tp_p      = na
var box   s1_sl_box    = na
var box   s1_tp_box    = na

// Sistem değiştirilirse kutuları gizle
var bool was_sys1 = is_sys1
if is_sys1 != was_sys1
    if not is_sys1
        box.delete(s1_sl_box)
        box.delete(s1_tp_box)
    was_sys1 := is_sys1

if s1_buy_sig or s1_sell_sig
    s1_trade_dir := s1_buy_sig ? 1 : -1
    s1_entry_p   := close
    float atr_val = ta.atr(14)
    s1_sl_p      := s1_buy_sig ? s1_entry_p - (atr_val * s1_sl_atr) : s1_entry_p + (atr_val * s1_sl_atr)
    float risk    = math.abs(s1_entry_p - s1_sl_p)
    s1_tp_p      := s1_buy_sig ? s1_entry_p + (risk * s1_rr) : s1_entry_p - (risk * s1_rr)

    if is_sys1
        if not na(s1_sl_box)
            box.delete(s1_sl_box)
        if not na(s1_tp_box)
            box.delete(s1_tp_box)
        
        s1_sl_box := box.new(bar_index, s1_entry_p, bar_index + 2, s1_sl_p, bgcolor=color.new(col_dn, 85), border_color=color.new(col_dn, 30), text="SL", text_halign=text.align_right, text_valign=s1_buy_sig ? text.align_bottom : text.align_top, text_color=color.new(col_dn, 30), text_size=size.small)
        s1_tp_box := box.new(bar_index, s1_tp_p, bar_index + 2, s1_entry_p, bgcolor=color.new(col_up, 85), border_color=color.new(col_up, 30), text="TP", text_halign=text.align_right, text_valign=s1_buy_sig ? text.align_top : text.align_bottom, text_color=color.new(col_up, 30), text_size=size.small)

// Aktif işlemi takip et ve kutuları uzat
if s1_trade_dir != 0
    if is_sys1
        box.set_right(s1_sl_box, bar_index + 1)
        box.set_right(s1_tp_box, bar_index + 1)
    
    // Hedeflere çarpma kontrolü
    bool hit_sl = (s1_trade_dir == 1 and low <= s1_sl_p) or (s1_trade_dir == -1 and high >= s1_sl_p)
    bool hit_tp = (s1_trade_dir == 1 and high >= s1_tp_p) or (s1_trade_dir == -1 and low <= s1_tp_p)
    
    if hit_sl or hit_tp
        s1_trade_dir := 0 // İşlemi bitir
        if is_sys1
            // İşlem bitince kutuları soluklaştırıp ekranda geçmiş olarak bırak
            box.set_bgcolor(s1_tp_box, color.new(col_gri, 95))
            box.set_border_color(s1_tp_box, color.new(col_gri, 90))
            box.set_bgcolor(s1_sl_box, color.new(col_gri, 95))
            box.set_border_color(s1_sl_box, color.new(col_gri, 90))


// =================================================================
//  SİSTEM 2: SWING TRADE (Üçlü KSAR Senfonisi)
// =================================================================
string GRP2 = "2. SWING TRADE AYARLARI"
float s2_atrMult = input.float(3.5, "Kinetik Gürültü Duvarı", group=GRP2)
float s2_mu      = input.float(0.6, "Yakınsaklık (μ)", group=GRP2)

f_get_king_s2(int _len) =>
    var float[] fibs = array.from(1.0, 2.0, 3.0, 5.0, 8.0, 13.0, 21.0, 34.0, 55.0)
    var states = array.new<SARState>()
    if barstate.isfirst
        for i = 0 to 8
            states.push(SARState.new(na, na, 0.01, false, 0, 0, false))
    float kin_z = f_kutu_kutle_z(hl2, _len, s2_atrMult, s2_mu)
    float atr_v = ta.atr(14)
    for i = 0 to 8
        SARState s = states.get(i)
        s.f_updateState(kin_z, 0.01, 0.02, 0.20, fibs.get(i), atr_v)
    var int king_idx = 8 
    int new_king = -1
    for i = 0 to 8
        if states.get(i).bounce_count >= 2
            new_king := i
            break 
    if new_king != -1
        king_idx := new_king 
    [states.get(king_idx).sar_value, states.get(king_idx).isLong]

[s2_k50_val,  s2_k50_long]  = f_get_king_s2(50)
[s2_k100_val, s2_k100_long] = f_get_king_s2(100)
[s2_k200_val, s2_k200_long] = f_get_king_s2(200)

plot(s2_k50_val,  "S2: Hızlı Kral (50)",  color=color.new(s2_k50_long ? col_up : col_dn, 0),  linewidth=1, display=is_sys2 ? display.all : display.none)
plot(s2_k100_val, "S2: Orta Kral (100)",  color=color.new(s2_k100_long ? col_up : col_dn, 0), linewidth=1, display=is_sys2 ? display.all : display.none)
plot(s2_k200_val, "S2: Makro Kral (200)", color=color.new(s2_k200_long ? col_up : col_dn, 0), linewidth=1, display=is_sys2 ? display.all : display.none)


// =================================================================
//  SİSTEM 3: SCALPING + SWING TRADE
// =================================================================
string GRP3 = "3. SCALPING + SWING TRADE AYARLARI"
string s3_symB = input.symbol("BIST:XU100", "Kıyaslanacak Endeks / Hisse", group=GRP3)

float s3_celik_zemin = f_kutu_kutle_z(hl2, 200, 3.5, 0.6)
float s3_tetikci_z   = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)

bool s3_kutle_al  = ta.crossover(s3_tetikci_z, s3_celik_zemin)
bool s3_kutle_sat = ta.crossunder(s3_tetikci_z, s3_celik_zemin)

plotshape(is_sys3 and s3_kutle_al,  "S3 AL",  shape.triangleup,   location.belowbar, color=color.new(col_up, 50), size=size.large)
plotshape(is_sys3 and s3_kutle_sat, "S3 SAT", shape.triangledown, location.abovebar, color=color.new(col_dn, 50), size=size.large)

float s3_kin_z_y = f_kutu_kutle_z(hl2, 5, 2.5, 0.9)

[s3_s_mavi1, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.003, 0.003, 0.02)
[s3_s_mavi2, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.001, 0.001, 0.02)
[s3_s_mavi3, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.0005, 0.0005, 0.02)
float s3_mavi_kalkan = (s3_s_mavi1 + s3_s_mavi2 + s3_s_mavi3) / 3

[s3_s_sari1, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.01, 0.2)
[s3_s_sari2, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.02, 0.2)
[s3_s_sari3, _] = f_ozel_sar(s3_kin_z_y, s3_kin_z_y, 0.01, 0.03, 0.2)
float s3_sari_kalkan = (s3_s_sari1 + s3_s_sari2 + s3_s_sari3) / 3

plot(s3_mavi_kalkan, "S3 Mavi", color=hl2 > s3_mavi_kalkan ? col_up : col_dn, linewidth=1, display=is_sys3 ? display.all : display.none)
plot(s3_sari_kalkan, "S3 Sarı", color=hl2 > s3_sari_kalkan ? col_up : col_dn, linewidth=1, display=is_sys3 ? display.all : display.none)

plot(ta.sar(0.001, 0.0005, 0.02), "S3 Y", color.new(#040cfb, 0), 1, plot.style_cross, display=is_sys3 ? display.all : display.none)
plot(ta.sar(0.01, 0.03, 0.2), "S3 X", style=plot.style_cross, color=color.new(color.yellow, 0), linewidth=1, display=is_sys3 ? display.all : display.none)

[s3_sar_hizli, s3_trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float s3_ayna_hizli = s3_trend_hizli > 0 ? hl2 + math.abs(hl2 - s3_sar_hizli) : hl2 - math.abs(hl2 - s3_sar_hizli)
plot(s3_ayna_hizli, "S3 Aynası", color=s3_ayna_hizli > hl2 ? col_up : col_dn, style=plot.style_line, linewidth=1, display=is_sys3 ? display.all : display.none)


// =================================================================
//  SİSTEM 4: DAY TRADE
// =================================================================
string GRP4 = "4. DAY TRADE AYARLARI"
int   s4_atrLen    = input.int(5, "Kinetik Hafıza", group=GRP4)
float s4_atrMult   = input.float(2.5, "Gürültü Duvarı", step=0.1, group=GRP4)
float s4_mu        = input.float(0.9, "Yakınsaklık", step=0.1, group=GRP4)
string s4_symB     = input.symbol("BIST:XU100", "Kıyas Endeksi", group=GRP4)
int   s4_zLenFast  = input.int(55, "ZLEMA Hızlı", group=GRP4)
int   s4_zLenSlow  = input.int(233, "ZLEMA Yavaş", group=GRP4)

float s4_kin_z = f_kutu_kutle_z(hl2, s4_atrLen, s4_atrMult, s4_mu)
plot(s4_kin_z, "S4 Kütle", color=color.new(color.fuchsia, 0), style=plot.style_stepline, linewidth=1, display=is_sys4 ? display.all : display.none)

plot(ta.sar(0.01, 0.03, 0.2), "S4 X", style=plot.style_cross, color=color.new(color.yellow, 0), linewidth=1, display=is_sys4 ? display.all : display.none)

[s4_c2, s4_hl2_2] = request.security(s4_symB, timeframe.period, [close, hl2], lookahead=barmerge.lookahead_off)
float s4_rs_c = close / s4_c2
bool s4_isBullFast = s4_rs_c > f_zlema(hl2 / s4_hl2_2, s4_zLenFast)
bool s4_isBullSlow = s4_rs_c > f_zlema(hl2 / s4_hl2_2, s4_zLenSlow)
color s4_barCol = (s4_isBullFast and s4_isBullSlow) ? color.new(color.yellow,0) : (not s4_isBullFast and not s4_isBullSlow) ? color.new(color.fuchsia,0) : s4_isBullFast ? col_up : col_dn

float s4_tetikci_z = f_kutu_kutle_z(hl2, 50, 1.5, 0.9)
plot(s4_tetikci_z, "S4 TETİKÇİ", color=color.new(color.fuchsia, 0), linewidth=1, style=plot.style_stepline, display=is_sys4 ? display.all : display.none)

float s4_o377 = f_zlema(ta.median(hl2, 233), 610)
plot(s4_o377, "S4 Omurga 377", color=color.fuchsia, linewidth=1, display=is_sys4 ? display.all : display.none)

plotshape(is_sys4 and ta.crossover(s4_tetikci_z, s4_o377),  "S4 AL",  shape.triangleup,   location.belowbar, color=col_up, size=size.large)
plotshape(is_sys4 and ta.crossunder(s4_tetikci_z, s4_o377), "S4 SAT", shape.triangledown, location.abovebar, color=col_dn, size=size.large)


// =================================================================
//  SİSTEM 5: OTONOM TRADE
// =================================================================
string GRP5 = "5. OTONOM TRADE AYARLARI"
string s5_symB     = input.symbol("BIST:XU100", "Z-RS Kıyas Endeksi", group=GRP5)
string s5_hft_res  = input.timeframe("5", "Kurumsal MTF Çapası (Örn: 5m)", group=GRP5)

int   s5_atrLen    = input.int(10, "L1 Hafıza (ATR)", group=GRP5)
float s5_atrMult   = input.float(3.5, "L1 Gürültü Duvarı", step=0.1, group=GRP5)
float s5_mu        = input.float(0.6, "L1 Yakınsaklık (μ)", step=0.1, group=GRP5)

float s5_k_start = input.float(0.01, "Kral Başlangıç", step=0.01, group=GRP5)
float s5_k_inc   = input.float(0.02, "Kral İvme", step=0.01, group=GRP5)
float s5_k_max   = input.float(0.20, "Kral Max", step=0.01, group=GRP5)

[s5_hl2_idx] = request.security(s5_symB, timeframe.period, [hl2], lookahead=barmerge.lookahead_off)
float s5_z_rs4 = f_zlema(ta.median(hl2 / s5_hl2_idx, 8), 89) 
bool  s5_isRsBull = s5_z_rs4 > s5_z_rs4[1]
bool  s5_isRsBear = s5_z_rs4 < s5_z_rs4[1]

f_s5_hft_paket() =>
    [z, v]   = f_kutu_kutle(hl2, s5_atrLen, s5_atrMult, s5_mu)
    [cel, _] = f_kutu_kutle(hl2, 1, 0.01, 0.01)
    [z, v, cel, f_zlema(z, 5), f_zlema(z, 20)]

[s5_z_m, s5_v_m, s5_cel_m, s5_f_m, s5_s_m] = request.security(syminfo.tickerid, s5_hft_res, f_s5_hft_paket(), lookahead=barmerge.lookahead_off)
[s5_z_l, s5_v_l]   = f_kutu_kutle(hl2, s5_atrLen, s5_atrMult, s5_mu)
[s5_cel_l, _]      = f_kutu_kutle(hl2, 1, 0.01, 0.01)

float s5_kin_z = na(s5_z_m) ? s5_z_l : s5_z_m
float s5_celik = na(s5_cel_m) ? s5_cel_l : s5_cel_m
plot(s5_celik, "S5 İZ STOP", color=color.new(#d500f9, 0), linewidth=1, style=plot.style_stepline, display=is_sys5 ? display.all : display.none)

[s5_sar_hizli, s5_trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float s5_ayna_hizli = s5_trend_hizli > 0 ? hl2 + math.abs(hl2 - s5_sar_hizli) : hl2 - math.abs(hl2 - s5_sar_hizli)

var float[] s5_fibs = array.from(1.0, 2.0, 3.0, 5.0, 8.0, 13.0, 21.0, 34.0, 55.0)
var s5_states = array.new<SARState>()
if barstate.isfirst
    for i = 0 to 8
        s5_states.push(SARState.new(na, na, s5_k_start, false, 0, 0, false))

float s5_gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    SARState s = s5_states.get(i)
    s.f_updateState(s5_kin_z, s5_k_start, s5_k_inc, s5_k_max, s5_fibs.get(i), s5_gercek_oynaklik)

var int s5_king_idx = 8 
int s5_new_king = -1
for i = 0 to 8
    if s5_states.get(i).bounce_count >= 2
        s5_new_king := i
        break 
if s5_new_king != -1
    s5_king_idx := s5_new_king 

float s5_kral_sar = s5_states.get(s5_king_idx).sar_value
bool  s5_kral_yon = s5_states.get(s5_king_idx).isLong
float s5_kral_ayna = s5_kral_yon ? hl2 + math.abs(hl2 - s5_kral_sar) : hl2 - math.abs(hl2 - s5_kral_sar)

plot(s5_kral_sar, "S5 KSAR", color=s5_kral_yon ? col_up : col_dn, style=plot.style_line, linewidth=2, display=is_sys5 ? display.all : display.none)

bool s5_isBullTrigger = (s5_kral_ayna > hl2) and s5_isRsBull
bool s5_isBearTrigger = (s5_kral_ayna < hl2) and s5_isRsBear

float s5_roSar1 = ta.sar(0.03, 0.003, 0.3)
bool  s5_trigger = (math.abs(s5_roSar1 - ta.sar(0.05, 0.005, 0.5)) <= syminfo.mintick) and (math.abs(s5_roSar1 - ta.sar(0.10, 0.010, 1.0)) <= syminfo.mintick) and not ((math.abs(s5_roSar1[1] - ta.sar(0.05, 0.005, 0.5)[1]) <= syminfo.mintick) and (math.abs(s5_roSar1[1] - ta.sar(0.10, 0.010, 1.0)[1]) <= syminfo.mintick))
plotshape(is_sys5 and s5_trigger ? s5_roSar1 : na, "S5 3'lü SAR", shape.diamond, location.absolute, color=(hl2 > s5_roSar1) ? color.new(#00e676, 70) : color.new(#ff1744, 70), size=size.large)


// =================================================================
//  ORTAK BAR RENKLENDİRME
// =================================================================
color final_bar_col = na
if is_sys1
    final_bar_col := s1_trend == 1 ? color.new(col_up, 0) : color.new(col_dn, 0)
else if is_sys2
    final_bar_col := s2_k50_long ? color.new(col_up, 50) : color.new(col_dn, 50)
else if is_sys3
    final_bar_col := s3_tetikci_z > s3_tetikci_z[1] ? color.new(col_up, 0) : color.new(col_dn, 0)
else if is_sys4
    final_bar_col := s4_barCol
else if is_sys5
    final_bar_col := s5_isBullTrigger ? col_up : s5_isBearTrigger ? col_dn : col_gri

barcolor(final_bar_col)


// =================================================================
//  MÜŞTEREK MASTER DASHBOARD (ORTAK TABLO)
// =================================================================
var table master_dash = table.new(position.bottom_right, 3, 8, bgcolor=color.new(#131722, 20), border_width=1, border_color=color.new(#363a45, 50))

if barstate.islast
    // Başlık Satırı
    table.cell(master_dash, 0, 0, "SİSTEM", text_color=color.white, text_size=size.small, bgcolor=color.new(#2962ff, 50))
    table.cell(master_dash, 1, 0, "DEĞER",  text_color=color.white, text_size=size.small, bgcolor=color.new(#2962ff, 50))
    table.cell(master_dash, 2, 0, "SONUÇ",  text_color=color.white, text_size=size.small, bgcolor=color.new(#2962ff, 50))

    // Sistem 1 (Durum Güncellemesi ile)
    color s1_bg = is_sys1 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    string s1_status_txt = s1_trade_dir == 1 ? "AL (AKTİF)" : s1_trade_dir == -1 ? "SAT (AKTİF)" : s1_trend == 1 ? "AL (BEKLİYOR)" : "SAT (BEKLİYOR)"
    color s1_status_col  = s1_trade_dir == 1 or (s1_trade_dir == 0 and s1_trend == 1) ? col_up : col_dn
    
    table.cell(master_dash, 0, 1, is_sys1 ? "► Scalping Trade" : "Scalping Trade", text_color=color.white, text_size=size.small, text_halign=text.align_left, bgcolor=s1_bg)
    table.cell(master_dash, 1, 1, str.tostring(s1_k_sar, format.mintick), text_color=color.silver, text_size=size.small, bgcolor=s1_bg)
    table.cell(master_dash, 2, 1, s1_status_txt, text_color=s1_status_col, text_size=size.small, bgcolor=s1_bg)

    // Sistem 2
    color s2_bg = is_sys2 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 2, is_sys2 ? "► Swing Trade" : "Swing Trade", text_color=color.white, text_size=size.small, text_halign=text.align_left, bgcolor=s2_bg)
    table.cell(master_dash, 1, 2, str.tostring(s2_k50_val, format.mintick), text_color=color.silver, text_size=size.small, bgcolor=s2_bg)
    table.cell(master_dash, 2, 2, s2_k50_long ? "AL" : "SAT", text_color=s2_k50_long ? col_up : col_dn, text_size=size.small, bgcolor=s2_bg)

    // Sistem 3
    color s3_bg = is_sys3 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 3, is_sys3 ? "► Scalp + Swing" : "Scalp + Swing", text_color=color.white, text_size=size.small, text_halign=text.align_left, bgcolor=s3_bg)
    table.cell(master_dash, 1, 3, str.tostring(s3_tetikci_z, format.mintick), text_color=color.silver, text_size=size.small, bgcolor=s3_bg)
    table.cell(master_dash, 2, 3, s3_tetikci_z > s3_celik_zemin ? "AL" : "SAT", text_color=s3_tetikci_z > s3_celik_zemin ? col_up : col_dn, text_size=size.small, bgcolor=s3_bg)

    // Sistem 4
    color s4_bg = is_sys4 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 4, is_sys4 ? "► Day Trade" : "Day Trade", text_color=color.white, text_size=size.small, text_halign=text.align_left, bgcolor=s4_bg)
    table.cell(master_dash, 1, 4, str.tostring(s4_tetikci_z, format.mintick), text_color=color.silver, text_size=size.small, bgcolor=s4_bg)
    table.cell(master_dash, 2, 4, s4_tetikci_z > s4_o377 ? "AL" : "SAT", text_color=s4_tetikci_z > s4_o377 ? col_up : col_dn, text_size=size.small, bgcolor=s4_bg)

    // Sistem 5
    color s5_bg = is_sys5 ? color.new(#2962ff, 80) : color.new(#131722, 10)
    table.cell(master_dash, 0, 5, is_sys5 ? "► Otonom Trade" : "Otonom Trade", text_color=color.white, text_size=size.small, text_halign=text.align_left, bgcolor=s5_bg)
    table.cell(master_dash, 1, 5, str.tostring(s5_kral_sar, format.mintick), text_color=color.silver, text_size=size.small, bgcolor=s5_bg)
    table.cell(master_dash, 2, 5, s5_kral_yon ? "AL" : "SAT", text_color=s5_kral_yon ? col_up : col_dn, text_size=size.small, bgcolor=s5_bg)

    // İmza (Sabit Alt Kısım)
    table.cell(master_dash, 0, 6, "Gemini Pro Eğitim Çalışmasıdır. Yatırım tavsiyesi olarak KULLANILAMAZ. @yörük@", text_color=color.new(color.white, 30), text_size=size.tiny, bgcolor=color.new(#000000, 50))
    table.merge_cells(master_dash, 0, 6, 2, 6) 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM V7 MATRIX ULTIMATE (Kanal İçi Otonom OTE Fib + Radarlar)
//@version=6
indicator(".", overlay=true, max_lines_count=500, max_boxes_count=500, max_labels_count=500)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR VE ZIRH EKLENTİLERİ
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar_ep(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, ep]

f_adaptif_ema(src, dyn_len) =>
    var float ema_val = na
    float alpha = 2.0 / (dyn_len + 1.0)
    ema_val := na(ema_val[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(ema_val[1]))
    ema_val

// Komutanın Emri: Frama ve Kutu Fonksiyonları Eklendi
f_tam_otonom_kutu(series float src, series float _dynAtr, series float _dynMult, series float _dynMu) =>
    float threshold = _dynAtr * _dynMult
    var float z = na
    var float v = 0.0
    float zPrev = na(z[1]) ? src : z[1]
    float vPrev = v[1]
    float zPred = zPrev + vPrev
    float zTemp = zPred + _dynMu * (src - zPred)
    float diff = zTemp - zPrev
    v := math.abs(diff) > threshold ? math.sign(diff) * (math.abs(diff) - threshold) : 0.0
    z := zPrev + v
    z

f_otonom_frama(src, series int len) =>
    var float filt = na
    int safe_len = math.max(2, nz(len, 3)) 
    int n1 = math.max(1, math.floor(safe_len / 2))
    int n2 = math.max(1, safe_len - n1)
    float hh1 = ta.highest(high, n1)
    float ll1 = ta.lowest(low, n1)
    float hh2 = ta.highest(high[n1], n2)
    float ll2 = ta.lowest(low[n1], n2)
    float hh3 = ta.highest(high, safe_len)
    float ll3 = ta.lowest(low, safe_len)
    float n1_range = (hh1 - ll1) / n1
    float n2_range = (hh2 - ll2) / n2
    float n3_range = (hh3 - ll3) / safe_len
    float D = 0.0
    if (n1_range > 0 and n2_range > 0 and n3_range > 0)
        D := (math.log(n1_range + n2_range) - math.log(n3_range)) / math.log(2)
    float alpha = math.exp(-4.6 * (nz(D) - 1))
    alpha := math.max(0.01, math.min(1.0, alpha))
    filt := na(filt[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(filt[1]))
    filt

// ═════════════════════════════════════════════════════════════════════════
//  2. ÖZGÜR AYNA VE META-SAR (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 3), 0.0001)
float min_vol = nz(ta.lowest(ham_volatilite, 3), 0.0)
float vol_orani = (max_vol == min_vol) ? 0.0 : ((ham_volatilite - min_vol) / (max_vol - min_vol))

float ayna_start = 0.0 + (vol_orani * 0.08) 
float ayna_inc   = 0.001 + (vol_orani * 0.08) 
float ayna_max   = 0.10 + (vol_orani * 0.30) 
[ayna_sar, ayna_trend, ayna_ep] = f_ozel_sar_ep(high, low, ayna_start, ayna_inc, ayna_max)
float ayna = ayna_trend > 0 ? hl2 + math.abs(hl2 - ayna_sar) : hl2 - math.abs(hl2 - ayna_sar)

float ayna_ivme_genel = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = nz(ta.highest(ayna_ivme_genel, 3), 0.0001)
float min_ivme  = nz(ta.lowest(ayna_ivme_genel, 3), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme_genel - min_ivme) / (max_ivme - min_ivme))

float ayna_h = math.max(ayna, nz(ayna[1], ayna))
float ayna_l = math.min(ayna, nz(ayna[1], ayna))
float oto_start = 0.0 + (ivme_orani * 0.004) 
float oto_inc   = 0.001 + (ivme_orani * 0.004) 
float oto_max   = 0.15 + (ivme_orani * 0.15) 
[meta_sar, meta_trend, meta_ep] = f_ozel_sar_ep(ayna_h, ayna_l, oto_start, oto_inc, oto_max)

color sar_renk = meta_trend > 0 ? color.lime : color.red
plot(meta_sar, "@", color=sar_renk, linewidth=1, style=plot.style_line)

// ═════════════════════════════════════════════════════════════════════════
//  3. ANA TREND FİLTRESİ VE OMURGA HAFIZASI (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
var ep_kasa = array.new_float(3, hl2)
if meta_trend != meta_trend[1]
    array.unshift(ep_kasa, meta_ep[1])
    array.pop(ep_kasa)

int dinamik_uzunluk = math.max(1, math.min(3, math.floor(1.0 - (ivme_orani * 3.0))))
float ham_medyan = array.median(array.slice(ep_kasa, 0, dinamik_uzunluk))
ham_medyan := na(ham_medyan) ? hl2 : ham_medyan

float ema1 = f_adaptif_ema(ham_medyan, dinamik_uzunluk)
float ema2 = f_adaptif_ema(ema1, dinamik_uzunluk)
float omurga = ema1 + (ema1 - ema2)

var int omurga_yon = 1
var float o_tepe = hl2, var float o_dip = hl2
var float c_high = hl2, var float c_low = hl2

if omurga > nz(omurga[1], omurga)
    if omurga_yon == -1
        o_dip := c_low
        c_high := omurga
    omurga_yon := 1
else if omurga < nz(omurga[1], omurga)
    if omurga_yon == 1
        o_tepe := c_high
        c_low := omurga
    omurga_yon := -1

if omurga_yon == 1
    c_high := math.max(c_high, omurga)
else if omurga_yon == -1
    c_low := math.min(c_low, omurga)

float macro_dip = omurga_yon == -1 ? c_low : o_dip
float macro_tepe = omurga_yon == 1 ? c_high : o_tepe

color omurga_renk = omurga_yon == 1 ? color.fuchsia : color.yellow
//plot(omurga, "0", color=omurga_renk, linewidth=1, style=plot.style_stepline)

// ═════════════════════════════════════════════════════════════════════════

float mikro_frama = f_otonom_frama(hl2, 2)
float dinamik_atr = ta.atr(10)
float kutu_zemin = f_tam_otonom_kutu(mikro_frama, dinamik_atr, 0.2, 0.1) 

var int kutu_yon = 1
kutu_yon := kutu_zemin > nz(kutu_zemin[1], kutu_zemin) ? 1 : kutu_zemin < nz(kutu_zemin[1], kutu_zemin) ? -1 : nz(kutu_yon[1], 1)
// Eklenen Mikro Kutu Zemini Çizimi
color kutu_r = kutu_yon == 1 ? color.lime : color.red
plot(kutu_zemin, "1", color=kutu_r, linewidth=1, style=plot.style_stepline)
// ═════════════════════════════════════════════════════════════════════════


//  4. SAF GÜÇ STRATEJİSİ (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
bool long_sart  = (hl2 > omurga) and (hl2 > meta_sar)
bool short_sart = (hl2 < omurga) and (hl2 < meta_sar)

var int aktif_islem = 0
bool taktik_al = false
bool taktik_sat = false

if long_sart and aktif_islem != 1
    taktik_al := true
    aktif_islem := 1

if short_sart and aktif_islem != -1
    taktik_sat := true
    aktif_islem := -1

// ═════════════════════════════════════════════════════════════════════════
//  5. OTONOM KANAL KUTULARI VE SARI OTE (Değiştirilmedi)
// ═════════════════════════════════════════════════════════════════════════
var box b_tp = na, var box b_sl = na
var label l_tp = na, var label l_sl = na, var label l_en = na
var line l_f50 = na, var line l_f61 = na, var line l_f78 = na
var label lb_f50 = na, var label lb_f61 = na, var label lb_f78 = na
var float entry_p = na, var float tp_p = na, var float sl_p = na

if not na(b_tp)
    box.set_right(b_tp, bar_index + 3), box.set_right(b_sl, bar_index + 3)
    label.set_x(l_tp, bar_index + 3), label.set_x(l_sl, bar_index + 3), label.set_x(l_en, bar_index + 3)
    line.set_x2(l_f50, bar_index + 3), line.set_x2(l_f61, bar_index + 3), line.set_x2(l_f78, bar_index + 3)
    label.set_x(lb_f50, bar_index + 3), label.set_x(lb_f61, bar_index + 3), label.set_x(lb_f78, bar_index + 3)

if taktik_al or taktik_sat
    box.delete(b_tp), box.delete(b_sl)
    label.delete(l_tp), label.delete(l_sl), label.delete(l_en)
    line.delete(l_f50), line.delete(l_f61), line.delete(l_f78)
    label.delete(lb_f50), label.delete(lb_f61), label.delete(lb_f78)
    
    entry_p := hl2
    sl_p := taktik_al ? macro_dip : macro_tepe
    tp_p := taktik_al ? o_tepe    : o_dip
    
    tp_p := taktik_al ? math.max(tp_p, entry_p + (entry_p * 0.001)) : math.min(tp_p, entry_p - (entry_p * 0.001))
    sl_p := taktik_al ? math.min(sl_p, entry_p - (entry_p * 0.001)) : math.max(sl_p, entry_p + (entry_p * 0.001))
    
    float dalga_boyu = math.abs(tp_p - sl_p)
    float f50_p = taktik_al ? sl_p + (dalga_boyu * 0.500) : sl_p - (dalga_boyu * 0.500)
    float f61_p = taktik_al ? sl_p + (dalga_boyu * 0.618) : sl_p - (dalga_boyu * 0.618)
    float f78_p = taktik_al ? sl_p + (dalga_boyu * 0.786) : sl_p - (dalga_boyu * 0.786)

    color c_tp = taktik_al ? color.new(color.lime, 95) : color.new(color.aqua, 95)
    color c_border = taktik_al ? color.rgb(0, 230, 119, 00) : color.rgb(0, 187, 212, 00)
    
    b_tp := box.new(bar_index, taktik_al ? tp_p : entry_p, bar_index + 3, taktik_al ? entry_p : tp_p, bgcolor=c_tp, border_color=c_border)
    b_sl := box.new(bar_index, taktik_al ? entry_p : sl_p, bar_index + 3, taktik_al ? sl_p : entry_p, bgcolor=color.new(color.red, 95), border_color=color.red)
    
    l_tp := label.new(bar_index + 3, tp_p, "TP: " + str.tostring(tp_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=c_border, size=size.small)
    l_sl := label.new(bar_index + 3, sl_p, "SL: " + str.tostring(sl_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.red, size=size.small)
    l_en := label.new(bar_index + 3, entry_p, "@: " + str.tostring(entry_p, format.mintick), style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.white, size=size.small)

    l_f50 := line.new(bar_index, f50_p, bar_index + 3, f50_p, color=color.yellow, width=1, style=line.style_dashed)
    l_f61 := line.new(bar_index, f61_p, bar_index + 3, f61_p, color=color.yellow, width=1, style=line.style_dashed)
    l_f78 := line.new(bar_index, f78_p, bar_index + 3, f78_p, color=color.yellow, width=1, style=line.style_dashed)

    lb_f50 := label.new(bar_index + 5, f50_p, "0", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f61 := label.new(bar_index + 5, f61_p, "1", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)
    lb_f78 := label.new(bar_index + 5, f78_p, "2", style=label.style_label_left, color=color.new(color.black, 100), textcolor=color.yellow, size=size.small)

// ═════════════════════════════════════════════════════════════════════════ 

// © Kinetik Komuta Merkezi - KKM V7.1 (Saf Frama Zemin Radarı)
//@version=6
indicator("Karargah V7.1 - Saf Zemin", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR (Sadece Frama ve Kutu için bırakıldı)
// ═════════════════════════════════════════════════════════════════════════
f_tam_otonom_kutu(series float src, series float _dynAtr, series float _dynMult, series float _dynMu) =>
    float threshold = _dynAtr * _dynMult
    var float z = na
    var float v = 0.0
    float zPrev = na(z[1]) ? src : z[1]
    float vPrev = v[1]
    float zPred = zPrev + vPrev
    float zTemp = zPred + _dynMu * (src - zPred)
    float diff = zTemp - zPrev
    v := math.abs(diff) > threshold ? math.sign(diff) * (math.abs(diff) - threshold) : 0.0
    z := zPrev + v
    z

f_otonom_frama(src, series int len) =>
    var float filt = na
    int safe_len = math.max(2, nz(len, 3)) 
    int n1 = math.max(1, math.floor(safe_len / 2))
    int n2 = math.max(1, safe_len - n1)
    float hh1 = ta.highest(high, n1)
    float ll1 = ta.lowest(low, n1)
    float hh2 = ta.highest(high[n1], n2)
    float ll2 = ta.lowest(low[n1], n2)
    float hh3 = ta.highest(high, safe_len)
    float ll3 = ta.lowest(low, safe_len)
    float n1_range = (hh1 - ll1) / n1
    float n2_range = (hh2 - ll2) / n2
    float n3_range = (hh3 - ll3) / safe_len
    float D = 0.0
    if (n1_range > 0 and n2_range > 0 and n3_range > 0)
        D := (math.log(n1_range + n2_range) - math.log(n3_range)) / math.log(2)
    float alpha = math.exp(-4.6 * (nz(D) - 1))
    alpha := math.max(0.01, math.min(1.0, alpha))
    filt := na(filt[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(filt[1]))
    filt

// ═════════════════════════════════════════════════════════════════════════
//  2. MİKRO FRAMA HESAPLAMASI
// ═════════════════════════════════════════════════════════════════════════
float mikro_frama = f_otonom_frama(hl2, 2)
float dinamik_atr = ta.atr(100)
float kutu_zemin = f_tam_otonom_kutu(mikro_frama, dinamik_atr, 0.2, 0.1) 

var int kutu_yon = 1
kutu_yon := kutu_zemin > nz(kutu_zemin[1], kutu_zemin) ? 1 : kutu_zemin < nz(kutu_zemin[1], kutu_zemin) ? -1 : nz(kutu_yon[1], 1)

// ═════════════════════════════════════════════════════════════════════════
//  3. GÖRSELLEŞTİRME (Çizgi İptal -> Arka Plan Rengi)
// ═════════════════════════════════════════════════════════════════════════
// Renkleri şeffaf (90) ayarladım ki mumları ve diğer analizlerini kapatmasın.
color zemin_renk = kutu_yon == 1 ? color.new(color.lime, 90) : color.new(color.red, 90)

bgcolor(zemin_renk, title="Mikro Zemin Arka Plan") 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM V21.2 (Sıfır Çakışma - Birleşik HUD Radarı)
//@version=6
indicator(".", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK MOTORLAR
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar_ep(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, ep]

f_kuantum_lrb_dinamik(src, base_decay, smooth, max_atr_dist, evrensel_ivme) =>
    var float hh = na, var float ll = na
    float pre_hh = nz(hh[1], src), float pre_ll = nz(ll[1], src)
    
    float atr_gucu = nz(ta.atr(14), ta.tr)
    float decay_mult = 2.0 - (evrensel_ivme * 1.5)
    float cur_decay = atr_gucu * base_decay * decay_mult
    float decay_sma = ta.sma(cur_decay, smooth) 
    
    float temp_hh = src >= pre_hh ? src : pre_hh - decay_sma
    float temp_ll = src <= pre_ll ? src : pre_ll + decay_sma
    
    float max_mesafe = atr_gucu * max_atr_dist
    hh := math.min(temp_hh, src + max_mesafe) 
    ll := math.max(temp_ll, src - max_mesafe) 
    
    float mid = math.avg(hh, ll)
    [hh, ll, mid]

// ═════════════════════════════════════════════════════════════════════════
//  2. DNA & RADAR HESAPLAMALARI
// ═════════════════════════════════════════════════════════════════════════
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 3), 0.0001), float min_vol = nz(ta.lowest(ham_volatilite, 3), 0.0)
float vol_orani = (max_vol == min_vol) ? 0.0 : ((ham_volatilite - min_vol) / (max_vol - min_vol))

[ayna_sar, ayna_trend, ayna_ep] = f_ozel_sar_ep(high, low, 0.0 + (vol_orani * 0.08), 0.001 + (vol_orani * 0.08), 0.10 + (vol_orani * 0.30))
float ayna = ayna_trend > 0 ? hl2 + math.abs(hl2 - ayna_sar) : hl2 - math.abs(hl2 - ayna_sar)

float ayna_ivme = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme = nz(ta.highest(ayna_ivme, 3), 0.001), float min_ivme = nz(ta.lowest(ayna_ivme, 3), 0.0)
float evrensel_ivme = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme - min_ivme) / (max_ivme - min_ivme))

[ayna_hh, ayna_ll, ayna_mid] = f_kuantum_lrb_dinamik(ayna, 0.10, 4, 4.0, evrensel_ivme)
[macro_hh, macro_ll, macro_mid] = f_kuantum_lrb_dinamik(hl2, 0.05, 8, 6.0, evrensel_ivme)

// ═════════════════════════════════════════════════════════════════════════
//  3. AYNA SALINIM (SWING) HAFIZASI
// ═════════════════════════════════════════════════════════════════════════
var float ayna_tepe = na
var float ayna_dip = na

bool ayna_peak = ayna[1] > ayna[2] and ayna[1] > ayna
bool ayna_bottom = ayna[1] < ayna[2] and ayna[1] < ayna

if ayna_peak
    ayna_tepe := ayna[1]
if ayna_bottom
    ayna_dip := ayna[1]

// ═════════════════════════════════════════════════════════════════════════
//  4. EKRAN ÇİZİMLERİ (SADECE SAF RADAR HATLARI)
// ═════════════════════════════════════════════════════════════════════════
plot(ayna, "Ayna", color=color.new(color.yellow, 0), linewidth=1, style=plot.style_stepline)
plot(ayna_hh, "(Tepe)", color=color.new(color.red, 20), linewidth=1, style=plot.style_stepline)
plot(ayna_ll, "(Dip)", color=color.new(color.lime, 20), linewidth=1, style=plot.style_stepline)

plot(macro_hh, "Tavan", color=color.new(#ff9800, 40), linewidth=1)
plot(macro_ll, "Taban", color=color.new(#ff9800, 40), linewidth=1)

// ═════════════════════════════════════════════════════════════════════════
//  5. BİRLEŞİK HUD YÖNETİMİ (SIFIR ÇAKIŞMA)
// ═════════════════════════════════════════════════════════════════════════
var label lbl_tepe = label.new(na, na, "", style=label.style_label_left, color=color.new(color.black, 100))
var label lbl_dip  = label.new(na, na, "", style=label.style_label_left, color=color.new(color.black, 100))

if barstate.islast
    // Ayna Sınır Değerleri Kontrolü
    string txt_tepe = "Tepe: "
    float val_tepe = ayna_tepe
    color col_tepe = color.new(color.red, 0)
    
    string txt_dip = "Dip: "
    float val_dip = ayna_dip
    color col_dip = color.new(color.lime, 0)
    
    if not na(ayna_tepe) and ayna > ayna_tepe
        txt_tepe := "YENİ TEPE: "
        val_tepe := ayna
        col_tepe := color.new(color.orange, 0)
        
    if not na(ayna_dip) and ayna < ayna_dip
        txt_dip := "YENİ DİP: "
        val_dip := ayna
        col_dip := color.new(color.orange, 0)

    // Çakışmayı bitiren ana hamle: Tüm verileri tek bir metin dizesinde birleştir!
    string final_tepe = txt_tepe + str.tostring(val_tepe, format.mintick) + "   [ Tavan: " + str.tostring(macro_hh, format.mintick) + " ]"
    string final_dip  = txt_dip  + str.tostring(val_dip, format.mintick)  + "   [ Taban: " + str.tostring(macro_ll, format.mintick) + " ]"

    // HUD Güncelleme
    if not na(val_tepe)
        label.set_xy(lbl_tepe, bar_index + 3, val_tepe)
        label.set_text(lbl_tepe, final_tepe)
        label.set_textcolor(lbl_tepe, col_tepe)
        
    if not na(val_dip)
        label.set_xy(lbl_dip, bar_index + 3, val_dip)
        label.set_text(lbl_dip, final_dip)
        label.set_textcolor(lbl_dip, col_dip)
/////////////////////////////
// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR VE ZIRH EKLENTİLERİ
// ═════════════════════════════════════════════════════════════════════════

f_adaptif_ema(src, dyn_len) =>
    var float ema_val = na
    float alpha = 2.0 / (dyn_len + 1.0)
    ema_val := na(ema_val[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(ema_val[1]))
    ema_val

// Komutanın Emri: Frama ve Kutu Fonksiyonları Eklendi
f_tam_otonom_kutu(series float src, series float _dynAtr, series float _dynMult, series float _dynMu) =>
    float threshold = _dynAtr * _dynMult
    var float z = na
    var float v = 0.0
    float zPrev = na(z[1]) ? src : z[1]
    float vPrev = v[1]
    float zPred = zPrev + vPrev
    float zTemp = zPred + _dynMu * (src - zPred)
    float diff = zTemp - zPrev
    v := math.abs(diff) > threshold ? math.sign(diff) * (math.abs(diff) - threshold) : 0.0
    z := zPrev + v
    z

f_otonom_frama(src, series int len) =>
    var float filt = na
    int safe_len = math.max(2, nz(len, 3)) 
    int n1 = math.max(1, math.floor(safe_len / 2))
    int n2 = math.max(1, safe_len - n1)
    float hh1 = ta.highest(high, n1)
    float ll1 = ta.lowest(low, n1)
    float hh2 = ta.highest(high[n1], n2)
    float ll2 = ta.lowest(low[n1], n2)
    float hh3 = ta.highest(high, safe_len)
    float ll3 = ta.lowest(low, safe_len)
    float n1_range = (hh1 - ll1) / n1
    float n2_range = (hh2 - ll2) / n2
    float n3_range = (hh3 - ll3) / safe_len
    float D = 0.0
    if (n1_range > 0 and n2_range > 0 and n3_range > 0)
        D := (math.log(n1_range + n2_range) - math.log(n3_range)) / math.log(2)
    float alpha = math.exp(-4.6 * (nz(D) - 1))
    alpha := math.max(0.01, math.min(1.0, alpha))
    filt := na(filt[1]) ? src : (alpha * src) + ((1.0 - alpha) * nz(filt[1]))
    filt

// ═════════════════════════════════════════════════════════════════════════

//  6. YENİ EKLENTİ: MİKRO FRAMA KUTU ZEMİNİ
// ═════════════════════════════════════════════════════════════════════════
float mikro_frama = f_otonom_frama(hl2, 2)
float dinamik_atr = ta.atr(10)
float kutu_zemin = f_tam_otonom_kutu(mikro_frama, dinamik_atr, 0.2, 0.1) 

var int kutu_yon = 1
kutu_yon := kutu_zemin > nz(kutu_zemin[1], kutu_zemin) ? 1 : kutu_zemin < nz(kutu_zemin[1], kutu_zemin) ? -1 : nz(kutu_yon[1], 1)



// Eklenen Mikro Kutu Zemini Çizimi
color kutu_r = kutu_yon == 1 ? color.lime : color.red
plot(kutu_zemin, "Trend", color=kutu_r, linewidth=1, style=plot.style_stepline)
///////////

float mikro_frama1 = f_otonom_frama(hl2, 2)
float dinamik_atr1 = ta.atr(100)
float kutu_zemin1 = f_tam_otonom_kutu(mikro_frama1, dinamik_atr1, 0.2, 0.1) 

var int kutu_yon1 = 1
kutu_yon1 := kutu_zemin1 > nz(kutu_zemin1[1], kutu_zemin1) ? 1 : kutu_zemin1 < nz(kutu_zemin1[1], kutu_zemin1) ? -1 : nz(kutu_yon1[1], 1)

// ═════════════════════════════════════════════════════════════════════════
//  3. GÖRSELLEŞTİRME (Çizgi İptal -> Arka Plan Rengi)
// ═════════════════════════════════════════════════════════════════════════
// Renkleri şeffaf (90) ayarladım ki mumları ve diğer analizlerini kapatmasın.
color zemin_renk1 = kutu_yon1 == 1 ? color.new(color.lime, 90) : color.new(color.red, 90)

bgcolor(zemin_renk1, title="Mikro Zemin Arka Plan")