//+------------------------------------------------------------------+
//|                                                   BullBearMA.mq4 |
//|                                              Copyright 2018, AM2 |
//|                                      http://www.forexsyatems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2018, AM2"
#property link      "http://www.forexsyatems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window

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

input int MAPeriod=14;
//--- buffers
double bull[];
double bear[];
double ma[];
double bu[];
double be[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- 
   SetIndexBuffer(0,bull);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(1,bear);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(2,ma);
   SetIndexStyle(2,DRAW_LINE);
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
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[])
  {
//---
   ArraySetAsSeries(bull,true);
   ArraySetAsSeries(bear,true);
   string s="";

   for(int i=0;i<10;i++)
     {
      if(close[i]>open[i]) bu[i]=close[i];
      if(close[i]<open[i]) be[i]=close[i];
      bull[i]=iMAOnArray(bu,0,MAPeriod,0,0,i);
      bear[i]=iMAOnArray(be,0,MAPeriod,0,0,i);
      ma[i]=iMA(NULL,0,MAPeriod,0,0,0,i);
      s=StringConcatenate(s,(string)bu[i]);
     }

   Comment("\n ARR: ",s);
//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|                                                   BullBearMA.mq4 |
//|                                              Copyright 2018, AM2 |
//|                                      http://www.forexsyatems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2018, AM2"
#property link      "http://www.forexsyatems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window

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

input int MAPeriod=14;
input int Count=1000;
//--- buffers
double bull[];
double bear[];
double bu[1];
double be[1];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- 
   SetIndexBuffer(0,bull);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(1,bear);
   SetIndexStyle(1,DRAW_LINE);
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
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[])
  {
//---
   ArraySetAsSeries(bull,true);
   ArraySetAsSeries(bear,true);

   string s="";

   for(int i=0;i<Count;i++)
     {
      if(close[i]>open[i])
        {
         bu[ArraySize(bu)-1]=close[i];
         ArrayResize(bu,ArraySize(bu)+1);
        }

      if(close[i]<open[i]) 
        {
         be[ArraySize(be)-1]=close[i];
         ArrayResize(be,ArraySize(be)+1);
        }
     }

   for(int i=0;i<ArraySize(bu);i++) StringAdd(s,"\n "+(string)bu[i]);
   
   for(int i=0;i<ArraySize(bu);i++) bull[i]=iMAOnArray(bu,0,MAPeriod,0,0,i);
   for(int i=0;i<ArraySize(be);i++) bear[i]=iMAOnArray(be,0,MAPeriod,0,0,i);
   
   Comment("\n ARR: ",s);
//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+