MACD DEMA

study("MACD DEMA",shorttitle='MACD DEMA')
//by ToFFF
sma = input(12,title='DEMA Courte')
lma = input(26,title='DEMA Longue')
tsp = input(9,title='Signal')
dolignes = input(true,title="Lignes")

MMEslowa = ema(close,lma)
MMEslowb = ema(MMEslowa,lma)
DEMAslow = ((2 * MMEslowa) - MMEslowb )

MMEfasta = ema(close,sma)
MMEfastb = ema(MMEfasta,sma)
DEMAfast = ((2 * MMEfasta) - MMEfastb)

LigneMACDZeroLag = (DEMAfast - DEMAslow)

MMEsignala = ema(LigneMACDZeroLag, tsp)
MMEsignalb = ema(MMEsignala, tsp)
Lignesignal = ((2 * MMEsignala) - MMEsignalb )

MACDZeroLag = (LigneMACDZeroLag - Lignesignal)

swap1 = MACDZeroLag>0?green:red

plot(MACDZeroLag,color=swap1,style=columns,title='Histo',histbase=0)
p1 = plot(dolignes?LigneMACDZeroLag:na,color=blue,title='LigneMACD')
p2 = plot(dolignes?Lignesignal:na,color=red,title='Signal')
fill(p1, p2, color=blue)
hline(0)