Tradingview

[@yörük@]

//@version=6
indicator("Yörük [Master Dalga Sensörü]", overlay=false)

// ─────────────────────────────────────────────────────────────────
//  1. MATRÝS HESAPLAMALARI (7 KATMAN)
// ─────────────────────────────────────────────────────────────────
src = hlc3

f_ao(_f, _s) => ta.sma(src, _f) - ta.sma(src, _s)

ao1 = f_ao(1, 56),  ao2 = f_ao(3, 58),  ao3 = f_ao(5, 60)
ao4 = f_ao(8, 63),  ao5 = f_ao(13, 68), ao6 = f_ao(21, 76), ao7 = f_ao(34, 89)

// ─────────────────────────────────────────────────────────────────
//  2. MASTER DALGA (SÜPERPOZÝSYON)
// ─────────────────────────────────────────────────────────────────
// 7 katmanýn birleþimi
master_wave = (ao1 + ao2 + ao3 + ao4 + ao5 + ao6 + ao7) / 7
signal_line = ta.ema(master_wave, 5)

// Master Dalga Renk Karakteri
master_col = master_wave > master_wave[1] ? color.new(#00ffaa, 0) : color.new(#ff0055, 0)

// ─────────────────────────────────────────────────────────────────
//  3. AHENK KONTROLÜ (BACKEND)
// ─────────────────────────────────────────────────────────────────
hepsi_yukari = (ao1 > ao1[1]) and (ao2 > ao2[1]) and (ao3 > ao3[1]) and (ao4 > ao4[1]) and (ao5 > ao5[1]) and (ao6 > ao6[1]) and (ao7 > ao7[1])
hepsi_asagi  = (ao1 < ao1[1]) and (ao2 < ao2[1]) and (ao3 < ao3[1]) and (ao4 < ao4[1]) and (ao5 < ao5[1]) and (ao6 < ao6[1]) and (ao7 < ao7[1])

// ─────────────────────────────────────────────────────────────────
//  4. GÖRSELLEÞTÝRME
// ─────────────────────────────────────────────────────────────────
// Sýfýr Hattý (Denge Noktasý)
hline(0, "Denge", color.gray, hline.style_dotted)

// Master Dalga Alaný (Görsel Derinlik)
fill_col = master_wave > 0 ? color.new(color.lime, 85) : color.new(color.red, 85)
p1 = plot(master_wave, "Master Dalga", color=master_col, linewidth=3)
p2 = plot(0, display=display.none)
fill(p1, p2, master_wave, 0, fill_col, color.new(color.black, 100))

// Sinyal Hattý
plot(signal_line, "Sinyal", color=color.new(color.white, 50), linewidth=1)

// AHENK SÝNYALLERÝ (Üst ve Alt Sýnýrda Yanar)
plotshape(hepsi_yukari and not hepsi_yukari[1], "Tam Ahenk (AL)", style=shape.circle, location=location.bottom, color=color.lime, size=size.tiny)
plotshape(hepsi_asagi and not hepsi_asagi[1], "Tam Ahenk (SAT)", style=shape.circle, location=location.top, color=color.red, size=size.tiny)

// Master Dalga Sýfýrý Kestiðinde (Trend Deðiþimi)
plotchar(ta.cross(master_wave, 0), "Trend Dönüþü", "✦", location.absolute, master_col, size=size.tiny) 

[@yörük@]

//@version=6
indicator("Yörük [Fraktal Hurst AO Þeridi]", overlay=false)

// ─────────────────────────────────────────────────────────────────
//  1. SAF FÝYAT KAYNAÐI (Low-High-Close Bütünlüðü)
// ─────────────────────────────────────────────────────────────────
// Senin "low high close" mantýðýnýn Kuant karþýlýðý:
src = hlc3

// ─────────────────────────────────────────────────────────────────
//  2. HURST - FÝBONACCÝ MATRÝSÝ HESAPLAMALARI
// ─────────────────────────────────────────────────────────────────
// Hýzlý ve Yavaþ SMAlarýn farký (AO Mantýðý)
ao1 = ta.sma(src, 1)  - ta.sma(src, 56)
ao2 = ta.sma(src, 3)  - ta.sma(src, 58)
ao3 = ta.sma(src, 5)  - ta.sma(src, 60)
ao4 = ta.sma(src, 8)  - ta.sma(src, 63)
ao5 = ta.sma(src, 13) - ta.sma(src, 68)
ao6 = ta.sma(src, 21) - ta.sma(src, 76)
ao7 = ta.sma(src, 34) - ta.sma(src, 89)

// ─────────────────────────────────────────────────────────────────
//  3. GÖRSELLEÞTÝRME: FRAKTAL ISI HARÝTASI (RIBBON)
// ─────────────────────────────────────────────────────────────────
// Her dalganýn yönüne göre Kuantum renkleri:
c1 = ao1 > ao1[1] ? color.new(#00ffaa, 20) : color.new(#ff0055, 20)
c2 = ao2 > ao2[1] ? color.new(#00d4ff, 30) : color.new(#ff2d78, 30)
c3 = ao3 > ao3[1] ? color.new(#00aaff, 40) : color.new(#ff5599, 40)
c4 = ao4 > ao4[1] ? color.new(#0088ff, 50) : color.new(#ff77aa, 50)
c5 = ao5 > ao5[1] ? color.new(#0066ff, 60) : color.new(#ff99cc, 60)
c6 = ao6 > ao6[1] ? color.new(#0044ff, 70) : color.new(#ffbbdd, 70)
c7 = ao7 > ao7[1] ? color.new(#0022ff, 80) : color.new(#ffccee, 80)

// Þeritleri (Ribbon) alt alta çizerek devasa bir dalga efekti yaratýyoruz
plot(ao7, "Katman 7 (34-89)", color=c7, linewidth=4, style=plot.style_columns)
plot(ao6, "Katman 6 (21-76)", color=c6, linewidth=3, style=plot.style_columns)
plot(ao5, "Katman 5 (13-68)", color=c5, linewidth=3, style=plot.style_columns)
plot(ao4, "Katman 4 (8-63)",  color=c4, linewidth=2, style=plot.style_columns)
plot(ao3, "Katman 3 (5-60)",  color=c3, linewidth=2, style=plot.style_columns)
plot(ao2, "Katman 2 (3-58)",  color=c2, linewidth=1, style=plot.style_columns)
plot(ao1, "Katman 1 (1-56)",  color=c1, linewidth=1, style=plot.style_columns)

// ─────────────────────────────────────────────────────────────────
//  4. SIFIR ÇÝZGÝSÝ (Ahenk Dengesi)
// ─────────────────────────────────────────────────────────────────
hline(0, "Sýfýr Hattý", color=color.gray, linestyle=hline.style_dotted)

// Mutlak Ahenk Kontrolü (Hepsi ayný yönemi bakýyor?)
bool hepsi_boga = (ao1 > ao1[1]) and (ao2 > ao2[1]) and (ao3 > ao3[1]) and (ao4 > ao4[1]) and (ao5 > ao5[1]) and (ao6 > ao6[1]) and (ao7 > ao7[1])
bool hepsi_ayi  = (ao1 < ao1[1]) and (ao2 < ao2[1]) and (ao3 < ao3[1]) and (ao4 < ao4[1]) and (ao5 < ao5[1]) and (ao6 < ao6[1]) and (ao7 < ao7[1])

// Sinyaller
plotshape(hepsi_boga and not hepsi_boga[1], "Ahenk Baþlangýcý (AL)", style=shape.triangleup, location=location.bottom, color=color.lime, size=size.tiny)
plotshape(hepsi_ayi and not hepsi_ayi[1], "Ahenk Baþlangýcý (SAT)", style=shape.triangledown, location=location.top, color=color.red, size=size.tiny) 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - Fraktal]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. GÝRDÝLER 
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin (Zýrh Yönü)")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin (Zýrh Yönü)")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin (Zýrh Yönü)")

// Kýlýcýn uzunluðu otonom oldu, sadece keskinlik (Gerilim) ayarý kaldý.
hhma_ten = input.float(2.8, "Yörük Kýlýç Keskinliði (Gerilim)", step=0.1, group="Hiperbolik Kýlýç (@yörük@)")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR (Tetik)")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR (Tetik)")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR (Tetik)")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR (Tetik)")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR (Tetik)")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR (Tetik)")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

// ─────────────────────────────────────────────────────────────────
//  2. ÇÝFT VÝTESLÝ OTONOM ZAMAN DÝLÝMÝ (FRAKTAL YAPI)
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
int z_len = 30  // Zýrh (ML Kernel) Uzunluðu
int k_len = 14  // Kýlýç (HHMA) Uzunluðu - Hep bir alt Fibonacci!

if tf == "1"
    z_len := 34
    k_len := 21
else if tf == "3"
    z_len := 21
    k_len := 13
else if tf == "5"
    z_len := 13
    k_len := 8
else if tf == "15"
    z_len := 8
    k_len := 5
else if tf == "60"
    z_len := 5
    k_len := 3
else if tf == "240"
    z_len := 3
    k_len := 2
else
    z_len := 2
    k_len := 2

// ─────────────────────────────────────────────────────────────────
//  3. ZIRH: NADARAYA-WATSON (ML KERNEL OMURGA)
// ─────────────────────────────────────────────────────────────────
rawATR     = ta.atr(14)
atrNorm    = rawATR / close
atrFactor  = ta.ema(atrNorm, 14)
adaptScale = 1.0 + (atrFactor * 200.0)
h_val      = 8.0 * adaptScale

float nwSum = 0.0
float nwWeight = 0.0
for i = 0 to z_len - 1
    float kw = math.exp(-math.pow(i, 2) / (2.0 * math.pow(h_val, 2)))
    nwSum += kw * nz(close[i])
    nwWeight += kw

float nwRaw = nwSum / nwWeight
float aktif_zirh = ta.ema(nwRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  4. OTONOM BEYÝN (KRAL SAR)
// ─────────────────────────────────────────────────────────────────
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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  5. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  6. KILIÇ: HÝPERBOLÝK HULL MA (ADAPTÝF UZUNLUKLU)
// ─────────────────────────────────────────────────────────────────
f_sinh_weight(series float _src, int _len, float _t) =>
    float _weightSum   = 0.0
    float _weightedVal = 0.0
    for i = 0 to _len - 1
        float _x = (_len - i) / _len * _t
        float _w = (math.exp(_x) - math.exp(-_x)) / 2.0
        _weightedVal += nz(_src[i]) * _w
        _weightSum   += _w
    _weightedVal / _weightSum

int halfLen = math.max(1, math.floor(k_len / 2))
int sqrtLen = math.max(1, math.floor(math.sqrt(k_len)))

float fastSinh = f_sinh_weight(close, halfLen, hhma_ten)
float slowSinh = f_sinh_weight(close, k_len, hhma_ten)
float rawHull  = 2.0 * fastSinh - slowSinh
float hhma_val = f_sinh_weight(rawHull, sqrtLen, hhma_ten)

color col_yoruk = hhma_val > hhma_val[1] ? color.lime : color.red

// ─────────────────────────────────────────────────────────────────
//  7. YÝN-YANG TETÝÐÝ VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

color col_ana   = kral_yon ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  8. KESKÝN NÝÞANCI (SAVAÞ ALANI ONAYI)
// ─────────────────────────────────────────────────────────────────
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)
bool touchedCloudRecently = touchesCloud or touchesCloud[1] or touchesCloud[2]

bool yyBullTrigger = ahenk_boga and not ahenk_boga[1] and touchedCloudRecently
bool yyBearTrigger = ahenk_ayi  and not ahenk_ayi[1]  and touchedCloudRecently

// ─────────────────────────────────────────────────────────────────
//  9. ÇÝZÝMLER (MÝNÝMALÝST VE ÖLÜMCÜL)
// ─────────────────────────────────────────────────────────────────
p_mats  = plot(aktif_zirh, title="ML Kernel Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

plot(hhma_val, "@yörük@ Kýlýcý", color=col_yoruk, style=plot.style_cross, linewidth=2)

plotshape(yyBullTrigger, title="Ahenk Boða Tetiði", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.small)
plotshape(yyBearTrigger, title="Ahenk Ayý Tetiði", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.small)

alertcondition(yyBullTrigger, "Titan AL Onayý!", "Yörük: Fiyat Kalkan'dan sekti, Hiperbolik Kýlýç kesiþti ve Ahenk saðlandý.")
alertcondition(yyBearTrigger, "Titan SAT Onayý!", "Yörük: Fiyat Kalkan'dan sekti, Hiperbolik Kýlýç kesiþti ve Ahenk saðlandý.") 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - Zýrh ve Kýlýç]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. GÝRDÝLER VE ÖZEL ÇARPANLAR
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin (Zýrh Yönü)")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin (Zýrh Yönü)")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin (Zýrh Yönü)")

// YENÝ: HÝPERBOLÝK KILIÇ GÝRDÝLERÝ (Hýzlý ve Agresif Ayarlar)
hhma_len = input.int(14, "Yörük Kýlýç Uzunluðu", group="Hiperbolik Kýlýç (@yörük@)")
hhma_ten = input.float(2.8, "Yörük Kýlýç Gerilimi", step=0.1, group="Hiperbolik Kýlýç (@yörük@)")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR (Tetik)")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR (Tetik)")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR (Tetik)")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR (Tetik)")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR (Tetik)")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR (Tetik)")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

