Leo Supertrend

// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © kodtodya

//@version=4

study("Leo Supertrend", overlay=true, format=format.price, precision=2, resolution="")

Periods=input(title="ATR Period", type=input.integer, defval=10)

src=input(hl2, title="Source")
Multiplier=input(title="ATR Multiplier", type=input.float, step=0.1,defval=3.0)

changeATR=input(title="Change ATR Calculation Method 7",type=input.bool, defval=true)

showsignals = input(title="Show Buy/Sell Signals ?", type=input.bool, defval=true)

highlighting=input(title="Highlighter On/Off ?", type=input.bool,defval=true)

atr2=sma(tr, Periods)

atr= changeATR ? atr(Periods): atr2

up=src-(Multiplier*atr)

up1 = nz(up[1],up)

up := close[1]> up1 ? max(up, up1): up

dn=src+(Multiplier * atr)

dn1 = nz(dn[1], dn)

dn := close[1]<dn1 ? min(dn, dn1): dn

trend = 1

trend:= nz(trend[1], trend)

trend:= trend ==-1 and close> dn1 ? 1: trend == 1 and close < up1 ?-1:trend

upPlot = plot(trend == 1 ? up : na, title="Up Trend", style=plot.style_linebr, linewidth=2, color=color.green)

buySignal = trend == 1 and trend[1] == -1

plotshape(buySignal ? up: na, title="UpTrend Begins", location=location.absolute, style=shape.circle, size=size.tiny, color=color.green, transp=0)

plotshape(buySignal and showsignals? up:na, title="Buy", text="BUY", location=location.absolute,style=shape.labelup, size = size.normal, color=color.green, textcolor=color.white,transp=0)

dnPlot= plot(trend == 1? na: dn, title="Down Trend", style=plot.style_linebr, linewidth=2, color=color.red)

sellSignal = trend == -1 and trend[1] ==1

plotshape(sellSignal ? dn: na, title="DownTrend Begins", location=location.absolute, style=shape.circle, size=size.tiny,color=color.red, transp=0)

plotshape(sellSignal and showsignals ? dn:na,title="Sell", text = "SELL", location=location.absolute, style=shape.labeldown, size=size.normal, color=color.red,textcolor=color.white, transp=0)

mPlot=plot(ohlc4, title="", style=plot.style_circles, linewidth=0)

longFillColor = highlighting? (trend ==1? color.red : color.white): color.white


shortFillColor = highlighting? (trend ==+1? color.red: color.white):color.white

fill(mPlot, upPlot, title="Up Trend Highligter", color=longFillColor)

fill(mPlot, dnPlot, title="DownTrend Highligter", color=shortFillColor)

alertcondition(buySignal, title="Super Trend Buy", message="SuperTrend Buy!")

alertcondition(sellSignal, title="SuperTrend Sell", message="SuperTrend Sell")

changeCond = trend != trend[1]

alertcondition(changeCond, title="SuperTrend Direction Change", message="SuperTrend has changed direction!")

//@version 4

len = input(18, minval=1, title="Length")

offset=input(title="Offset", type=input.integer, defval=0, minval=-500, maxval=500)

out=ema(src, len)

plot(out, title="EMA", color=color.blue, offset=offset)