04-14-2018, 10:55 PM
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)
//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)