// ─────────────────────────────────────────────────────────────────
//  2. ZIRH: NADARAYA-WATSON (ML KERNEL OMURGA)
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
int k_len = 30

if tf == "1"
    k_len := 34
else if tf == "3"
    k_len := 21
else if tf == "5"
    k_len := 13
else if tf == "15"
    k_len := 8
else if tf == "60"
    k_len := 5
else if tf == "240"
    k_len := 3
else
    k_len := 2

rawATR     = ta.atr(14)
atrNorm    = rawATR / close
atrFactor  = ta.ema(atrNorm, 14)
adaptScale = 1.0 + (atrFactor * 200.0)
h_val      = 8.0 * adaptScale

float nwSum = 0.0
float nwWeight = 0.0
for i = 0 to k_len - 1
    float kw = math.exp(-math.pow(i, 2) / (2.0 * math.pow(h_val, 2)))
    nwSum += kw * nz(close[i])
    nwWeight += kw

float nwRaw = nwSum / nwWeight
float aktif_zirh = ta.ema(nwRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  3. OTONOM BEYÝN (KRAL SAR) - Sadece Zýrhýn Yönünü Belirler
// ─────────────────────────────────────────────────────────────────
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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  4. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  5. YENÝ KILIÇ: HÝPERBOLÝK HULL MA (HHMA - @yörük@)
// ─────────────────────────────────────────────────────────────────
f_sinh_weight(series float _src, int _len, float _t) =>
    float _weightSum   = 0.0
    float _weightedVal = 0.0
    for i = 0 to _len - 1
        float _x = (_len - i) / _len * _t
        float _w = (math.exp(_x) - math.exp(-_x)) / 2.0
        _weightedVal += nz(_src[i]) * _w
        _weightSum   += _w
    _weightedVal / _weightSum

int halfLen = math.max(1, math.floor(hhma_len / 2))
int sqrtLen = math.max(1, math.floor(math.sqrt(hhma_len)))

float fastSinh = f_sinh_weight(close, halfLen, hhma_ten)
float slowSinh = f_sinh_weight(close, hhma_len, hhma_ten)
float rawHull  = 2.0 * fastSinh - slowSinh
float hhma_val = f_sinh_weight(rawHull, sqrtLen, hhma_ten)

color col_yoruk = hhma_val > hhma_val[1] ? color.lime : color.red

// ─────────────────────────────────────────────────────────────────
//  6. YÝN-YANG TETÝÐÝ VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

color col_ana   = kral_yon ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  7. KESKÝN NÝÞANCI (SAVAÞ ALANI ONAYI)
// ─────────────────────────────────────────────────────────────────
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)
bool touchedCloudRecently = touchesCloud or touchesCloud[1] or touchesCloud[2]

