Tradingview

[@yörük@]

//@version=5
indicator(":)", overlay=true)

// ─────────────────────────────────────────────────────────────────
//  1. RÜZGÂR / ENERJÝ FÝLTRESÝ (Durgunluk Kuþaðý)
// ─────────────────────────────────────────────────────────────────
volatilite_orani = ta.atr(14) / ta.sma(ta.tr, 50)
ruzgar_yok = volatilite_orani < 0.8
bgcolor(ruzgar_yok ? color.new(color.orange, 85) : na, title="Rüzgârsýz / Ölü Bölge")

// ─────────────────────────────────────────────────────────────────
//  2. OTONOM BEYÝN (MTK 1-2-3 DÝNAMÝK SAR ÞAHÝNLERÝ)
// ─────────────────────────────────────────────────────────────────
type SARState
    float sar_value
    float extreme_point
    float accel_factor
    bool  isLong

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

method f_updateState(SARState state, float high_val, float low_val, float close_val, float accel_start, float accel_inc, float accel_max) =>
    bool isInitialTrend = 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]
        isInitialTrend          := true
        state.accel_factor      := accel_start
    state.sar_value             += state.accel_factor * (state.extreme_point - state.sar_value)
    if state.isLong
        if state.sar_value > low_val
            isInitialTrend      := true
            state.isLong        := false
            state.sar_value     := math.max(high_val, state.extreme_point)
            state.extreme_point := low_val
            state.accel_factor  := accel_start
    else
        if state.sar_value < high_val
            isInitialTrend      := true
            state.isLong        := true
            state.sar_value     := math.min(low_val, state.extreme_point)
            state.extreme_point := high_val
            state.accel_factor  := accel_start
    if not isInitialTrend
        if state.isLong
            if high_val > state.extreme_point
                state.extreme_point := high_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
        else
            if low_val < state.extreme_point
                state.extreme_point := low_val
                state.accel_factor  := math.min(state.accel_factor + accel_inc, accel_max)
    if bar_index > 1
        if state.isLong
            state.sar_value := math.min(state.sar_value, low_val[1])
            if bar_index > 2
                state.sar_value := math.min(state.sar_value, low_val[2])
        else
            state.sar_value := math.max(state.sar_value, high_val[1])
            if bar_index > 2
                state.sar_value := math.max(state.sar_value, high_val[2])
    state

var SARState state_ana   = f_initState(0.01)
var SARState state_orta  = f_initState(0.01)
var SARState state_hizli = f_initState(0.01)

atr14     = ta.atr(14)
base_mult = (atr14 / close) * 100
vol_mult  = math.min(math.max(base_mult, 0.5), 2.0)
dyn_max   = 0.2 * vol_mult 

state_ana   := state_ana.f_updateState(high, low, close, 0.01, 0.01, dyn_max)
state_orta  := state_orta.f_updateState(high, low, close, 0.01, 0.02, dyn_max)
state_hizli := state_hizli.f_updateState(high, low, close, 0.01, 0.03, dyn_max)

sar_hizli = state_hizli.sar_value

// ─────────────────────────────────────────────────────────────────
//  3. GECÝKMESÝZ PÝVOT (Ayak Ýzleri / Tepe ve Dip)
// ─────────────────────────────────────────────────────────────────
trend_yukari = close > sar_hizli
trend_asagi  = close < sar_hizli

donus_asagi  = trend_asagi and trend_yukari[1] 
donus_yukari = trend_yukari and trend_asagi[1] 

var float hprice = na 
var float lprice = na 

if donus_asagi
    hprice := sar_hizli
if donus_yukari
    lprice := sar_hizli

plot(hprice, "Direnç Pivot", color=color.new(color.red, 30),   linewidth=2, style=plot.style_stepline)
plot(lprice, "Destek Pivot", color=color.new(color.lime, 30), linewidth=2, style=plot.style_stepline)

