GeneralTradingSarl
181 lines
15 KiB
Plaintext
181 lines
15 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| Statistics of candles 2.mq5 |
|
|
//| Copyright © 2017, Vladimir Karputov |
|
|
//| http://wmua.ru/slesar/ |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright © 2017, Vladimir Karputov"
|
|
#property link "http://wmua.ru/slesar/"
|
|
#property version "2.002"
|
|
#property script_show_inputs
|
|
#include <Graphics\Graphic.mqh>
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
enum ENUM_OUTPUT
|
|
{
|
|
count=0, // count of series
|
|
percent=1, // percent from count of bars
|
|
};
|
|
//--- 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)
|
|
input ENUM_OUTPUT InpOutput = percent; // Output statistics
|
|
//+------------------------------------------------------------------+
|
|
//| 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 |
|
|
//| OR |
|
|
//| arr_series[][1]: percent from count of bars |
|
|
//+------------------------------------------------------------------+
|
|
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 |
|
|
//| OR |
|
|
//| arr_series[][1]: percent from count of bars |
|
|
//+------------------------------------------------------------------+
|
|
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);
|
|
if(InpOutput==percent)
|
|
{
|
|
//+------------------------------------------------------------------+
|
|
//| arr_series[][0]: series type |
|
|
//| arr_series[][1]: count of series |
|
|
//| OR |
|
|
//| arr_series[][1]: percent from count of bars |
|
|
//+------------------------------------------------------------------+
|
|
int size=ArrayRange(arr_series,0);
|
|
double coefficient=100.0/(double)InputCountBars;
|
|
for(int i=0;i<size;i++)
|
|
arr_series[i][1]=arr_series[i][1]*coefficient;
|
|
}
|
|
//--- 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 |");
|
|
if(InpOutput==percent)
|
|
Print("//| arr_series[][1]: percent from count of bars |");
|
|
else
|
|
Print("//| arr_series[][1]: count of series |");
|
|
uint digits=(InpOutput==percent)?1:0;
|
|
ArrayPrint(arr_series,digits);
|
|
}
|
|
//---
|
|
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");
|
|
curve.LinesSmooth(true);
|
|
graphic.XAxis().Name("Series type. "+Symbol()+","+StringSubstr(EnumToString(Period()),7));
|
|
graphic.XAxis().NameSize(12);
|
|
graphic.XAxis().AutoScale(false);
|
|
graphic.XAxis().DefaultStep(1.0);
|
|
if(InpOutput==percent)
|
|
graphic.YAxis().Name("Percentage of series in "+IntegerToString(InputCountBars)+" bars");
|
|
else
|
|
graphic.YAxis().Name("Count of series in "+IntegerToString(InputCountBars)+" bars");
|
|
graphic.YAxis().NameSize(12);
|
|
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();
|
|
}
|
|
//+------------------------------------------------------------------+
|