// Kýlýç (Yörük) Zýrhý Kestiðinde veya Yin-Yang Ahenge Girdiðinde!
bool yyBullTrigger = ahenk_boga and not ahenk_boga[1] and touchedCloudRecently
bool yyBearTrigger = ahenk_ayi  and not ahenk_ayi[1]  and touchedCloudRecently

// ─────────────────────────────────────────────────────────────────
//  8. ÇÝZÝMLER (MÝNÝMALÝST VE ÖLÜMCÜL)
// ─────────────────────────────────────────────────────────────────
// 1. Zýrh (ML Kernel + RMDT Bulutu)
p_mats  = plot(aktif_zirh, title="ML Kernel Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

// 2. Kýlýç (Sýfýr Gecikmeli Hiperbolik Yörük)
plot(hhma_val, "@yörük@ Kýlýcý", color=col_yoruk, style=plot.style_cross, linewidth=2)

// 3. Tetiði Çek!
plotshape(yyBullTrigger, title="Ahenk Boða Tetiði", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.small)
plotshape(yyBearTrigger, title="Ahenk Ayý Tetiði", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.small)

alertcondition(yyBullTrigger, "Titan AL Onayý!", "Yörük: Fiyat Kalkan'dan sekti, Hiperbolik Kýlýç kesiþti ve Ahenk saðlandý.")
alertcondition(yyBearTrigger, "Titan SAT Onayý!", "Yörük: Fiyat Kalkan'dan sekti, Hiperbolik Kýlýç kesiþti ve Ahenk saðlandý.") 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - Yin-Yang Tetiði]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. TEMEL MATEMATÝKSEL FONKSÝYONLAR
// ─────────────────────────────────────────────────────────────────
bool_to_float(bool source) => source ? 1.0 : 0.0

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

// ─────────────────────────────────────────────────────────────────
//  2. GÝRDÝLER VE ÖZEL ÇARPANLAR
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

// ─────────────────────────────────────────────────────────────────
//  3. YENÝ OMURGA: NADARAYA-WATSON (ML KERNEL)
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
int k_len = 30

if tf == "1"
    k_len := 34
else if tf == "3"
    k_len := 21
else if tf == "5"
    k_len := 13
else if tf == "15"
    k_len := 8
else if tf == "60"
    k_len := 5
else if tf == "240"
    k_len := 3
else
    k_len := 2