// ─────────────────────────────────────────────────────────────────
//  4. SIFIR GECÝKMELÝ FIBONACCI (Mizan / Kilit Taþý)
// ─────────────────────────────────────────────────────────────────
fibo_fark = hprice - lprice

fibo_618 = lprice + (fibo_fark * 0.618)
fibo_500 = lprice + (fibo_fark * 0.500)
fibo_382 = lprice + (fibo_fark * 0.382)

//plot(hprice != na and lprice != na ? fibo_618 : na, "Fib 0.618", color=color.new(color.yellow, 40), linewidth=1, style=plot.style_circles)
//plot(hprice != na and lprice != na ? fibo_500 : na, "Fib 0.500", color=color.new(color.white, 50),  linewidth=1, style=plot.style_cross)
//plot(hprice != na and lprice != na ? fibo_382 : na, "Fib 0.382", color=color.new(color.yellow, 40), linewidth=1, style=plot.style_circles)

// ─────────────────────────────────────────────────────────────────
//  5. ÞAM ÇELÝÐÝ: SIVI ZIRH (Smoothed Heikin Ashi)
// ─────────────────────────────────────────────────────────────────
// Çifte Damýtma Süreci (Anlýk Periyot - MTF Yok)
o1 = ta.ema(open, 10)
c1 = ta.ema(close, 10)
h1 = ta.ema(high, 10)
l1 = ta.ema(low, 10)

haclose = (o1 + h1 + l1 + c1) / 4
var float haopen = na
haopen := na(haopen[1]) ? (o1 + c1) / 2 : (haopen[1] + haclose[1]) / 2
hahigh = math.max(h1, math.max(haopen, haclose))
halow  = math.min(l1, math.min(haopen, haclose))

o2 = ta.ema(haopen, 10)
c2 = ta.ema(haclose, 10)
h2 = ta.ema(hahigh, 10)
l2_val = ta.ema(halow, 10)

// Yarý Þeffaf Zýrh Renkleri (Alttaki mumlarý boðmamasý için)
zirh_up = color.new(color.lime, 40)
zirh_dn = color.new(color.red, 40)
zirh_renk = o2 <= c2 ? zirh_up : zirh_dn

plotcandle(o2, h2, l2_val, c2, title="(HA)", color=zirh_renk, wickcolor=zirh_renk, bordercolor=zirh_renk, editable=false)

// ─────────────────────────────────────────────────────────────────
//  6. NÝHAÝ HÜCUM SÝNYALÝ
// ─────────────────────────────────────────────────────────────────
long_cond  = ta.crossover(close, hprice) and not ruzgar_yok
short_cond = ta.crossunder(close, lprice) and not ruzgar_yok

var int last_signal = 0
long_final  = long_cond  and (last_signal == 0 or last_signal == -1)
short_final = short_cond and (last_signal == 0 or last_signal == 1)

if long_final
    last_signal := 1
else if short_final
    last_signal := -1

//plotshape(long_final,  "AL (Hücum)", style=shape.arrowup,   location=location.belowbar, color=color.lime, text="HÜCUM", size=size.normal)
//plotshape(short_final, "SAT (Hücum)", style=shape.arrowdown, location=location.abovebar, color=color.red,  text="HÜCUM", size=size.normal)
////////////////////

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

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

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

// ─────────────────────────────────────────────────────────────────
//  3. GÖRSELLEÞTÝRME (FUÞYA HALKALAR)
// ─────────────────────────────────────────────────────────────────
// 3 Daire de Fuþya renginde, kalýnlýklarý ile birbirinden ayrýlýyor.
plot(sar_04, "SAR1", color=color.yellow, linewidth=1, style=plot.style_steplinebr)
plot(sar_03, "SAR2",color=color.blue, linewidth=1, style=plot.style_steplinebr)
plot(sar_02, "SAR3",  color=color.fuchsia, linewidth=1, style=plot.style_steplinebr)
////////////////
// ─────────────────────────────────────────────────────────────────
//  AYARLAR: Asimetrik Damýtma Deðerleri
// ─────────────────────────────────────────────────────────────────
ilk_damitma = input.int(34, "1. Damýtma (Kalýn Elek - EMA)", minval=1, tooltip="Çýplak fiyatýn gürültüsünü emen ilk aðýr filtre.")
ikinci_damitma = input.int(13, "2. Damýtma (Ýnce Tülbent - EMA)", minval=1, tooltip="Heikin Ashi sonrasý tepki hýzýný belirleyen ince filtre.")

