// Define the Exponential Moving Average (EMA)
EMA13 = ExponentialAverage[13](close)
// Define MACD and its Histogram
MACDValue = MACD[12,26,9](close)
SignalValue = ExponentialAverage[9](MACDValue)
MACDHistogram = MACDValue - SignalValue
// Conditions for Green Price Bar
GreenBar = (EMA13 > EMA13[1]) and (MACDHistogram > MACDHistogram[1])
// Conditions for Red Price Bar
RedBar = (EMA13 < EMA13[1]) and (MACDHistogram < MACDHistogram[1])
// Apply coloring to the price bars
if GreenBar then
DRAWCANDLE(Open, High, Low, Close) COLOURED(0, 128, 0) // Green
elsif RedBar then
DRAWCANDLE(Open, High, Low, Close) COLOURED(255, 0, 0) // Red
else
DRAWCANDLE(Open, High, Low, Close) COLOURED(0, 0, 255) // Blue
endif
RETURN