rawATR     = ta.atr(14)
atrNorm    = rawATR / close
atrFactor  = ta.ema(atrNorm, 14)
adaptScale = 1.0 + (atrFactor * 200.0)
h_val      = 8.0 * adaptScale

float nwSum = 0.0
float nwWeight = 0.0
for i = 0 to k_len - 1
    float kw = math.exp(-math.pow(i, 2) / (2.0 * math.pow(h_val, 2)))
    nwSum += kw * nz(close[i])
    nwWeight += kw

float nwRaw = nwSum / nwWeight
float aktif_zirh = ta.ema(nwRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  4. OTONOM BEYÝN (KRAL SAR)
// ─────────────────────────────────────────────────────────────────
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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  5. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  6. YÝN-YANG, YÖRÜK VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

cc = ta.sar(0.01, 0.02, 0.2)
color col_ana   = kral_yon ? color.lime : color.red
color col_yoruk = close > cc ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  7. YÝN-YANG KESKÝN NÝÞANCI TETÝÐÝ (YENÝ SÝSTEM)
// ─────────────────────────────────────────────────────────────────
// SAVAÞ BÖLGESÝ FÝLTRESÝ (Mum zýrha temas ediyor mu?)
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)

// Fiyata bir esneklik tanýyoruz: Temas þu an veya son 2 mum içinde gerçekleþmiþse geçerlidir.
bool touchedCloudRecently = touchesCloud or touchesCloud[1] or touchesCloud[2]

// TETÝK: Fiyat buluta deðmiþken, Ahenk (Yin-Yang) BOÐA'ya veya AYI'ya DÖNERSE!
bool yyBullTrigger = ahenk_boga and not ahenk_boga[1] and touchedCloudRecently
bool yyBearTrigger = ahenk_ayi  and not ahenk_ayi[1]  and touchedCloudRecently

// ─────────────────────────────────────────────────────────────────
//  8. ÇÝZÝMLER
// ─────────────────────────────────────────────────────────────────
p_mats  = plot(aktif_zirh, title="ML Kernel Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

plot(cc, "@yörük@", color=col_yoruk, style=plot.style_cross, linewidth=2)

// YÝN-YANG ONAYLI TETÝKLER (Mavi ve Pembe Neon Oklar)
plotshape(yyBullTrigger, title="Yin-Yang Boða Tetiði", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.small)
plotshape(yyBearTrigger, title="Yin-Yang Ayý Tetiði", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.small)

alertcondition(yyBullTrigger, "Keskin Niþancý: YÝN-YANG AL!", "Yörük: Fiyat Kalkan'dan sekti ve Yin-Yang Ahengi BOÐA'ya döndü. Tetiði Çek!")
alertcondition(yyBearTrigger, "Keskin Niþancý: YÝN-YANG SAT!", "Yörük: Fiyat Kalkan'dan sekti ve Yin-Yang Ahengi AYI'ya döndü. Tetiði Çek!") 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - Keskin Niþancý]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. TEMEL MATEMATÝKSEL FONKSÝYONLAR
// ─────────────────────────────────────────────────────────────────
bool_to_float(bool source) => source ? 1.0 : 0.0

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

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

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

// ─────────────────────────────────────────────────────────────────
//  2. GÝRDÝLER VE ÖZEL ÇARPANLAR
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

atrLen        = input.int(14, "ATR Periyodu", group="DNA Gizli Tetik")
minConfidence = input.int(75, "Min Güvenilirlik %", group="DNA Gizli Tetik")

// ─────────────────────────────────────────────────────────────────
//  3. YENÝ OMURGA: NADARAYA-WATSON (ML KERNEL)
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
int k_len = 30

if tf == "1"
    k_len := 34
else if tf == "3"
    k_len := 21
else if tf == "5"
    k_len := 13
else if tf == "15"
    k_len := 8
else if tf == "60"
    k_len := 5
else if tf == "240"
    k_len := 3
else
    k_len := 2

rawATR     = ta.atr(14)
atrNorm    = rawATR / close
atrFactor  = ta.ema(atrNorm, 14)
adaptScale = 1.0 + (atrFactor * 200.0)
h_val      = 8.0 * adaptScale

float nwSum = 0.0
float nwWeight = 0.0
for i = 0 to k_len - 1
    float kw = math.exp(-math.pow(i, 2) / (2.0 * math.pow(h_val, 2)))
    nwSum += kw * nz(close[i])
    nwWeight += kw

float nwRaw = nwSum / nwWeight
float aktif_zirh = ta.ema(nwRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  4. OTONOM BEYÝN (KRAL SAR)
// ─────────────────────────────────────────────────────────────────
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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  5. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  6. CANDLE DNA ANALYZER (HACÝMSÝZ - MÝKRO KIRILIM ONAYLI)
// ─────────────────────────────────────────────────────────────────
candleRange = high - low
bodySize    = math.abs(close - open)
upperWick   = high - math.max(close, open)
lowerWick   = math.min(close, open) - low

bodyRatio  = candleRange > 0 ? (bodySize / candleRange) * 100 : 0.0
upperRatio = candleRange > 0 ? (upperWick / candleRange) * 100 : 0.0
lowerRatio = candleRange > 0 ? (lowerWick / candleRange) * 100 : 0.0

atrVal     = ta.atr(atrLen)
rangeVsAtr = atrVal > 0 ? (candleRange / atrVal) * 100 : 0.0
closePos   = candleRange > 0 ? ((close - low) / candleRange) * 100 : 50.0

isBullish = close > open
isBearish = close < open

// HACÝMSÝZ Çekiç (Hammer) Skoru
float hammerScore = 0.0
hammerScore += (lowerRatio > 60 ? 35.0 : lowerRatio > 40 ? 15.0 : 0.0)
hammerScore += (upperRatio < 10 ? 25.0 : upperRatio < 20 ? 10.0 : 0.0)
hammerScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
hammerScore += (closePos > 65 ? 20.0 : closePos > 50 ? 10.0 : 0.0)
bool isHammer = hammerScore >= minConfidence

// HACÝMSÝZ Kayan Yýldýz (Shooting Star) Skoru
float starScore = 0.0
starScore += (upperRatio > 60 ? 35.0 : upperRatio > 40 ? 15.0 : 0.0)
starScore += (lowerRatio < 10 ? 25.0 : lowerRatio < 20 ? 10.0 : 0.0)
starScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
starScore += (closePos < 35 ? 20.0 : closePos < 50 ? 10.0 : 0.0)
bool isStar = starScore >= minConfidence

// HACÝMSÝZ Yutan Boða (Bullish Engulfing) Skoru
float engulfBullScore = 0.0
float prevBody = math.abs(close[1] - open[1])
engulfBullScore += (isBullish and isBearish[1] and bodySize > prevBody ? 40.0 : 0.0)
engulfBullScore += (close > open[1] and open < close[1] ? 25.0 : 0.0)
engulfBullScore += (bodyRatio > 60 ? 20.0 : bodyRatio > 45 ? 10.0 : 0.0)
engulfBullScore += (rangeVsAtr > 80 ? 15.0 : 0.0)
bool isEngulfBull = engulfBullScore >= minConfidence

// HACÝMSÝZ Yutan Ayý (Bearish Engulfing) Skoru
float engulfBearScore = 0.0
engulfBearScore += (isBearish and isBullish[1] and bodySize > prevBody ? 40.0 : 0.0)
engulfBearScore += (close < open[1] and open > close[1] ? 25.0 : 0.0)
engulfBearScore += (bodyRatio > 60 ? 20.0 : bodyRatio > 45 ? 10.0 : 0.0)
engulfBearScore += (rangeVsAtr > 80 ? 15.0 : 0.0)
bool isEngulfBear = engulfBearScore >= minConfidence

bool isBullPattern = isHammer or isEngulfBull
bool isBearPattern = isStar or isEngulfBear

// SAVAÞ BÖLGESÝ FÝLTRESÝ (Mum zýrha temas ediyor mu?)
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)

