//+------------------------------------------------------------------+
//|                                             StatisticsCandle.mq4 |
//|                        Copyright 2017, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Usver73"
#property link      ""
#property version   "1.00"
#property strict


input ENUM_TIMEFRAMES TF=PERIOD_CURRENT;
struct trendInfo
  {
   int        count;
   int        type;
   datetime   dtDD;
   double     size;
   double     shadow;
   int        countNext;
   double     sizeNext;
   double     shadowNext;
  };
trendInfo CandleArray[1000000];  
datetime prevtime=0;
int      k=0; //счетчик записей в массиве CandleArray
int      n; // множитель пипсов
int      handle;  
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   if(Digits==5) n=10000;
   if(Digits==3) n=100;
/*   for(int i=0;i<ArraySize(CandleArray);i++)
     {
      CandleArray[i].count
     }*/
   CandleArray[0].type=-1;
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
    string str = "StatisticsCandle_" + Symbol() + "_" + GetNameTF(TF) + ".csv";
   handle=FileOpen(str,FILE_CSV|FILE_READ|FILE_WRITE," ");
   if (handle < 0) 
   {
      Print("Error: file " + str + " cannot be created");
   }
   while (!FileIsEnding(handle)) 
   {
      string data = FileReadString(handle);   
   }
   FileWrite(handle, StringConcatenate(Symbol()+ "TF="+GetNameTF(TF)));
   FileWrite(handle,StringConcatenate("Дата;","Время;","Тип;", "Количество;" , "Тело;" , "Тень;","След_количество;", "След_тело;","След_тень"));
   for(int i=0;i<k+1;i++)
     {
      str= StringConcatenate(TimeToString(CandleArray[i].dtDD,TIME_DATE),"; ",TimeToString(CandleArray[i].dtDD,TIME_MINUTES),"; ",
                             GetNameOP(CandleArray[i].type),"; ",CandleArray[i].count, "; ",DoubleToStr(CandleArray[i].size,1) , "; ",DoubleToStr( CandleArray[i].shadow,1),"; ",
                             CandleArray[i].countNext, "; ",DoubleToStr(CandleArray[i].sizeNext,1) , "; ",DoubleToStr( CandleArray[i].shadowNext,1));
      Print("i=",i, "  ",str);
      FileWrite(handle,str);
     }
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
double CandleSize   =0;
double CandleShadow =0;
int    typeCurrent  =0;    // ТИП свечи (1)

  if(prevtime != iTime(NULL,TF,0)) 
    {
     if(iOpen(NULL,TF,1)<iClose(NULL,TF,1)) typeCurrent= OP_BUY;// если свеча №1 БАЙ
     else                                   typeCurrent= OP_SELL;
//     Print("Current type", GetNameOP(typeCurrent));
     CandleSize= MathAbs(iOpen(NULL,TF,1)-iClose(NULL,TF,1))*n;// размер свечи №1
//     Print("Current CandleSize ",CandleSize);
     if (typeCurrent== OP_BUY)  CandleShadow=(iHigh(NULL,TF,1) - iClose(NULL,TF,1))*n; // размер тени
     else                       CandleShadow=(iClose(NULL,TF,1)- iLow(NULL,TF,1))*n;
//     Print("Current CandleShadow ",CandleShadow);
     if(CandleArray[k].type==-1)
       {
        Print("Первый вход.CandleArray.type=-1");        
        CandleArray[k].count  =1; CandleArray[k].type   =typeCurrent;
        CandleArray[k].dtDD   =iTime(NULL,TF,1);CandleArray[k].size   =CandleSize;
        CandleArray[k].shadow =CandleShadow;
        Print(__LINE__," Запись в массиве № ",k, " Время ", CandleArray[k].dtDD);
        Print(__LINE__," Current type ", GetNameOP(typeCurrent), "  CandleArray[k].type ", GetNameOP(CandleArray[k].type)," CandleArray[k].count ",CandleArray[k].count );
        Print(__LINE__," CandleArray[k].size ", DoubleToStr(CandleArray[k].size,1), " CandleSize ",DoubleToStr(CandleSize,1));
        Print(__LINE__," CandleArray[k].shadow ", DoubleToStr(CandleArray[k].shadow,1), " CandleShadow ",DoubleToStr(CandleShadow,1));

       }
     else // если количество свечей больше 0
       {
        if( CandleArray[k].type==typeCurrent) // проверяем, совпадают ли направления, и если совпадают,
          {
           // прибавляем свечу (1) в записанной в массиве
            Print(__LINE__," Тип ордера совпадает с массивом к. Запись в массиве № ",k, " Время ", CandleArray[k].dtDD);
            Print(__LINE__," Current type ", GetNameOP(typeCurrent), "  CandleArray[k].type ", GetNameOP(CandleArray[k].type)," CandleArray[k].count ",CandleArray[k].count );
            Print(__LINE__," CandleArray[k].size ", DoubleToStr(CandleArray[k].size,1), " CandleSize ",DoubleToStr(CandleSize,1));
            Print(__LINE__," CandleArray[k].shadow ", DoubleToStr(CandleArray[k].shadow,1), " CandleShadow ",DoubleToStr(CandleShadow,1));
            CandleArray[k].count++; CandleArray[k].size =CandleArray[k].size+CandleSize;
            CandleArray[k].shadow =CandleShadow;            
          }
        else // если не совпадают направления,
          { 
          /* if(CandleArray[k].count  ==1) //если количество свечей в записи=1, то переписываем
             {
              CandleArray[k].count  =1; CandleArray[k].type   =typeCurrent;
              CandleArray[k].dtDD   =iTime(NULL,TF,1);CandleArray[k].size   =CandleSize;
              CandleArray[k].shadow =CandleShadow;
             }
           else // если в массиве больше 1 свечи, то увеличиваем счетчик массива на 1 и начинаем новый отсчет
             {*/
           //записываем параметры к-той свечи в параметры Next к-1 - свечи
           if(k>0)
             {
              CandleArray[k-1].countNext  = CandleArray[k].count;
              CandleArray[k-1].sizeNext   = CandleArray[k].size ; 
              CandleArray[k-1].shadowNext = CandleArray[k].shadow;
             }
            else Print ("ПЕРВАЯ СВЕЧА, ЗАПАСЫВАТЬ НЕКУДА :)"); 
           //Записываем в новую запись в массив
           k++;
           CandleArray[k].count  =1; CandleArray[k].type   =typeCurrent;
           CandleArray[k].dtDD   =iTime(NULL,TF,1);CandleArray[k].size   =CandleSize;
           CandleArray[k].shadow =CandleShadow;
 //            }
          }

       } 
      prevtime = iTime(NULL,TF,0); // записываем время текущей свечи для исключения повторного расчета

 /*    
     
     MoveUp=MathAbs(iOpen(NULL,TF,1)-iHigh(NULL,TF,1))*n; //максимальное движение вверх от открытия на свече №1
     MoveDn=MathAbs(iOpen(NULL,TF,1)-iLow(NULL,TF,1))*n;  //максимальное движение вних от открытия на свече №1
     CandleSize= MathAbs(iOpen(NULL,TF,2)-iClose(NULL,TF,2))*n; // размер свечи №2
     if(iOpen(NULL,TF,2)<iClose(NULL,TF,2))// если свеча №2 БАЙ
       {
        // если ГЭП по движению , то знак +
 //       MoveTP= MoveDn; MoveSL=MoveUp; type="BUY"; gap=(iOpen(NULL,TF,1) -iClose(NULL,TF,2))*n;// то для БАЙ свечи на следующей неделе движение к ТП д.б. вниз
       }
     else
       {
        // если ГЭП по движению , то знак +
 //       MoveTP=MoveUp ; MoveSL=MoveDn ; type="SELL";gap=(iClose(NULL,TF,2)-iOpen(NULL,TF,1))*n;
       } 
//     Print("iTime =",iTime(NULL,TF,0));
     prevtime = iTime(NULL,TF,0); // записываем время текущей свечи для исключения повторного расчета
     
//     res= StringConcatenate(TimeYear(iTime(NULL,TF,2)),";", TimeToString (iTime(NULL,TF,2),TIME_DATE)," ", TimeToString (iTime(NULL,TF,2),TIME_MINUTES), ";",type,";",CandleSize,";",gap, ";", MoveTP, ";",MoveSL);
//     line[k]=res;
     k++; 
 //    Print (res);*/
    }
   
  }
