# EMA
input EMAlength = 13;
def EMA=MovAvgExponential(close,EMAlength);
def CrossesEMAAbove=EMA crosses above EMA[1];
def CrossesEMABelow=EMA crosses below EMA[1];

# MACD Histogram
input fastLength = 12;
input slowLength = 26;
input MACDLength = 9;
input AverageType = {SMA, default EMA};
def Diff = MACD(fastLength, slowLength, MACDLength, AverageType).Diff;
def CrossesMACDAbove = Diff crosses above Diff[1];
def CrossesMACDBelow = Diff crosses below Diff[1];

# paint bars
assignPriceColor(if CrossesEMAAbove AND CrossesMACDAbove then color.GREEN else
if CrossesEMABelow AND CrossesMACDBelow then color.RED else color.BLUE);

plot n=close;