// ADIM 1: Kurulum (Setup) Aþamasý (Mum dönüþ mumu VE kalkana temas ediyor)
bool bullSetup = isBullPattern and touchesCloud
bool bearSetup = isBearPattern and touchesCloud

// ADIM 2: MÝKRO KIRILIM ONAYI (DNA Keskin Niþancý Tetiði)
// Tetik, Kurulum mumundan BÝR SONRAKÝ mumda, o mumun en yükseði/düþüðü kýrýlýrsa ateþlenir.
bool dnaBullTrigger = bullSetup[1] and (close > high[1])
bool dnaBearTrigger = bearSetup[1] and (close < low[1])

// ─────────────────────────────────────────────────────────────────
//  7. YÝN-YANG, YÖRÜK VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

cc = ta.sar(0.01, 0.02, 0.2)
color col_ana   = kral_yon ? color.lime : color.red
color col_yoruk = close > cc ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  8. ÇÝZÝMLER
// ─────────────────────────────────────────────────────────────────
p_mats  = plot(aktif_zirh, title="ML Kernel Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

plot(cc, "@yörük@", color=col_yoruk, style=plot.style_cross, linewidth=2)

// DNA ONAYLI TETÝKLER (Mavi ve Pembe Neon Oklar)
plotshape(dnaBullTrigger, title="DNA Boða Onayý", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.tiny)
plotshape(dnaBearTrigger, title="DNA Ayý Onayý", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.tiny)

alertcondition(dnaBullTrigger, "Keskin Niþancý: AL Onayý!", "Yörük: Fiyat kalkandan sekti ve boða kýrýlýmý ONAYLANDI. Ýþleme girilebilir.")
alertcondition(dnaBearTrigger, "Keskin Niþancý: SAT Onayý!", "Yörük: Fiyat kalkandan sekti ve ayý kýrýlýmý ONAYLANDI. Ýþleme girilebilir.") 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - ML Kernel]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. GÝRDÝLER VE ÖZEL ÇARPANLAR
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

atrLen        = input.int(14, "ATR Periyodu", group="DNA Gizli Tetik")
minConfidence = input.int(75, "Min Güvenilirlik %", group="DNA Gizli Tetik")
volSmaLen     = input.int(20, "Hacim SMA Uzunluðu", group="DNA Gizli Tetik")

// ─────────────────────────────────────────────────────────────────
//  2. YENÝ OMURGA: NADARAYA-WATSON (ML KERNEL)
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
int k_len = 30

// HATA DÜZELTÝLDÝ: Tüm þartlar nizami olarak alt satýra alýndý
if tf == "1"
    k_len := 34
else if tf == "3"
    k_len := 21
else if tf == "5"
    k_len := 13
else if tf == "15"
    k_len := 8
else if tf == "60"
    k_len := 5
else if tf == "240"
    k_len := 3
else
    k_len := 2

rawATR     = ta.atr(14)
atrNorm    = rawATR / close
atrFactor  = ta.ema(atrNorm, 14)
adaptScale = 1.0 + (atrFactor * 200.0)
h_val      = 8.0 * adaptScale

float nwSum = 0.0
float nwWeight = 0.0
for i = 0 to k_len - 1
    float kw = math.exp(-math.pow(i, 2) / (2.0 * math.pow(h_val, 2)))
    nwSum += kw * nz(close[i])
    nwWeight += kw

