Statistics of candles

ÿþ//+------------------------------------------------------------------+

//|                                        Statistics of candles.mq5 |

//|                              Copyright © 2017, Vladimir Karputov |

//|                                           http://wmua.ru/slesar/ |

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

#property copyright "Copyright © 2017, Vladimir Karputov"

#property link      "http://wmua.ru/slesar/"

#property version   "1.005"

#property script_show_inputs

#include <Graphics\Graphic.mqh>

//--- input parameters

input int      InputCountBars    = 1200;  // Count of bars

input bool     InpVerification   = false; // Verification

input bool     InpSaveScreenShot = true;  // Save screenShot

input int      InpSleep          = 12000; // Sleep (milliseconds)

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

//| Script program start function                                    |

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

void OnStart()

  {

//---

   enum ENUM_SERIES_TYPE

     {

      Bull=1,  // ‘!

      Bear=-1, // “!

     };

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

//| arr_series[][0]:    series type                                  |

//| arr_series[][1]:    count of series                              |

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

   double arr_series[][2];

   MqlRates rates[];

   int copied=CopyRates(Symbol(),0,0,InputCountBars,rates);

   if(copied==InputCountBars)

     {

      for(int i=0;i<copied;i++)

        {

         //--- here we define type of series

         static int  prev_series_type     = 0;

         int         current_series_type  = 0;

         static int  count_series         = 0;

         if(rates[i].open<rates[i].close)

            current_series_type=Bull;

         else if(rates[i].open>rates[i].close)

            current_series_type=Bear;

         else

            continue;

         //--- count of series

         if(current_series_type==prev_series_type || prev_series_type==0)

            count_series++;

         else // generate the name of the series (only if the bar type has changed)

           {

            int name_series=current_series_type*count_series;

            count_series=1;

            //--- search for this series in an array and enter data

            bool IsFound=false;

            int size=ArrayRange(arr_series,0);

            for(int j=0;j<size;j++)

              {

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

               //| arr_series[][0]:    series type                                  |

               //| arr_series[][1]:    count of series                              |

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

               if(arr_series[j][0]==name_series)

                 {

                  IsFound=true;

                  arr_series[j][1]=arr_series[j][1]+1;

                 }

              }

            if(!IsFound)

              {

               ArrayResize(arr_series,size+1);

               arr_series[size][0]=name_series;

               arr_series[size][1]=1;

              }

           }

         prev_series_type=current_series_type;

        }

     }

   else

     {

      Print("Failed to get history data for the symbol ",Symbol(),". Bars copied ",copied," of ",InputCountBars);

      return;

     }

//---

   ArraySort(arr_series);

//--- verification

   if(InpVerification)

     {

      string out="";

      string format="open = %G, high = %G, low = %G, close = %G, volume = %d";

      for(int i=0;i<copied;i++)

        {

         out=IntegerToString(i)+":"+TimeToString(rates[i].time);

         out=out+" "+StringFormat(format,

                                  rates[i].open,

                                  rates[i].high,

                                  rates[i].low,

                                  rates[i].close,

                                  rates[i].tick_volume);

         if(rates[i].open<rates[i].close)

            out=out+" "+"Bull";

         else if(rates[i].open>rates[i].close)

            out=out+" "+"Bear";

         Print(out);

        }

      Print("//| arr_series[][0]:    series type                                  |");

      Print("//| arr_series[][1]:    count of series                              |");

      ArrayPrint(arr_series,0);

     }

//---

   CGraphic graphic;

   graphic.Create(0,"Graphic",0,10,10,680,360);

   double x[];

   double y[];

   int size=ArrayRange(arr_series,0);

   ArrayResize(x,size);

   ArrayResize(y,size);

   for(int i=0;i<size;i++)

     {

      x[i]=arr_series[i][0];

      y[i]=arr_series[i][1];

     }

   CCurve *curve=graphic.CurveAdd(x,y,CURVE_LINES);

   curve.Name("Statistics of candles");

   graphic.XAxis().Name("Series type. "+Symbol()+","+StringSubstr(EnumToString(Period()),7));

   graphic.XAxis().NameSize(12);

   graphic.YAxis().Name("Count of series");

   graphic.YAxis().NameSize(12);

   graphic.YAxis().ValuesWidth(15);

   graphic.CurvePlotAll();

   graphic.Update();

   if(InpSaveScreenShot)

     {

      //--- Save the chart screenshot in a file in the terminal_directory\MQL5\Files\Statistics of candles\

      string name="Statistics of candles\\"+Symbol()+","+StringSubstr(EnumToString(Period()),7)+

                  ". "+IntegerToString(InputCountBars)+" bars"+".png";

      if(ChartScreenShot(0,name,750,394,ALIGN_RIGHT))

         Print("We've saved the screenshot ",name);

     }

//---

   Sleep(InpSleep);

   graphic.Destroy();

  }

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