//@version=2

study(title="ARS Signal Filter", overlay=true)
EMAlength=input(55,"EMA LENGTH?")

src=ohlc4
haOpen=0.0
haOpen := (src + nz(haOpen[1]))/2
haC=(ohlc4+nz(haOpen)+max(high,nz(haOpen))+min(low,nz(haOpen)))/4
EMA1=ema(haC,EMAlength)
EMA2=ema(EMA1,EMAlength)
EMA3=ema(EMA2,EMAlength)
TMA1=3*EMA1-3*EMA2+EMA3
EMA4=ema(TMA1,EMAlength)
EMA5=ema(EMA4,EMAlength)
EMA6=ema(EMA5,EMAlength)
TMA2=3*EMA4-3*EMA5+EMA6
IPEK=TMA1-TMA2
YASIN=TMA1+IPEK
EMA7=ema(hlc3,EMAlength)
EMA8=ema(EMA7,EMAlength)
EMA9=ema(EMA8,EMAlength)
TMA3=3*EMA7-3*EMA8+EMA9
EMA10=ema(TMA3,EMAlength)
EMA11=ema(EMA10,EMAlength)
EMA12=ema(EMA11,EMAlength)
TMA4=3*EMA10-3*EMA11+EMA12
IPEK1=TMA3-TMA4
YASIN1=TMA3+IPEK1

mavi=YASIN1
kirmizi=YASIN



longCond=mavi>kirmizi and mavi[1]<=kirmizi[1]
shortCond=mavi<kirmizi and mavi[1]>=kirmizi[1]
trendState  = kirmizi < mavi ? true : kirmizi > mavi ? false : trendState[1]
closePlot   = plot(kirmizi, title = "Close Line", color = #009900, linewidth = 10, style = line, transp = 90)
openPlot    = plot(mavi, title = "Open Line", color = #CC0000, linewidth = 10, style = line, transp = 90)
closePlotU  = plot(trendState ? kirmizi : na, transp = 100, editable = false)
openPlotU   = plot(trendState ? mavi : na, transp = 100, editable = false)
closePlotD  = plot(trendState ? na : kirmizi, transp = 100, editable = false)
openPlotD   = plot(trendState ? na : mavi, transp = 100, editable = false)
fill(openPlotU, closePlotU, title = "Up Trend Fill", color = #009900, transp = 1)
fill(openPlotD, closePlotD, title = "Down Trend Fill", color = #CC0000, transp = 1)