float nwRaw = nwSum / nwWeight
float aktif_zirh = ta.ema(nwRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  3. OTONOM BEYÝN (KRAL SAR)
// ─────────────────────────────────────────────────────────────────
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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  4. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  5. CANDLE DNA ANALYZER (GÝZLÝ KESKÝN NÝÞANCI TETÝÐÝ)
// ─────────────────────────────────────────────────────────────────
candleRange = high - low
bodySize    = math.abs(close - open)
upperWick   = high - math.max(close, open)
lowerWick   = math.min(close, open) - low

bodyRatio  = candleRange > 0 ? (bodySize / candleRange) * 100 : 0.0
upperRatio = candleRange > 0 ? (upperWick / candleRange) * 100 : 0.0
lowerRatio = candleRange > 0 ? (lowerWick / candleRange) * 100 : 0.0

atrVal     = ta.atr(atrLen)
rangeVsAtr = atrVal > 0 ? (candleRange / atrVal) * 100 : 0.0

volSma      = ta.sma(volume, volSmaLen)
volRelative = volSma > 0 ? (volume / volSma) * 100 : 100.0

closePos    = candleRange > 0 ? ((close - low) / candleRange) * 100 : 50.0

isBullish = close > open
isBearish = close < open

float hammerScore = 0.0
hammerScore += (lowerRatio > 60 ? 30.0 : lowerRatio > 40 ? 15.0 : 0.0)
hammerScore += (upperRatio < 10 ? 25.0 : upperRatio < 20 ? 10.0 : 0.0)
hammerScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
hammerScore += (closePos > 65 ? 15.0 : closePos > 50 ? 8.0 : 0.0)
hammerScore += (volRelative > 120 ? 10.0 : 0.0)
bool isHammer = hammerScore >= minConfidence

float starScore = 0.0
starScore += (upperRatio > 60 ? 30.0 : upperRatio > 40 ? 15.0 : 0.0)
starScore += (lowerRatio < 10 ? 25.0 : lowerRatio < 20 ? 10.0 : 0.0)
starScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
starScore += (closePos < 35 ? 15.0 : closePos < 50 ? 8.0 : 0.0)
starScore += (volRelative > 120 ? 10.0 : 0.0)
bool isStar = starScore >= minConfidence

float engulfBullScore = 0.0
float prevBody = math.abs(close[1] - open[1])
engulfBullScore += (isBullish and isBearish[1] and bodySize > prevBody ? 35.0 : 0.0)
engulfBullScore += (close > open[1] and open < close[1] ? 25.0 : 0.0)
engulfBullScore += (bodyRatio > 60 ? 15.0 : bodyRatio > 45 ? 8.0 : 0.0)
engulfBullScore += (volRelative > 110 ? 15.0 : volRelative > 90 ? 5.0 : 0.0)
engulfBullScore += (rangeVsAtr > 80 ? 10.0 : 0.0)
bool isEngulfBull = engulfBullScore >= minConfidence

float engulfBearScore = 0.0
engulfBearScore += (isBearish and isBullish[1] and bodySize > prevBody ? 35.0 : 0.0)
engulfBearScore += (close < open[1] and open > close[1] ? 25.0 : 0.0)
engulfBearScore += (bodyRatio > 60 ? 15.0 : bodyRatio > 45 ? 8.0 : 0.0)
engulfBearScore += (volRelative > 110 ? 15.0 : volRelative > 90 ? 5.0 : 0.0)
engulfBearScore += (rangeVsAtr > 80 ? 10.0 : 0.0)
bool isEngulfBear = engulfBearScore >= minConfidence

bool isBullPattern = isHammer or isEngulfBull
bool isBearPattern = isStar or isEngulfBear

// SAVAÞ BÖLGESÝ FÝLTRESÝ
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)

bool dnaBullTrigger = isBullPattern and touchesCloud
bool dnaBearTrigger = isBearPattern and touchesCloud

// ─────────────────────────────────────────────────────────────────
//  6. YÝN-YANG, YÖRÜK VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

cc = ta.sar(0.01, 0.02, 0.2)
color col_ana   = kral_yon ? color.lime : color.red
color col_yoruk = close > cc ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  7. ÇÝZÝMLER (MÝNÝMALÝST EKRAN + GÝZLÝ TETÝK)
// ─────────────────────────────────────────────────────────────────
p_mats  = plot(aktif_zirh, title="ML Kernel Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

plot(cc, "@yörük@", color=col_yoruk, style=plot.style_cross, linewidth=2)

plotshape(dnaBullTrigger, title="DNA Boða Reddi", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.tiny)
plotshape(dnaBearTrigger, title="DNA Ayý Reddi", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.tiny)

alertcondition(dnaBullTrigger, "DNA Boða Dönüþü!", "Yörük: Fiyat Kalkan'a çarptý ve kusursuz bir Boða Mumu býraktý (AL Tetiði).")
alertcondition(dnaBearTrigger, "DNA Ayý Dönüþü!", "Yörük: Fiyat Kalkan'a çarptý ve kusursuz bir Ayý Mumu býraktý (SAT Tetiði).") 

[@yörük@]

//@version=6
indicator("Yörük [Titan Form - DNA Keskin Niþancýsý]", overlay=true, max_labels_count=500)

// ─────────────────────────────────────────────────────────────────
//  1. TEMEL MATEMATÝKSEL VE MATS FONKSÝYONLARI
// ─────────────────────────────────────────────────────────────────
bool_to_float(bool source) => source ? 1.0 : 0.0

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

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

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

f_mats(int _len) =>
    atr_val = ema(ta.tr)
    slope = (close - close[10]) / (atr_val * 10)
    angle_rad = atan2(slope, 1)
    deg = degrees(angle_rad)
    src_m = ta.sma((deg > 0 ? high : low), 2)
    smooth = 0.0
    hh = math.max(math.sign(ta.change(ta.highest(_len))), 0)
    ll = math.max(math.sign(ta.change(ta.lowest(_len)) * -1), 0)
    tc = math.pow(ta.sma(bool_to_float(hh > 0 or ll > 0), _len), 2)
    smooth := nz(smooth[1] + tc * (src_m - smooth[1]), src_m)
    wp = _len * 4 - 1
    a = math.abs(nz(smooth[1]) - smooth)
    ma_a = ta.ema(a, wp)
    dfa = ta.ema(ma_a, wp) * _len * 0.4
    res = 0.0
    if smooth > nz(res[1])
        res := (smooth - dfa < res[1]) ? res[1] : (smooth - dfa)
    else
        res := (smooth + dfa > res[1]) ? res[1] : (smooth + dfa)
    res

// ─────────────────────────────────────────────────────────────────
//  2. GÝRDÝLER 
// ─────────────────────────────────────────────────────────────────
k_start = input.float(0.0,  "Kral Baþlangýç", step=0.01, group="Otonom Beyin")
k_inc   = input.float(0.02, "Kral Ývme", step=0.01, group="Otonom Beyin")
k_max   = input.float(0.20, "Kral Max", step=0.01, group="Otonom Beyin")

h_start = input.float(0.06, "Hýzlý SAR Baþlangýç", group="Yin-Yang SAR")
h_inc   = input.float(0.06, "Hýzlý SAR Ývme", group="Yin-Yang SAR")
h_max   = input.float(0.30, "Hýzlý SAR Max", group="Yin-Yang SAR")

y_start = input.float(0.01, "Yavaþ SAR Baþlangýç", group="Yin-Yang SAR")
y_inc   = input.float(0.01, "Yavaþ SAR Ývme", group="Yin-Yang SAR")
y_max   = input.float(0.10, "Yavaþ SAR Max", group="Yin-Yang SAR")

multTight = input.float(0.7,  "Zýrh Ývme Çarpaný (+)", step=0.1, group="RMDT Kuantum Boðumu")
multWide  = input.float(-0.7, "Zýrh Yorulma Çarpaný (-)", step=0.1, group="RMDT Kuantum Boðumu")

// DNA Girdileri
atrLen        = input.int(14, "ATR Periyodu", group="DNA Gizli Tetik")
minConfidence = input.int(75, "Min Güvenilirlik %", group="DNA Gizli Tetik")
volSmaLen     = input.int(20, "Hacim SMA Uzunluðu", group="DNA Gizli Tetik")

// ─────────────────────────────────────────────────────────────────
//  3. ADAPTÝF MATS ZIRHI VE OTONOM BEYÝN
// ─────────────────────────────────────────────────────────────────
string tf = timeframe.period
float aktif_zirh = na

if tf == "1"
    aktif_zirh := f_mats(34)
else if tf == "3"
    aktif_zirh := f_mats(21)
else if tf == "5"
    aktif_zirh := f_mats(13)
else if tf == "15"
    aktif_zirh := f_mats(8)
else if tf == "60"
    aktif_zirh := f_mats(5)
else if tf == "240"
    aktif_zirh := f_mats(3)
else
    aktif_zirh := f_mats(2)

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 high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max, float decay_limit, float atr_val) =>
    bool isInit = false
    bool t_change = false
    
    if na(state.sar_value)
        if close_val > close_val[1]
            state.isLong := true
            state.extreme_point := high_val
            state.sar_value := low_val[1]
        else
            state.isLong := false
            state.extreme_point := low_val
            state.sar_value := high_val[1]
        isInit := 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 > low_val
            isInit := true
            t_change := true
            state.isLong := false
            state.sar_value := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor := accel_start
            state.trend_age := 0 
    else
        if state.sar_value < high_val
            isInit := true
            t_change := true
            state.isLong := true
            state.sar_value := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor := accel_start
            state.trend_age := 0 
            
    if t_change
        state.bounce_count := 0
        state.was_touching := false
    else
        float tol = atr_val * 0.2 
        bool is_touch = state.isLong ? (low_val <= state.sar_value + tol) : (high_val >= state.sar_value - tol)
        if is_touch and not state.was_touching
            state.bounce_count += 1 
        state.was_touching := is_touch
        
    float decay = math.max(0.01, 1.0 - (state.trend_age / decay_limit))
    float y_inc = accel_inc * decay
    
    if not isInit
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor := math.min(state.accel_factor + y_inc, accel_max)
                
    if bar_index > 2
        if state.isLong
            state.sar_value := math.min(math.min(state.sar_value, low_val[1]), low_val[2])
        else
            state.sar_value := math.max(math.max(state.sar_value, high_val[1]), high_val[2])
    state

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, k_start, false, 0, 0, false))

