MQL4: Некоторые полезные функции

[Nick'Otin]

Получить количество ордеров (рыночных либо отложенных) данного типа.

int OrdersCount(int type){  int orders = 0;  int cnt = OrdersTotal();  for (int i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;    //Опционально    //if (OrderSymbol() != Symbol()) continue;    //Опционально    //if (OrderMagicNumber() != Magic) continue;    if (OrderType() == type) orders++;  }  return (orders);} 

В эксперте эту функцию можно использовать следующим образом:

int start() {  int BuyCnt = OrdersCount(OP_BUY);  if (BuyCnt > 0) return (0);  ... 

[Nick'Otin]

Получить время открытия последнего ордера данного типа.
Смотрим в открытых ордерах и в истории.
Если не найдено ордеров, удовлетворяющих условиям поиска, возвращаем -1.

datetime GetLastOpenTime(int type) {  datetime tm = -1;  int cnt = OrdersTotal();  for (int i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;        //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }  cnt = HistoryTotal();  for (i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }  return (tm);} 

[Nick'Otin]

Польза от функции GetLastOpenTime такая.
Например мы не хотим открывать лонг-ордера чаще чем раз в 2 часа.
Тогда условие на открытие будет выглядеть так:

if (CurTime() - GetLastOpenTime(OP_BUY) >= 2*60*60) {   OrderSend(Symbol(), OP_BUY, ...} 

[Nick'Otin]

Получить дату следующего дня:

  datetime Time0 = CurTime();  datetime Tomorrow = Time0 + 24*60*60;  int day = TimeDayOfYear(Tomorrow);  int month = TimeMonth(Tomorrow);  int year = TimeYear(Tomorrow); 

[Nick'Otin]

Получить тикет последнего закрытого ордера из истории.
Если тип ордера не указан, берется самый последний ордер любого типа.
Если ордеров, отвечающих указанным критерию не найдено, возвращает -1.

int GetLastOrderHist(int type = -1) {  int ticket = -1;  datetime dt = 0;  int cnt = HistoryTotal();      for (int i=0; i < cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    //Опционально    if (OrderSymbol() != Symbol()) continue;    //Опционально    if (OrderMagicNumber() != Magic) continue;        if (type != -1 && OrderType() != type) continue;        if (OrderCloseTime() > dt) {      dt = OrderCloseTime();      ticket = OrderTicket();    }  }    return (ticket);} 

[Nick'Otin]

Функция для расчета рабочего лота по следующим условиям.
lotmin - стартовый размер лота.
lotmax - верхнее ограничение на размер лота.
Если последняя сделка закрылась в +, то увеличиваем лот на величину lotstep.
Как только последняя сделка закрылась в -, возвращаемся к lotmin.
Т.е. при наступлении серии положительных сделок мы увеличиваем нагрузку на лот.

Будем использовать функцию GetLastOrderHist, описанную выше.

// --- Параметры управления капиталом ---extern bool uplot = true; - вкл/выкл изменение величины лотаextern int lastprofit = 1; - принимает значения -1/1. -1 - увеличение лота после минусовой сделки до первой плюсовой.1 - увеличение лота после плюсовой сделки до первой минусовой.extern double lotmin = 0.1; - начальное значениеextern double lotmax = 0.5; - потолокextern double lotstep = 0.1; - приращение лота double GetLots() {    double lot = lotmin;  if (!uplot) return (lot);    int ticket = GetLastOrderHist();  if (ticket == -1) return (lot);    if (!OrderSelect(ticket, SELECT_BY_TICKET, MODE_HISTORY)) return (lot);  if (OrderProfit()*lastprofit < 0) return (lot);    lot = MathMin(OrderLots() + lotstep, lotmax);  return (lot);} 

[Nick'Otin]

Трейлинг-стоп.
MinProfit - когда профит достигает указанное количество пунктов, трейлинг начинает работу
TrailingStop - величина трала
TrailingStep - шаг
l - префикс для лонгов
s - префикс для шортов

extern bool UseTrailing = true;extern int lMinProfit = 30;extern int sMinProfit = 30;extern int lTrailingStop = 15;extern int sTrailingStop = 15;extern int lTrailingStep = 5;extern int sTrailingStep = 5;if (UseTrailing) TrailingPositions();  void TrailingPositions() {  int cnt = OrdersTotal();  for (int i=0; i<cnt; i++) {    if (!(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))) continue;    if (OrderSymbol() != Symbol()) continue;            if (OrderType() == OP_BUY) {      if (Bid-OrderOpenPrice() > lMinProfit*Point) {        if (OrderStopLoss() < Bid-(lTrailingStop+lTrailingStep-1)*Point) {          OrderModify(OrderTicket(), OrderOpenPrice(), Bid-lTrailingStop*Point, OrderTakeProfit(), 0, Blue);        }      }    }    if (OrderType() == OP_SELL) {      if (OrderOpenPrice()-Ask > sMinProfit*Point) {        if (OrderStopLoss() > Ask+(sTrailingStop+sTrailingStep-1)*Point || OrderStopLoss() == 0) {          OrderModify(OrderTicket(), OrderOpenPrice(), Ask+sTrailingStop*Point, OrderTakeProfit(), 0, Blue);        }      }    }  }  } 

[Nick'Otin]

2 метода - Buy и Sell. Помимо открытия позиции нормализуют цены и выводят в лог входные параметры. Возвращают номер тикета, либо -1 в случае ошибки. После открытия ордера выдерживается установленный таймаут.

#include <stdlib.mqh>#include <stderror.mqh>int SleepOk = 2000;int SleepErr = 6000;int Slippage = 3;//~~~~~int Buy(string symbol, double lot, double price, double sl, double tp, int magic, string comment="") {  int dig = MarketInfo(symbol, MODE_DIGITS);  price = NormalizeDouble(price, dig);  sl = NormalizeDouble(sl, dig);  tp = NormalizeDouble(tp, dig);      string _lot = DoubleToStr(lot, 1);  string _price = DoubleToStr(price, dig);  string _sl = DoubleToStr(sl, dig);  string _tp = DoubleToStr(tp, dig);  Print("Buy "", symbol, "", ", _lot, ", ", _price, ", ", Slippage, ", ", _sl, ", ", _tp, ", ", magic, ", "", comment, """);  int res = OrderSend(symbol, OP_BUY, lot, price, Slippage, sl, tp, comment, magic);  if (res >= 0) {    Sleep(SleepOk);    return (res);  }              int code = GetLastError();  Print("Error opening BUY order: ", ErrorDescription(code), " (", code, ")");  Sleep(SleepErr);      return (-1);}int Sell(string symbol, double lot, double price, double sl, double tp, int magic, string comment="") {  int dig = MarketInfo(symbol, MODE_DIGITS);  price = NormalizeDouble(price, dig);  sl = NormalizeDouble(sl, dig);  tp = NormalizeDouble(tp, dig);    string _lot = DoubleToStr(lot, 1);  string _price = DoubleToStr(price, dig);  string _sl = DoubleToStr(sl, dig);  string _tp = DoubleToStr(tp, dig);  Print("Sell "", symbol, "", ", _lot, ", ", _price, ", ", Slippage, ", ", _sl, ", ", _tp, ", ", magic, ", "", comment, """);    int res = OrderSend(symbol, OP_SELL, lot, price, Slippage, sl, tp, comment, magic);  if (res >= 0) {    Sleep(SleepOk);    return (res);  }              int code = GetLastError();  Print("Error opening SELL order: ", ErrorDescription(code), " (", code, ")");  Sleep(SleepErr);      return (-1);} 

[Nick'Otin]

Открыть позицию в заданное время.
Код удобнее всего поместить в скрипт, который работает в бесконечном цикле. Это даст возможность открыться в нужное время, не дожидаясь прихода первого тика.

OpenTime - время открытия.
OpenPeriod - рабочий интервал, мин

  extern string OpenTime = "00:00";  extern int OpenPeriod = 10;  datetime tm0 = StrToTime(TimeToStr(CurTime(), TIME_DATE) + " " + OpenTime);  datetime tm1 = tm0 + OpenPeriod*60;  if (CurTime() < tm0 || CurTime() > tm1) return;  //Открываем позицию либо ставим ордер 

[Nick'Otin]

Эксперт, закрывающий ордера по рынку с указанным тейкпрофитом.
TakeProfit можно ставить 1, 2, 3

extern int TakeProfit = 2;extern int Slippage = 3;//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~void init () {}void deinit() {}void start() {  if (TakeProfit == 0) return;  int cnt = OrdersTotal();  for (int i=cnt-1; i >= 0; i--) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;    if (OrderSymbol() != Symbol()) continue;      int type = OrderType();    if (type == OP_BUY) {      if (Bid > OrderOpenPrice() + TakeProfit*Point)        OrderClose(OrderTicket(), OrderLots(), Bid, Slippage);       }      if (type == OP_SELL) {      if (Ask < OrderOpenPrice() - TakeProfit*Point)         OrderClose(OrderTicket(), OrderLots(), Ask, Slippage);     }  }} 

[Dom1no]

Подскажите,а как можно определить тип последнего ордера?

[Nick'Otin]

Можно так:

datetime LastBuyTm = GetLastOrderOpenTime(OP_BUY);datetime LastSellTm = GetLastOrderOpenTime(OP_SELL);// LastBuyTm > LastSellTm: последним был BUY ордер// LastSellTm > LastBuyTm: последним был SELL ордерdatetime GetLastOrderOpenTime(int type) {  datetime tm = -1;  int cnt = OrdersTotal();  for (int i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;        //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }    cnt = HistoryTotal();  for (i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;       //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }  return (tm);} 

[Nick'Otin]

Функция возвращает длину цепочки ордеров с положительным профитом. Считаем с конца history.

int GetLastPositiveOrdersCount() {  int PosCnt = 0;  int cnt = HistoryTotal();  for (int i = cnt-1; i >=0; i--) {        if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    //if (OrderSymbol() != Symbol()) continue;    //if (OrderMagicNumber() != Magic) continue;          int type = OrderType();    if (type != OP_BUY && type != OP_SELL) continue;          if (OrderProfit() < 0) break;    PosCnt++;  }  return (PosCnt);} 

[Nick'Otin]

Подскажите,а как можно определить тип последнего ордера?

Можно еще так:

datetime LastBuyTm = GetLastOrderOpenTime(OP_BUY);datetime LastSellTm = GetLastOrderOpenTime(OP_SELL);// LastBuyTm > LastSellTm: последним был BUY ордер// LastSellTm > LastBuyTm: последним был SELL ордерdatetime GetLastOrderOpenTime(int type) {  datetime tm = -1;  int cnt = OrdersTotal();  for (int i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;        //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }    cnt = HistoryTotal();  for (i=0; i<cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;       //Опционально    if (OrderSymbol() != Symbol()) continue;    if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        tm = MathMax(tm, OrderOpenTime());  }  return (tm);} 

[Nick'Otin]

Способ программного закрытия терминала.

#include <WinUser32.mqh>int start() {  int hwnd = WindowHandle(Symbol(), Period());  int hwnd_parent = 0;  while(!IsStopped()) {    hwnd = GetParent(hwnd);    if (hwnd == 0) break;    hwnd_parent = hwnd;  }  if (hwnd_parent != 0)    PostMessageA(hwnd_parent, WM_CLOSE, 0, 0);  return (0);} 

[Nick'Otin]

Полезная функция split и примеры ее использования.

split - разделяет элементы строки и возвращает их в виде массива.

Параметры:
[OUT] string& arr[] - возвращаемый массив строк.
[IN] string str - входная строка.
[IN] string sym - разделитель.[/code]

Пример:

  string text = "1; 2; 3; 4; 5";  string dig[];  split(dig, text, ";");//Теперь массив dig будет содержать 5 элементов:  "1", "2", "3", "4", "5". 

void split(string& arr[], string str, string sym) {  ArrayResize(arr, 0);  string item;  int pos, size;    int len = StringLen(str);  for (int i=0; i < len;) {    pos = StringFind(str, sym, i);    if (pos == -1) pos = len;        item = StringSubstr(str, i, pos-i);    item = StringTrimLeft(item);    item = StringTrimRight(item);        size = ArraySize(arr);    ArrayResize(arr, size+1);    arr[size] = item;        i = pos+1;  }} 

[Nick'Otin]

Oграничить колличество лоссов подряд в течнии дня
Пример: 2 лосса в день подряд - отключение доступа к торговле

 int orders = 0;    int cnt = HistoryTotal();  for (int i=0; i < cnt; i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;        //if (OrderSymbol() != Symbol()) continue;    //if (OrderMagicNumber() != Magic) continue;        if (CurTime() - OrderCloseTime() > 24*60*60) continue;        int type = OrderType();    if (type == OP_BUY || type == OP_SELL)     {      if (OrderProfit() < 0) orders++;      }  }    if (orders > 2) return; 

Т.е. смотрим ордера за последние 24 часа с отрицательным профитом.

[Nick'Otin]

Закрытие всех лонгов или всех шортов по достижению профита в 1$.

extern double Profit = 1;extern int Slippage = 3;if (AccountProfit() > Profit) {    CloseOrders(OP_BUY);    //or CloseOrders(OP_SELL);}void CloseOrders(int type) {  int cnt = OrdersTotal();  for (int i=cnt-1; i>=0; i--)   {    if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;    //if (OrderSymbol() != Symbol()) continue;    //if (OrderMagicNumber() != Magic) continue;        if (OrderType() != type) continue;        if (type == OP_BUY)     {      RefreshRates();      OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), Slippage);      continue;    }    if (type == OP_SELL)    {       RefreshRates();       OrderClose(OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), Slippage);       continue;    }  }} 

[tsn]

Подскажите, как реализовать следующие торговые критерии:выставление отложенного ордера по закрытию очередного? Например, закрылся Buy по ТР, а необходимо выставить SellStop на удалении в 15 пунктах от предыдущего Sell Stop (т.е. подвигать отложенники вслед за ценой)?

[twin]

Подскажите, как реализовать следующие торговые критерии:выставление отложенного ордера по закрытию очередного? Например, закрылся Buy по ТР, а необходимо выставить SellStop на удалении в 15 пунктах от предыдущего Sell Stop (т.е. подвигать отложенники вслед за ценой)?

Это вам надо обратиться за скриптами.....я так понимаю вас интересует трейлинг?Поищите в нете ,там есть нужные вам ,бесплатные скриптики для мт4 с инструкцией поустановке.
Правда я себе пытался поставтьодин такой,но он не встал,а на полощаке в проге возник сбой.Видно скрипт был сыроват.