Uludağ sar//@version=5
indicator(title='ULUDAĞ SAR', shorttitle='ULUDAĞ SAR', overlay=true)
gerikontrol=input(2, title='TEK SAR BAR SAYISI', group= "TEK SAR İÇİN GERİYE TARANACAK BAR SAYISI")
gerikontrol2=input(2, title='YANA ATAN BAR SAYISI', group= "YANA ATAN SAR İÇİN GERİYE TARANACAK BAR SAYISI")
// PARABOLIC SAR
start_3 = input(defval=0.02, group="Parabolic SAR Settings")
increment = input(defval=0.02, group="Parabolic SAR Settings")
maximum = input(defval=0.2, title="Max Value", group="Parabolic SAR Settings")
out = ta.sar(start_3, increment, maximum)
plot(out, "ParabolicSAR", style=plot.style_cross, color=#2962FF, linewidth=1)
// LINEAR SAR
//@version=3
//study("LinearSAR", shorttitle="LinearSAR", overlay=true)
susLS = input(true, "Göster Up Trending Parabolic Sar", group="Linear SAR Settings")
sdsLS = input(true, "Göster Down Trending Parabolic Sar", group="Linear SAR Settings")
startLS = input.int(defval=2, minval=0, maxval=10, title="Start - Default = 2 - Multiplied by .01", group="Linear SAR Settings")
incrementLS = input.int(1, minval=0, maxval=10, title="Step Setting (Sensitivity) - Default = 2 - Multiplied by .01", group="Linear SAR Settings" )
maximumLS = input.int(1, minval=1, maxval=10, title="Maximum Step (Sensitivity) - Default = 2 - Multiplied by .10", group="Linear SAR Settings")
discLS = input(false, title="Start and Step settings are *.01 so 2 = .02 etc, Maximum Step is *.10 so 2 = .2", group="Linear SAR Settings")
startCalc = startLS * .01
incrementCalc = incrementLS * .01
maximumCalc = maximumLS * .10
sarUp = ta.sar(startCalc, incrementCalc, maximumCalc)
sarDown = ta.sar(startCalc, incrementCalc, maximumCalc)
colUp = close >= sarDown ? color.lime : na
colDown = close <= sarUp ? color.red : na
plot(susLS and sarUp ? sarUp : na, title="Linear SAR - Up Trending SAR", style=plot.style_circles, linewidth=1,color=colUp)
plot(sdsLS and sarDown ? sarDown : na, title="Linear SAR - Down Trending SAR", style=plot.style_circles, linewidth=1,color=colDown)
// LUCID SAR
showLucidSAR = input.bool(true, "Lucid SAR Göster", group = "LUCID SAR SETTINGS")
AF_initial = input(defval=0.02, group="LUCID SAR SETTINGS")
AF_increment = input(defval=0.02, group="LUCID SAR SETTINGS")
AF_maximum = input(defval=0.2, group="LUCID SAR SETTINGS")
LUCID_SAR(initial, increment, maximum) =>
// start with uptrend
uptrend = true
new_trend = false
EP = high
SAR = low
AF = AF_initial
// before a reversal, the reversal_state is 0;
// after a reversal, within the same candle as the reversal,
// the reversal_state can be 1 (uptrend) or 2 (downtrend)
reversal_state = 0
if not na(uptrend ) and not na(new_trend )
if reversal_state == 0
if uptrend
EP := math.max(high, EP )
else
EP := math.min(low, EP )
if new_trend
AF := AF_initial
else
if EP != EP
AF := math.min(AF_maximum, AF + AF_increment)
else
AF := AF
SAR := SAR + AF * (EP - SAR )
if uptrend
SAR := math.min(SAR, low )
if not na(low )
SAR := math.min(SAR, low )
if SAR > low
uptrend := false
new_trend := true
SAR := math.max(high, EP )
EP := math.min(low, low )
reversal_state := 2
else
uptrend := true
new_trend := false
else
SAR := math.max(SAR, high )
if not na(high )
SAR := math.max(SAR, high )
if SAR < high
uptrend := true
new_trend := true
SAR := math.min(low, EP )
EP := math.max(high, high )
reversal_state := 1
else
uptrend := false
new_trend := false
else
if reversal_state == 1
EP := high
if low < SAR
SAR := EP
EP := low
reversal_state == 2
uptrend := false
else
EP := low
if high > SAR
SAR := EP
EP := high
reversal_state == 1
uptrend := true
SAR
L_SAR = LUCID_SAR(AF_initial, AF_increment, AF_maximum)
plot(showLucidSAR ? L_SAR : na, color = color.rgb(184, 33, 243), style = plot.style_cross, linewidth = 1, title="LUCID SAR - Çizim")
//SAR AVG
showSAROrt = input.bool(true, "SAR Ortalama Göster", group = "SAR ORTALAMA SETTINGS")
// TRIPLE SAR
roSarSlow = ta.sar(0.01,0.01,0.2)
roSarModerate = ta.sar(0.01,0.02,0.2)
roSarFast = ta.sar(0.01,0.03,0.2)
sarOrt = math.avg(sarUp,out,L_SAR)
plot(showSAROrt ? sarOrt : na, style=plot.style_cross, color=color.orange, linewidth=2, title="SAR5 - Ortalama")
plot(roSarSlow, style=plot.style_cross, color=color.maroon, linewidth=1, title="TRIPLE SAR - Slow")
plot(roSarModerate, style=plot.style_cross, color=color.green, linewidth=1, title="TRIPLE SAR - Moderate")
plot(roSarFast, style=plot.style_cross, color=color.red,linewidth=1, title="TRIPLE SAR - Fast")
plotshape(out == roSarModerate ? out : na, style= shape.circle , size=size.tiny,location=location.absolute, title="PSAR Cross Triple Modarate", color=color.new(color.green,80))
plotshape(out==roSarFast ? out : na, style = shape.circle, size=size.tiny,location=location.absolute, title="PSAR Cross Triple Fast", color=color.new(color.red,80))
plotshape(roSarFast == roSarModerate ? roSarFast : na, style = shape.circle, size=size.tiny,location=location.absolute ,title="PSAR Cross Triple Modarate", color=color.new(color.blue,80))
sarbirles= out == roSarModerate and out==roSarFast and roSarFast== roSarModerate ? color.rgb(16, 245, 8) : color.rgb(148, 118, 146)
sarbirles4saat= request.security(syminfo.tickerid, '240', sarbirles)
sarbirlesgun= request.security(syminfo.tickerid, '1D', sarbirles)
sarbirleshafta= request.security(syminfo.tickerid, '1W', sarbirles)
sarbirles1ay= request.security(syminfo.tickerid, '1M', sarbirles)
sarbirles3ay= request.security(syminfo.tickerid, '3M', sarbirles)
sarbirles6ay= request.security(syminfo.tickerid, '6M', sarbirles)
sarbirles12ay= request.security(syminfo.tickerid, '12M', sarbirles)
//SABİT SARLAR
start = input(0.02)
inc = input(0.02)
max = input(0.2)
start_2 = input(0.03)
inc_2 = input(0.03)
max_2 = input(0.2)
sar1 = ta.sar(start, inc, max)
sar2 = ta.sar(start_2, inc_2, max_2)
SarFast = ta.sar(0.03, 0.03, 0.2)
SarModerate = ta.sar(0.02, 0.02, 0.2)
SarSlow = ta.sar(0.01, 0.01, 0.2)
out4h = request.security(syminfo.tickerid, '240', sar1)
out1g = request.security(syminfo.tickerid, '1D', sar1)
out1h = request.security(syminfo.tickerid, '1W', sar1)
out12M = request.security(syminfo.tickerid, '12M', sar1)
out6M = request.security(syminfo.tickerid, '6M', sar1)
outM = request.security(syminfo.tickerid, 'M', sar1)
out3M = request.security(syminfo.tickerid, '3M', sar1)
oout4h = request.security(syminfo.tickerid, '240', sarOrt)
oout1g = request.security(syminfo.tickerid, '1D', sarOrt)
oout1h = request.security(syminfo.tickerid, '1W', sarOrt)
oout12M = request.security(syminfo.tickerid, '12M', sarOrt)
oout6M = request.security(syminfo.tickerid, '6M', sarOrt)
ooutM = request.security(syminfo.tickerid, 'M', sarOrt)
oout3M = request.security(syminfo.tickerid, '3M', sarOrt)
plot(oout1h, title='Hafta SAR ORT', style=plot.style_circles, color=color.black, linewidth=2)
plot(oout12M, title='12Ay SAR ORT', style=plot.style_circles, color=color.red, linewidth=2)
plot(oout6M, title='6Ay SAR ORT', style=plot.style_circles, color=color.orange, linewidth=2)
plot(ooutM, title='1Ay SAR ORT', style=plot.style_circles, color=color.teal, linewidth=2)
plot(oout3M, title='3Ay SAR ORT', style=plot.style_circles, color=color.aqua, linewidth=2)
plotshape(L_SAR > close and high > L_SAR and L_SAR < close and L_SAR < close ? L_SAR :na, style= shape.circle,size=size.tiny,title="TEK SAR Lucid", color=color.rgb(184, 33, 243))
plotshape(sarUp > close and high > sarUp and sarUp < close and sarUp < close ? sarUp :na, style= shape.circle, size=size.tiny,title="TEK SAR linear", color=color.lime)
plotshape(out > close and high > out and out < close and out < close ? out :na, style= shape.circle,size=size.tiny,title="TEK SAR psar", color=color.blue)
plotshape(roSarSlow > close and high > roSarSlow and roSarSlow < close and roSarSlow < close ? roSarSlow :na, style= shape.circle,size=size.tiny,title="TEK SAR slow", color=color.maroon)
plotshape(roSarFast > close and high > roSarFast and roSarFast < close and roSarFast < close ? roSarFast :na, style= shape.circle,size=size.tiny,title="TEK SAR fast", color=color.red)
plotshape(roSarModerate > close and high > roSarModerate and roSarModerate < close and roSarModerate < close ? roSarModerate :na, style= shape.circle,size = size.tiny,title="TEK SAR Mod", color=color.green)
var line line1 = na
var line line2 = na
var line line3 = na
var line line4 = na
var line line5 = na
var line line6 = na
if roSarSlow == roSarSlow
line1 := line.new(bar_index-1,roSarSlow, bar_index,roSarSlow , extend=extend.none,color=color.new(color.maroon,70),style=line.style_solid ,width = 3)
//
if roSarFast == roSarFast
line2 := line.new(bar_index-1,roSarFast, bar_index,roSarFast , extend=extend.none,color=color.new(color.red,70),style=line.style_solid ,width = 3)
//
if roSarModerate == roSarModerate
line3 := line.new(bar_index-1,roSarModerate, bar_index,roSarModerate , extend=extend.none,color=color.new(color.green,70),style=line.style_solid ,width = 3)
//
if sarUp == sarUp
line4 := line.new(bar_index-1,sarUp, bar_index,sarUp , extend=extend.none,color=color.new(color.lime,70),style=line.style_solid ,width = 3)
//
if out == out
line4 := line.new(bar_index-1,out, bar_index,out , extend=extend.none,color=color.new(color.blue,70),style=line.style_solid ,width = 3)
//
if L_SAR == L_SAR
line4 := line.new(bar_index-1,L_SAR, bar_index,L_SAR , extend=extend.none,color=color.new(color.rgb(184, 33, 243),70),style=line.style_solid ,width = 3)
//
teksarlu=L_SAR > close and high > L_SAR and L_SAR < close and L_SAR < close
teksarli=sarUp > close and high > sarUp and sarUp < close and sarUp < close
teksarp=out > close and high > out and out < close and out < close
teksars=roSarSlow > close and high > roSarSlow and roSarSlow < close and roSarSlow < close
teksarf=roSarFast > close and high > roSarFast and roSarFast < close and roSarFast < close
teksarm=roSarModerate > close and high > roSarModerate and roSarModerate < close and roSarModerate < close
teksarrenk=ta.barssince(teksarlu or teksarli or teksarp or teksars or teksarf or teksarm) < gerikontrol ? color.rgb(16, 245, 8) : color.rgb(148, 118, 146)
teksar4saat= request.security(syminfo.tickerid, '240', teksarrenk)
teksargun= request.security(syminfo.tickerid, '1D', teksarrenk)
teksarhafta= request.security(syminfo.tickerid, '1W', teksarrenk)
teksar1ay= request.security(syminfo.tickerid, '1M', teksarrenk)
teksar3ay= request.security(syminfo.tickerid, '3M', teksarrenk)
teksar6ay= request.security(syminfo.tickerid, '6M', teksarrenk)
teksar12ay= request.security(syminfo.tickerid, '12M', teksarrenk)
saryanapsar=close > out and out == out
saryanalin=close > sarUp and sarUp == sarUp
saryanaluc=close > L_SAR and L_SAR == L_SAR
saryanaslw=close > roSarSlow and roSarSlow == roSarSlow
saryanafst=close > roSarFast and roSarFast == roSarFast
saryanamod=close > roSarModerate and roSarModerate == roSarModerate
saryanarenk=ta.barssince(saryanapsar or saryanalin or saryanaluc or saryanaslw or saryanafst or saryanamod)
