Notes

//1 Dakikalık Trendçi

//@version=4

study(title="Dakikalık Trendçi", shorttitle="Dakikalık Trendçi", overlay=true)


pSARbeginningValue = input(2, minval=0, maxval=10, title="PSAR başlangıç değeri")
pSARendValue = input(2, minval=1, maxval=10, title="PSAR bitiş değeri")
pSARmultiplierValue = input(2, minval=0, maxval=10, title=" PSAR katsayi değeri" )

pSARbeginningMethod = pSARbeginningValue * .01
pSARendMethod = pSARendValue * .10
pSARmultiplierMethod = pSARmultiplierValue * .01

pSAR_UpValue = sar(pSARbeginningMethod, pSARmultiplierMethod, pSARendMethod)
pSAR_DownValue = sar(pSARbeginningMethod, pSARmultiplierMethod, pSARendMethod)

pSAR_UpColor = close >= pSAR_DownValue ? color.green : na
pSAR_DownColor = close <= pSAR_UpValue ? color.red : na

plot(pSAR_UpValue ? pSAR_UpValue : na, style=plot.style_columns, color=pSAR_UpColor, linewidth=0, title="PSAR yukarı", transp=85)
plot(pSAR_DownValue ? pSAR_DownValue : na, style=plot.style_columns, color=pSAR_DownColor, linewidth=1, title="PSAR aşağı", transp=85)

//Zone Identification - This is once again ATR based method to identify the zone based on its strength

zoneSource = input(hl2, title="Kaynak")
src=input(hl2, title="Kaynak")
zoneLength = input(type=input.integer, defval=10, title="ATR Alan Uzunluğu")
zoneMultiplier = input(type=input.float, defval=3.0, step=0.1, title="ATR Alan Katsayısı")
zoneATR = atr(zoneLength)

downZone =zoneSource+(zoneMultiplier*zoneATR)
downZoneNew = nz(downZone[1], downZone)
downZone := close[1] < downZoneNew ? min(downZone, downZoneNew) : downZone
upZone =zoneSource-(zoneMultiplier*zoneATR)
upZoneNew = nz(upZone[1],upZone)
upZone := close[1] > upZoneNew ? max(upZone,upZoneNew) : upZone

zoneDecider = 1
zoneDecider := nz(zoneDecider[1], zoneDecider)
zoneDecider := zoneDecider == -1 and close > downZoneNew ? 1 : zoneDecider == 1 and close < upZoneNew ? -1 : zoneDecider

redZone = zoneDecider == -1 and zoneDecider[1] == 1
greenZone = zoneDecider == 1 and zoneDecider[1] == -1
downZoneColor = (zoneDecider == -1 ? color.red : color.gray)
upZoneColor = (zoneDecider == 1 ? color.green : color.gray)

downZonePlot = plot(zoneDecider == 1 ? na : downZone, style=plot.style_linebr, linewidth=2, color=color.red, title="Düşüş Bölgesi")

plotshape(redZone ? downZone : na, location=location.absolute, style=shape.diamond, size=size.tiny, color=color.red, transp=0, title="Düşüş Bölgesi Başlangıçı")
plotshape(redZone? downZone : na, location=location.absolute, style=shape.labeldown, size=size.tiny, color=color.red, textcolor=color.white, transp=0, title="SAT", text="SAT")

upZonePlot = plot(zoneDecider == 1 ? upZone : na, style=plot.style_linebr, linewidth=2, color=color.green, title="Yükseliş Bölgesi")

plotshape(greenZone ? upZone : na, location=location.absolute, style=shape.diamond, size=size.tiny, color=color.green, transp=0, title="Yükseliş Bölgesi Başlangıçı")
plotshape(greenZone ? upZone : na, location=location.belowbar, style=shape.labelup, size=size.tiny, color=color.green, textcolor=color.white, transp=0, title="AL", text="AL")

aldigimfiyat=tostring(valuewhen(greenZone,zoneSource,0))
sattigimfiyat=tostring(valuewhen(redZone,zoneSource,0))

Buy=greenZone
Sell=redZone
if greenZone==1
l = label.new(bar_index, na)
label.set_text(l, aldigimfiyat)
label.set_color(l, color.green)
label.set_yloc(l, yloc.belowbar)
label.set_style(l, label.style_labelup)
if redZone==1
l = label.new(bar_index, na)
label.set_text(l, sattigimfiyat)
label.set_color(l, color.red)
label.set_yloc(l, yloc.abovebar)
label.set_style(l, label.style_labeldown)