// ─────────────────────────────────────────────────────────────────
//  1. ÞAM ÇELÝÐÝ: ASÝMETRÝK SIVI ZIRH
// ─────────────────────────────────────────────────────────────────
// Birinci Damýtma (Kalýn Elek: Örn. 20)
o16 = ta.ema(open, ilk_damitma)
c16 = ta.ema(close, ilk_damitma)
h16 = ta.ema(high, ilk_damitma)
l16 = ta.ema(low, ilk_damitma)

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

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

zirh_yesil6 = (c26 >= o26)
zirh_renk6 = zirh_yesil6 ? color.new(color.lime, 30) : color.new(color.red, 30)
plotcandle(o26, h26, l2_val6, c26, title="Asimetrik", color=zirh_renk6, wickcolor=zirh_renk6, bordercolor=zirh_renk6, editable=false) 

[@yörük@]

//@version=6
strategy("MTF Ayna Stratejisi [3 Þifreli Kilit]", overlay=true, initial_capital=10000, default_qty_type=strategy.percent_of_equity, default_qty_value=100)

// ─────────────────────────────────────────────────────────────────
//  1. ÇÝFT AYNALI OMURGA MOTORU
// ─────────────────────────────────────────────────────────────────
f_katman_ana(_start, _inc, _max, _smooth) =>
    float _sar = ta.sar(_start, _inc, _max)
    float _delta = math.abs(close - _sar)
    bool _is_up  = close > _sar
    float _raw_mirror = _is_up ? close + _delta : close - _delta
    ta.hma(_raw_mirror, _smooth)

f_saf_ayna() =>
    float ayna_12 = f_katman_ana(0.08, 0.05, 0.2, 13)
    float ayna_32 = f_katman_ana(0.08, 0.05, 0.2, 34)
    (ayna_12 + ayna_32) / 2

// ─────────────────────────────────────────────────────────────────
//  2. ZAMAN DÝLÝMLERÝNDEN VERÝ ÇEKÝMÝ (MTF)
// ─────────────────────────────────────────────────────────────────
ayna_H1 = request.security(syminfo.tickerid, "1",  f_saf_ayna(), lookahead=barmerge.lookahead_off)
ayna_H4 = request.security(syminfo.tickerid, "5", f_saf_ayna(), lookahead=barmerge.lookahead_off)
ayna_D  = request.security(syminfo.tickerid, "15",   f_saf_ayna(), lookahead=barmerge.lookahead_off)

// ─────────────────────────────────────────────────────────────────
//  3. HÜCUM PROTOKOLÜ (GÝRÝÞ VE ÇIKIÞ ÞARTLARI)
// ─────────────────────────────────────────────────────────────────
// AL: Fiyatýn o anki kapanýþý, üç aynanýn da üstündedir (3 Kilit Açýldý)
bool kosul_al = close > ayna_H1 and close > ayna_H4 and close > ayna_D

// SAT: Fiyatýn o anki kapanýþý, üç aynanýn da altýndadýr (3 Kilit Kapandý)
bool kosul_sat = close < ayna_H1 and close < ayna_H4 and close < ayna_D

if kosul_al
    strategy.entry("AL", strategy.long)

if kosul_sat
    strategy.entry("SAT", strategy.short)

