@yörük@’ün Heybesinden

[@yörük@]

// © Kinetik Komuta Merkezi - KKM Master Hub (V5 Ultimate - Tablo Optimizasyonu)
//@version=6
indicator("KKM Master Hub - V5 Ultimate", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  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_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, 55)) 
    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 
// ═════════════════════════════════════════════════════════════════════════
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 50), 0.0001)
float min_vol = nz(ta.lowest(ham_volatilite, 50), 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, 21), 0.0001)
float min_ivme  = nz(ta.lowest(ayna_ivme_genel, 21), 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İ: OTONOM MELEZ OMURGA
// ═════════════════════════════════════════════════════════════════════════
var ep_kasa = array.new_float(21, hl2)
if meta_trend != meta_trend[1]
    array.unshift(ep_kasa, meta_ep[1])
    array.pop(ep_kasa)

int dinamik_uzunluk = math.max(5, math.min(21, math.floor(21.0 - (ivme_orani * 16.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)

// ═════════════════════════════════════════════════════════════════════════
//  4. OTONOM SAVAŞ ALANI ÖLÇÜLERİ (HUD TABLO SİSTEMİ)
// ═════════════════════════════════════════════════════════════════════════
var float ath = 0.0
var float atl = 9999999.0

ath := math.max(ath, hl2)
atl := math.min(atl, hl2)

float mid = (ath + atl) / 2
float tp_85 = ath - (ath - atl) * 0.15

// Sağ Üst Köşeye Sabit Taktiksel Tablo
var table hud_table = table.new(position.top_right, columns = 2, rows = 4, bgcolor = color.rgb(15, 23, 42, 40), border_width = 1, border_color = color.rgb(51, 65, 85, 50))

if barstate.islast
    // ZİRVE
    table.cell(hud_table, 0, 0, "ZİRVE (ATH)", text_color = color.gray, text_halign = text.align_left, text_size = size.small)
    table.cell(hud_table, 1, 0, str.tostring(ath, format.mintick), text_color = color.lime, text_halign = text.align_right, text_size = size.small)
    // TP / DİRENÇ
    table.cell(hud_table, 0, 1, "TP / DİRENÇ", text_color = color.gray, text_halign = text.align_left, text_size = size.small)
    table.cell(hud_table, 1, 1, str.tostring(tp_85, format.mintick), text_color = color.aqua, text_halign = text.align_right, text_size = size.small)
    // MEDYAN
    table.cell(hud_table, 0, 2, "MEDYAN", text_color = color.gray, text_halign = text.align_left, text_size = size.small)
    table.cell(hud_table, 1, 2, str.tostring(mid, format.mintick), text_color = color.yellow, text_halign = text.align_right, text_size = size.small)
    // DİP
    table.cell(hud_table, 0, 3, "DİP (ATL)", text_color = color.gray, text_halign = text.align_left, text_size = size.small)
    table.cell(hud_table, 1, 3, str.tostring(atl, format.mintick), text_color = color.red, text_halign = text.align_right, text_size = size.small)

// ═════════════════════════════════════════════════════════════════════════
//  5. GİZLİ DUVARLAR VE KONSENSÜS SİNYALİ
// ═════════════════════════════════════════════════════════════════════════
float zlema_gerilim = math.abs(hl2 - ayna)
float max_g = nz(ta.highest(zlema_gerilim, 21), 0.0001)
float min_g = nz(ta.lowest(zlema_gerilim, 21), 0.0)
float g_orani = (max_g == min_g) ? 0.0 : ((zlema_gerilim - min_g) / (max_g - min_g))
float zlema_len = 21.0 - (g_orani * 16.0) 
float a_ema1 = f_adaptif_ema(hl2, zlema_len)
float a_ema2 = f_adaptif_ema(a_ema1, zlema_len)
float gizli_zlema = a_ema1 + (a_ema1 - a_ema2)

float zemin_uzunluk = 21.0 - (ivme_orani * 16.0)
float zemin_carpan  = 2.0 - (ivme_orani * 1.9)
float zemin_mu = 0.9 - (ivme_orani * 0.8)
float otonom_atr = f_adaptif_ema(ta.tr(true), zemin_uzunluk)
float gizli_zemin = f_tam_otonom_kutu(ayna, otonom_atr, zemin_carpan, zemin_mu)

int frama_uzunluk = math.max(21, math.min(55, nz(math.floor(55.0 - (ivme_orani * 34.0)), 55)))
float gizli_frama = f_otonom_frama(ayna, frama_uzunluk)

bool bull = (ayna > gizli_zlema) and (ayna > gizli_zemin) and (ayna > gizli_frama) and (ayna > meta_sar) and (ayna > omurga)
bool bear = (ayna < gizli_zlema) and (ayna < gizli_zemin) and (ayna < gizli_frama) and (ayna < meta_sar) and (ayna < omurga)

var int state = 0
bool al = bull and state != 1
bool sat = bear and state != -1

if al
    state := 1
if sat
    state := -1

// ═════════════════════════════════════════════════════════════════════════
//  6. GÖRSEL EKRAN
// ═════════════════════════════════════════════════════════════════════════
color ayna_renk = ayna > hl2 ? color.lime : color.red
plot(ayna, "Özgür Ayna", color=ayna_renk, linewidth=2, style=plot.style_line)

color sar_renk = meta_trend > 0 ? color.new(color.lime, 0) : color.new(color.red, 0)
plot(meta_sar, "Meta-SAR", color=sar_renk, linewidth=2, style=plot.style_cross)

plot(omurga, "Otonom Melez Omurga", color=color.yellow, linewidth=3, style=plot.style_line)

plotchar(al, "KONSENSÜS AL", "▲", location.belowbar, color.lime, size=size.small)
plotchar(sat, "KONSENSÜS SAT", "▼", location.abovebar, color.red, size=size.small)
//////////
/////////////////////////////////////////KÖPEKBALIĞI///////////////////////////////////////////////////
bgcolorEnabled = input(true, title = 'Background ')
bgcolorColor = input.color(color.new(#d3f803, 70), title = 'ARKA RENK')
barcolorEnabled = input(true, title = 'Bar ')
barcolorColor = input.color(color.rgb(240, 241, 154), title = 'Bar RENK')
targetLinesEnabled = input(true, title = 'HEDEF')
targetLineColor = input.color(color.yellow, title = 'RENK')
targetLineThickness = input.int(4, title = 'ÇİZGİ', minval = 1, maxval = 5)
// KALIP KURALI//////////
ISP32 = low[2] < low[1] and low[1] < low and high[2] > high[1] and high[1] > high
// BARLARI KALIPLA TAKİP ET///
var color barColorCurrent = na
var color barColor1 = na
var color barColor2 = na
barColorCurrent := barcolorEnabled and (ISP32 or ISP32[1] or ISP32[2]) ? barcolorColor : na
barColor1 := barcolorEnabled and (ISP32[1] or ISP32[2]) ? barcolorColor : na
barColor2 := barcolorEnabled and ISP32[2] ? barcolorColor : na


if ISP32
    
    boxlen = 0
    future_bar_index_lines = bar_index + 3
    future_bar_index_fill = bar_index + boxlen

    line.new(x1 = bar_index[2], y1 = low[2], x2 = future_bar_index_lines, y2 = low[2], color = color.blue, width = 3, extend = extend.none)
    line.new(x1 = bar_index[2], y1 = high[2], x2 = future_bar_index_lines, y2 = high[2], color = color.yellow, width = 3, extend = extend.none)

    
    if targetLinesEnabled
        
        line.new(x1 = bar_index[2], y1 = high[2] + high[2] - low[2], x2 = future_bar_index_lines, y2 = high[2] + high[2] - low[2], color = targetLineColor, width = targetLineThickness, style = line.style_dotted, extend = extend.none)
        line.new(x1 = bar_index[2], y1 = low[2] - (high[2] - low[2]), x2 = future_bar_index_lines, y2 = low[2] - (high[2] - low[2]), color = targetLineColor, width = targetLineThickness, style = line.style_dotted, extend = extend.none)

    // KALIBI OLUŞTUR
    if bgcolorEnabled
        box.new(left = bar_index[2], top = high[2], right = future_bar_index_fill, bottom = low[2], bgcolor = bgcolorColor)
//////////////////////////////////////////////////////////////////////////BAR RENKLENDİR//////////////////// 

[@yörük@]

// This Pine Script® code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © YunusEmre32
//@version=6
indicator("YunusEmrem", shorttitle=".", overlay=true,
     max_lines_count=400, max_boxes_count=50, max_labels_count=5)

////////////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 = 'YE', color = close > psar_uzun ? #ee01ff : #ee01ff, style = plot.style_circles, linewidth = 1)
plot(sar_fast, 'C', color = color.rgb(255, 238, 0), style = plot.style_cross, linewidth = 1)
plot(sar_mid, 'B', color = color.rgb(0, 255, 238), style = plot.style_cross, linewidth = 1)
plot(sar_slow, 'A', color = color.rgb(255, 0, 0), style = plot.style_cross, linewidth = 1)
///////////////////////////////KÖPEKBALIĞI///////////////////////////////////////////////////
bgcolorEnabled = input(true, title = 'Background ')
bgcolorColor = input.color(color.new(#d3f803, 70), title = 'ARKA RENK')
barcolorEnabled = input(true, title = 'Bar ')
barcolorColor = input.color(color.rgb(240, 241, 154), title = 'Bar RENK')
targetLinesEnabled = input(true, title = 'HEDEF')
targetLineColor = input.color(color.yellow, title = 'RENK')
targetLineThickness = input.int(4, title = 'ÇİZGİ', minval = 1, maxval = 5)
// KALIP KURALI//////////
ISP32 = low[2] < low[1] and low[1] < low and high[2] > high[1] and high[1] > high
// BARLARI KALIPLA TAKİP ET///
var color barColorCurrent = na
var color barColor1 = na
var color barColor2 = na
barColorCurrent := barcolorEnabled and (ISP32 or ISP32[1] or ISP32[2]) ? barcolorColor : na
barColor1 := barcolorEnabled and (ISP32[1] or ISP32[2]) ? barcolorColor : na
barColor2 := barcolorEnabled and ISP32[2] ? barcolorColor : na


if ISP32
    
    boxlen = 0
    future_bar_index_lines = bar_index + 3
    future_bar_index_fill = bar_index + boxlen

    line.new(x1 = bar_index[2], y1 = low[2], x2 = future_bar_index_lines, y2 = low[2], color = color.blue, width = 3, extend = extend.none)
    line.new(x1 = bar_index[2], y1 = high[2], x2 = future_bar_index_lines, y2 = high[2], color = color.yellow, width = 3, extend = extend.none)

    
    if targetLinesEnabled
        
        line.new(x1 = bar_index[2], y1 = high[2] + high[2] - low[2], x2 = future_bar_index_lines, y2 = high[2] + high[2] - low[2], color = targetLineColor, width = targetLineThickness, style = line.style_dotted, extend = extend.none)
        line.new(x1 = bar_index[2], y1 = low[2] - (high[2] - low[2]), x2 = future_bar_index_lines, y2 = low[2] - (high[2] - low[2]), color = targetLineColor, width = targetLineThickness, style = line.style_dotted, extend = extend.none)

    // KALIBI OLUŞTUR
    if bgcolorEnabled
        box.new(left = bar_index[2], top = high[2], right = future_bar_index_fill, bottom = low[2], bgcolor = bgcolorColor)
//////////////////////////////////////////////////////////////////////////BAR RENKLENDİR//////////////////// 

[@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 - Sistem 3: TAM OTONOM FRAMA (Hata Korumalı Sürüm)
//@version=6
indicator("KKM Hub - Sistem 3 (Tam Otonom FRAMA)", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. TETİKÇİ (AYNA) MOTORU
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar(src_h, src_l, _start, _inc, _max) =>
    var int trend = 0, var float sar_val = 0.0, var float ep = 0.0, var float af = 0.0
    if trend == 0 and not na(src_h[1])
        trend := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1], ep := trend > 0 ? src_h[1] : src_l[1], af := _start
    else
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1], af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            if nextsar > src_l
                trend := -1, nextsar := ep, ep := src_l, af := _start
        else
            if src_l[1] < ep
                ep := src_l[1], af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            if nextsar < src_h
                trend := 1, nextsar := ep, ep := src_h, af := _start
        sar_val := nextsar
    [sar_val, trend]

[sar_hizli, trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float ayna = trend_hizli > 0 ? hl2 + math.abs(hl2 - sar_hizli) : hl2 - math.abs(hl2 - sar_hizli)

// ═════════════════════════════════════════════════════════════════════════
//  2. TAM OTONOM (YAPAY ZEKA) FRAMA MOTORU (Zırhlı Sürüm)
// ═════════════════════════════════════════════════════════════════════════
// Adım 1: Ayna'nın İvmesini Ölç (nz ile na koruması eklendi)
float ayna_ivme = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = nz(ta.highest(ayna_ivme, 21), 0.0001)
float min_ivme  = nz(ta.lowest(ayna_ivme, 21), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme - min_ivme) / (max_ivme - min_ivme))

// Adım 2: Parametreleri İvmeye Göre Esnet (nz ve min/max güvenlik kilitleri eklendi)
// Eğer sistem na verirse varsayılan olarak 55 barlık ağır duvara geçer.
int otonom_uzunluk = math.max(21, math.min(55, nz(math.floor(55.0 - (ivme_orani * (55.0 - 21.0))), 55)))

// Adım 3: Otonom FRAMA Fonksiyonu 
f_otonom_frama(src, series int len) =>
    var float filt = na
    // Çifte güvenlik: Uzunluk asla 2'nin altına düşemez ve na olamaz.
    int safe_len = math.max(2, nz(len, 55)) 
    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

float tam_otonom_frama = f_otonom_frama(ayna, otonom_uzunluk)

// ═════════════════════════════════════════════════════════════════════════
//  3. SİNYAL MOTORU VE GÖRSEL KANUNLAR
// ═════════════════════════════════════════════════════════════════════════
color ayna_renk = ayna > hl2 ? color.lime : color.red

plot(ayna, "Tetikçi (Ayna)", color=ayna_renk, linewidth=2, style=plot.style_line)
plot(tam_otonom_frama, "Tam Otonom FRAMA", color=color.aqua, linewidth=2, style=plot.style_line)

// --- Sinyal Mantığı ---
bool bull_sart = ayna > tam_otonom_frama
bool bear_sart = ayna < tam_otonom_frama

var int signal_state = 0
bool kesin_al  = false
bool kesin_sat = false

if bull_sart and signal_state != 1
    kesin_al := true
    signal_state := 1

if bear_sart and signal_state != -1
    kesin_sat := true
    signal_state := -1

// Sinyal Okları
plotshape(kesin_al,  "AL",  shape.triangleup,   location.belowbar, color=color.lime, size=size.normal)
plotshape(kesin_sat, "SAT", shape.triangledown, location.abovebar, color=color.red, size=size.normal) 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM Master Hub (Kusursuz Konsensüs)
//@version=6
indicator("KKM Master Hub - Tam Sentez", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. MATEMATİKSEL FONKSİYONLAR (ÇEKİRDEK)
// ═════════════════════════════════════════════════════════════════════════
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_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_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, 55)) 
    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. BİRLİKLER VE GİZLİ HESAPLAMALAR
// ═════════════════════════════════════════════════════════════════════════
// 1. Ana Tetikçi (Ayna)
[sar_hizli, trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float ayna = trend_hizli > 0 ? hl2 + math.abs(hl2 - sar_hizli) : hl2 - math.abs(hl2 - sar_hizli)

// --- SİSTEM 1: Adaptif ZLEMA (Gizli) ---
float zlema_gerilim = math.abs(hl2 - ayna)
float max_g = ta.highest(zlema_gerilim, 21), float min_g = ta.lowest(zlema_gerilim, 21)
float g_orani = (max_g == min_g) ? 0.0 : ((zlema_gerilim - min_g) / (max_g - min_g))
float zlema_len = 21.0 - (g_orani * 16.0) // 5 ile 21 arası
float adaptif_ema1 = f_adaptif_ema(hl2, zlema_len)
float adaptif_ema2 = f_adaptif_ema(adaptif_ema1, zlema_len)
float gizli_zlema = adaptif_ema1 + (adaptif_ema1 - adaptif_ema2)

// --- Ortak İvme Radarı (Zemin ve FRAMA için) ---
float ayna_ivme = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = nz(ta.highest(ayna_ivme, 21), 0.0001), float min_ivme  = nz(ta.lowest(ayna_ivme, 21), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme - min_ivme) / (max_ivme - min_ivme))

// --- SİSTEM 2: Tam Otonom Zemin (Gizli) ---
float zemin_uzunluk = 21.0 - (ivme_orani * 16.0) // 5 ile 21 arası
float zemin_carpan  = 2.0 - (ivme_orani * 1.9)
float zemin_mu      = 0.9 - (ivme_orani * 0.8)
float otonom_atr = f_adaptif_ema(ta.tr(true), zemin_uzunluk)
float gizli_zemin = f_tam_otonom_kutu(ayna, otonom_atr, zemin_carpan, zemin_mu)

// --- SİSTEM 3: Tam Otonom FRAMA (Gizli) ---
int frama_uzunluk = math.max(21, math.min(55, nz(math.floor(55.0 - (ivme_orani * 34.0)), 55))) // 21 ile 55 arası
float gizli_frama = f_otonom_frama(ayna, frama_uzunluk)

// ═════════════════════════════════════════════════════════════════════════
//  3. SİNYAL MOTORU (KUSURSUZ KONSENSÜS) VE ÇİZİMLER
// ═════════════════════════════════════════════════════════════════════════
// Kusursuz Oybirliği Şartı: Ayna, 3 sistemin de AYNI ANDA üstünde/altında olmalı
bool bull_sart = (ayna > gizli_zlema) and (ayna > gizli_zemin) and (ayna > gizli_frama)
bool bear_sart = (ayna < gizli_zlema) and (ayna < gizli_zemin) and (ayna < gizli_frama)

var int signal_state = 0
bool kesin_al  = false
bool kesin_sat = false

if bull_sart and signal_state != 1
    kesin_al := true
    signal_state := 1

if bear_sart and signal_state != -1
    kesin_sat := true
    signal_state := -1

// SADECE Ayna Çizilir (ZLEMA, Zemin ve FRAMA arka planda gizlidir)
color ayna_renk = ayna > hl2 ? color.lime : color.red
plot(ayna, "Tetikçi (Ayna)", color=ayna_renk, linewidth=2, style=plot.style_line)

// Sinyal Okları
plotshape(kesin_al,  "KONSENSÜS AL",  shape.triangleup,   location.belowbar, color=color.lime, size=size.large)
plotshape(kesin_sat, "KONSENSÜS SAT", shape.triangledown, location.abovebar, color=color.red, size=size.large) 

[@yörük@]

// © Kinetik Komuta Merkezi - Laboratuvar: Ayna & Meta-SAR (Erken Uyarı Radarı)
//@version=6
indicator("KKM Hub - Test (Ayna + Meta-SAR + Erken Uyarı)", overlay=true)

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

// ═════════════════════════════════════════════════════════════════════════
//  2. TETİKÇİ (AYNA) VE OTONOM META-SAR
// ═════════════════════════════════════════════════════════════════════════
[sar_hizli, trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float ayna = trend_hizli > 0 ? hl2 + math.abs(hl2 - sar_hizli) : hl2 - math.abs(hl2 - sar_hizli)

float ayna_h = math.max(ayna, nz(ayna[1], ayna))
float ayna_l = math.min(ayna, nz(ayna[1], ayna))

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

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] = f_ozel_sar(ayna_h, ayna_l, oto_start, oto_inc, oto_max)

// ═════════════════════════════════════════════════════════════════════════
//  3. ERKEN UYARI RADARI (Mesafe ve Standart Sapma Sentezi)
// ═════════════════════════════════════════════════════════════════════════
// Adım 1: Ayna ile Kinetik SAR Arasındaki Uzaklık
float ayna_sar_uzaklik = math.abs(ayna - meta_sar)

// Adım 2: Oynaklık İvmesi (Ayna'nın anlık hareket şiddeti)
float oynaklik_ivmesi = math.abs(ayna - nz(ayna[1], ayna))

// Adım 3: Kinetik SAR'ın Standart Sapması (0.5 Çarpanlı - Esneklik Sınırı)
float sar_stdev = ta.stdev(meta_sar, 21) * 0.5

// Adım 4: İvme Zayıflaması Kuralı
// - Ayna ile SAR arasındaki mesafe bir önceki bara göre daralıyor VE
// - Oynaklık İvmesi, SAR'ın o anki "0.5 StDev" normalinin altına inmişse (Sıkışma)
bool zayiflayan_ivme = (ayna_sar_uzaklik < nz(ayna_sar_uzaklik[1])) and (oynaklik_ivmesi < sar_stdev)

// Çift uyarı kirliliğini engellemek için sadece zayıflamanın İLK başladığı mumu yakalıyoruz
bool erken_uyari = zayiflayan_ivme and not zayiflayan_ivme[1]

// ═════════════════════════════════════════════════════════════════════════
//  4. GÖRSEL KANUNLAR
// ═════════════════════════════════════════════════════════════════════════
color ayna_renk = ayna > hl2 ? color.lime : color.red
plot(ayna, "Tetikçi (Ayna)", color=ayna_renk, linewidth=2, style=plot.style_line)

color sar_renk = meta_trend > 0 ? color.new(color.lime, 0) : color.new(color.red, 0)
plot(meta_sar, "Kinetik Meta-SAR", color=sar_renk, linewidth=2, style=plot.style_cross)

// Erken Uyarı Şimşeği
plotchar(erken_uyari, "İvme Kaybı (Uyarı)", "⚠️", location.bottom, color=color.yellow, size=size.tiny) 

[@yörük@]

// © Kinetik Komuta Merkezi - Sistem 2: TAM OTONOM KİNETİK ZEMİN (Mühürlenmiş Sürüm)
//@version=6
indicator("KKM Hub - Sistem 2 (Tam Otonom Zemin)", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. TETİKÇİ (AYNA) MOTORU
// ═════════════════════════════════════════════════════════════════════════
f_ozel_sar(src_h, src_l, _start, _inc, _max) =>
    var int trend = 0, var float sar_val = 0.0, var float ep = 0.0, var float af = 0.0
    if trend == 0 and not na(src_h[1])
        trend := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1], ep := trend > 0 ? src_h[1] : src_l[1], af := _start
    else
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1], af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            if nextsar > src_l
                trend := -1, nextsar := ep, ep := src_l, af := _start
        else
            if src_l[1] < ep
                ep := src_l[1], af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            if nextsar < src_h
                trend := 1, nextsar := ep, ep := src_h, af := _start
        sar_val := nextsar
    [sar_val, trend]

[sar_hizli, trend_hizli] = f_ozel_sar(high, low, 0.06, 0.06, 0.30)
float ayna = trend_hizli > 0 ? hl2 + math.abs(hl2 - sar_hizli) : hl2 - math.abs(hl2 - sar_hizli)

// ═════════════════════════════════════════════════════════════════════════
//  2. TAM OTONOM (YAPAY ZEKA) KİNETİK ZEMİN MOTORU (5-21 Bandı)
// ═════════════════════════════════════════════════════════════════════════
// Adım 1: Ayna'nın İvmesini Ölç (Referans 21 Bar)
float ayna_ivme = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = ta.highest(ayna_ivme, 21)
float min_ivme  = ta.lowest(ayna_ivme, 21)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme - min_ivme) / (max_ivme - min_ivme))

// Adım 2: Parametreleri İvmeye Göre Esnet (5 ile 21 arası)
float otonom_uzunluk = 21.0 - (ivme_orani * (21.0 - 5.0))  // Trend varsa 5, yataysa 21
float otonom_carpan  = 2.0 - (ivme_orani * 1.9)            // 2.0 ile 0.1 arası kütle
float otonom_mu      = 0.9 - (ivme_orani * 0.8)            // 0.9 ile 0.1 arası sürtünme

// Adım 3: Adaptif ATR
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

float otonom_atr = f_adaptif_ema(ta.tr(true), otonom_uzunluk)

// Adım 4: Tam Otonom Kutu
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

// Zeminin Sentezlenmesi
float tam_otonom_zemin = f_tam_otonom_kutu(ayna, otonom_atr, otonom_carpan, otonom_mu)

// ═════════════════════════════════════════════════════════════════════════
//  3. SİNYAL MOTORU VE GÖRSEL KANUNLAR
// ═════════════════════════════════════════════════════════════════════════
color ayna_renk = ayna > hl2 ? color.lime : color.red

// Çizimler
plot(ayna, "Tetikçi (Ayna)", color=ayna_renk, linewidth=2, style=plot.style_line)
plot(tam_otonom_zemin, "Tam Otonom Zemin", color=color.fuchsia, linewidth=2, style=plot.style_stepline)

// --- Sinyal Mantığı ---
bool bull_sart = ayna > tam_otonom_zemin
bool bear_sart = ayna < tam_otonom_zemin

var int signal_state = 0
bool kesin_al  = false
bool kesin_sat = false

if bull_sart and signal_state != 1
    kesin_al := true
    signal_state := 1

if bear_sart and signal_state != -1
    kesin_sat := true
    signal_state := -1

// Sinyal Okları
plotshape(kesin_al,  "AL",  shape.triangleup,   location.belowbar, color=color.lime, size=size.normal)
plotshape(kesin_sat, "SAT", shape.triangledown, location.abovebar, color=color.red, size=size.normal) 

[@yörük@]

// © Kinetik Komuta Merkezi - KKM Master Hub (V5 Final)
//@version=6
indicator("KKM Master Hub - V5 Final (Tam Otonomi)", overlay=true)

// ═════════════════════════════════════════════════════════════════════════
//  1. ÇEKİRDEK FONKSİYONLAR (KUANTUM MOTORLARI)
// ═════════════════════════════════════════════════════════════════════════
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_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_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, 55)) 
    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 (SAHADAKİ AKTÖRLER)
// ═════════════════════════════════════════════════════════════════════════
// 1. Özgür Ayna (Tetikçi)
float ham_volatilite = ta.tr(true)
float max_vol = nz(ta.highest(ham_volatilite, 50), 0.0001), float min_vol = nz(ta.lowest(ham_volatilite, 50), 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) 

[sar_hizli, trend_hizli] = f_ozel_sar(high, low, ayna_start, ayna_inc, ayna_max)
float ayna = trend_hizli > 0 ? hl2 + math.abs(hl2 - sar_hizli) : hl2 - math.abs(hl2 - sar_hizli)

// 2. Ayna'nın İvmesi (Tüm Otonom Sistemlerin Yakıtı)
float ayna_ivme_genel = math.abs(ayna - nz(ayna[1], ayna))
float max_ivme  = nz(ta.highest(ayna_ivme_genel, 21), 0.0001), float min_ivme  = nz(ta.lowest(ayna_ivme_genel, 21), 0.0)
float ivme_orani = (max_ivme == min_ivme) ? 0.0 : ((ayna_ivme_genel - min_ivme) / (max_ivme - min_ivme))

// 3. Meta-SAR (Gölge)
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] = f_ozel_sar(ayna_h, ayna_l, oto_start, oto_inc, oto_max)

// ═════════════════════════════════════════════════════════════════════════
//  3. GİZLİ DUVARLAR (ARKA PLAN YAPAY ZEKALARI)
// ═════════════════════════════════════════════════════════════════════════
// Gizli Duvar 1: ZLEMA
float zlema_gerilim = math.abs(hl2 - ayna)
float max_g = nz(ta.highest(zlema_gerilim, 21), 0.0001), float min_g = nz(ta.lowest(zlema_gerilim, 21), 0.0)
float g_orani = (max_g == min_g) ? 0.0 : ((zlema_gerilim - min_g) / (max_g - min_g))
float zlema_len = 21.0 - (g_orani * 16.0) 
float adaptif_ema1 = f_adaptif_ema(hl2, zlema_len)
float adaptif_ema2 = f_adaptif_ema(adaptif_ema1, zlema_len)
float gizli_zlema = adaptif_ema1 + (adaptif_ema1 - adaptif_ema2)

// Gizli Duvar 2: Kinetik Zemin
float zemin_uzunluk = 21.0 - (ivme_orani * 16.0)
float zemin_carpan  = 2.0 - (ivme_orani * 1.9)
float zemin_mu      = 0.9 - (ivme_orani * 0.8)
float otonom_atr = f_adaptif_ema(ta.tr(true), zemin_uzunluk)
float gizli_zemin = f_tam_otonom_kutu(ayna, otonom_atr, zemin_carpan, zemin_mu)

// Gizli Duvar 3: FRAMA
int frama_uzunluk = math.max(21, math.min(55, nz(math.floor(55.0 - (ivme_orani * 34.0)), 55)))
float gizli_frama = f_otonom_frama(ayna, frama_uzunluk)

// ═════════════════════════════════════════════════════════════════════════
//  4. 4 KİLİTLİ KONSENSÜS SİNYALİ VE ERKEN UYARI
// ═════════════════════════════════════════════════════════════════════════
// Erken Uyarı Radarı
float ayna_sar_uzaklik = math.abs(ayna - meta_sar)
float sar_stdev = ta.stdev(meta_sar, 21) * 0.5
bool zayiflayan_ivme = (ayna_sar_uzaklik < nz(ayna_sar_uzaklik[1])) and (ayna_ivme_genel < sar_stdev)
bool erken_uyari = zayiflayan_ivme and not zayiflayan_ivme[1]

// 4 Duvarlı Konsensüs (ZLEMA, Zemin, FRAMA ve META-SAR)
bool bull_sart = (ayna > gizli_zlema) and (ayna > gizli_zemin) and (ayna > gizli_frama) and (ayna > meta_sar)
bool bear_sart = (ayna < gizli_zlema) and (ayna < gizli_zemin) and (ayna < gizli_frama) and (ayna < meta_sar)

var int signal_state = 0
bool kesin_al  = false
bool kesin_sat = false

if bull_sart and signal_state != 1
    kesin_al := true
    signal_state := 1

if bear_sart and signal_state != -1
    kesin_sat := true
    signal_state := -1

// ═════════════════════════════════════════════════════════════════════════
//  5. SAF GÖRSEL EKRAN
// ═════════════════════════════════════════════════════════════════════════
color ayna_renk = ayna > hl2 ? color.lime : color.red
plot(ayna, "Özgür Ayna", color=ayna_renk, linewidth=2, style=plot.style_line)

color sar_renk = meta_trend > 0 ? color.new(color.lime, 0) : color.new(color.red, 0)
plot(meta_sar, "Meta-SAR", color=sar_renk, linewidth=2, style=plot.style_cross)

plotchar(erken_uyari, "Erken Uyarı", "⚠️", location.bottom, color=color.yellow, size=size.tiny)
plotshape(kesin_al,  "KONSENSÜS AL",  shape.triangleup,   location.belowbar, color=color.lime, size=size.large)
plotshape(kesin_sat, "KONSENSÜS SAT", shape.triangledown, location.abovebar, color=color.red, size=size.large)