float gercek_oynaklik = ta.atr(14)
for i = 0 to 8
    states.get(i).f_updateState(high, low, close, k_start, k_inc, k_max, fibs.get(i), gercek_oynaklik)

var int king_idx = 5 
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 

bool kral_yon = states.get(king_idx).isLong

// ─────────────────────────────────────────────────────────────────
//  4. KUANTUM BOÐUMU HESAPLAMASI (RMDT KALKAN)
// ─────────────────────────────────────────────────────────────────
f_rmsd(src, bench, len) =>
    float sum_sq = 0.0
    for i = 0 to len - 1
        sum_sq += math.pow(nz(src[i]) - nz(bench[i]), 2)
    math.sqrt(sum_sq / len)

rmsdVal = f_rmsd(close, aktif_zirh, 20)
devRaw  = rmsdVal > 0 ? (close - aktif_zirh) / rmsdVal : 0.0
devSig  = ta.ema(devRaw, 6)
sigAbs  = math.abs(devSig)
sigPeak = ta.highest(sigAbs, 50) 
sigNorm = sigPeak > 0 ? math.min(sigAbs / sigPeak, 1.0) : 0.0

mult      = multWide - sigNorm * (multWide - multTight)
bandwidth = rmsdVal * mult

float trailRaw = kral_yon ? (aktif_zirh - bandwidth) : (aktif_zirh + bandwidth)
float trail    = ta.ema(trailRaw, 3)

// ─────────────────────────────────────────────────────────────────
//  5. CANDLE DNA ANALYZER (GÝZLÝ KESKÝN NÝÞANCI TETÝÐÝ)
// ─────────────────────────────────────────────────────────────────
candleRange = high - low
bodySize    = math.abs(close - open)
upperWick   = high - math.max(close, open)
lowerWick   = math.min(close, open) - low

bodyRatio  = candleRange > 0 ? (bodySize / candleRange) * 100 : 0.0
upperRatio = candleRange > 0 ? (upperWick / candleRange) * 100 : 0.0
lowerRatio = candleRange > 0 ? (lowerWick / candleRange) * 100 : 0.0

atrVal     = ta.atr(atrLen)
rangeVsAtr = atrVal > 0 ? (candleRange / atrVal) * 100 : 0.0

volSma      = ta.sma(volume, volSmaLen)
volRelative = volSma > 0 ? (volume / volSma) * 100 : 100.0

closePos    = candleRange > 0 ? ((close - low) / candleRange) * 100 : 50.0

isBullish = close > open
isBearish = close < open

// Çekiç (Hammer) Skoru
float hammerScore = 0.0
hammerScore += (lowerRatio > 60 ? 30.0 : lowerRatio > 40 ? 15.0 : 0.0)
hammerScore += (upperRatio < 10 ? 25.0 : upperRatio < 20 ? 10.0 : 0.0)
hammerScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
hammerScore += (closePos > 65 ? 15.0 : closePos > 50 ? 8.0 : 0.0)
hammerScore += (volRelative > 120 ? 10.0 : 0.0)
bool isHammer = hammerScore >= minConfidence