// ─────────────────────────────────────────────────────────────────
//  4. GÖRSELLEÞTÝRME VE ONAY
// ─────────────────────────────────────────────────────────────────
plot(ayna_H1, title="1 Saatlik Ayna", color=color.new(color.lime, 0),   linewidth=1)
plot(ayna_H4, title="4 Saatlik Ayna", color=color.new(color.orange, 0), linewidth=1)
plot(ayna_D,  title="Günlük Ayna",    color=color.new(color.fuchsia, 0),linewidth=1)

// Sistem füzeyi ateþlediðinde arka planý o anlýk boyar
bgcolor(kosul_al ? color.new(color.lime, 90) : kosul_sat ? color.new(color.red, 90) : na, title="Ateþleme Arka Planý") 

[@yörük@]

//@version=5
strategy("MTK: Asimetrik Sývý Zýrh Backtest", overlay=true, initial_capital=1000, default_qty_type=strategy.percent_of_equity, default_qty_value=100, commission_type=strategy.commission.percent, commission_value=0.04)

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

// ─────────────────────────────────────────────────────────────────
//  1. ÞAM ÇELÝÐÝ: ASÝMETRÝK SIVI ZIRH
// ─────────────────────────────────────────────────────────────────
// Birinci Damýtma (Kalýn Elek: Örn. 20)
o16 = ta.ema(open, ilk_damitma)
c16 = ta.ema(close, ilk_damitma)
h16 = ta.ema(high, ilk_damitma)
l16 = ta.ema(low, ilk_damitma)

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

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

zirh_yesil6 = (c26 >= o26)
zirh_renk6 = zirh_yesil6 ? color.new(color.lime, 30) : color.new(color.red, 30)
plotcandle(o26, h26, l2_val6, c26, title="Asimetrik Sývý Zýrh", color=zirh_renk6, wickcolor=zirh_renk6, bordercolor=zirh_renk6, editable=false)

// ─────────────────────────────────────────────────────────────────
//  2. STRATEJÝ GÝRÝÞ VE ÇIKIÞLARI
// ─────────────────────────────────────────────────────────────────
long_sinyali = ta.crossover(c26, o26)
short_sinyali = ta.crossunder(c26, o26)

if long_sinyali
    strategy.entry("Asimetrik AL", strategy.long)

if short_sinyali
    strategy.entry("Asimetrik SAT", strategy.short)

plotshape(long_sinyali,  "Zýrh Yeþile Döndü", style=shape.triangleup,   location=location.belowbar, color=color.lime, size=size.normal)
plotshape(short_sinyali, "Zýrh Kýrmýzýya Döndü", style=shape.triangledown, location=location.abovebar, color=color.red,  size=size.normal) 

strateji deðiþikliðini kendiniz ayarlayabilirsiniz. backtest
unutmayýn bu arz çalýþmalar da lagging söz konusu olur.
çünkü.. 20 eme alýndý...heikinashi yapýldý. çýkan sonuç 10 ema tekrar geçirildi.

[@yörük@]

iki sar deðeri belirlendi.... sonra bunlarýn zýddý iki ayna hesaplandý...sonra bu iki ynanýn dip ve tepesi hafýzzaya alýndý.
dip ve tepelerden kanallar belirlendi. hýzlý olan yeþil kýrmýzý oldu. yavaþ olan sarý mavi oldu.
kullanýmý 1den 15 dak periyota kadar ideal. tasarlanma amacý 1dakkalýk scalping için... kanal parçasý...

//@version=6
indicator(".", overlay=true)

// ─────────────────────────────────────────────────────────────────
//  LONESOME SAR MOTORU (Kesintisiz Akýþ)
// ─────────────────────────────────────────────────────────────────
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]

// ─────────────────────────────────────────────────────────────────
//  1. ÝÇ KANAL (Hýzlý / Merkür) | Ývme: 0.01 | Dolgulu | Yeþil-Kýrmýzý
// ─────────────────────────────────────────────────────────────────
[sar1, trend1] = f_ozel_sar(high, low, 0.0, 0.01, 0.03)
delta1 = math.abs(close - sar1)
ayna_h1 = trend1 > 0 ? close + delta1 : close - delta1
ayna_z1 = trend1 > 0 ? close - delta1 : close + delta1

