"Дырявость" графика
неплохо =)
только отчёт бы сделать аккуратнее и информативнее ;)
как пример можешь посмотреть мою Amplitude-у - она есть на сайте в разделе скрипты. Или Isconnected, опять же.
С хорошим отчётом приятно работать )))
А из данных хотелось бы ещё видеть сумму времени дыр (например, дыр всего - 10 часов 25 минут 10 сек ), да и процент качества, как по мне, лучше считать только с маленькими дырами. А то -350% из-за одной дырки - некрасиво =)
А вообще, спасибо )
только отчёт бы сделать аккуратнее и информативнее ;)
как пример можешь посмотреть мою Amplitude-у - она есть на сайте в разделе скрипты. Или Isconnected, опять же.
С хорошим отчётом приятно работать )))
А из данных хотелось бы ещё видеть сумму времени дыр (например, дыр всего - 10 часов 25 минут 10 сек ), да и процент качества, как по мне, лучше считать только с маленькими дырами. А то -350% из-за одной дырки - некрасиво =)
А вообще, спасибо )
неплохо =)
только отчёт бы сделать аккуратнее и информативнее ;)
как пример можешь посмотреть мою Amplitude-у - она есть на сайте в разделе скрипты. Или Isconnected, опять же.
С хорошим отчётом приятно работать )))
А из данных хотелось бы ещё видеть сумму времени дыр (например, дыр всего - 10 часов 25 минут 10 сек ), да и процент качества, как по мне, лучше считать только с маленькими дырами. А то -350% из-за одной дырки - некрасиво =)
А вообще, спасибо )
только отчёт бы сделать аккуратнее и информативнее ;)
как пример можешь посмотреть мою Amplitude-у - она есть на сайте в разделе скрипты. Или Isconnected, опять же.
С хорошим отчётом приятно работать )))
А из данных хотелось бы ещё видеть сумму времени дыр (например, дыр всего - 10 часов 25 минут 10 сек ), да и процент качества, как по мне, лучше считать только с маленькими дырами. А то -350% из-за одной дырки - некрасиво =)
А вообще, спасибо )
Благодарю за коментарий, только у меня отчет почемуто вполне красивый, эти кодовые ходы я как раз в твоих скриптах подглядел, так что тебе тоже спасибо. И откуда 350%, когда д/быть до 100? Скинь мне этот отчет плиз на мыло, гляну для сравнения, что-то там не так (может и у меня).
Насчет времени: постараюсь, но сначала отчет на мыло. а то не ясно что и куда . Я тебе скину свой, погляди.
не 350% а -350 =)))
про красивости ответил на мыло, а структуру всё-таки сам продумывай ) Оно по мере необходимости само получаться будет )))
про красивости ответил на мыло, а структуру всё-таки сам продумывай ) Оно по мере необходимости само получаться будет )))
кое-что исправил, кое-что добавил
//+------------------------------------------------------------------+
//| holes_history_data.mq4 |
//| Copyright © 2005 Bagadul |
//| bagbagadul@yandex.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005 Bagadul"
#property link "bagbagadul@yandex.ru"
#property show_inputs
/*
Данный код выявляет в данных истории отсутствующие бары (далее "дыры") и разрывы (большие дыры),
работает на всех инструментах, предназначен для внутредневных графиков, поэтому таймфрейм ограничен
периодом - H4, при анализе учитываютя только выходные дни (суббота и воскресение - 48 часов), остальные
моменты код считает дырами или разрывами. Для удобства работы на графике, в код можно задать:
1. количество отсутствующих баров на таймфреймах (M1,5,15,30), которые код будет
игнорировать (данную опцию можно отменить в свойствах скрипта)
2. количество отсутствующих баров (минимальное значение), которые код считал бы
разрывом (по умолчанию 20 баров);
При равности этих значений, все найденные дыры код будет считать разрывами.
Далее запускать как скрипт.
Для упрощения, в коде где возможно имеются комментарии, результаты выводятся в *.txt файл.
Код создан на MT4 build 182.
!!! Если данные истории "склеены" или поставлялись больше чем одним брокером, то результат отчета
может содержать неточности в части, отмеченной примечанием (**включая выходные дни).
*/
//+-------------------------------------------------------------------+
// количество отсутствующих баров на разных таймфреймах, которые код будет игнорировать
extern string Options = "Минимальные значения";
extern bool bars_ignore = true;
extern int bars_ignore_M1 = 3; // (по умолчанию)
extern int bars_ignore_M5 = 3;
extern int bars_ignore_M15 = 2;
extern int bars_ignore_M30 = 2;
//+-------------------
// количество отсутствующих баров, которые код считал бы разрывом
extern int breakup_min = 20; // минимальное значение (должно быть > 0 и >= bars_min)
//+-------------------------------------------------------------------+
string begin_week_sessions = "00:00"; // время начала недельной сессии (чч:мм) (по умолчанию)
bool new_file = true;
int handle;
//+-------------------
#include <WinUser32.mqh>
//+-------------------
int start()
{
//+------------------------------
string time_frame; // таймфрейм
int duration_bar; // длительность бара в сек.
int hole_min ; // количество отсутствующих баров, которые код будет игнорировать
switch ( Period() )
{
case 1: time_frame = "M1"; duration_bar = 60; hole_min = bars_ignore_M1; break;
case 5: time_frame = "M5"; duration_bar = 300; hole_min = bars_ignore_M5; break;
case 15: time_frame = "M15"; duration_bar = 900; hole_min = bars_ignore_M15; break;
case 30: time_frame = "M30"; duration_bar = 1800; hole_min = bars_ignore_M30; break;
case 60: time_frame = "H1"; duration_bar = 3600; hole_min = 1; break;
case 240: time_frame = "H4"; duration_bar = 14400; hole_min = 1; break;
default: MessageBox("Таймфрейм должен находиться в пределах M1-H4.\n\nВыбирете другой таймфрейм.",
"Неправильно выбран таймфрейм (график)", MB_OK | MB_ICONWARNING | MB_DEFBUTTON1);
return(0);
}
if (hole_min < 1) hole_min = 1;
if (bars_ignore == false) hole_min = 1;
//+------------------------------
// данный блок создает имя файла
datetime bar_day = TimeDay (Time[Bars - 1]);
datetime bar_month = TimeMonth (Time[Bars - 1]);
datetime bar_year = TimeYear (Time[Bars - 1]);
string zero_day_begin;
string zero_month_begin;
if (bar_day < 10)
zero_day_begin = "0";
else zero_day_begin = "";
if (bar_month < 10)
zero_month_begin = "0";
else zero_month_begin = "";
string date_start = zero_day_begin + bar_day + "." + zero_month_begin + bar_month + "." + bar_year; // начальная дата
bar_day = TimeDay (Time[0]);
bar_month = TimeMonth (Time[0]);
bar_year = TimeYear (Time[0]);
string zero_day_end;
string zero_month_end;
if (bar_day < 10)
zero_day_end = "0";
else zero_day_end = "";
if (bar_month < 10)
zero_month_end = "0";
else zero_month_end = "";
string date_end = zero_day_end + bar_day + "." + zero_month_end + bar_month + "." + bar_year; // конечная дата
string file_name = Symbol() + "_" + time_frame + "_holes_" + date_start + "-" + date_end + ".txt";
//+------------------------------
if (breakup_min < hole_min)
{
int warning_1 = MessageBox("Значения количества отсутствующих баров должны составлять:\n\nhole_min <= breakup_min\n\n" +
"Значение - breakup_min, будет увеличено до - hole_min.", "Неправильно выбраны значения: " +
"hole_min, breakup_min", MB_OKCANCEL | MB_ICONWARNING | MB_DEFBUTTON1);
if (warning_1 == 1)
breakup_min = hole_min;
else return(0);
}
//+------------------------------
// определение времени открытия последнего бара окончания недельной сессии (чч:мм)
datetime ews;
string end_week_sessions; // время окончания недельной сессии
for (int i = 0; i < Bars; i++ )
{
datetime time = iTime(NULL, 0, Bars - i );
int day_week = TimeDayOfWeek(time);
if (day_week == 5)
{
datetime initial_time = StrToTime(TimeToStr(time,TIME_MINUTES));
if (initial_time > ews)
ews = initial_time;
}
end_week_sessions = TimeToStr(ews,TIME_MINUTES);
}
//+------------------------------
// анализ данных истории
int week_seconds = 604800; // количество секунд в неделе
double weeks; // отношение диапазона дыры к количеству секунд в неделе
//+-------------------
// выходные дни в сек.
datetime holiday = StrToTime(begin_week_sessions) - StrToTime(end_week_sessions) + (24*3600*3) - duration_bar;
//+-------------------
int hole_range; // диапазон дыры
int bars_hole; // баров в дыре
int holes_total_amount; // общее количество дыр
int breakup_total_amount; // общее количество разрывов
int bars_hole_amount; // общее количество баров в дырах
int bars_breakup_amount; // общее количество баров в разрывах
int hole_max; // значение максимальной дыры
int breakup_max; // значение максимального разрыва
bool note_ = false;
double seconds, hours, minutes;
string line_2 = "--------------------------------------------------------------------------------------------------" +
"--------------------------------------------------------------------------------------------------\n";
string perenos = "\n";
//+-------------------
for (int h = 0; h < Bars; h++ )
{
//+-------------------
// время текущего и предыдущего баров в истории
datetime bar_time_current = iTime(NULL, 0, Bars - h - 2 );
datetime bar_time_previous = iTime(NULL, 0, Bars - h - 1 );
//+-------------------
// фактический диапазон таймфрейма с учетом неточности
int time_frame_range = bar_time_current - bar_time_previous;
//+-------------------
if (time_frame_range > duration_bar) // количество секунд в баре превышает таймфрейм
{
string note_1;
if (time_frame_range > week_seconds) // количество секунд в баре превышает количество секунд в неделе
{
weeks = MathFloor(time_frame_range / week_seconds); // значение дыры в недельном выражении
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
hole_range = time_frame_range - holiday * (1 + weeks) - duration_bar;
else hole_range = time_frame_range - (holiday * weeks) - duration_bar;
note_1 = "(**включая выходные дни)";
}
else
{
weeks = 0;
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
{
hole_range = time_frame_range - holiday - duration_bar;
note_1 = "(**включая выходные дни)";
}
else
{
hole_range = time_frame_range - duration_bar;
note_1 = "";
}
}
bars_hole = hole_range / duration_bar;
if (bars_hole >= hole_min)
{
holes_total_amount++; // общее количество дыр (увеличиваем)
bars_hole_amount += bars_hole; // общее количество баров в дырах (увеличиваем)
string gap;
if (holes_total_amount < 10)
gap = " ";
else if (holes_total_amount >= 10 && holes_total_amount < 100)
gap = " ";
else if (holes_total_amount >= 100 && holes_total_amount < 1000)
gap = " ";
else gap = "";
seconds = bars_hole * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_hole;
string zero_h4 = "", zero_m4 = "";
if (hours < 10) zero_h4 = "0";
if (minutes * 60 < 10) zero_m4 = "0";
duration_hole = zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
//+-------------------
// время начала диапазона дыры
datetime hole_day_begin_;
string hole_time_begin_;
if (StrToTime(TimeToStr(bar_time_previous + duration_bar,TIME_MINUTES)) == StrToTime(end_week_sessions) + duration_bar &&
TimeDayOfWeek(bar_time_previous + duration_bar) == 5)
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar + holiday);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar + holiday, TIME_MINUTES );
note_1 = "";
}
else
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar, TIME_MINUTES );
}
datetime hole_day_begin = hole_day_begin_;
datetime hole_month_begin = TimeMonth(bar_time_previous + duration_bar);
datetime hole_year_begin = TimeYear(bar_time_previous + duration_bar);
string hole_time_begin = hole_time_begin_;
if (hole_day_begin < 10)
zero_day_begin = "0";
else zero_day_begin = "";
if (hole_month_begin < 10)
zero_month_begin = "0";
else zero_month_begin = "";
//+-------------------
// время окончания диапазона дыры
datetime hole_day_end = TimeDay(bar_time_current);
datetime hole_month_end = TimeMonth(bar_time_current);
datetime hole_year_end = TimeYear(bar_time_current);
string hole_time_end = TimeToStr(bar_time_current, TIME_MINUTES );
if (hole_day_end < 10)
zero_day_end = "0";
else zero_day_end = "";
if (hole_month_end < 10)
zero_month_end = "0";
else zero_month_end = "";
//+-------------------
if (bars_hole >= breakup_min)
{
breakup_total_amount++; // общее количество разрывов (увеличиваем)
bars_breakup_amount += bars_hole; // общее количество баров в разрывах (увеличиваем)
}
if (hole_max < bars_hole && bars_hole < breakup_min)
{
hole_max = bars_hole; // максимальная дыра
int number_hole = holes_total_amount; // п/п номер
}
if (breakup_max <= bars_hole && bars_hole >= breakup_min)
{
breakup_max = bars_hole; // максимальный разрыв
int number_breakup = holes_total_amount; // п/п номер
}
//+------------------------------
// создание таблицы *.txt файла
if (new_file)
{
string line_1 = "________________________________________________________________________________________________________________" + "\n";
string headline = "п/п №\t| *Диапазон (дата / время)\t\t\t| Размер (bars)\t| Длительность (чч:мм)\t| Примечания" + "\n";
FileDelete(file_name);// удаление раннее записанного файла с таким же именем
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
FileSeek (handle, 2000, SEEK_END);
FileWrite(handle, perenos, line_1, headline, line_2);
new_file = false;
}
if (note_1 != "")
note_ = true;
//+-------------------
string hole = " " + holes_total_amount + gap + "\t " + zero_day_begin + hole_day_begin + "." +
zero_month_begin + hole_month_begin + "." + hole_year_begin + " [" + hole_time_begin +
"]\t -\t" + zero_day_end + hole_day_end + "." + zero_month_end + hole_month_end + "." + hole_year_end +
" [" + hole_time_end + "]\t " + bars_hole + "\t\t " + duration_hole + "\t\t\t " + note_1 + "\n";
FileWrite(handle, hole );
//+-------------------
// максимальная дыра и разрыв
string hole_range_max = "п/п № - " + number_hole + "\n";
string breakup_range_max = "п/п № - " + number_breakup + "\n";
}
}
}
//+------------------------------
// создание отчета *.txt файла
if (hole_min > 1) string note_2 = "\t( дыры размером < " + hole_min + " bars - игнорируются заданными пользователем условиями )";
string note_3;
if (hole_min == breakup_min)
note_3 = "смотреть <Разрывы>, согласно заданным пользователем условиям )";
else note_3 = hole_min + " - " + breakup_min + " bars )\t" + note_2;
double bars_hole_amount_ = bars_hole_amount;
double bars_breakup_amount_ = bars_breakup_amount;
double holes_total_amount_ = holes_total_amount;
double breakup_total_amount_ = breakup_total_amount;
double bars_ = Bars;
string hole_average_size_;
string info_10, info_11, info_12, info_13, info_21, info_22, info_23;
string grade_hole_chart_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/ bars_ * 100, 2);
string quality_chart__ = DoubleToStr( (bars_ - bars_hole_amount_ + bars_breakup_amount_ ) / bars_ * 100, 2);
if (holes_total_amount != breakup_total_amount)
{
seconds = (bars_hole_amount - bars_breakup_amount) * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes;
string zero_h1 = "", zero_m1 = "";
if (hours < 10) zero_h1 = "0";
if (minutes * 60 < 10) zero_m1 = "0";
duration_holes = zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
hole_average_size_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/(holes_total_amount_ - breakup_total_amount_), 2);
info_10 = "Количество -\t\t\t" + (holes_total_amount - breakup_total_amount) + "\n";
info_11 = "Размер -\t\t\t" + (bars_hole_amount - bars_breakup_amount) + " bars\n";
info_23 = "Длительность -\t\t\t" + duration_holes + " чч:мм\n";
info_12 = "Максимальный размер -\t\t" + hole_max + " bars\t\t" + hole_range_max;
info_13 = "Средний размер -\t\t\t" + hole_average_size_ + " bars\n";
info_21 = "Степень общей дырявости графика -\t" + grade_hole_chart_ + " %\n";
info_22 = "Качество графика -\t\t" + quality_chart__ + " %\n";
}
else
{
info_10 = "Количество -\t\t\t-\n";
info_11 = "Размер -\t\t\t-\n";
info_23 = "Длительность -\t\t\t-\n";
info_12 = "Максимальный размер -\t\t-\n";
info_13 = "Средний размер -\t\t\t-\n";
info_21 = "Степень общей дырявости графика -\t-\n";
info_22 = "Качество графика -\t\t-\n";
}
string grade_hole_chart = DoubleToStr(bars_hole_amount_ / bars_ * 100, 2);
string grade_breakup_chart = DoubleToStr(bars_breakup_amount_ / bars_ * 100, 2);
string quality_chart = DoubleToStr( (bars_ - bars_hole_amount_) / bars_ * 100, 2);
string quality_chart_ = DoubleToStr( (bars_ - bars_breakup_amount_) / bars_ * 100, 2);
//+-------------------
string line_3 = " --------------------------------------------------------------------------------------------------" +
"--------------------------------------------------------------------------------------------------" + "\n";
string shapka = "Отчет по отсутствующим барам в данных истории. Инструмент - " + Symbol() + ". Таймфрейм [" + time_frame + "].\n";
string info_1 = "Период -\t\t\t" + date_start + " г. - " + date_end + " г.\n";
string info_2 = "Баров в истории -\t\t\t" + Bars + " bars\n";
string line_4 = "_____________________________________________________";
string info_3 = "ОБЩИЙ АНАЛИЗ дыр и разрывов \n";
string info_4;
//+-------------------
if (holes_total_amount != 0)
{
//+------------------------------
seconds = bars_hole_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes_;
string zero_h2 = "", zero_m2 = "";
if (hours < 10) zero_h2 = "0";
if (minutes * 60 < 10) zero_m2 = "0";
duration_holes_ = zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
string hole_average_size = DoubleToStr(bars_hole_amount_ / holes_total_amount_, 2);
FileSeek (handle, 0, SEEK_END);
FileWrite(handle, line_1);
FileSeek (handle, 0, SEEK_SET);
info_4 = "Количество -\t\t\t" + holes_total_amount + "\n";
string info_5 = "Размер -\t\t\t" + bars_hole_amount + " bars\n";
string info_24 = "Длительность -\t\t\t" + duration_holes_ + " чч:мм\n";
string info_6 = "Средний размер -\t\t\t" + hole_average_size + " bars\n";
string info_7 = "Степень общей дырявости графика -\t" + grade_hole_chart + " %\n";
string info_8 = "Качество графика -\t\t" + quality_chart + " %\n";
string info_9 = "ДЫРЫ ( " + note_3 + "\n";
//+-------------------
string info_14 = "РАЗРЫВЫ ( " + breakup_min + " bars и выше)\n";
string info_15, info_16, info_17, info_18, info_19, info_20, info_25;
if (breakup_total_amount != 0)
{
seconds = bars_breakup_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_breakups;
string zero_h3 = "", zero_m3 = "";
if (hours < 10) zero_h3 = "0";
if (minutes * 60 < 10) zero_m3 = "0";
duration_breakups = zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
string breakup_average_size = DoubleToStr(bars_breakup_amount_ / breakup_total_amount_, 2);
info_15 = "Количество -\t\t\t" + breakup_total_amount + "\n";
info_16 = "Размер -\t\t\t" + bars_breakup_amount + " bars\n";
info_25 = "Длительность -\t\t\t" + duration_breakups + " чч:мм\n";
info_17 = "Максимальный размер -\t\t" + breakup_max + " bars\t\t" + breakup_range_max;
info_18 = "Средний размер -\t\t\t" + breakup_average_size + " bars\n";
info_19 = "Степень разрывности графика -\t" + grade_breakup_chart + " %\t\t( без учета дыр )\n";
info_20 = "Качество графика -\t\t" + quality_chart_ + " %\t\t( без учета дыр )\n";
}
else
{
info_15 = "Количество -\t\t\t-\n";
info_16 = "Размер -\t\t\t-\n";
info_25 = "Длительность -\t\t\t-\n";
info_17 = "Максимальный размер -\t\t-\n";
info_18 = "Средний размер -\t\t\t-\n";
info_19 = "Степень разрывности графика -\t-\n";
info_20 = "Качество графика -\t\t-\n";
}
//+-------------------
string note_4 = " *Диапазон начинается временем открытия первого отсутствующего бара, а заканчивается временем открытия бара,\n следующего за последним отсутствующим баром.\n";
string note_5 = "";
if (note_ == true)
note_5 = "**Конец недельной сессии -\t" + TimeToStr(StrToTime(end_week_sessions) + duration_bar,TIME_MINUTES) + " чч:мм";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, info_5, info_24, info_6, info_7, info_8, line_4, perenos,
info_9, info_10, info_11, info_23, info_12, info_13, info_21, info_22, line_4, perenos, info_14, info_15, info_16, info_25, info_17, info_18, info_19, info_20,
line_4, perenos, note_4, perenos, note_5);
}
else
{
FileDelete(file_name);
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
info_4 = "Количество -\t\t\tНа данном графике дыр и разрывов НЕ ОБНАРУЖЕНО\n";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, line_4);
}
FileClose(handle);
MessageBox("В папке терминала MT4: \Experts\files\ создан файл отчета:\n\n" + file_name,
"Анализ данных истории успешно завершен", MB_OK | MB_DEFBUTTON1);
return(0);
}
//+------------------------------------------------------------------+
да, чуть лучше..
только
у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
только
Длительность - 3409:52 чч:мм
Непорядок =)у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
да, чуть лучше..
только
у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
только
Длительность - 3409:52 чч:мм
Непорядок =)у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
ок, попробую исправить.
да, чуть лучше..
только
у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
только
Длительность - 3409:52 чч:мм
Непорядок =)у меня в амплитуде есть расчёт дней, минут, сек - просто скопируй ;)
просто скопировать не получилось, т.к. длительность баров в отчете подсчитывается не как в таблице (начало-конец), а исходя из ко-ва баров, поэтому для удобства пришлось применить немного другой расчет, в "амплитуде" же расчет больше подходит для фиксированных дат,
вот что получилось:
//+------------------------------------------------------------------+
//| holes_history_data.mq4 |
//| Copyright © 2005 Bagadul |
//| bagbagadul@yandex.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005 Bagadul"
#property link "bagbagadul@yandex.ru"
#property show_inputs
/*
Данный код выявляет в данных истории отсутствующие бары (далее "дыры") и разрывы (большие дыры),
работает на всех инструментах, предназначен для внутредневных графиков, поэтому таймфрейм ограничен
периодом - H4, при анализе учитываютя только выходные дни (суббота и воскресение - 48 часов), остальные
моменты код считает дырами или разрывами. Для удобства работы на графике, в код можно задать:
1. количество отсутствующих баров на таймфреймах (M1,5,15,30), которые код будет
игнорировать (данную опцию можно отменить в свойствах скрипта)
2. количество отсутствующих баров (минимальное значение), которые код считал бы
разрывом (по умолчанию 20 баров);
При равности этих значений, все найденные дыры код будет считать разрывами.
Далее запускать как скрипт.
Для упрощения, в коде где возможно имеются комментарии, результаты выводятся в *.txt файл.
Код создан на MT4 build 182.
!!! Если данные истории "склеены" или поставлялись больше чем одним брокером, то результат отчета
может содержать неточности в части, отмеченной примечанием (**включая выходные дни).
*/
//+-------------------------------------------------------------------+
// количество отсутствующих баров на разных таймфреймах, которые код будет игнорировать
extern string Options = "Минимальные значения";
extern bool bars_ignore = true;
extern int bars_ignore_M1 = 3; // (по умолчанию)
extern int bars_ignore_M5 = 3;
extern int bars_ignore_M15 = 2;
extern int bars_ignore_M30 = 2;
//+-------------------
// количество отсутствующих баров, которые код считал бы разрывом
extern int breakup_min = 20; // минимальное значение (должно быть > 0 и >= bars_min)
//+-------------------------------------------------------------------+
string begin_week_sessions = "00:00"; // время начала недельной сессии (чч:мм) (по умолчанию)
bool new_file = true;
int handle;
//+-------------------
#include <WinUser32.mqh>
//+-------------------
int start()
{
//+------------------------------
string time_frame; // таймфрейм
int duration_bar; // длительность бара в сек.
int hole_min ; // количество отсутствующих баров, которые код будет игнорировать
switch ( Period() )
{
case 1: time_frame = "M1"; duration_bar = 60; hole_min = bars_ignore_M1; break;
case 5: time_frame = "M5"; duration_bar = 300; hole_min = bars_ignore_M5; break;
case 15: time_frame = "M15"; duration_bar = 900; hole_min = bars_ignore_M15; break;
case 30: time_frame = "M30"; duration_bar = 1800; hole_min = bars_ignore_M30; break;
case 60: time_frame = "H1"; duration_bar = 3600; hole_min = 1; break;
case 240: time_frame = "H4"; duration_bar = 14400; hole_min = 1; break;
default: MessageBox("Таймфрейм должен находиться в пределах M1-H4.\n\nВыбирете другой таймфрейм.",
"Неправильно выбран таймфрейм (график)", MB_OK | MB_ICONWARNING | MB_DEFBUTTON1);
return(0);
}
if (hole_min < 1) hole_min = 1;
if (bars_ignore == false) hole_min = 1;
//+------------------------------
// данный блок создает имя файла
datetime bar_day = TimeDay (Time[Bars - 1]);
datetime bar_month = TimeMonth (Time[Bars - 1]);
datetime bar_year = TimeYear (Time[Bars - 1]);
string zero_day_begin, zero_month_begin;
if (bar_day < 10) zero_day_begin = "0"; else zero_day_begin = "";
if (bar_month < 10) zero_month_begin = "0"; else zero_month_begin = "";
string date_start = zero_day_begin + bar_day + "." + zero_month_begin + bar_month + "." + bar_year; // начальная дата
bar_day = TimeDay (Time[0]);
bar_month = TimeMonth (Time[0]);
bar_year = TimeYear (Time[0]);
string zero_day_end, zero_month_end;
if (bar_day < 10) zero_day_end = "0"; else zero_day_end = "";
if (bar_month < 10) zero_month_end = "0"; else zero_month_end = "";
string date_end = zero_day_end + bar_day + "." + zero_month_end + bar_month + "." + bar_year; // конечная дата
string file_name = Symbol() + "_" + time_frame + "_holes_" + date_start + "-" + date_end + ".txt";
//+------------------------------
if (breakup_min < hole_min)
{
int warning_1 = MessageBox("Значения количества отсутствующих баров должны составлять:\n\nhole_min <= breakup_min\n\n" +
"Значение - breakup_min, будет увеличено до - hole_min.", "Неправильно выбраны значения: " +
"hole_min, breakup_min", MB_OKCANCEL | MB_ICONWARNING | MB_DEFBUTTON1);
if (warning_1 == 1) breakup_min = hole_min; else return(0);
}
//+------------------------------
// определение времени открытия последнего бара окончания недельной сессии (чч:мм)
datetime ews;
string end_week_sessions; // время окончания недельной сессии
for (int i = 0; i < Bars; i++ )
{
datetime time = iTime(NULL, 0, Bars - i );
int day_week = TimeDayOfWeek(time);
if (day_week == 5)
{
datetime initial_time = StrToTime(TimeToStr(time,TIME_MINUTES));
if (initial_time > ews) ews = initial_time;
}
end_week_sessions = TimeToStr(ews,TIME_MINUTES);
}
//+------------------------------
// анализ данных истории
int week_seconds = 604800; // количество секунд в неделе
double weeks; // отношение диапазона дыры к количеству секунд в неделе
//+-------------------
// выходные дни в сек.
datetime holiday = StrToTime(begin_week_sessions) - StrToTime(end_week_sessions) + (24*3600*3) - duration_bar;
//+-------------------
int hole_range; // диапазон дыры
int bars_hole; // баров в дыре
int holes_total_amount; // общее количество дыр
int breakup_total_amount; // общее количество разрывов
int bars_hole_amount; // общее количество баров в дырах
int bars_breakup_amount; // общее количество баров в разрывах
int hole_max; // значение максимальной дыры
int breakup_max; // значение максимального разрыва
bool note_ = false;
double months, days, hours, minutes, seconds;
string line_2 = "--------------------------------------------------------------------------------------------------" +
"--------------------------------------------------------------------------------------------------\n";
string perenos = "\n";
//+-------------------
for (int h = 0; h < Bars; h++ )
{
//+-------------------
// время текущего и предыдущего баров в истории
datetime bar_time_current = iTime(NULL, 0, Bars - h - 2 );
datetime bar_time_previous = iTime(NULL, 0, Bars - h - 1 );
//+-------------------
// фактический диапазон таймфрейма с учетом неточности
int time_frame_range = bar_time_current - bar_time_previous;
//+-------------------
if (time_frame_range > duration_bar) // количество секунд в баре превышает таймфрейм
{
string note_1;
if (time_frame_range > week_seconds) // количество секунд в баре превышает количество секунд в неделе
{
weeks = MathFloor(time_frame_range / week_seconds); // значение дыры в недельном выражении
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
hole_range = time_frame_range - holiday * (1 + weeks) - duration_bar;
else hole_range = time_frame_range - (holiday * weeks) - duration_bar;
note_1 = "(**включая выходные дни)";
}
else
{
weeks = 0;
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
{
hole_range = time_frame_range - holiday - duration_bar;
note_1 = "(**включая выходные дни)";
}
else
{
hole_range = time_frame_range - duration_bar;
note_1 = "";
}
}
bars_hole = hole_range / duration_bar;
if (bars_hole >= hole_min)
{
holes_total_amount++; // общее количество дыр (увеличиваем)
bars_hole_amount += bars_hole; // общее количество баров в дырах (увеличиваем)
string gap;
if (holes_total_amount < 10) gap = " ";
else if (holes_total_amount >= 10 && holes_total_amount < 100) gap = " ";
else if (holes_total_amount >= 100 && holes_total_amount < 1000) gap = " ";
else gap = "";
seconds = bars_hole * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_hole;
string zero_h4 = "", zero_m4 = "";
if (hours < 10) zero_h4 = "0";
if (minutes * 60 < 10) zero_m4 = "0";
duration_hole = zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h4 = "0";
duration_hole = DoubleToStr(days,0) + " day(s) " + zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_hole = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
}
}
//+-------------------
// время начала диапазона дыры
datetime hole_day_begin_;
string hole_time_begin_;
if (StrToTime(TimeToStr(bar_time_previous + duration_bar,TIME_MINUTES)) == StrToTime(end_week_sessions) + duration_bar &&
TimeDayOfWeek(bar_time_previous + duration_bar) == 5)
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar + holiday);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar + holiday, TIME_MINUTES );
note_1 = "";
}
else
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar, TIME_MINUTES );
}
datetime hole_day_begin = hole_day_begin_;
datetime hole_month_begin = TimeMonth(bar_time_previous + duration_bar);
datetime hole_year_begin = TimeYear(bar_time_previous + duration_bar);
string hole_time_begin = hole_time_begin_;
if (hole_day_begin < 10) zero_day_begin = "0"; else zero_day_begin = "";
if (hole_month_begin < 10) zero_month_begin = "0"; else zero_month_begin = "";
//+-------------------
// время окончания диапазона дыры
datetime hole_day_end = TimeDay(bar_time_current);
datetime hole_month_end = TimeMonth(bar_time_current);
datetime hole_year_end = TimeYear(bar_time_current);
string hole_time_end = TimeToStr(bar_time_current, TIME_MINUTES );
if (hole_day_end < 10) zero_day_end = "0"; else zero_day_end = "";
if (hole_month_end < 10) zero_month_end = "0"; else zero_month_end = "";
//+-------------------
if (bars_hole >= breakup_min)
{
breakup_total_amount++; // общее количество разрывов (увеличиваем)
bars_breakup_amount += bars_hole; // общее количество баров в разрывах (увеличиваем)
}
if (hole_max < bars_hole && bars_hole < breakup_min)
{
hole_max = bars_hole; // максимальная дыра
int number_hole = holes_total_amount; // п/п номер
}
if (breakup_max <= bars_hole && bars_hole >= breakup_min)
{
breakup_max = bars_hole; // максимальный разрыв
int number_breakup = holes_total_amount; // п/п номер
}
//+------------------------------
// создание таблицы *.txt файла
if (new_file)
{
string line_1 = "________________________________________________________________________________________________________________" + "\n";
string headline = "п/п №\t| *Диапазон (дата / время)\t\t\t| Размер (bars)\t| Длительность (чч:мм)\t| Примечания" + "\n";
FileDelete(file_name);// удаление раннее записанного файла с таким же именем
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
FileSeek (handle, 2100, SEEK_END);
FileWrite(handle, perenos, line_1, headline, line_2);
new_file = false;
}
if (note_1 != "") note_ = true;
//+-------------------
string hole = " " + holes_total_amount + gap + "\t " + zero_day_begin + hole_day_begin + "." +
zero_month_begin + hole_month_begin + "." + hole_year_begin + " [" + hole_time_begin +
"]\t -\t" + zero_day_end + hole_day_end + "." + zero_month_end + hole_month_end + "." + hole_year_end +
" [" + hole_time_end + "]\t " + bars_hole + "\t\t " + duration_hole + "\t\t\t " + note_1 + "\n";
FileWrite(handle, hole );
//+-------------------
// максимальная дыра и разрыв
string hole_range_max = "п/п № - " + number_hole + "\n";
string breakup_range_max = "п/п № - " + number_breakup + "\n";
}
}
}
//+------------------------------
// создание отчета *.txt файла
if (hole_min > 1) string note_2 = "\t( дыры размером < " + hole_min + " bars - игнорируются заданными пользователем условиями )";
string note_3;
if (hole_min == breakup_min) note_3 = "смотреть <Разрывы>, согласно заданным пользователем условиям )";
else note_3 = hole_min + " - " + breakup_min + " bars )\t" + note_2;
double bars_hole_amount_ = bars_hole_amount;
double bars_breakup_amount_ = bars_breakup_amount;
double holes_total_amount_ = holes_total_amount;
double breakup_total_amount_ = breakup_total_amount;
double bars_ = Bars;
string hole_average_size_;
string info_10, info_11, info_12, info_13, info_21, info_22, info_23;
string grade_hole_chart_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/ bars_ * 100, 2);
string quality_chart__ = DoubleToStr( (bars_ - bars_hole_amount_ + bars_breakup_amount_ ) / bars_ * 100, 2);
if (holes_total_amount != breakup_total_amount)
{
seconds = (bars_hole_amount - bars_breakup_amount) * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes;
string zero_h1 = "", zero_m1 = "";
if (hours < 10) zero_h1 = "0";
if (minutes * 60 < 10) zero_m1 = "0";
duration_holes = zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h1 = "0";
duration_holes = DoubleToStr(days,0) + " day(s) " + zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_holes = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
}
}
hole_average_size_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/(holes_total_amount_ - breakup_total_amount_), 2);
info_10 = "Количество -\t\t\t" + (holes_total_amount - breakup_total_amount) + "\n";
info_11 = "Размер -\t\t\t" + (bars_hole_amount - bars_breakup_amount) + " bars\n";
info_23 = "Длительность -\t\t\t" + duration_holes + " чч:мм\n";
info_12 = "Максимальный размер -\t\t" + hole_max + " bars\t\t" + hole_range_max;
info_13 = "Средний размер -\t\t\t" + hole_average_size_ + " bars\n";
info_21 = "Степень общей дырявости графика -\t" + grade_hole_chart_ + " %\n";
info_22 = "Качество графика -\t\t" + quality_chart__ + " %\n";
}
else
{
info_10 = "Количество -\t\t\t-\n";
info_11 = "Размер -\t\t\t-\n";
info_23 = "Длительность -\t\t\t-\n";
info_12 = "Максимальный размер -\t\t-\n";
info_13 = "Средний размер -\t\t\t-\n";
info_21 = "Степень общей дырявости графика -\t-\n";
info_22 = "Качество графика -\t\t-\n";
}
string grade_hole_chart = DoubleToStr(bars_hole_amount_ / bars_ * 100, 2);
string grade_breakup_chart = DoubleToStr(bars_breakup_amount_ / bars_ * 100, 2);
string quality_chart = DoubleToStr( (bars_ - bars_hole_amount_) / bars_ * 100, 2);
string quality_chart_ = DoubleToStr( (bars_ - bars_breakup_amount_) / bars_ * 100, 2);
//+-------------------
string line_3 = " --------------------------------------------------------------------------------------------------" +
"--------------------------------------------------------------------------------------------------" + "\n";
string shapka = "Отчет по отсутствующим барам в данных истории. Инструмент - " + Symbol() + ". Таймфрейм [" + time_frame + "].\n";
string info_1 = "Период -\t\t\t" + date_start + " г. - " + date_end + " г.\n";
string info_2 = "Баров в истории -\t\t\t" + Bars + " bars\n";
seconds = Time[0] - Time[Bars - 1];
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
double years;
string duration_period;
string zero_h5 = "", zero_m5 = "";
if (hours < 10) zero_h5 = "0";
if (minutes * 60 < 10) zero_m5 = "0";
duration_period = zero_h4 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h5 = "0";
duration_period = DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_period = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (months > 12)
{
years = MathFloor(months / 12); months = months - years * 12;
duration_period = DoubleToStr(years,0) + " year(s) " + DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
}
}
}
string info_26 = "Длительность -\t\t\t" + duration_period + " чч:мм\n";
string line_4 = "_____________________________________________________";
string info_3 = "ОБЩИЙ АНАЛИЗ дыр и разрывов \n";
string info_4;
//+-------------------
if (holes_total_amount != 0)
{
//+------------------------------
seconds = bars_hole_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes_;
string zero_h2 = "", zero_m2 = "";
if (hours < 10) zero_h2 = "0";
if (minutes * 60 < 10) zero_m2 = "0";
duration_holes_ = zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h2 = "0";
duration_holes_ = DoubleToStr(days,0) + " day(s) " + zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_holes_ = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
}
}
string hole_average_size = DoubleToStr(bars_hole_amount_ / holes_total_amount_, 2);
FileSeek (handle, 0, SEEK_END);
FileWrite(handle, line_1);
FileSeek (handle, 0, SEEK_SET);
info_4 = "Количество -\t\t\t" + holes_total_amount + "\n";
string info_5 = "Размер -\t\t\t" + bars_hole_amount + " bars\n";
string info_24 = "Длительность -\t\t\t" + duration_holes_ + " чч:мм\n";
string info_6 = "Средний размер -\t\t\t" + hole_average_size + " bars\n";
string info_7 = "Степень общей дырявости графика -\t" + grade_hole_chart + " %\n";
string info_8 = "Качество графика -\t\t" + quality_chart + " %\n";
string info_9 = "ДЫРЫ ( " + note_3 + "\n";
//+-------------------
string info_14 = "РАЗРЫВЫ ( " + breakup_min + " bars и выше)\n";
string info_15, info_16, info_17, info_18, info_19, info_20, info_25;
if (breakup_total_amount != 0)
{
seconds = bars_breakup_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_breakups;
string zero_h3 = "", zero_m3 = "";
if (hours < 10) zero_h3 = "0";
if (minutes * 60 < 10) zero_m3 = "0";
duration_breakups = zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h3 = "0";
duration_breakups = DoubleToStr(days,0) + " day(s) " + zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_breakups = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
}
}
string breakup_average_size = DoubleToStr(bars_breakup_amount_ / breakup_total_amount_, 2);
info_15 = "Количество -\t\t\t" + breakup_total_amount + "\n";
info_16 = "Размер -\t\t\t" + bars_breakup_amount + " bars\n";
info_25 = "Длительность -\t\t\t" + duration_breakups + " чч:мм\n";
info_17 = "Максимальный размер -\t\t" + breakup_max + " bars\t\t" + breakup_range_max;
info_18 = "Средний размер -\t\t\t" + breakup_average_size + " bars\n";
info_19 = "Степень разрывности графика -\t" + grade_breakup_chart + " %\t\t( без учета дыр )\n";
info_20 = "Качество графика -\t\t" + quality_chart_ + " %\t\t( без учета дыр )\n";
}
else
{
info_15 = "Количество -\t\t\t-\n";
info_16 = "Размер -\t\t\t-\n";
info_25 = "Длительность -\t\t\t-\n";
info_17 = "Максимальный размер -\t\t-\n";
info_18 = "Средний размер -\t\t\t-\n";
info_19 = "Степень разрывности графика -\t-\n";
info_20 = "Качество графика -\t\t-\n";
}
//+-------------------
string note_4 = " *Диапазон начинается временем открытия первого отсутствующего бара, а заканчивается временем открытия бара,\n следующего за последним отсутствующим баром.\n";
string note_5 = "";
if (note_ == true) note_5 = "**Конец недельной сессии -\t" + TimeToStr(StrToTime(end_week_sessions) + duration_bar,TIME_MINUTES) + " чч:мм";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, info_26, line_4, perenos, info_3, info_4, info_5, info_24, info_6, info_7, info_8, line_4, perenos,
info_9, info_10, info_11, info_23, info_12, info_13, info_21, info_22, line_4, perenos, info_14, info_15, info_16, info_25, info_17, info_18, info_19, info_20,
line_4, perenos, note_4, perenos, note_5);
}
else
{
FileDelete(file_name);
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
info_4 = "Количество -\t\t\tНа данном графике дыр и разрывов НЕ ОБНАРУЖЕНО\n";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, line_4);
}
FileClose(handle);
MessageBox("В папке терминала MT4: \Experts\files\ создан файл отчета:\n\n" + file_name,
"Анализ данных истории успешно завершен", MB_OK | MB_DEFBUTTON1);
return(0);
}
//+------------------------------------------------------------------+
если есть еще неточности или ошибки, говорите, буду исправлять.
Хотелось бы услышать, пригодилось ли еще кому-нибудь?
да, так приятнее =)
да, так приятнее =)
потом и кровью, как ни как первый скрипт
добавлен фильтр гэпа, теперь можно игнорировать дырки по значению пипсов, а также немного измененилась форма txt-отчета
//+------------------------------------------------------------------+
//| holes_history_data_v2.mq4 |
//| Copyright © 2005 Bagadul |
//| bagbagadul@yandex.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005 Bagadul"
#property link "bagbagadul@yandex.ru"
#property show_inputs
/*
Данный код выявляет в данных истории отсутствующие бары (далее "дыры") и разрывы (большие дыры), определяет
их размер, длительность и гэп, работает на всех инструментах и предназначен для внутредневных графиков,
поэтому таймфрейм ограничен периодом - H4, при анализе учитываютя только выходные дни (суббота и воскресение - 48 часов),
остальные моменты код считает дырами или разрывами. Для удобства работы на графике, в коде предусмотрен
фильтр, где можно задать: (данные опции можно отменить в свойствах скрипта)
1. количество отсутствующих баров на таймфреймах (M1,5,15,30), которые код будет
игнорировать как дыры
2. количество отсутствующих баров (минимальное значение), которое код считал бы
разрывом (по умолчанию 20 баров);
При равности этих значений 1 и 2, все найденные дыры код будет считать разрывами.
3. количество отсутствующих пипсов, которые код будет игнорировать как гэп
Далее запускать как скрипт.
Для упрощения, в коде где возможно имеются комментарии, результаты выводятся в *.txt файл.
Код создан на MT4 build 182.
!!! Если данные истории "склеены" или поставлялись больше чем одним брокером, то результат отчета
может содержать неточности в части, отмеченной примечанием (***включая выходные дни).
*/
//+-------------------------------------------------------------------+
// количество отсутствующих баров на разных таймфреймах, которые код будет игнорировать
extern string Filter = "Минимальные значения";
extern bool bars_ignore = true; // активатор
extern int bars_ignore_M1 = 3; // (по умолчанию)
extern int bars_ignore_M5 = 3;
extern int bars_ignore_M15 = 2;
extern int bars_ignore_M30 = 2;
//+-------------------
// количество отсутствующих баров, которые код считал бы разрывом
extern int breakup_min = 20; // минимальное значение (должно быть > 0 и >= bars_min)
// количество отсутствующих пипсов на разных таймфреймах, которые код будет игнорировать
extern bool gap_ignore = true; // активатор
extern int gap_min = 5; // (по умолчанию)
//+-------------------------------------------------------------------+
string begin_week_sessions = "00:00"; // время начала недельной сессии (чч:мм) (по умолчанию)
bool new_file = true;
int handle;
//+-------------------
#include <WinUser32.mqh>
//+-------------------
int start()
{
//+------------------------------
string time_frame; // таймфрейм
int duration_bar; // длительность бара в сек.
int hole_min; // количество отсутствующих баров, которые код будет игнорировать
switch ( Period() )
{
case 1: time_frame = "M1"; duration_bar = 60; hole_min = bars_ignore_M1; break;
case 5: time_frame = "M5"; duration_bar = 300; hole_min = bars_ignore_M5; break;
case 15: time_frame = "M15"; duration_bar = 900; hole_min = bars_ignore_M15; break;
case 30: time_frame = "M30"; duration_bar = 1800; hole_min = bars_ignore_M30; break;
case 60: time_frame = "H1"; duration_bar = 3600; hole_min = 1; break;
case 240: time_frame = "H4"; duration_bar = 14400; hole_min = 1; break;
default: MessageBox("Таймфрейм должен находиться в пределах M1-H4.\n\nВыбирете другой таймфрейм.",
"Неправильно выбран таймфрейм (график)", MB_OK | MB_ICONWARNING | MB_DEFBUTTON1);
return(0);
}
if (hole_min < 1) hole_min = 1;
if (bars_ignore == false) hole_min = 1;
if (gap_min < 0) gap_min = 0;
if (gap_ignore == false) gap_min = 0;
//+------------------------------
// данный блок создает имя файла
datetime bar_day = TimeDay (Time[Bars - 1]);
datetime bar_month = TimeMonth (Time[Bars - 1]);
datetime bar_year = TimeYear (Time[Bars - 1]);
string zero_day_begin, zero_month_begin;
if (bar_day < 10) zero_day_begin = "0"; else zero_day_begin = "";
if (bar_month < 10) zero_month_begin = "0"; else zero_month_begin = "";
string date_start = zero_day_begin + bar_day + "." + zero_month_begin + bar_month + "." + bar_year; // начальная дата
bar_day = TimeDay (Time[0]);
bar_month = TimeMonth (Time[0]);
bar_year = TimeYear (Time[0]);
string zero_day_end, zero_month_end;
if (bar_day < 10) zero_day_end = "0"; else zero_day_end = "";
if (bar_month < 10) zero_month_end = "0"; else zero_month_end = "";
string date_end = zero_day_end + bar_day + "." + zero_month_end + bar_month + "." + bar_year; // конечная дата
string file_name = Symbol() + "_" + time_frame + "_holes_" + date_start + "-" + date_end + ".txt";
//+------------------------------
if (breakup_min < hole_min)
{
int warning_1 = MessageBox("Значения количества отсутствующих баров должны составлять:\n\nhole_min <= breakup_min\n\n" +
"Значение - breakup_min, будет увеличено до - hole_min.", "Неправильно выбраны значения: " +
"hole_min, breakup_min", MB_OKCANCEL | MB_ICONWARNING | MB_DEFBUTTON1);
if (warning_1 == 1) breakup_min = hole_min; else return(0);
}
//+------------------------------
// определение времени открытия последнего бара окончания недельной сессии (чч:мм)
datetime ews;
string end_week_sessions; // время окончания недельной сессии
for (int i = 0; i < Bars; i++ )
{
datetime time = iTime(NULL, 0, Bars - i );
int day_week = TimeDayOfWeek(time);
if (day_week == 5)
{
datetime initial_time = StrToTime(TimeToStr(time,TIME_DATE|TIME_MINUTES));
if (initial_time > ews) ews = initial_time;
}
end_week_sessions = TimeToStr(ews,TIME_MINUTES);
}
//+------------------------------
// анализ данных истории
int week_seconds = 604800; // количество секунд в неделе
double weeks; // отношение диапазона дыры к количеству секунд в неделе
//+-------------------
// выходные дни в сек.
datetime holiday = StrToTime(begin_week_sessions) - StrToTime(end_week_sessions) + (24*3600*3) - duration_bar;
//+-------------------
int hole_range; // диапазон дыры
int bars_hole; // баров в дыре
int holes_total_amount; // общее количество дыр
int breakup_total_amount; // общее количество разрывов
int bars_hole_amount; // общее количество баров в дырах
int bars_breakup_amount; // общее количество баров в разрывах
int gap_total_amount; // общее количество гэпов
int gap_holes; // общий гэп в дырах
int gap_breakups; // общий гэп в разрывах
int hole_max; // значение максимальной дыры
int breakup_max; // значение максимального разрыва
int gap_max; // значение максимального гэпа
bool note_ = false;
double months, days, hours, minutes, seconds;
int n = 1;
string line_2 = "-----------------------------------------------------------------------------------------------------------" +
"-----------------------------------------------------------------------------------------------------------\n";
string perenos = "\n";
//+-------------------
for (int h = 0; h < Bars; h++ )
{
//+-------------------
// время текущего и предыдущего баров в истории
datetime bar_time_current = iTime(NULL, 0, Bars - h - 2);
datetime bar_time_previous = iTime(NULL, 0, Bars - h - 1);
// цена открытия текущего и цена закрытия предыдущего баров в истории
double open_price_current = NormalizeDouble(Open[Bars - h - 2],4);
double close_price_previous = NormalizeDouble(Close[Bars - h - 1],4);
// гэп в pipsах
double pips_gap = NormalizeDouble(MathAbs(open_price_current - close_price_previous)/Point,0);
//+-------------------
// фактический диапазон таймфрейма с учетом неточности
int time_frame_range = bar_time_current - bar_time_previous;
//+-------------------
if (time_frame_range > duration_bar) // количество секунд в баре превышает таймфрейм
{
string note_1, note_8; // примечания
if (time_frame_range > week_seconds) // количество секунд в баре превышает количество секунд в неделе
{
weeks = MathFloor(time_frame_range / week_seconds); // значение дыры в недельном выражении
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
hole_range = time_frame_range - holiday * (1 + weeks) - duration_bar;
else hole_range = time_frame_range - (holiday * weeks) - duration_bar;
note_1 = "(***включая выходные дни)";
}
else
{
weeks = 0;
if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) )
{
hole_range = time_frame_range - holiday - duration_bar;
note_1 = "(***включая выходные дни)";
}
else
{
hole_range = time_frame_range - duration_bar;
note_1 = "";
}
}
bars_hole = hole_range / duration_bar;
if (bars_hole >= hole_min && pips_gap >= gap_min)
{
holes_total_amount++; // общее количество дыр (увеличиваем)
bars_hole_amount += bars_hole; // общее количество баров в дырах (увеличиваем)
string gap;
if (pips_gap >= gap_min)
{
gap_holes += pips_gap; // общий гэп в дырах
gap = DoubleToStr(pips_gap,0);
if (pips_gap == 0) n = 0;
}
else gap = "-";
string _gap_;
if (holes_total_amount < 10) _gap_ = " ";
else if (holes_total_amount >= 10 && holes_total_amount < 100) _gap_ = " ";
else if (holes_total_amount >= 100 && holes_total_amount < 1000) _gap_ = " ";
else _gap_ = "";
seconds = bars_hole * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_hole;
string zero_h4 = "", zero_m4 = "";
if (hours < 10) zero_h4 = "0";
if (minutes * 60 < 10) zero_m4 = "0";
duration_hole = zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h4 = "0";
duration_hole = DoubleToStr(days,0) + " day(s) " + zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_hole = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h4 + DoubleToStr(hours,0) + ":" + zero_m4 + DoubleToStr(minutes * 60,0);
}
}
//+-------------------
// время начала диапазона дыры
datetime hole_day_begin_;
string hole_time_begin_;
int ny_month_begin;
if (StrToTime(TimeToStr(bar_time_previous + duration_bar,TIME_MINUTES)) == StrToTime(end_week_sessions) + duration_bar &&
TimeDayOfWeek(bar_time_previous + duration_bar) == 5)
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar + holiday);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar + holiday, TIME_MINUTES );
ny_month_begin = TimeMonth(bar_time_previous + duration_bar + holiday);
note_1 = "";
}
else
{
hole_day_begin_ = TimeDay(bar_time_previous + duration_bar);
hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar, TIME_MINUTES );
ny_month_begin = TimeMonth(bar_time_previous + duration_bar);
}
datetime hole_day_begin = hole_day_begin_;
datetime hole_month_begin = TimeMonth(bar_time_previous + duration_bar);
datetime hole_year_begin = TimeYear(bar_time_previous + duration_bar);
string hole_time_begin = hole_time_begin_;
if (hole_day_begin < 10) zero_day_begin = "0"; else zero_day_begin = "";
if (hole_month_begin < 10) zero_month_begin = "0"; else zero_month_begin = "";
//+-------------------
// время окончания диапазона дыры
datetime hole_day_end = TimeDay(bar_time_current);
datetime hole_month_end = TimeMonth(bar_time_current);
datetime hole_year_end = TimeYear(bar_time_current);
string hole_time_end = TimeToStr(bar_time_current, TIME_MINUTES );
if (hole_day_end < 10) zero_day_end = "0"; else zero_day_end = "";
if (hole_month_end < 10) zero_month_end = "0"; else zero_month_end = "";
//+-------------------
if (ny_month_begin == 12 && TimeMonth(bar_time_current) == 1) note_8 = "NewYear ";
else note_8 = "";
//+-------------------
if (bars_hole >= breakup_min)
{
breakup_total_amount++; // общее количество разрывов (увеличиваем)
bars_breakup_amount += bars_hole; // общее количество баров в разрывах (увеличиваем)
gap_breakups += pips_gap; // общий гэп в разрывах
}
if (hole_max < bars_hole && bars_hole < breakup_min)
{
hole_max = bars_hole; // максимальная дыра
int number_hole = holes_total_amount; // п/п номер
}
if (breakup_max <= bars_hole && bars_hole >= breakup_min)
{
breakup_max = bars_hole; // максимальный разрыв
int number_breakup = holes_total_amount; // п/п номер
}
if (gap_max <= pips_gap)
{
gap_max = pips_gap; // максимальный гэп
int number_gap = holes_total_amount; // п/п номер
}
//+------------------------------
// создание таблицы *.txt файла
if (new_file)
{
string line_1 = "__________________________________________________________________________________________________________________________" + "\n";
string headline = "п/п №\t| *Диапазон (дата / время)\t\t\t| Размер (bars)\t| Длительность (чч:мм)\t| **Gap (pips)\t| Примечания" + "\n";
FileDelete(file_name);// удаление раннее записанного файла с таким же именем
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
FileSeek (handle, 2400, SEEK_END);
FileWrite(handle, perenos, line_1, headline, line_2);
new_file = false;
}
if (note_1 != "") note_ = true;
//+-------------------
string hole = " " + holes_total_amount + _gap_ + "\t " + zero_day_begin + hole_day_begin + "." +
zero_month_begin + hole_month_begin + "." + hole_year_begin + " [" + hole_time_begin +
"]\t -\t" + zero_day_end + hole_day_end + "." + zero_month_end + hole_month_end + "." + hole_year_end +
" [" + hole_time_end + "]\t " + bars_hole + "\t\t " + duration_hole + "\t\t\t " + gap + "\t\t " + note_8 + note_1 + "\n";
FileWrite(handle, hole );
//+-------------------
// максимальная дыра и разрыв
string hole_range_max = "п/п № - " + number_hole + "\n";
string breakup_range_max = "п/п № - " + number_breakup + "\n";
string gap_range_max = "п/п № - " + number_gap + "\n";
}
}
}
//+------------------------------
// создание отчета *.txt файла
if (hole_min > 1) string note_2 = "\t( дыры размером < " + hole_min + " bars - игнорируются заданными пользователем условиями )";
string note_3;
if (hole_min == breakup_min) note_3 = "смотреть <Разрывы>, согласно заданным пользователем условиям )";
else note_3 = hole_min + " - " + breakup_min + " bars )\t" + note_2;
double bars_hole_amount_ = bars_hole_amount;
double bars_breakup_amount_ = bars_breakup_amount;
double holes_total_amount_ = holes_total_amount;
double breakup_total_amount_ = breakup_total_amount;
double gap_holes_ = gap_holes;
double gap_total_amount_ = gap_total_amount;
double bars_ = Bars;
string hole_average_size_;
string info_10, info_11, info_12, info_13, info_21, info_22, info_23;
string grade_hole_chart_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/ bars_ * 100, 2);
string quality_chart__ = DoubleToStr( (bars_ - bars_hole_amount_ + bars_breakup_amount_ ) / bars_ * 100, 2);
if (holes_total_amount != breakup_total_amount)
{
seconds = (bars_hole_amount - bars_breakup_amount) * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes;
string zero_h1 = "", zero_m1 = "";
if (hours < 10) zero_h1 = "0";
if (minutes * 60 < 10) zero_m1 = "0";
duration_holes = zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h1 = "0";
duration_holes = DoubleToStr(days,0) + " day(s) " + zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_holes = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h1 + DoubleToStr(hours,0) + ":" + zero_m1 + DoubleToStr(minutes * 60,0);
}
}
hole_average_size_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/(holes_total_amount_ - breakup_total_amount_), 2);
info_10 = "Количество -\t\t\t" + (holes_total_amount - breakup_total_amount) + "\n";
info_11 = "Размер -\t\t\t" + (bars_hole_amount - bars_breakup_amount) + " bars\n";
info_23 = "Длительность -\t\t\t" + duration_holes + " чч:мм\n";
info_12 = "Максимальный размер -\t\t" + hole_max + " bars\t\t" + hole_range_max;
info_13 = "Средний размер -\t\t\t" + hole_average_size_ + " bars\n";
info_21 = "Степень дырявости графика -\t" + grade_hole_chart_ + " %\n";
info_22 = "Качество графика -\t\t" + quality_chart__ + " %\n";
}
else
{
info_10 = "Количество -\t\t\t-\n";
info_11 = "Размер -\t\t\t-\n";
info_23 = "Длительность -\t\t\t-\n";
info_12 = "Максимальный размер -\t\t-\n";
info_13 = "Средний размер -\t\t\t-\n";
info_21 = "Степень дырявости графика -\t-\n";
info_22 = "Качество графика -\t\t-\n";
}
string grade_hole_chart = DoubleToStr(bars_hole_amount_ / bars_ * 100, 2);
string grade_breakup_chart = DoubleToStr(bars_breakup_amount_ / bars_ * 100, 2);
string quality_chart = DoubleToStr( (bars_ - bars_hole_amount_) / bars_ * 100, 2);
string quality_chart_ = DoubleToStr( (bars_ - bars_breakup_amount_) / bars_ * 100, 2);
//+-------------------
string line_3 = " -----------------------------------------------------------------------------------------------------------" +
"-----------------------------------------------------------------------------------------------------------" + "\n";
string shapka = "Отчет по отсутствующим барам в данных истории. Инструмент - " + Symbol() + ". Таймфрейм [" + time_frame + "].\n";
string info_1 = "Период -\t\t\t" + date_start + " г. - " + date_end + " г.\n";
string info_2 = "Баров в истории -\t\t\t" + Bars + " bars\n";
seconds = Time[0] - Time[Bars - 1];
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
double years;
string duration_period;
string zero_h5 = "", zero_m5 = "";
if (hours < 10) zero_h5 = "0";
if (minutes * 60 < 10) zero_m5 = "0";
duration_period = zero_h4 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h5 = "0";
duration_period = DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_period = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
if (months > 12)
{
years = MathFloor(months / 12); months = months - years * 12;
duration_period = DoubleToStr(years,0) + " year(s) " + DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h5 + DoubleToStr(hours,0) + ":" + zero_m5 + DoubleToStr(minutes * 60,0);
}
}
}
string info_26 = "Длительность -\t\t\t" + duration_period + " чч:мм\n";
string line_4 = "_____________________________________________________";
string info_3 = "ОБЩИЙ АНАЛИЗ дыр и разрывов \n";
string info_4;
//+-------------------
if (holes_total_amount != 0)
{
//+------------------------------
seconds = bars_hole_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_holes_;
string zero_h2 = "", zero_m2 = "";
if (hours < 10) zero_h2 = "0";
if (minutes * 60 < 10) zero_m2 = "0";
duration_holes_ = zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h2 = "0";
duration_holes_ = DoubleToStr(days,0) + " day(s) " + zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_holes_ = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h2 + DoubleToStr(hours,0) + ":" + zero_m2 + DoubleToStr(minutes * 60,0);
}
}
string hole_average_size = DoubleToStr(bars_hole_amount_ / holes_total_amount_, 2);
string gap_average_size = DoubleToStr(gap_holes_ / holes_total_amount_, 2);
FileSeek (handle, 0, SEEK_END);
FileWrite(handle, line_1);
FileSeek (handle, 0, SEEK_SET);
info_4 = "Количество -\t\t\t" + holes_total_amount + "\n";
string info_5 = "Размер -\t\t\t" + bars_hole_amount + " bars\n";
string info_24 = "Длительность -\t\t\t" + duration_holes_ + " чч:мм\n";
string info_6 = "Средний размер -\t\t\t" + hole_average_size + " bars\n";
string note_7;
if (gap_min != 0) note_7 = "**"; else note_7 = " ";
string info_27 = "Gap" + note_7 + " -\t\t\t\t" + gap_holes + " pips\n";
string info_28 = "Максимальный Gap -\t\t" + gap_max + " pips\t\t" + gap_range_max;
string info_31 = "Средний Gap -\t\t\t" + gap_average_size + " pips" + " \t( Gap / количество )\n";
string info_7 = "Степень общей дырявости графика -\t" + grade_hole_chart + " %\n";
string info_8 = "Качество графика -\t\t" + quality_chart + " %\n";
string info_9 = "ДЫРЫ ( " + note_3 + "\n";
//+-------------------
string info_14 = "РАЗРЫВЫ ( " + breakup_min + " bars и выше)\n";
string info_15, info_16, info_17, info_18, info_19, info_20, info_25;
if (breakup_total_amount != 0)
{
seconds = bars_breakup_amount * duration_bar;
hours = MathFloor(seconds / 3600);
minutes = seconds / 3600 - hours;
string duration_breakups;
string zero_h3 = "", zero_m3 = "";
if (hours < 10) zero_h3 = "0";
if (minutes * 60 < 10) zero_m3 = "0";
duration_breakups = zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
if (hours > 24)
{
days = MathFloor(hours / 24); hours = hours - days * 24;
if (hours < 10) zero_h3 = "0";
duration_breakups = DoubleToStr(days,0) + " day(s) " + zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
if (days > 30)
{
months = MathFloor(days / 30); days = days - months * 30;
duration_breakups = DoubleToStr(months,0) + " month(s) " + DoubleToStr(days,0) + " day(s) " + zero_h3 + DoubleToStr(hours,0) + ":" + zero_m3 + DoubleToStr(minutes * 60,0);
}
}
string breakup_average_size = DoubleToStr(bars_breakup_amount_ / breakup_total_amount_, 2);
info_15 = "Количество -\t\t\t" + breakup_total_amount + "\n";
info_16 = "Размер -\t\t\t" + bars_breakup_amount + " bars\n";
info_25 = "Длительность -\t\t\t" + duration_breakups + " чч:мм\n";
info_17 = "Максимальный размер -\t\t" + breakup_max + " bars\t\t" + breakup_range_max;
info_18 = "Средний размер -\t\t\t" + breakup_average_size + " bars\n";
info_19 = "Степень разрывности графика -\t" + grade_breakup_chart + " %\t\t( без учета дыр )\n";
info_20 = "Качество графика -\t\t" + quality_chart_ + " %\t\t( без учета дыр )\n";
}
else
{
info_15 = "Количество -\t\t\t-\n";
info_16 = "Размер -\t\t\t-\n";
info_25 = "Длительность -\t\t\t-\n";
info_17 = "Максимальный размер -\t\t-\n";
info_18 = "Средний размер -\t\t\t-\n";
info_19 = "Степень разрывности графика -\t-\n";
info_20 = "Качество графика -\t\t-\n";
}
//+-------------------
string note_4 = " *Диапазон начинается временем открытия первого отсутствующего бара, а заканчивается временем открытия бара,\n следующего за последним отсутствующим баром.\n";
string note_9 = " =Gap в дырах= НЕ МОЖЕТ быть точным, в силу отсутствия самих баров, а лишь определяет РАЗНИЦУ в уровнях цен до и после гэпа.\n";
string note_10;
if (n != 0) note_10 = " **";
else note_10 = " **Gap = 0 pips - не означает полное отсутствие котировок, а лишь указывает, что цена возвратилась на прежний уровень (до гэпа).\n";
string note_5;
if (gap_ignore == true && gap_min >= 1) note_5 = " **Дыры с Gap < " + gap_min + " pips - игнорируются заданными пользователем условиями.\n" + note_9;
else note_5 = note_10 + note_9;
string note_6 = "";
if (note_ == true) note_6 = "***Конец недельной сессии -\t" + TimeToStr(StrToTime(end_week_sessions) + duration_bar,TIME_MINUTES) + " чч:мм";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, info_26, line_4, perenos, info_3, info_4, info_5, info_24, info_6, info_27,
info_28, info_31, info_7, info_8, line_4, perenos, info_9, info_10, info_11, info_23, info_12, info_13, info_21, info_22,
line_4, perenos, info_14, info_15, info_16, info_25, info_17, info_18, info_19, info_20, line_4, perenos, note_4, perenos, note_5, perenos, note_6);
}
else
{
FileDelete(file_name);
handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " ");
info_4 = "Количество -\t\t\tНа данном графике дыр и разрывов НЕ ОБНАРУЖЕНО\n";
FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, line_4);
}
FileClose(handle);
MessageBox("В папке терминала MT4: \Experts\files\ создан файл отчета:\n\n" + file_name,
"Анализ данных истории успешно завершен", MB_OK | MB_DEFBUTTON1);
return(0);
}
//+------------------------------------------------------------------+
Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
На счет ошибок, если таковые - не велите казнить.
//+------------------------------------------------------------------+ //| holes_history_data.mq4 | //| © 2005 Bagadul | //| bagbagadul@yandex.ru | //+------------------------------------------------------------------+ #property copyright "© 2005 Bagadul" #property link "bagbagadul@yandex.ru" #property show_inputs #include <WinUser32.mqh> /* Данный код выявляет в данных истории отсутствующие бары (далее "дыры") и разрывы (большие дыры), работает на всех инструментах, предназначен для внутредневных графиков, поэтому таймфрейм ограничен периодом - H4, при анализе учитываютя только выходные дни (суббота и воскресение - 48 часов), остальные моменты код считает дырами или разрывами. Для удобства работы на графике, в код можно задать: 1. количество отсутствующих баров на таймфреймах (M1,5,15,30), которые код будет игнорировать (данную опцию можно отменить в свойствах скрипта) 2. количество отсутствующих баров (минимальное значение), которые код считал бы разрывом (по умолчанию 20 баров); При равности этих значений, все найденные дыры код будет считать разрывами. Далее запускать как скрипт. Для упрощения, в коде где возможно имеются комментарии, результаты выводятся в *.txt файл. Код создан на MT4 build 182. !!! Если данные истории "склеены" или поставлялись больше чем одним брокером, то результат отчета может содержать неточности в части, отмеченной примечанием (**включая выходные дни). */ //+-------------------------------------------------------------------+ // количество отсутствующих баров на разных таймфреймах, которые код будет игнорировать extern string Options = "Минимальные значения"; extern bool bars_ignore = true; extern int bars_ignore_M1 = 3; // (по умолчанию) extern int bars_ignore_M5 = 3; extern int bars_ignore_M15 = 2; extern int bars_ignore_M30 = 2; //+------------------- // количество отсутствующих баров, которые код считал бы разрывом extern int breakup_min = 20; // минимальное значение (должно быть > 0 и >= bars_min) //+-------------------------------------------------------------------+ string begin_week_sessions = "00:00"; // время начала недельной сессии (чч:мм) (по умолчанию) bool new_file = true; int handle; //+------------------- int start() { //+------------------------------ string time_frame; // таймфрейм int duration_bar; // длительность бара в сек. int hole_min ; // минимальное значение дыры switch ( Period() ) { case 1: time_frame = "M1"; duration_bar = 60; hole_min = bars_ignore_M1; break; case 5: time_frame = "M5"; duration_bar = 300; hole_min = bars_ignore_M5; break; case 15: time_frame = "M15"; duration_bar = 900; hole_min = bars_ignore_M15; break; case 30: time_frame = "M30"; duration_bar = 1800; hole_min = bars_ignore_M30; break; case 60: time_frame = "H1"; duration_bar = 3600; hole_min = 1; break; case 240: time_frame = "H4"; duration_bar = 14400; hole_min = 1; break; default: MessageBox("Таймфрейм должен находиться в пределах M1-H4.\n\nВыбирете другой таймфрейм.", "Неправильно выбран таймфрейм (график)", MB_OK | MB_ICONWARNING | MB_DEFBUTTON1); return(0); } if (hole_min < 1) hole_min = 1; if (bars_ignore == false) hole_min = 1; if (breakup_min < hole_min) breakup_min = hole_min; //+------------------------------ // данный блок создает имя файла datetime bar_day = TimeDay (Time[Bars - 1]); datetime bar_month = TimeMonth (Time[Bars - 1]); datetime bar_year = TimeYear (Time[Bars - 1]); string zero_day_begin; string zero_month_begin; if (bar_day < 10) zero_day_begin = "0"; else zero_day_begin = ""; if (bar_month < 10) zero_month_begin = "0"; else zero_month_begin = ""; string date_start = zero_day_begin + bar_day + "." + zero_month_begin + bar_month + "." + bar_year; bar_day = TimeDay (Time[0]); bar_month = TimeMonth (Time[0]); bar_year = TimeYear (Time[0]); string zero_day_end; string zero_month_end; if (bar_day < 10) zero_day_end = "0"; else zero_day_end = ""; if (bar_month < 10) zero_month_end = "0"; else zero_month_end = ""; string date_end = zero_day_end + bar_day + "." + zero_month_end + bar_month + "." + bar_year; string file_name = Symbol() + "_" + time_frame + "_holes_" + date_start + "-" + date_end + ".txt"; //+------------------------------ // определение времени открытия последнего бара окончания недельной сессии (чч:мм) datetime ews; string end_week_sessions; for (int i = 0; i < Bars; i++ ) { datetime time = iTime(NULL, 0, Bars - i ); int day_week = TimeDayOfWeek(time); if (day_week == 5) { datetime initial_time = StrToTime(TimeToStr(time,TIME_MINUTES)); if (initial_time > ews) ews = initial_time; } end_week_sessions = TimeToStr(ews,TIME_MINUTES); } //+------------------------------ // анализ данных истории int week_seconds = 604800; // количество секунд в неделе int hole_range; // диапазон дыры double weeks; // отношение диапазона дыры к количеству секунд в неделе int bars_hole; // баров в дыре int holes_total_amount; // общее количество дыр int breakup_total_amount; // общее количество разрывов int bars_hole_amount; // общее количество баров в дырах int bars_breakup_amount; // общее количество баров в разрывах int hole_max; // значение максимальной дыры int breakup_max; // значение максимального разрыва bool note_ = false; string line_2 = "-----------------------------------------------------------------------------------------------" + "-----------------------------------------------------------------------------------------------\n"; string perenos = "\n"; //+------------------- // выходные дни в сек. datetime holiday = StrToTime(begin_week_sessions) - StrToTime(end_week_sessions) + (24*3600*3) - duration_bar; //+------------------- for (int h = 0; h < Bars; h++ ) { //+------------------- // время текущего и предыдущего баров в истории datetime bar_time_current = iTime(NULL, 0, Bars - h - 2 ); datetime bar_time_previous = iTime(NULL, 0, Bars - h - 1 ); //+------------------- // фактический диапазон таймфрейма с учетом неточности int time_frame_range = bar_time_current - bar_time_previous; //+------------------- if (time_frame_range > duration_bar) // количество секунд в баре превышает таймфрейм { string note_1; if (time_frame_range > week_seconds) // количество секунд в баре превышает количество секунд в неделе { weeks = MathFloor(time_frame_range / week_seconds); // значение дыры в недельном выражении if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) ) hole_range = time_frame_range - holiday * (1 + weeks) - duration_bar; else hole_range = time_frame_range - (holiday * weeks) - duration_bar; note_1 = "(**включая выходные дни)"; } else { weeks = 0; if (TimeDayOfWeek(bar_time_previous) > TimeDayOfWeek(bar_time_current) ) { hole_range = time_frame_range - holiday - duration_bar; note_1 = "(**включая выходные дни)"; } else { hole_range = time_frame_range - duration_bar; note_1 = ""; } } bars_hole = hole_range / duration_bar; if (bars_hole >= hole_min) { holes_total_amount++; bars_hole_amount += bars_hole; string gap; if (holes_total_amount < 10) gap = " "; else if (holes_total_amount >= 10 && holes_total_amount < 100) gap = " "; else if (holes_total_amount >= 100 && holes_total_amount < 1000) gap = " "; else gap = ""; //+------------------- // время начала диапазона дыры datetime hole_day_begin_; string hole_time_begin_; if (StrToTime(TimeToStr(bar_time_previous + duration_bar,TIME_MINUTES)) == StrToTime(end_week_sessions) + duration_bar && TimeDayOfWeek(bar_time_previous + duration_bar) == 5) { hole_day_begin_ = TimeDay(bar_time_previous + duration_bar + holiday); hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar + holiday, TIME_MINUTES ); note_1 = ""; } else { hole_day_begin_ = TimeDay(bar_time_previous + duration_bar); hole_time_begin_ = TimeToStr(bar_time_previous + duration_bar, TIME_MINUTES ); } datetime hole_day_begin = hole_day_begin_; datetime hole_month_begin = TimeMonth(bar_time_previous + duration_bar); datetime hole_year_begin = TimeYear(bar_time_previous + duration_bar); string hole_time_begin = hole_time_begin_; if (hole_day_begin < 10) zero_day_begin = "0"; else zero_day_begin = ""; if (hole_month_begin < 10) zero_month_begin = "0"; else zero_month_begin = ""; //+------------------- // время окончания диапазона дыры datetime hole_day_end = TimeDay(bar_time_current); datetime hole_month_end = TimeMonth(bar_time_current); datetime hole_year_end = TimeYear(bar_time_current); string hole_time_end = TimeToStr(bar_time_current, TIME_MINUTES ); if (hole_day_end < 10) zero_day_end = "0"; else zero_day_end = ""; if (hole_month_end < 10) zero_month_end = "0"; else zero_month_end = ""; if (bars_hole >= breakup_min) { breakup_total_amount++; bars_breakup_amount += bars_hole; } if (hole_max < bars_hole && bars_hole < breakup_min) { hole_max = bars_hole; int number_hole = holes_total_amount; } if (breakup_max <= bars_hole && bars_hole >= breakup_min) { breakup_max = bars_hole; int number_breakup = holes_total_amount; } //+------------------------------ // создание таблицы *.txt файла if (new_file) { string line_1 = "____________________________________________________________________________________________________________" + "\n"; string headline = "п/п №\t| *Диапазон (дата / время)\t\t\t| Размер (bars)\t| Примечания" + "\n"; FileDelete(file_name);// удаление раннее записанного файла с таким же именем handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " "); FileSeek (handle, 1700, SEEK_END); FileWrite(handle, perenos, line_1, headline, line_2); new_file = false; } if (note_1 != "") note_ = true; //+------------------- string hole = " " + holes_total_amount + gap + "\t " + zero_day_begin + hole_day_begin + "." + zero_month_begin + hole_month_begin + "." + hole_year_begin + " [" + hole_time_begin + "]\t -\t" + zero_day_end + hole_day_end + "." + zero_month_end + hole_month_end + "." + hole_year_end + " [" + hole_time_end + "]\t " + bars_hole + "\t\t " + note_1 + "\n"; FileWrite(handle, hole ); //+------------------- // максимальная дыра и разрыв string hole_range_max = "п/п № - " + number_hole + "\n"; string breakup_range_max = "п/п № - " + number_breakup + "\n"; } } } //+------------------------------ // создание отчета *.txt файла if (hole_min > 1) string note_2 = "\t( дыры размером < " + hole_min + " bars - игнорируются заданными пользователем условиями )"; string note_3; if (hole_min == breakup_min) note_3 = "смотреть <Разрывы>, согласно заданным пользователем условиям )"; else note_3 = hole_min + " - " + breakup_min + " bars )\t" + note_2; double bars_hole_amount_ = bars_hole_amount; double bars_breakup_amount_ = bars_breakup_amount; double holes_total_amount_ = holes_total_amount; double breakup_total_amount_ = breakup_total_amount; double bars_ = Bars; string hole_average_size_; string info_10, info_11, info_12, info_13, info_40; if (holes_total_amount != breakup_total_amount) { hole_average_size_ = DoubleToStr( (bars_hole_amount_ - bars_breakup_amount_)/(holes_total_amount_ - breakup_total_amount_), 2); info_10 = "Количество -\t\t\t" + (holes_total_amount - breakup_total_amount) + "\n"; info_11 = "Размер -\t\t\t" + (bars_hole_amount - bars_breakup_amount) + " bars\n"; info_12 = "Максимальный размер -\t\t" + hole_max + " bars\t" + hole_range_max; info_13 = "Средний размер -\t\t\t" + hole_average_size_ + " bars\n"; } else { info_10 = "Количество -\t\t\t-\n"; info_11 = "Размер -\t\t\t-\n"; info_12 = "Максимальный размер -\t\t-\n"; info_13 = "Средний размер -\t\t\t-\n"; } string grade_hole_chart = DoubleToStr(bars_hole_amount_ / bars_ * 100, 2); string grade_breakup_chart = DoubleToStr(bars_breakup_amount_ / bars_ * 100, 2); string quality_chart = DoubleToStr( (bars_ - bars_hole_amount_) / bars_ * 100, 2); string quality_chart_ = DoubleToStr( (bars_ - bars_breakup_amount_) / bars_ * 100, 2); //+------------------- string line_3 = " ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" + "\n"; string shapka = "Отчет по отсутствующим барам в данных истории. Инструмент - " + Symbol() + ". Таймфрейм [" + time_frame + "].\n"; string info_1 = "Период -\t\t\t" + date_start + " г. - " + date_end + " г.\n"; string info_2 = "Баров в истории -\t\t\t" + Bars + " bars\n"; string line_4 = "_____________________________________________________"; string info_3 = "ОБЩИЙ АНАЛИЗ дыр и разрывов \n"; string info_4; //+------------------- if (holes_total_amount != 0) { string hole_average_size = DoubleToStr(bars_hole_amount_ / holes_total_amount_, 2); FileSeek (handle, 0, SEEK_END); FileWrite(handle, line_1); FileSeek (handle, 0, SEEK_SET); info_4 = "Количество -\t\t\t" + holes_total_amount + "\n"; string info_5 = "Размер -\t\t\t" + bars_hole_amount + " bars\n"; string info_6 = "Средний размер -\t\t\t" + hole_average_size + " bars\n"; string info_7 = "Степень общей дырявости графика -\t" + grade_hole_chart + " %\n"; string info_8 = "Качество графика -\t\t" + quality_chart + " %\n"; string info_9 = "ДЫРЫ ( " + note_3 + "\n"; //+------------------- string info_14 = "РАЗРЫВЫ ( " + breakup_min + " bars и выше)\n"; string info_15, info_16, info_17, info_18, info_19, info_20; if (breakup_total_amount != 0) { string breakup_average_size = DoubleToStr(bars_breakup_amount_ / breakup_total_amount_, 2); info_15 = "Количество -\t\t\t" + breakup_total_amount + "\n"; info_16 = "Размер -\t\t\t" + bars_breakup_amount + " bars\n"; info_17 = "Максимальный размер -\t\t" + breakup_max + " bars\t" + breakup_range_max; info_18 = "Средний размер -\t\t\t" + breakup_average_size + " bars\n"; info_19 = "Степень разрывности графика -\t" + grade_breakup_chart + " %\t( без учета дыр )\n"; info_20 = "Качество графика -\t\t" + quality_chart_ + " %\t( без учета дыр )\n"; } else { info_15 = "Количество -\t\t\t-\n"; info_16 = "Размер -\t\t\t-\n"; info_17 = "Максимальный размер -\t\t-\n"; info_18 = "Средний размер -\t\t\t-\n"; info_19 = "Степень разрывности графика -\t-\n"; info_20 = "Качество графика -\t\t-\n"; } //+------------------- string note_4 = " *Диапазон начинается временем открытия первого отсутствующего бара, а заканчивается временем открытия бара,\n следующего за последним отсутствующим баром.\n"; string note_5 = ""; if (note_ == true) note_5 = "**Конец недельной сессии -\t" + TimeToStr(StrToTime(end_week_sessions) + duration_bar,TIME_MINUTES) + " чч:мм"; FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, info_5, info_6, info_7, info_8, line_4, perenos, info_9, info_10, info_11, info_12, info_13, line_4, perenos, info_14, info_15, info_16, info_17, info_18, info_19, info_20, line_4, perenos, note_4, perenos, note_5); } else { FileDelete(file_name); handle = FileOpen(file_name, FILE_WRITE | FILE_READ, " "); info_4 = "Количество -\t\t\tНа данном графике дыр и разрывов НЕ ОБНАРУЖЕНО (мнение скрипта)\n"; FileWrite(handle, line_3, shapka, line_2, info_1, info_2, line_4, perenos, info_3, info_4, line_4); } FileClose(handle); MessageBox("В папке терминала MT4: \Experts\files\ создан файл отчета:\n\n" + file_name, "Анализ данных истории успешно завершен", MB_OK | MB_DEFBUTTON1); return(0); } //+------------------------------------------------------------------+