Ковалев Сергей. Программирование на алгоритмическом языке MQL4
Подождите немного. Документ загружается.
661
double Dist=1000000.0; // Предустановка
int Real_Order=-1; // Пока рыночных нет
double Win_Price=WindowPriceOnDropped(); // Здесь брошен скрипт
//--------------------------------------------------------------- 2 --
for(int i=1; i<=OrdersTotal(); i++) // Цикл перебора ордер
{
if (OrderSelect(i-1,SELECT_BY_POS)==true) // Если есть следующий
{ // Анализ ордеров:
//------------------------------------------------------ 3 --
if (OrderSymbol()!= Symb) continue; // Не наш фин.инструм.
int Tip=OrderType(); // Тип ордера
if (Tip>1) continue; // Отложенный ордер
//------------------------------------------------------ 4 --
double Price=OrderOpenPrice(); // Цена ордера
if (NormalizeDouble(MathAbs(Price-Win_Price),Digits)< //Выбор
NormalizeDouble(Dist,Digits)) // самого близкого орд
{
Dist=MathAbs(Price-Win_Price); // Новое значение
Real_Order=Tip; // Есть рыночный ордер
int Ticket=OrderTicket(); // Номер ордера
double Lot=OrderLots(); // Количество лотов
}
//------------------------------------------------------ 5 --
} //Конец анализа ордера
} //Конец перебора орд.
//--------------------------------------------------------------- 6 --
while(true) // Цикл закрытия орд.
{
if (Real_Order==-1) // Если рыночных нет
{
Alert("По ",Symb," рыночных ордеров нет");
break;
// Выход из цикла закр
}
//--------------------------------------------------------- 7 --
switch(Real_Order) // По типу ордера
{
case 0: double Price_Cls=Bid; // Ордер Buy
string Text="Buy "; // Текст для Buy
break; // Из switch
case 1: Price_Cls=Ask; // Ордер Sell
Text="Sell "; // Текст для Sell
}
Alert("Попытка закрыть ",Text," ",Ticket,". Ожидание ответа..");
bool Ans=OrderClose(Ticket,Lot,Price_Cls,2);// Закрытие ордера
//--------------------------------------------------------- 8 --
if (Ans==true) // Получилось :)
662
{
Alert ("Закрыт ордер ",Text," ",Ticket);
break; // Выход из цикла закр
}
//--------------------------------------------------------- 9 --
int Error=GetLastError(); // Не получилось :(
switch(Error) // Преодолимые ошибки
{
case 135:Alert("Цена изменилась. Пробуем ещё раз..");
RefreshRates(); // Обновим данные
continue; // На след. итерацию
case 136:Alert("Нет цен. Ждём новый тик..");
while(RefreshRates()==false) // До нового тика
Sleep(1); // Задержка в цикле
continue; // На след. итерацию
case 146:Alert("Подсистема торговли занята. Пробуем ещё..");
Sleep(500); // Простое решение
RefreshRates(); // Обновим данные
continue; // На след. итерацию
}
switch(Error) // Критические ошибки
{
case 2 : Alert("Общая ошибка.");
break; // Выход из switch
case 5 : Alert("Старая версия клиентского терминала.");
break; // Выход из switch
case 64: Alert("Счет заблокирован.");
break; // Выход из switch
case 133:Alert("Торговля запрещена");
break; // Выход из switch
default: Alert("Возникла ошибка ",Error);//Другие варианты
}
break; // Выход из цикла закр
}
//-------------------------------------------------------------- 10 --
Alert ("Скрипт закончил работу -----------------------------");
return; // Выход из start()
}
//-------------------------------------------------------------- 11 --
Весь код программы closeorder.mq4 сосредоточен в специальной функции start(). В блоке
1-2 инициализируются некоторые переменные. Переменная Dist - дистанция от места, где
был брошен скрипт, до ближайшего ордера. Переменная Real_Order - флаг, отражающий
факт наличия в терминале хотя бы одного рыночного ордера (неотрицательное значение).
Переменная Win_Price - цена, на которой пользователь прикрепил скрипт в окно
663
финансового инструмента. В блоке 2-6 выполняется анализ ордеров: один из имеющихся
ордеров назначается к закрытию. Блок 6-10 представляет блок закрытия ордера и
обработку ошибок, которые могут возникнуть при исполнении торговой операции.
С момента, когда пользователь присоединил скрипт в окно финансового инструмента,
вычисляются значения переменных в блоке 1-2, в том числе переменная Win_Price
получает значение цены, на уровне которой пользователь прикрепил скрипт. Теперь
необходимо найти ордер (и определить его характеристики), который расположен ближе
других к этому месту.
В цикле for (блок 2-6) выполняется перебор ордеров. В блоке 2-3 программа определяет,
есть ли в очередной строке Терминала ордер, и если он есть, то управление передаётся в
тело оператора if для получения и анализа характеристик этого ордера. В блоке 3-4
отсортировываются ордера, открытые не по тому финансовому инструменту, где
исполняется программа. В нашем случае - это ордер 4372930, открытый по Usd/Chf.
Функция OrderSymbol() возвращает название финансового инструмента выбранного
ордера. Если это название не совпадает с названием финансового инструмента, в котором
исполняется программа, то текущая итерация прерывается, тем самым предотвращая
обработку ордера, открытого по другому финансовому инструменту. Если же
исследуемый ордер оказался открытым по "нашему" финансовому инструменту, то
выполняется ещё одна проверка. С помощью функции OrderType() определяется тип
ордера (см. Типы торговых операций). Если тип ордера оказывается больше 1, это
означает, что исследуемый ордер является отложенным. В этом случае также прерывается
текущая итерация - отложенные ордера в данном случае нас не интересуют. В нашем
примере такой ордер есть, но он к тому же открыт по другому финансовому инструменту,
поэтому ранее уже отсортирован. Все ордера, которые благополучно проходят проверку в
блоке 3-4, являются рыночными.
Блок 4-5 предназначен для того, чтобы из всех (ранее прошедших проверку) рыночных
ордеров выбрать один, а именно тот, который находится ближе всего к ранее
определённой цене (значению переменной Win_Price). От пользователя не требуется
точного попадания курсором мыши в линию ордера. Выбор производится в пользу того
ордера, который оказался ближе других к курсору в момент запуска скрипта на
исполнение. С помощью функции OrderOpenPrice() определяется цена открытия
обрабатываемого ордера. Если абсолютное значение дистанции между ценой ордера и
ценой курсора меньше, чем эта же дистанция для предыдущего ордера, то выбор
664
производится в пользу текущего (абсолютная величина дистанции нужна для того, чтобы
исключить влияние положения курсора - выше или ниже линии ордера). В этом случае на
текущей итерации цикла for этот ордер запоминается как первый претендент на закрытие.
Для такого ордера в конце блока 4-5 вычисляется номер тикета (индивидуальный номер
ордера) и количество лотов. В данном примере (рис. 90) общее количество ордеров -
четыре (три рыночных и один отложенный), поэтому в цикле for будет выполнено четыре
итерации, в результате чего будет определена вся необходимая информация для закрытия
одного выбранного ордера.
Далее управление в исполняемой программе будет передано оператору цикла while (блок
6-10). В блоке 6-7 выполняется проверка наличия найденных рыночных ордеров. Если в
блоке 2-4 не было обнаружено ни одного рыночного ордера (а это в общем случае вполне
возможно), то значение флага Real_Order остаётся равным -1, что означает отсутствие
рыночных ордеров. Если при проверке в блоке 6-7 выявлено отсутствие рыночных
ордеров, то выполнение цикла while прерывается и программа заканчивает работу. Если
же значение переменной Real_Order оказывается равным 0 или 1, то это значит, что
рыночный ордер к закрытию ранее определён и его надо закрыть.
В блоке 7-8, в зависимости от типа ордера вычисляется цена закрытия - для ордеров Buy
это значение Bid, а для ордеров Sell - Ask (см. Требования и ограничения торговых
операций).
В блоке 7-8 также вычисляется значения вспомогательной переменной Text. Собственно
торговый приказ на закрытие ордера формируется в функции OrderClose () в следующей
строке:
bool Ans=OrderClose(Ticket,Lot,Price_Cls,2);// Закрытие ордера
Торговая функция OrderClose() возвращает true при успешном исполнении торговой
операции и false при неудачном. Если торговый приказ успешно исполнен на сервере, то
переменной Ans (ответ) будет присвоено значение true. В этом случае, исполняя блок 8-9,
программа сообщит пользователю об успешном закрытии ордера, после чего исполнение
оператора цикла while будет прекращено, и программа закончит работу. В противном
случае управление будет передано в блок 9-10 для анализа ошибки, возвращённой в
программу клиентским терминалом.
В начале блока 9-10 вычисляется код ошибки. В дальнейшем, в зависимости от кода
ошибки, выполняется либо выход из программы либо повторное исполнение торговой
665
операции. В первом операторе switch обрабатываются ошибки, которые по смыслу
являются преодолимыми, т.е, если можно считать, что при выполнении торговой
операции возникли временные затруднения. Для каждой из таких ошибок выполняются
необходимые действия, после чего текущая итерация прерывается, и исполнение цикла
while начинается снова. (Обратите внимание, в данном примере при обработке
преодолимых ошибок используется оператор switch, выход из которого осуществляется в
результате исполнения оператора continue, который сам по себе не предназначен для
передачи управления за пределы switch. Такая конструкция оказывается рабочей только
благодаря тому, что оператор switch является содержимым внешнего оператора цикла
while, а оператор continue прерывает текущую итерацию, передавая управление в
заголовок while).
Если код ошибки не обрабатывается в первом операторе switch, то эта ошибка считается
непреодолимой. В этом случае управление передаётся второму оператору switch, смысл
исполнения которого сводится к информированию пользователя о возникновении той или
иной критической ошибки. В дальнейшем исполняется оператор break, прерывающий
исполнение цикла while. Выход из цикла while по любой причине приводит к передаче
управления в блок 9-10, в котором выдаётся сообщение о завершении работы программы.
Оператор return прекращает исполнение специальной функции start() и программа
завершает работу.
Практический результат, полученный после запуска скрипта в заданных условиях (см.
рис. 90 и 91), представлен ниже. Торговая операция была успешно выполнена на сервере.
Рис. 92. Сообщения, полученные в результате успешного исполнения скрипта
closeorder.mq4.
В результате закрытия одного из ордеров в окне финансового инструмента Eur/Usd
осталось два ордера.
666
Рис. 93. Исполнение скрипта closeorder.mq4 привело к закрытию одного из ордеров
Закрытие ордера также нашло своё отражение и в окне Терминала:
Рис. 94. После исполнение скрипта closeorder.mq4 в Терминале отражаются два рыночных
ордера.
В последующих событиях с помощью представленного скрипта были закрыты и два
других рыночных ордера.
10.4.4 Удаление отложенных ордеров
Торговые приказы для удаления отложенных ордеров формируются с помощью функции
OrderDelete( ).
10.4.5 Функция OrderDelete()
bool OrderDelete(int ticket, color arrow_color=CLR_NONE)
Функция удаляет ранее установленный отложенный ордер. Возвращает TRUE при
успешном завершении функции. Возвращает FALSE при неудачном завершении функции.
667
Параметры:
ticket - уникальный порядковый номер ордера.
arrow_color - цвет стрелки на графике. Если параметр отсутствует или его значение равно
CLR_NONE, то стрелка на графике не отображаются.
Легко заметить, что в функции OrderDelete( ) нет указания на количество лотов в
удаляемом ордере и цену закрытия.
Удаление ордера происходит независимо от рыночных цен. Невозможно также частичное
удаление ордера. Уменьшение количества лотов отложенного ордера можно осуществить
в два этапа - сначала удалить имеющийся ордер, а потом выставить новый отложенный
ордер на уменьшенное (любое) количество лотов.
Алгоритм построения программы для удаления отложенного ордера может быть
полностью аналогичен алгоритму программы закрытия рыночного ордера. Небольшая
разница состоит лишь в том, что для удаления отложенного ордера не требуется цена
закрытия, поэтому в следующей программе отсутствует блок, в котором обновляются
рыночные цены.
Пример простого скрипта, предназначенного для удаления одного
отложенного ордера, заявленная цена которого находится ближе к месту
прикрепления скрипта, чем цены других отложенных ордеров
(deleteorder.mq4).
//--------------------------------------------------------------------
// deleteorder.mq4
// Предназначен для использования в качестве примера в учебнике MQL4.
//--------------------------------------------------------------- 1 --
int start() // Спец.функция start
{
string Symb=Symbol(); // Финанс. инструмент
double Dist=1000000.0; // Предустановка
int Limit_Stop=-1; // Пока отложенных нет
double Win_Price=WindowPriceOnDropped(); // Здесь брошен скрипт
//--------------------------------------------------------------- 2 --
for(int i=1; i<=OrdersTotal(); i++) // Цикл перебора ордер
{
if (OrderSelect(i-1,SELECT_BY_POS)==true) // Если есть следующий
668
{ // Анализ ордеров:
//------------------------------------------------------ 3 --
if (OrderSymbol()!= Symb) continue; // Не наш фин.инструм.
int Tip=OrderType(); // Тип ордера
if (Tip<2) continue; // Рыночный ордер
//------------------------------------------------------ 4 --
double Price=OrderOpenPrice(); // Цена ордера
if (NormalizeDouble(MathAbs(Price-Win_Price),Digits)< //Выбор
NormalizeDouble(Dist,Digits)) // самого близкого орд
{
Dist=MathAbs(Price-Win_Price); // Новое значение
Limit_Stop=Tip; // Есть отложен. ордер
int Ticket=OrderTicket(); // Номер ордера
} // Конец if
} //Конец анализа ордера
} // Конец перебора орд.
//--------------------------------------------------------------- 5 --
switch(Limit_Stop) // По типу ордера
{
case 2: string Text= "BuyLimit "; // Текст для BuyLimit
break; // Выход из switch
case 3: Text= "SellLimit "; // Текст для SellLimit
break; // Выход из switch
case 4: Text= "BuyStopt "; // Текст для BuyStopt
break; // Выход из switch
case 5: Text= "SellStop "; // Текст для SellStop
break; // Выход из switch
}
//--------------------------------------------------------------- 6 --
while(true) // Цикл закрытия орд.
{
if (Limit_Stop==-1) // Если отложенных нет
{
Alert("По ",Symb," отложенных ордеров нет");
break;
// Выход из цикла закр
}
//--------------------------------------------------------- 7 --
Alert("Попытка удалить ",Text," ",Ticket,". Ожидание ответа..");
bool Ans=OrderDelete(Ticket); // Удаление ордера
//--------------------------------------------------------- 8 --
if (Ans==true) // Получилось :)
{
Alert ("Удалён ордер ",Text," ",Ticket);
break; // Выход из цикла закр
}
//--------------------------------------------------------- 9 --
int Error=GetLastError(); // Не получилось :(
669
switch(Error) // Преодолимые ошибки
{
case 4: Alert("Торговый сервер занят. Пробуем ещё раз..");
Sleep(3000); // Простое решение
continue; // На след. итерацию
case 137:Alert("Брокер занят. Пробуем ещё раз..");
Sleep(3000); // Простое решение
continue; // На след. итерацию
case 146:Alert("Подсистема торговли занята. Пробуем ещё..");
Sleep(500); // Простое решение
continue; // На след. итерацию
}
switch(Error) // Критические ошибки
{
case 2 : Alert("Общая ошибка.");
break; // Выход из switch
case 64: Alert("Счет заблокирован.");
break; // Выход из switch
case 133:Alert("Торговля запрещена");
break; // Выход из switch
case 139:Alert("Ордер заблокирован и уже обрабатывается");
break; // Выход из switch
case 145:Alert("Модификация запрещена. ",
"Ордер слишком близок к рынку");
break; // Выход из switch
default: Alert("Возникла ошибка ",Error);//Другие варианты
}
break; // Выход из цикла закр
}
//-------------------------------------------------------------- 10 --
Alert ("Скрипт закончил работу -----------------------------");
return; // Выход из start()
}
//-------------------------------------------------------------- 11 --
Блок обработки ошибок также претерпел некоторые изменения. Если при закрытии
рыночных ордеров необходимо учитывать возможность возникновения ошибок,
связанных с изменением цен (ошибки 135 и 136), то при удалении отложенных ордеров
подобные ошибки не возникают. По этой же причине нигде в программе не используется
функция RefreshRates() с целью обновления текущих цен.
Некоторую сложность вызывает обработка таких ошибок, как 4 и 137 (см. Коды ошибок).
Например, при получении ошибки 137 программа может принять к сведению
информацию о том, что "брокер занят". Но возникает естественный вопрос: когда он
670
освободится, чтобы пользователь мог продолжить торговлю? Ошибка 137 не содержит
такой информации. Поэтому вопрос о том, как правильно составить программу обработки
подобных ошибок, программист должен решить сам. В простом случае можно повторить
торговый приказ после некоторой паузы (в данном примере - 3 секунды). С другой
стороны, в результате серии неудачных попыток удаления (или в общем случае закрытия,
открытия или модификации) ордера сервер может вернуть ошибку 141 - слишком много
запросов. В результате этой ошибки скрипт deleteorder.mq4 прекратит работу. В целом,
подобные конфликты не являются вопросами программирования. В подобных случаях
следует связаться со службой поддержки дилингового центра и выяснить причины отказа
в исполнении торгового приказа.
Ошибка 145 может возникнуть в том случае, если отложенный ордер (в общем случае и
стоп-приказ рыночного ордера) находится слишком близко к рыночной цене. Эта ошибка
не возникает, если торговля ведётся на спокойном рынке в размеренном темпе. Если же на
рынке происходят резкие изменения цены, брокер может решить, что некоторый ордер в
ближайшее время будет открыт, и не позволит его удалить (или модифицировать). Эта
ошибка учитывается в скрипте как непреодолимая и приводит завершению программы
(нет смысла лишний раз тревожить брокера торговыми приказами). Если через некоторое
время цена изменится, можно повторить попытку удаления ордера, снова запустив скрипт
на исполнение.
В общем случае, для предотвращения ошибки 145 необходимо учитывать уровень
заморозки, установленный дилинговым центром. Уровень заморозки - это значение,
определяющее коридор цен, внутри которого ордер считается замороженным, т.е. его
удаление может быть запрещено. Например, если отложенный ордер установлен по цене
1.2500, а уровень заморозки равен 10 пунктов, то это значит, что если цена находится в
коридоре цен от 1.2490 до 1.2510 включительно, то удаление отложенного ордера
запрещено. Уровень заморозки можно получить, исполнив функцию MarketInfo() с
идентификатором запроса MODE_FREEZELEVEL.
10.4.6 Встречное закрытие рыночных ордеров
Встречный ордер - это рыночный ордер, открытый в противоположном направлении по
отношению к другому рыночному ордеру по тому же финансовому инструменту.