var float s1_ust = na, var float s1_alt = na
if ta.change(trend1) != 0
    s1_ust := math.max(ayna_h1, ayna_z1)
    s1_alt := math.min(ayna_h1, ayna_z1)

col1 = trend1 > 0 ? color.new(color.lime, 0) : color.new(color.red, 0)
p1_ust = plot(s1_ust, title="Kanal 1 Üst", color=col1, style=plot.style_line, linewidth=1)
p1_alt = plot(s1_alt, title="Kanal 1 Alt", color=col1, style=plot.style_line, linewidth=1)
//fill(p1_ust, p1_alt, color=color.new(col1, 92), title="Kanal 1 Dolgu")

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

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

col2 = trend2 > 0 ? color.new(color.yellow, 0) : color.new(color.blue, 0)
plot(s2_ust, title="Kanal 2 Üst", color=col2, style=plot.style_line, linewidth=1)
plot(s2_alt, title="Kanal 2 Alt", color=col2, style=plot.style_line, linewidth=1)

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

böyle yazýncaa daha anlaþýlýr olur belki...

[@yörük@]

forumda bir hata var. yüklediðim kodlarýn altýna kýsa açýklama yazdýðýmda...
kodun içindeki açýklamalar bozuluyor.

[@yörük@]

//@version=6
indicator("Devasa Hýzlý SAR Tarayýcý [Grup Seçmeli]", overlay=true)

// ─────────────────────────────────────────────────────────────────
//  1. GRUP SEÇÝMÝ VE VÝRGÜLLÜ LÝSTELER
// ─────────────────────────────────────────────────────────────────
grp_ayar = "Tarama Gruplarý (Virgülle Ayýrýn)"
secilen_grup = input.string("Grup 1", "Taranacak Grubu Seçin", options=["Grup 1", "Grup 2", "Grup 3", "Grup 4", "Grup 5", "Grup 6", "Grup 7", "Grup 8", "Grup 9", "Grup 10"], group=grp_ayar)

// Kullanýcý bu listeleri ayarlardan istediði gibi deðiþtirebilir. (Aralarýna virgül koymak þartýyla)
g1 = input.string("BIST:THYAO, BIST:TUPRS, BIST:ASELS, BIST:KCHOL, BIST:EREGL, BIST:AKBNK, BIST:YKBNK, BIST:ISCTR, BIST:GARAN, BIST:SAHOL, BIST:SISE, BIST:PETKM, BIST:BIMAS, BIST:PGSUS, BIST:FROTO, BIST:TOASO, BIST:TCELL, BIST:TTKOM, BIST:ENKAI, BIST:KOZAL", "Grup 1 Listesi", group=grp_ayar)
g2 = input.string("BIST:HEKTS, BIST:SASA, BIST:ASTOR, BIST:ALARK, BIST:TAVHL, BIST:DOAS, BIST:MGROS, BIST:OTKAR, BIST:VESBE, BIST:ARCLK, BIST:KRDMD, BIST:ENJSA, BIST:ODAS, BIST:GWIND, BIST:SMRTG, BIST:EUPWR, BIST:GESAN, BIST:KONTR, BIST:YEOTK, BIST:MIATK", "Grup 2 Listesi", group=grp_ayar)
g3 = input.string("", "Grup 3 Listesi", group=grp_ayar)
g4 = input.string("", "Grup 4 Listesi", group=grp_ayar)
g5 = input.string("", "Grup 5 Listesi", group=grp_ayar)
g6 = input.string("", "Grup 6 Listesi", group=grp_ayar)
g7 = input.string("", "Grup 7 Listesi", group=grp_ayar)
g8 = input.string("", "Grup 8 Listesi", group=grp_ayar)
g9 = input.string("", "Grup 9 Listesi", group=grp_ayar)
g10 = input.string("", "Grup 10 Listesi", group=grp_ayar)

