#property copyright "Copyright - Interbank FX, LLC."
#property link      "http://www.ibfx.com"

//---- indicator settings
#property  indicator_separate_window
#property  indicator_buffers 2
#property  indicator_color1  Silver
#property  indicator_color2  Red

//---- indicator parameters
extern int FastEMA=12;
extern int SlowEMA=26;
extern int SignalSMA=9;
//---- indicator parameters

double ZMACD[];
double SMACD[];
double EMA1[];
double ZEMA12[];
double ZEMA26[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(5);

//---- drawing settings
SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,3);
SetIndexStyle(1,DRAW_LINE);
SetIndexStyle(2,DRAW_NONE);
SetIndexStyle(3,DRAW_NONE);
SetIndexStyle(4,DRAW_NONE);

SetIndexDrawBegin(1,SignalSMA);
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+1);
//---- indicator buffers mapping
SetIndexBuffer(0,ZMACD);
SetIndexBuffer(1,SMACD);
SetIndexBuffer(2,EMA1);
SetIndexBuffer(3,ZEMA12);
SetIndexBuffer(4,ZEMA26);

//---- name for DataWindow and indicator subwindow label
IndicatorShortName("ZMACD("+FastEMA+","+SlowEMA+","+SignalSMA+")");
SetIndexLabel(0,"ZMACD");
SetIndexLabel(1,"Signal");
//---- initialization done


//---- initialization done
return(0);
}
//+------------------------------------------------------------------+
//| Moving Averages Convergence/Divergence                           |
//+------------------------------------------------------------------+
int start()
{

int limit;
int counted_bars=IndicatorCounted();
//---- check for possible errors
if(counted_bars<0) return(-1);
//---- last counted bar will be recounted
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;

for(int i=0; i<limit; i++)
EMA1[i] = iMA(NULL,0,FastEMA,0,MODE_EMA,PRICE_CLOSE,i);
for(i=0; i<limit; i++)
ZEMA12[i] = EMA1[i] + ( EMA1[i] - iMAOnArray(EMA1,0,FastEMA,0,MODE_EMA,i));

for(i=0; i<limit; i++)
EMA1[i] = iMA(NULL,0,SlowEMA,0,MODE_EMA,PRICE_CLOSE,i);
for(i=0; i<limit; i++)
ZEMA26[i] = EMA1[i]+ ( EMA1[i] - iMAOnArray(EMA1,0,SlowEMA,0,MODE_EMA,i) );

for(i=0; i<limit; i++)
ZMACD[i] = ZEMA12[i]-ZEMA26[i];
for(i=0; i<limit; i++)
SMACD[i] = iMAOnArray(ZMACD,0,SignalSMA,0,MODE_EMA,i);

//---- done
return(0);
}