// Kayan Yýldýz (Shooting Star) Skoru
float starScore = 0.0
starScore += (upperRatio > 60 ? 30.0 : upperRatio > 40 ? 15.0 : 0.0)
starScore += (lowerRatio < 10 ? 25.0 : lowerRatio < 20 ? 10.0 : 0.0)
starScore += (bodyRatio < 35 ? 20.0 : bodyRatio < 45 ? 10.0 : 0.0)
starScore += (closePos < 35 ? 15.0 : closePos < 50 ? 8.0 : 0.0)
starScore += (volRelative > 120 ? 10.0 : 0.0)
bool isStar = starScore >= minConfidence

// Yutan Boða (Bullish Engulfing) Skoru
float engulfBullScore = 0.0
float prevBody = math.abs(close[1] - open[1])
engulfBullScore += (isBullish and isBearish[1] and bodySize > prevBody ? 35.0 : 0.0)
engulfBullScore += (close > open[1] and open < close[1] ? 25.0 : 0.0)
engulfBullScore += (bodyRatio > 60 ? 15.0 : bodyRatio > 45 ? 8.0 : 0.0)
engulfBullScore += (volRelative > 110 ? 15.0 : volRelative > 90 ? 5.0 : 0.0)
engulfBullScore += (rangeVsAtr > 80 ? 10.0 : 0.0)
bool isEngulfBull = engulfBullScore >= minConfidence

// Yutan Ayý (Bearish Engulfing) Skoru
float engulfBearScore = 0.0
engulfBearScore += (isBearish and isBullish[1] and bodySize > prevBody ? 35.0 : 0.0)
engulfBearScore += (close < open[1] and open > close[1] ? 25.0 : 0.0)
engulfBearScore += (bodyRatio > 60 ? 15.0 : bodyRatio > 45 ? 8.0 : 0.0)
engulfBearScore += (volRelative > 110 ? 15.0 : volRelative > 90 ? 5.0 : 0.0)
engulfBearScore += (rangeVsAtr > 80 ? 10.0 : 0.0)
bool isEngulfBear = engulfBearScore >= minConfidence

bool isBullPattern = isHammer or isEngulfBull
bool isBearPattern = isStar or isEngulfBear

// SAVAÞ BÖLGESÝ FÝLTRESÝ (Zýrha Temas Var Mý?)
float cloudTop = math.max(trail, aktif_zirh)
float cloudBot = math.min(trail, aktif_zirh)
bool touchesCloud = (low <= cloudTop and high >= cloudBot)

// Gizli Tetik: Mum hem dönüþ mumu olacak, HEM DE Kalkan/Zýrh ile temas edecek!
bool dnaBullTrigger = isBullPattern and touchesCloud
bool dnaBearTrigger = isBearPattern and touchesCloud

// ─────────────────────────────────────────────────────────────────
//  6. YÝN-YANG, YÖRÜK VE MUM RENKLERÝ
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset) =>
    var int trend = 0
    var float sar_v = 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_v := trend > 0 ? src_l[1] : src_h[1]
        ep := trend > 0 ? src_h[1] : src_l[1]
        af := _start
    else 
        if _reset
            af := _start
            
        float n_sar = sar_v
        
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.min(math.min(src_l[1], src_l[2]), n_sar)
            if n_sar > src_l
                trend := -1
                n_sar := ep
                ep := src_l
                af := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            n_sar := sar_v + af * (ep - sar_v)
            n_sar := math.max(math.max(src_h[1], src_h[2]), n_sar)
            if n_sar < src_h
                trend := 1
                n_sar := ep
                ep := src_h
                af := _start
                
        sar_v := n_sar
    [sar_v, trend]

[sar_hizli, tr_hizli] = f_ozel_sar(high, low, h_start, h_inc, h_max, ta.change(time("D")) != 0)
[sar_yavas, tr_yavas] = f_ozel_sar(high, low, y_start, y_inc, y_max, ta.change(time("D")) != 0)

cc = ta.sar(0.01, 0.02, 0.2)

color col_ana   = kral_yon ? color.lime : color.red
color col_yoruk = close > cc ? color.lime : color.red

bool ahenk_boga = (tr_hizli > 0) and (tr_yavas > 0)
bool ahenk_ayi  = (tr_hizli < 0) and (tr_yavas < 0)
barcolor(ahenk_boga ? color.lime : ahenk_ayi ? color.red : color.new(color.gray, 60))

// ─────────────────────────────────────────────────────────────────
//  7. ÇÝZÝMLER (MÝNÝMALÝST EKRAN + GÝZLÝ TETÝK)
// ─────────────────────────────────────────────────────────────────
// 1. ZIRH VE RMDT KALKANI (Sade Bulut)
p_mats  = plot(aktif_zirh, title="MATS Omurga", color=color.new(col_ana, 40), linewidth=3)
p_trail = plot(trail,      title="RMDT Kalkan", color=col_ana, linewidth=1, style=plot.style_linebr)
fill(p_mats, p_trail, color=color.new(col_ana, 85), title="Adaptif Zýrh Bulutu")

// 2. YÖRÜK SAR
plot(cc, "@yörük@", color=col_yoruk, style=plot.style_cross, linewidth=2)

// 3. DNA GÝZLÝ TETÝK ÝÞARETLERÝ (Sadece zýrha çarpan dönüþ mumlarýnda yanar)
plotshape(dnaBullTrigger, title="DNA Boða Reddi", style=shape.triangleup, location=location.belowbar, color=#00d4ff, size=size.tiny)
plotshape(dnaBearTrigger, title="DNA Ayý Reddi", style=shape.triangledown, location=location.abovebar, color=#ff2d78, size=size.tiny)

// Alarmlar
alertcondition(dnaBullTrigger, "DNA Boða Dönüþü!", "Yörük: Fiyat Kalkan'a çarptý ve kusursuz bir Boða Mumu býraktý (AL Tetiði).")
alertcondition(dnaBearTrigger, "DNA Ayý Dönüþü!", "Yörük: Fiyat Kalkan'a çarptý ve kusursuz bir Ayý Mumu býraktý (SAT Tetiði).")