// Seçilen kaseti (grubu) makineye yüklüyoruz
aktif_liste = secilen_grup == "Grup 1" ? g1 : secilen_grup == "Grup 2" ? g2 : secilen_grup == "Grup 3" ? g3 : secilen_grup == "Grup 4" ? g4 : secilen_grup == "Grup 5" ? g5 : secilen_grup == "Grup 6" ? g6 : secilen_grup == "Grup 7" ? g7 : secilen_grup == "Grup 8" ? g8 : secilen_grup == "Grup 9" ? g9 : g10

var string[] semboller = str.split(aktif_liste, ",")

// Eðer kutu boþsa veya 20'den az hisse yazýldýysa motorun çökmemesi için güvenlik filtresi
f_sym(idx) =>
    array.size(semboller) > idx and str.length(str.trim(array.get(semboller, idx))) > 0 ? str.trim(array.get(semboller, idx)) : syminfo.tickerid

s01 = f_sym(0), s02 = f_sym(1), s03 = f_sym(2), s04 = f_sym(3), s05 = f_sym(4)
s06 = f_sym(5), s07 = f_sym(6), s08 = f_sym(7), s09 = f_sym(8), s10 = f_sym(9)
s11 = f_sym(10), s12 = f_sym(11), s13 = f_sym(12), s14 = f_sym(13), s15 = f_sym(14)
s16 = f_sym(15), s17 = f_sym(16), s18 = f_sym(17), s19 = f_sym(18), s20 = f_sym(19)

// ─────────────────────────────────────────────────────────────────
//  2. SADECE "HIZLI SAR" MOTORU (MTK-1-2-3 Daire Formu)
// ─────────────────────────────────────────────────────────────────
f_ozel_sar(src_h, src_l, _start, _inc, _max, _reset_hiz) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0
    if trend == 0 and not na(src_h[1])
        trend   := src_h >= src_h[1] or src_l >= src_l[1] ? 1 : -1
        sar_val := trend > 0 ? src_l[1] : src_h[1]
        ep      := trend > 0 ? src_h[1] : src_l[1]
        af      := _start
    else 
        if _reset_hiz
            af := _start
        float nextsar = sar_val
        if trend > 0
            if src_h[1] > ep
                ep := src_h[1]
                af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.min(math.min(src_l[1], src_l[2]), nextsar)
            if nextsar > src_l
                trend   := -1
                nextsar := ep
                ep      := src_l
                af      := _start
        else 
            if src_l[1] < ep
                ep := src_l[1]
                af := math.min(_max, af + _inc)
            nextsar := sar_val + af * (ep - sar_val)
            nextsar := math.max(math.max(src_h[1], src_h[2]), nextsar)
            if nextsar < src_h
                trend   := 1
                nextsar := ep
                ep      := src_h
                af      := _start
        sar_val := nextsar
    [sar_val, trend]

f_veri_paketi() =>
    yeni_gun = ta.change(time("D")) != 0
    [sar_hizli, _] = f_ozel_sar(high, low, 0.06, 0.06, 0.30, yeni_gun)
    is_up = close > sar_hizli
    [close, sar_hizli, is_up]

// ─────────────────────────────────────────────────────────────────
//  3. SEÇÝLEN 20 VARLIKTAN VERÝ ÇEKÝMÝ
// ─────────────────────────────────────────────────────────────────
[c01, sr01, up01] = request.security(s01, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c02, sr02, up02] = request.security(s02, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c03, sr03, up03] = request.security(s03, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c04, sr04, up04] = request.security(s04, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c05, sr05, up05] = request.security(s05, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c06, sr06, up06] = request.security(s06, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c07, sr07, up07] = request.security(s07, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c08, sr08, up08] = request.security(s08, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c09, sr09, up09] = request.security(s09, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c10, sr10, up10] = request.security(s10, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c11, sr11, up11] = request.security(s11, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c12, sr12, up12] = request.security(s12, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c13, sr13, up13] = request.security(s13, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c14, sr14, up14] = request.security(s14, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c15, sr15, up15] = request.security(s15, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c16, sr16, up16] = request.security(s16, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c17, sr17, up17] = request.security(s17, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c18, sr18, up18] = request.security(s18, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c19, sr19, up19] = request.security(s19, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)
[c20, sr20, up20] = request.security(s20, timeframe.period, f_veri_paketi(), lookahead=barmerge.lookahead_off)

