#property  indicator_color1  Blue
#property  indicator_color2  Green
#property  indicator_color3  Red

//+------------------------------------------------------------------+
//|                                                     MACD_MOD.mq4 |
//|                                              Copyright 2016, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link      "http://www.forexsystems.biz"
#property description "Moving Averages Convergence/Divergence"
#property strict

#include <MovingAverages.mqh>

//--- indicator settings
#property  indicator_separate_window
#property  indicator_buffers 4
#property  indicator_color1  Red
#property  indicator_color2  Blue
#property  indicator_color3  clrNONE
#property  indicator_color4  Red
#property  indicator_width1  2
#property  indicator_width2  2
#property  indicator_width3  1
#property  indicator_width4  1
//--- indicator parameters
input int InpFastEMA=12;   // Fast EMA Period
input int InpSlowEMA=26;   // Slow EMA Period
input int InpSignalSMA=9;  // Signal SMA Period
//--- indicator buffers
double    MRed[];
double    MBlue[];
double    Macd[];
double    MSig[];
//--- right input parameters flag
bool      ExtParameters=true;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit(void)
  {
   IndicatorDigits(Digits+1);
//--- drawing settings
   SetIndexStyle(0,DRAW_HISTOGRAM);
   SetIndexStyle(1,DRAW_HISTOGRAM);
   SetIndexStyle(2,DRAW_HISTOGRAM);
   SetIndexStyle(3,DRAW_LINE);
//--- indicator buffers mapping
   SetIndexBuffer(0,MRed);
   SetIndexBuffer(1,MBlue);
   SetIndexBuffer(2,Macd);
   SetIndexBuffer(3,MSig);
//--- name for DataWindow and indicator subwindow label
   IndicatorShortName("MACD_MOD("+IntegerToString(InpFastEMA)+","+IntegerToString(InpSlowEMA)+","+IntegerToString(InpSignalSMA)+")");
   SetIndexLabel(0,"MACD");
   SetIndexLabel(1,"MACD");
   SetIndexLabel(2,"MACD");
   SetIndexLabel(3,"Signal");
//--- check for input parameters
   if(InpFastEMA<=1 || InpSlowEMA<=1 || InpSignalSMA<=1 || InpFastEMA>=InpSlowEMA)
     {
      Print("Wrong input parameters");
      ExtParameters=false;
      return(INIT_FAILED);
     }
   else
      ExtParameters=true;
//--- initialization done
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Moving Averages Convergence/Divergence                           |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
   int i,limit;
//---
   if(rates_total<=InpSignalSMA || !ExtParameters)
      return(0);
//--- last counted bar will be recounted
   limit=rates_total-prev_calculated;
   if(prev_calculated>0)
      limit++;
//--- macd counted in the 1-st buffer
   for(i=0; i<limit; i++)
     {
      double macd=iMA(NULL,0,InpFastEMA,0,1,0,i)-iMA(NULL,0,InpSlowEMA,0,1,0,i);
      double macd1=iMA(NULL,0,InpFastEMA,0,1,0,i+1)-iMA(NULL,0,InpSlowEMA,0,1,0,i+1);
      
      Macd[i]=macd;

      if(macd>macd1 && macd>0) MRed[i]=macd;
      if(macd<macd1 && macd>0) MBlue[i]=macd;

      if(macd>macd1 && macd<0) MRed[i]=macd;
      if(macd<macd1 && macd<0) MBlue[i]=macd;
     }
//--- signal line counted in the 2-nd buffer
   SimpleMAOnBuffer(rates_total,prev_calculated,0,InpSignalSMA,Macd,MSig);
//--- done
   return(rates_total);
  }
//+------------------------------------------------------------------+