//+------------------------------------------------------------------+
//|                                                       Candle.mq4 |
//|                                              Copyright 2020, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window

input datetime Start = D'30.04.2020';
input datetime Stop = D'1.04.2020';

input int iHour = 23;
input int iMinute = 30;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//| 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[])
  {
//---
   int all=0;
   int days=0;
   int day_all=0;
   datetime tm=0;
   int bulls=0,bears=0;

   string s="";

   int end=iBarShift("",0,Stop);
   int begin=iBarShift("",0,Start);

   datetime day1=iTime(NULL,PERIOD_D1,1);
   datetime day2=iTime(NULL,PERIOD_D1,2);

// считаем общее число свечей на промежутке

   for(int i=begin; i<end; i++)
     {
      all++;
     }

// считаем общее число свечей внутри дня

   for(int i=iBarShift(NULL,0,day1); i<iBarShift(NULL,0,day2); i++)
     {
      day_all++;
     }

// считаем общее число дней на заданном промежутке

   days=(int)(all/day_all);

// цикл по свечам внутри дня

   for(int i=0; i<day_all; i++)
     {
      if(close[i]>open[i])
        {
         bulls++;
         tm=time[i];

         for(int k=0; k<all; k++)
           {
            if(close[k]>open[k] && tm==time[k])
               bulls++;
           }
         if(bulls==days-1)
           {
            s+="\n"+(string)bulls+" Bulls "+(string)tm;
            bulls=0;
           }
        }

      if(close[i]<open[i])
        {
         bears++;
         tm=time[i];

         for(int k=0; k<all; k++)
           {
            if(close[k]<open[k] && tm==time[k])
               bears++;
           }
         if(bears==days-1)
           {
            s+="\n"+(string)bulls+" Bears "+(string)tm;
            bears=0;
           }
        }
     }

   Comment("\n Days: ",days,
           "\n All Candles: ",all,
           "\n Day Candles: ",day_all,
           "\n Bulls Candles: ",bulls,
           "\n Bears Candles: ",bears,
           "\n ",s);

//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+