// ─────────────────────────────────────────────────────────────────
//  4. YENÝ ÝNCE TABLO MOTORU (SADECE HIZLI SAR)
// ─────────────────────────────────────────────────────────────────
var table radar = table.new(position.bottom_right, 4, 21, border_width=1, border_color=color.gray)

f_satir_ekle(r_idx, sym, c_val, sr_val, is_up) =>
    // Sadece listede gerçekten yazýlý olan hisseleri tabloya çizer
    if array.size(semboller) > r_idx - 1 and str.length(str.trim(array.get(semboller, r_idx - 1))) > 0
        sym_isim = str.split(sym, ":").last()
        col_bg = is_up ? color.new(color.lime, 30) : color.new(color.red, 30)
        durum_txt = is_up ? "AL ▲" : "SAT ▼"
        
        table.cell(radar, 0, r_idx, sym_isim, text_color=color.white, bgcolor=color.black, text_size=size.small)
        table.cell(radar, 1, r_idx, str.tostring(c_val, format.mintick), text_color=color.white, bgcolor=color.new(color.black, 40), text_size=size.small)
        table.cell(radar, 2, r_idx, str.tostring(sr_val, format.mintick), text_color=color.white, bgcolor=col_bg, text_size=size.small)
        table.cell(radar, 3, r_idx, durum_txt, text_color=color.white, bgcolor=col_bg, text_size=size.small)

if barstate.islast
    table.cell(radar, 0, 0, "VARLIK (" + secilen_grup + ")", text_color=color.white, bgcolor=color.black, text_size=size.small)
    table.cell(radar, 1, 0, "FÝYAT", text_color=color.white, bgcolor=color.black, text_size=size.small)
    table.cell(radar, 2, 0, "HIZLI SAR", text_color=color.white, bgcolor=color.black, text_size=size.small)
    table.cell(radar, 3, 0, "DURUM", text_color=color.white, bgcolor=color.black, text_size=size.small)

    f_satir_ekle(1, s01, c01, sr01, up01)
    f_satir_ekle(2, s02, c02, sr02, up02)
    f_satir_ekle(3, s03, c03, sr03, up03)
    f_satir_ekle(4, s04, c04, sr04, up04)
    f_satir_ekle(5, s05, c05, sr05, up05)
    f_satir_ekle(6, s06, c06, sr06, up06)
    f_satir_ekle(7, s07, c07, sr07, up07)
    f_satir_ekle(8, s08, c08, sr08, up08)
    f_satir_ekle(9, s09, c09, sr09, up09)
    f_satir_ekle(10, s10, c10, sr10, up10)
    f_satir_ekle(11, s11, c11, sr11, up11)
    f_satir_ekle(12, s12, c12, sr12, up12)
    f_satir_ekle(13, s13, c13, sr13, up13)
    f_satir_ekle(14, s14, c14, sr14, up14)
    f_satir_ekle(15, s15, c15, sr15, up15)
    f_satir_ekle(16, s16, c16, sr16, up16)
    f_satir_ekle(17, s17, c17, sr17, up17)
    f_satir_ekle(18, s18, c18, sr18, up18)
    f_satir_ekle(19, s19, c19, sr19, up19)
    f_satir_ekle(20, s20, c20, sr20, up20) 

[@yörük@]