//+------------------------------------------------------------------+
//+----------------------------------------------------------------------------+
//|  Автор    : Ким Игорь В. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Версия   : 01.09.2005                                                     |
//|  Описание : Возвращает наименование торговой операции                      |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    op - идентификатор торговой операции                                    |
//+----------------------------------------------------------------------------+
string GetNameOP(int op) {
  switch (op) {
    case OP_BUY      : return("Buy");
    case OP_SELL     : return("Sell");
    case OP_BUYLIMIT : return("BuyLimit");
    case OP_SELLLIMIT: return("SellLimit");
    case OP_BUYSTOP  : return("BuyStop");
    case OP_SELLSTOP : return("SellStop");
    default          : return("Unknown Operation");
  }
}

//+----------------------------------------------------------------------------+
//|  Автор    : Ким Игорь В. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Версия   : 01.09.2005                                                     |
//|  Описание : Возвращает наименование таймфрейма                             |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    TimeFrame - таймфрейм (количество секунд)      (0 - текущий ТФ)         |
//+----------------------------------------------------------------------------+
string GetNameTF(int TimeFrame=0) {
  if (TimeFrame==0) TimeFrame=Period();
  switch (TimeFrame) {
    case PERIOD_M1:  return("M1");
    case PERIOD_M5:  return("M5");
    case PERIOD_M15: return("M15");
    case PERIOD_M30: return("M30");
    case PERIOD_H1:  return("H1");
    case PERIOD_H4:  return("H4");
    case PERIOD_D1:  return("Daily");
    case PERIOD_W1:  return("Weekly");
    case PERIOD_MN1: return("Monthly");
    default:         return("Unknown Period");
  }
}