neutralZonePlot = plot(ohlc4, style=plot.style_circles, linewidth=0, title="Alan Stili")
fill(neutralZonePlot, downZonePlot, color=downZoneColor, title="Düşüş Rengi")
fill(neutralZonePlot, upZonePlot, color=upZoneColor, title="Yükseliş Rengi")


emaLowerPeriod = input(9, minval=1, title="EMA Düşük Periyotlar için")

emaLower = ema(input(close), emaLowerPeriod)

plot(emaLower, color=color.fuchsia, linewidth=2, title="EMA Düşük Periyot")

showEMA2 = input(false, title="EMA - Orta Periyotlar için")

emaMediumPeriod = input(27, minval=1, title="EMA Orta Periyotlar için")

emaMedium = ema(input(close), emaMediumPeriod)

plot(showEMA2 and emaMedium ? emaMedium : na, color=color.aqua, linewidth=2, title="EMA Orta Periyotlar için")


hmaLongPeriod = input(200, minval=1, title="HMA Uzun Periyotlar için")

hmaLong = hma(input(close), hmaLongPeriod)

plot(hmaLong, color=color.gray, linewidth=2, title="HMA Uzun Periyotlar için")


isCloseAbove = (close > emaLower and close > hmaLong)
isCloseBelow = (close < emaLower and close < hmaLong)
isCloseBetween = (close > emaLower and close < hmaLong) or (close < emaLower and close > hmaLong)

isNeutral = (close > pSAR_DownValue and isCloseBelow) or (close < pSAR_DownValue and isCloseAbove)


barcolor((isNeutral or isCloseBetween) ? color.yellow: isCloseBelow ? color.red: isCloseAbove ? color.green: color.black)


position=input(50)
h=highest(position)
info_label_off = input(50, title="Bilgilendirme paneli gösterilsin mi?")
info_label_size = input(size.normal, options=[size.tiny, size.small, size.normal, size.large, size.huge], title="Info panel label size")
info_panel_x = timenow + round(change(time)*10)
info_panel_y = h
info_current_close = "nnSON KAPANIŞ : " + tostring(close)

disp_panels1 = input(true, title="ALIŞ BİLGİLENDİRME PANELİ İSTİYORMUSUNUZ?")
disp_panels2 = input(true, title="SATIŞ BİLGİLENDİRME PANELİ İSTİYORMUSUNUZ?")

Long="-=-=-ALIŞ-=-=- "
Short="-=-=-SATIŞ-=-=- "

pp1 = "nAldıktan sonra geçen BAR : " + tostring(barssince(Buy), "##.##")
pp2 = "nSattıktan sonra geçen BAR : " + tostring(barssince(Sell), "##.##")

Buyprice="nSatın aldığımız fiyat : " + tostring(valuewhen(Buy,src,0), "##.######") + ""
ProfitLong="nKAR : " + "(" + tostring(100 * ((src - valuewhen(Buy, src,0)) / valuewhen(Buy, src,0)), "##.##") + "%" + ")"

Sellprice="nSatın aldığımız fiyat : " + tostring(valuewhen(Sell, src,0), "##.######") + ""
ProfitShort="nKAR : " + "(" + tostring(100 * ((valuewhen(Sell, src,0) - src) / valuewhen(Sell, src,0)), "##.##") + "%" + ")"

info_textlongbuy =Long+info_current_close+pp1+Buyprice+ProfitLong
info_textlongsell =Short+info_current_close+pp2+Sellprice+ProfitShort
info_panellongbuy = zoneDecider == 1 and disp_panels1 ? label.new(x=info_panel_x, y=info_panel_y, text=info_textlongbuy, xloc=xloc.bar_time, yloc=yloc.price, color=color.green, style=label.style_labelup, textcolor=color.black, size=info_label_size) : na
info_panellongsell = zoneDecider == -1 and disp_panels2 ? label.new(x=info_panel_x, y=info_panel_y, text=info_textlongsell, xloc=xloc.bar_time, yloc=yloc.price, color=color.red, style=label.style_labelup, textcolor=color.black, size=info_label_size) : na
label.delete(info_panellongbuy[1])
label.delete(info_panellongsell[1])