//@version=6
indicator("Hurst Cycle Channel Clone [LazyBear] - Yörük", shorttitle="HCCC_LB", overlay=true)

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

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

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

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

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

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

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

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

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

// ─────────────────────────────────────────────────────────────────
//  1. GÝRDÝLER 
// ─────────────────────────────────────────────────────────────────
grp_ayna = "Ayna Motoru"
u_start = input.float(0.0, "Usta Ayna Baþlangýç", step=0.1, group=grp_ayna)
u_inc   = input.float(0.1, "Usta Ayna Taban Ývmesi", step=0.1, group=grp_ayna)
u_max   = input.float(0.1, "Usta Ayna Max Ývme", step=0.1, group=grp_ayna)

grp_vma = "Otomatik Vites (Trend Radarý)"
vma_len = input.int(6, "Vites Hassasiyeti (Uzunluk)", minval=2, group=grp_vma, tooltip="Bu deðer küçüldükçe vites daha hýzlý deðiþir.")

// ─────────────────────────────────────────────────────────────────
//  2. TREND GÜCÜ (VÝTES) HESAPLAYICI
// ─────────────────────────────────────────────────────────────────
f_vites_kutu(src, len) =>
    pdm = math.max(src - nz(src[1], src), 0)
    mdm = math.max(nz(src[1], src) - src, 0)
    
    pdmS = ta.rma(pdm, len)
    mdmS = ta.rma(mdm, len)
    
    s = pdmS + mdmS
    pdi = s == 0 ? 0 : pdmS / s
    mdi = s == 0 ? 0 : mdmS / s
    
    pdiS = ta.rma(pdi, len)
    mdiS = ta.rma(mdi, len)
    
    d = math.abs(pdiS - mdiS)
    s1 = pdiS + mdiS
    iS = ta.rma(s1 == 0 ? 0 : d / s1, len)
    
    hhv = ta.highest(iS, len)
    llv = ta.lowest(iS, len)
    d1 = hhv - llv
    
    vites = d1 == 0 ? 0 : (iS - llv) / d1
    
    // HATA BURADAYDI: Ýlk barlardaki tanýmsýzlýðý (NA zehrini) 0'a çeviriyoruz
    nz(vites, 0.0)

// ─────────────────────────────────────────────────────────────────
//  3. OTONOM VÝTESLÝ MTK-1-2-3 SAR MOTORU
// ─────────────────────────────────────────────────────────────────
f_akilli_sar(src_h, src_l, _start, _inc_base, _max, _vites) =>
    var int trend = 0
    var float sar_val = 0.0
    var float ep = 0.0
    var float af = 0.0

    // Taban ivme, o anki vites gücüyle çarpýlýyor
    dinamik_ivme = _inc_base * _vites

    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 + dinamik_ivme)
            
            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 + dinamik_ivme)
            
            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]

// ─────────────────────────────────────────────────────────────────
//  4. HESAPLAMA VE ÇÝZÝMLER
// ─────────────────────────────────────────────────────────────────
// Anlýk vites gücünü ölç (NA korumalý)
anlik_vites = f_vites_kutu(close, vma_len)

// Akýllý SAR'ý bu vites gücüyle besle
[sar_usta, trend_usta] = f_akilli_sar(high, low, u_start, u_inc, u_max, anlik_vites)
ayna_usta = trend_usta > 0 ? close + math.abs(close - sar_usta) : close - math.abs(close - sar_usta)

// Görselleþtirme
color col_ayna = trend_usta > 0 ? color.lime : color.red

// Trendin gücüne göre çizginin parlaklýðý deðiþir (Vites sýfýrken çizgi soluk, tam gazken parlak)
int seffaflik = math.round((1.0 - anlik_vites) * 75)
color col_akilli = color.new(col_ayna, seffaflik)

plot(ayna_usta, title="Akýllý Ayna", color=col_akilli, style=plot.style_line, linewidth=3) 

[@yörük@]

aynasýz hurst döngüsü fill...

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

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

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

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

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

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

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

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

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

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