59 KiB
59 KiB
#property copyright "Copyright © 2022, ХАЛИТ"
#property link "https://t.me/mo_elnoby"
//#property version "3.4.2" // Такая версия несовместима с MQL-маркетом
#property description "CONNECT EA"
#property description "MAKE SURE YOU HAVE BROKER WITH LOWER SPREAD TO WORK WELL"
#property description "PAIRS: GBPUSD,USDCHF,USDCAD,USDJPY"
#property description "TF: M5"
#property description "UNL"
//#property strict
//#property icon "\\Images\\CONNECT.ico"
#define BANDS_PERIOD 20
#define BANDS_MA_SHIFT 0
#define BANDS_DEVIATION 2.0
#define BANDS_APPLIED_PRICE PRICE_MEDIAN
#define MA_PERIOD 20
#define ATR_PERIOD 14
#include <Indicators\Trend.mqh> // Включаемый файл, необходим для индикатора iBands
#include <Indicators\Oscilators.mqh> // Включаемый файл, необходим для индикатора iAtr
#include <Indicators\Trend.mqh> // Включаемый файл, необходим для индикатора iMA
#include <Trade\Trade.mqh> // Включаемый файл, необходим для торгового процессора.
//------------------
input string FULL = "UNL"; // FULL
input string SETTINGS = "CONNECT EA";
input string TF = "M5";
input string CURRENCY = "GBPUSD,USDCHF,USDCAD,USDJPY";
input uint uiIBandsPeriod = BANDS_PERIOD; // B.Bands Period
input int iIBandsMaShift = BANDS_MA_SHIFT; // B.Bands MA Shift
input double dIBandsDeviation = BANDS_DEVIATION; // B.Bands Deviation
input ENUM_APPLIED_PRICE apIBandsPrice = BANDS_APPLIED_PRICE; // B.Bands Applied Price
input bool bIUseATR = true; // Использовать ли ATR(14) для фильтра
input bool bIUseMA = true; // Использовать ли MA(20) для фильтра
input double Lots=0.01 ; // FIXED LOT
input bool UseRisk=true ; // USE RISK
input double MaxRisk=2 ; //RISK
input int StopLoss=65 ; // SL
input int TakeProfit=20 ; // TP
input double MaxSpread=5 ; // MAX SPREAD
input int MaxSlippage=1 ; // MAX SLIPPAGE (int)
input uint HourStart=22 ;
input uint HourEnd=1 ;
input int Magic = 1;
int Magic2 = Magic ;
string DATA_1_st = "CONNECT EA";
double d45QuotesRatio = 1.0; // Если котировки четырёхзначные, то остаётся 1, если котировки пятизначные - ставится 10.
string DATA_4_st = "\n";
int iDigits = 4;
int DATA_6_in = 0;
int DATA_7_in = 0;
double dMaxRisk = 1.0;
int DATA_9_in = 0;
int DATA_10_in = 0;
int DATA_11_in = 0;
datetime DATA_12_da = 0;
string Ai_1 = "2022.07.07";
static const int MIN_AVAILIBLE_BARS = 10;
string ErrorDescription( int mu_0_in)
{
return(" " + IntegerToString(mu_0_in));
};
// Очередной тик
MqlTick mtLastTick;
// Выбранный тикет позиции MT5
ulong ulSelectedPosTicket;
ulong ulSelectedHistoryPosTicket;
// Индикаторы, используемые в эксперте.
CiBands ibBands;
CiATR iaATR;
CiMA imMA;
// Торговый процессор
CTrade tTradeProcessor;
// Момент вызова функции HistorySelect
datetime dtHistorySelectMoment;
// Функция преобразования величины long в величину int с проверкой диапазона и удаления эксперта с графика, в случае его превышения
int _Long2Int(long lValue)
{
if(lValue < INT_MIN || lValue > INT_MAX)
{
Print("Невозможно преобразовать long-значение " + IntegerToString(lValue) + " к представлению int. Эксперт остановлен.");
ExpertRemove();
};
return((int)lValue);
}
// Функция, прячущая все индикаторы
// Аналог HideTestIndicators() МТ4
void _HideTestIndicators(bool bFlag)
{
#ifdef __MQL5__
// Print("В МТ5 индикаторы пока не скрываются. TODO: написать функцию _HideTestIndicators(bool bFlag)" );
#else // __MQL5__
_HideTestIndicators(bFlag);
#endif // __MQL5__
};
// Функция, возвращающая число баров на текущем графике
// Аналог Bars МТ4
int _Bars()
{
#ifdef __MQL5__
int iRes = Bars(Symbol(),Period());
if(iRes <= NULL || iRes >= INT_MAX)
{
Print("Ошибка функции Bars(), при запросе количества баров на чарте, вернулось:" + IntegerToString(iRes));
Print("GetLastError() = " + IntegerToString(GetLastError()));
};
return(iRes);
#else // __MQL5__
return(Bars);
#endif // __MQL5__
};
// Функции возвращающие Bid и Ask последней котировки
// Аналог переменных в МТ4
double _Bid()
{
#ifdef __MQL5__
return(mtLastTick.bid);
#else // __MQL5__
return(Bid);
#endif // __MQL5__
};
double _Ask()
{
#ifdef __MQL5__
return(mtLastTick.ask);
#else // __MQL5__
return(Ask);
#endif // __MQL5__
};
#define MODE_LOTSIZE 15
#define MODE_MINLOT 23
#define MODE_MAXLOT 25
// Аналог функции _MarketInfo
double _MarketInfo(string strSymbol,int iInfoID)
{
switch(iInfoID)
{
case MODE_LOTSIZE: return(SymbolInfoDouble(strSymbol,SYMBOL_TRADE_CONTRACT_SIZE));
case MODE_MINLOT: return(SymbolInfoDouble(strSymbol,SYMBOL_VOLUME_MIN));
case MODE_MAXLOT: return(SymbolInfoDouble(strSymbol,SYMBOL_VOLUME_MAX));
default:
break;
};
return(EMPTY_VALUE);
};
// Аналог функции AccountFreeMargin()
double _AccountFreeMargin()
{
return(AccountInfoDouble(ACCOUNT_MARGIN_FREE));
};
// Функция возвращает данные индикатора по указанному буфферу (нулевой индекс)
double _iBands(int iBuffer)
{
// Номера буфферов лент Боллинджера:
// 1 - верхняя
// 2 - нижняя
double dRes = ibBands.GetData(iBuffer,0);
return(dRes);
};
// Функция возвращающая данные индикатора ATR
double _iATR()
{
double dRes = iaATR.GetData(0,0);
if(bIUseATR == false)
dRes = NULL;
return(dRes);
};
// Функция возвращающая данные индикатора MA
double _iMA()
{
double dRes = imMA.GetData(0,0);
return(dRes);
}
// Функция возвращает час из указанной даты
uint _TimeHour(datetime dtFrom)
{
MqlDateTime mdtTime;
if(TimeToStruct(dtFrom,mdtTime)!=true)
return(UINT_MAX);
return(mdtTime.hour);
};
// Функция-аналог функции OrdersTotal() из MT4 для открытых ордеров
int _OrdersTotal()
{
return(PositionsTotal());
};
// Функция-аналог функции OrderSelect(SELECT_BY_POS) из MT4
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _OrderSelectByPos(uint uiPosIdx)
{
ulSelectedPosTicket = PositionGetTicket(uiPosIdx);
if(ulSelectedPosTicket == NULL)
return(false);
return(true);
};
// Функция-аналог функции OrderSelect(SELECT_BY_TICKET) из MT4 для открытых ордеров.
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _OrderSelectByTicket(uint uiTicket)
{
if(PositionSelectByTicket(uiTicket)==true)
{
ulSelectedPosTicket = uiTicket;
return(true);
};
ulSelectedPosTicket = NULL;
return(false);
};
// Функция-аналог функции OrderSymbol из MT4
// Возвращает строку-символ выбранного ордера
string _OrderSymbol()
{
string strRes = PositionGetString(POSITION_SYMBOL);
return(strRes);
};
// Функция-аналог функции OrderMagicNumber из MT4
long _OrderMagicNumber()
{
long lRes = PositionGetInteger(POSITION_MAGIC);
return(lRes);
};
// Функция-аналог функции OrderOpenPrice из MT4
double _OrderOpenPrice()
{
return(PositionGetDouble(POSITION_PRICE_OPEN));
};
// Функция-аналог функции OrderLots из MT4
double _OrderLots()
{
return(PositionGetDouble(POSITION_VOLUME));
};
// Функция-аналог функции OrdersTotal() из MT4 для исторических ордеров
int _OrdersHistoryTotal()
{
return(HistoryDealsTotal());
};
#define OT_BUY 0
#define OT_SELL 1
// Функция-аналог функции OrderType из MT4
int _OrderType()
{
ENUM_POSITION_TYPE ptType = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
switch(ptType)
{
case POSITION_TYPE_BUY: return(0);
case POSITION_TYPE_SELL: return(1);
default:
break;
};
return(WRONG_VALUE);
};
// Функция-аналог функции OrderOpenTime из MT4
datetime _OrderOpenTime()
{
return((datetime)PositionGetInteger(POSITION_TIME));
};
// Функция-аналог функции OrderTicket из MT4
ulong _OrderTicket()
{
return(ulSelectedPosTicket);
};
// Функция, подменяющая (не аналог!) функцию _OrderClosePrice из MT4
// Данная функция предназначена для определения цены закрытия исторических ордеров.
// Однако, в данном случае определяется цена закрытия открытого ордера - что не есть документированная возможность.
// Используем Bid или Ask для открытого ордера
double _OrderClosePrice()
{
if(_OrderType() == 1)
return(_Ask());
return(_Bid());
};
// Функция получает тикет открытой позиции по её идентификатору
long _GetOpenedComponentTicket(ulong ulDealID)
{
long lPosID = WRONG_VALUE;
// Выберем сделку в истории по идентификатору
if(HistoryDealSelect(ulDealID)!=true)
{
Print("ERROR !!! Не удалось выбрать в истории сделку, DealID = " + IntegerToString(ulDealID));
return(WRONG_VALUE);
};
// Выбираем PosID только что открытой сделки
if(HistoryDealGetInteger(ulDealID,DEAL_POSITION_ID,lPosID)!=true)
{
Print("ERROR !!! Не удалось получить PosID сделки! GetLastError: " + IntegerToString(GetLastError()));
return(WRONG_VALUE);
};
int iPosNum = PositionsTotal();
ulong ulCurTicket = 0;
// Перебираем все позиции
for(int iI=0; iI<iPosNum; ++iI)
{
// Выбираем очередную позицию, и получаем ее тикет
ulCurTicket = PositionGetTicket(iI);
if(ulCurTicket == NULL)
continue;
// Проверяем PosID
if(PositionGetInteger(POSITION_IDENTIFIER)!= lPosID)
continue;
// Нужная позиция найдена !
return((long)ulCurTicket);
};
Print("ERROR !!! Все сделки перебрали, но не нашли нужную! GetLastError: " + IntegerToString(GetLastError()));
return(WRONG_VALUE);
};
#define OP_BUY 0
#define OP_SELL 1
// Аналог функции OrderSend MT4
int _OrderSend(string strSymbol,int iOrderType,double dVolume,double dPrice,int iSlippage,double dSL,double dTP,string strComment = NULL,int iMagic = NULL,datetime dtExpiration = NULL,color clrColor = clrNONE)
{
// Можем выставлять только ордера на покупку или продажу. Проверим это
switch(iOrderType)
{
case OP_BUY:
if(tTradeProcessor.Buy(dVolume,strSymbol,dPrice,dSL,dTP,strComment)!=true)
return(WRONG_VALUE);
break;
case OP_SELL:
if(tTradeProcessor.Sell(dVolume,strSymbol,dPrice,dSL,dTP,strComment)!=true)
return(WRONG_VALUE);
break;
default:
return(WRONG_VALUE);
};
if(tTradeProcessor.ResultRetcode()!= TRADE_RETCODE_DONE)
return(WRONG_VALUE);
Print("Позиция открыта. ResultDeal()= " + IntegerToString(tTradeProcessor.ResultDeal()));
return((int)_GetOpenedComponentTicket(tTradeProcessor.ResultDeal()));
};
// Функция-аналог OrderModify() в МТ4
bool _OrderModify(int iTicket,double dOpenPrice,double dSL,double dTP,datetime dtExpiration,color clrColor)
{
return(tTradeProcessor.PositionModify(iTicket,dSL,dTP));
};
// Функция закрывает ордер по указанному тикету
bool _OrderClose(ulong ulTicket,double dLots,double dPrice, int iSlippage,color clrColor)
{
if(_OrderSelectByTicket((uint)ulTicket)!=true)
return(false);
double dUseLots = _OrderLots();
if(dLots >= dUseLots )
return(tTradeProcessor.PositionClose(ulTicket,iSlippage));
return(tTradeProcessor.PositionClosePartial(ulTicket,dLots,iSlippage));
};
// Функция-аналог функции OrderSelect(SELECT_BY_TICKET) из MT4 для исторических ордеров.
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _HstOrderSelectByPos(uint uiPosIdx)
{
ulSelectedHistoryPosTicket = HistoryDealGetTicket(uiPosIdx);
if(ulSelectedHistoryPosTicket == NULL)
return(false);
ENUM_DEAL_ENTRY deDealEntry = (ENUM_DEAL_ENTRY)HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_ENTRY);
if(deDealEntry != DEAL_ENTRY_OUT)
{
ulSelectedHistoryPosTicket = NULL;
return(false);
};
return(true);
};
string _HstOrderSymbol()
{
return(HistoryDealGetString(ulSelectedHistoryPosTicket,DEAL_SYMBOL));
};
long _HstOrderMagicNumber()
{
return(HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_MAGIC));
};
double _HstOrderProfit()
{
return(HistoryDealGetDouble(ulSelectedHistoryPosTicket,DEAL_PROFIT));
};
datetime _HstOrderCloseTime()
{
return((datetime)HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_TIME));
};
// Функция, предназначенная для обновления индикаторов
bool _Refresh()
{
SymbolInfoTick(Symbol(),mtLastTick);
ibBands.Refresh();
iaATR.Refresh();
imMA.Refresh();
if(HistorySelect(NULL,TimeCurrent())!=true)
return(false);
dtHistorySelectMoment = TimeCurrent();
return(true);
};
int OnInit()
{
// Устанвливаем число знаков и коррекцию для котировок
// По умолчанию d45QuotesRatio = 1
iDigits = Digits() ;
if (iDigits == 3 || iDigits == 5)
d45QuotesRatio = 10.0 ;
dMaxRisk = MaxRisk ;
_HideTestIndicators(true);
// Создадим индикаторы
if(ibBands.Create(Symbol(),PERIOD_CURRENT,uiIBandsPeriod,iIBandsMaShift,dIBandsDeviation,apIBandsPrice)!=true)
{
Print("Не удалось создать индикатор iBands! Работа невозможна.");
return(WRONG_VALUE);
};
if(iaATR.Create(Symbol(),PERIOD_CURRENT,ATR_PERIOD)!=true)
{
Print("Не удалось создать индикатор iATR! Работа невозможна.");
return(WRONG_VALUE);
};
if(imMA.Create(Symbol(),PERIOD_CURRENT,MA_PERIOD,0,MODE_SMA,PRICE_MEDIAN)!=true)
{
Print("Не удалось создать индикатор iMA! Работа невозможна.");
return(WRONG_VALUE);
};
// Инициализируем торговый процессор
tTradeProcessor.LogLevel(LOG_LEVEL_ALL);
tTradeProcessor.SetExpertMagicNumber(Magic);
tTradeProcessor.SetDeviationInPoints(MaxSlippage);
tTradeProcessor.SetMarginMode();
// Пока позиция не выбрана
ulSelectedPosTicket = NULL;
// Пока история не выбиралась.
dtHistorySelectMoment = NULL;
return(0);
}
//init <<==-------- --------
void OnTick()
{
// Обновим данные
_Refresh();
int iTotalOpenedOrders;
int iCurOrderIdx;
ChartSetInteger(ChartID(),CHART_SHOW_GRID,0);
ChartSetInteger(ChartID(),CHART_MODE,CHART_CANDLES);
_HideTestIndicators(true);
// Проверим, чтобы число доступных баров было больше десяти.
if ( _Bars() < MIN_AVAILIBLE_BARS )
{
Comment("Not enough bars");
return;
};
// Если Ask не выше верхней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
if ( !(_Ask()>=_iBands(2)) && !(_iATR() >=d45QuotesRatio * 15.0 * Point()))
{
// Если текущий час входит в пределы часа начала и часа конца.
if ((HourStart < HourEnd && _TimeHour(TimeCurrent()) >= HourStart && _TimeHour(TimeCurrent()) < HourEnd )||(HourStart > HourEnd && (_TimeHour(TimeCurrent()) < HourEnd || _TimeHour(TimeCurrent()) >= HourStart)))
{
// Посчитаем открытые ордера
iTotalOpenedOrders = 0;
for (iCurOrderIdx = _OrdersTotal() - 1 ; iCurOrderIdx >= 0 ; --iCurOrderIdx)
{
if ( _OrderSelectByPos(iCurOrderIdx) == true )
{
if ( _OrderSymbol() == Symbol() && _OrderMagicNumber() == Magic )
++iTotalOpenedOrders;
}
else
{
Print("_OrderSelectByPos() error - ",ErrorDescription(GetLastError()));
};
}; // цикл пересчёта открытых ордеров
if ( iTotalOpenedOrders < 1 )
{
if ( UseRisk == false )
liDATA_11();
if ( UseRisk == true )
liDATA_9();
};
}; // если текущий час входит в пределы часа начала и конца
}; // Если Ask не выше верхней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
// Если Bid не ниже нижней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
if ( !(_Bid()<=_iBands(1)) && !(_iATR()>=d45QuotesRatio * 15.0 * Point()) )
{
// Если текущий час входит в пределы часа начала и часа конца.
if((HourStart < HourEnd && _TimeHour(TimeCurrent()) >= HourStart && _TimeHour(TimeCurrent()) < HourEnd ) || (HourStart > HourEnd && (_TimeHour(TimeCurrent()) < HourEnd || _TimeHour(TimeCurrent()) >= HourStart)))
{
iTotalOpenedOrders = 0;
for (iCurOrderIdx = _OrdersTotal() - 1 ; iCurOrderIdx >= 0 ; --iCurOrderIdx)
{
if (_OrderSelectByPos(iCurOrderIdx))
{
if ( _OrderSymbol() == Symbol() && _OrderMagicNumber() == Magic )
++iTotalOpenedOrders;
}
else
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}; // цикл пересчёта открытых ордеров
if ( iTotalOpenedOrders < 1 )
{
if ( UseRisk == false )
liDATA_12();
if ( UseRisk == true )
liDATA_10();
};
}; // если текущий час входит в пределы часа начала и конца
}; // Если Bid не ниже нижней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
liDATA_7();
liDATA_8();
return;
}
//start <<==-------- --------
void OnDeinit(const int reason)
{
};
//deinit <<==-------- --------
void liDATA_7()
{
int REPUTK_1_in_si30si2[30][2];
int iTotalPos;
int REPUTK_3_in;
int iCurPos;
//----- -----
ArrayInitialize(REPUTK_1_in_si30si2,NULL); // Заполняем массив нулями, иначе выходит предупреждение
if (bIUseMA == true && _Ask()>=_iMA() )
{
return;
}
if ( _Ask() - _Bid() <=MaxSpread * d45QuotesRatio * Point() )
{
iTotalPos = _OrdersTotal() ;
REPUTK_3_in = 0 ;
for (iCurPos = 0 ; iCurPos < iTotalPos ; ++iCurPos)
{
if ( ( _OrderSelectByPos(iCurPos) && (_OrderType() != OT_SELL || _OrderSymbol() != Symbol() || _OrderMagicNumber() != Magic2) ) ) continue;
REPUTK_1_in_si30si2[REPUTK_3_in][0] = _Long2Int(_OrderOpenTime());
REPUTK_1_in_si30si2[REPUTK_3_in][1] = (int)_OrderTicket();
REPUTK_3_in = REPUTK_3_in + 1;
}
if ( REPUTK_3_in > 1 )
{
// ВНИМАНИЕ ! Закомментарено изменение размера массива.
// Массив статически определён, невозможно менять его размер, в МТ4 эта ошибка не отображалась.
// Размер массива в первом измерении 30, и, похоже, что это максимальное число позиций.
// Должно хватить - не изменяем размер статического массива.
// ArrayResize(REPUTK_1_in_si30si2,REPUTK_3_in,0);
//ArraySort(REPUTK_1_in_si30si2,0,0,1); // Так было в MT4
ArraySort(REPUTK_1_in_si30si2);
}
for (iCurPos = 0 ; iCurPos < REPUTK_3_in ; ++iCurPos)
{
if (_OrderSelectByTicket(REPUTK_1_in_si30si2[iCurPos][1]) != true || _OrderClose(_OrderTicket(),_OrderLots(),_OrderClosePrice(),MaxSlippage,Red) != false ) continue;
Print("OrderClose() error - ",ErrorDescription(GetLastError()));
}
} // if ( Ask - Bid<=MaxSpread * DATA_2_do * Point() )
} // void liDATA_7()
void liDATA_8()
{
int REPUTK_1_in_si30si2[30][2];
int REPUTK_2_in;
int REPUTK_3_in;
int REPUTK_4_in;
//----- -----
ArrayInitialize(REPUTK_1_in_si30si2,NULL);
if (bIUseMA == true && _Bid()<=_iMA() )
{
return;
}
if ( _Ask() - _Bid()<=MaxSpread * d45QuotesRatio * Point() )
{
REPUTK_2_in = _OrdersTotal() ;
REPUTK_3_in = 0 ;
for (REPUTK_4_in = 0 ; REPUTK_4_in < REPUTK_2_in ; REPUTK_4_in = REPUTK_4_in + 1)
{
if ( ( _OrderSelectByPos(REPUTK_4_in) && (_OrderType() != 0 || _OrderSymbol() != Symbol() || _OrderMagicNumber() != Magic) ) ) continue;
REPUTK_1_in_si30si2[REPUTK_3_in][0] = _Long2Int(_OrderOpenTime());
REPUTK_1_in_si30si2[REPUTK_3_in][1] = (int)_OrderTicket();
REPUTK_3_in = REPUTK_3_in + 1;
}
if ( REPUTK_3_in > 1 )
{
// ВНИМАНИЕ ! Закомментарено изменение размера массива.
// Массив статически определён, невозможно менять его размер, в МТ4 эта ошибка не отображалась.
// Размер массива в первом измерении 30, и, похоже, что это максимальное число позиций.
// Должно хватить - не изменяем размер статического массива.
// ArrayResize(REPUTK_1_in_si30si2,REPUTK_3_in,0);
// ArraySort(REPUTK_1_in_si30si2,0,0,1); Так было в МТ4
ArraySort(REPUTK_1_in_si30si2);
}
for (REPUTK_4_in = 0 ; REPUTK_4_in < REPUTK_3_in ; REPUTK_4_in = REPUTK_4_in + 1)
{
if ( _OrderSelectByTicket(REPUTK_1_in_si30si2[REPUTK_4_in][1]) != true || _OrderClose(_OrderTicket(),_OrderLots(),_OrderClosePrice(),MaxSlippage,Red) != false ) continue;
Print("OrderClose() error - ",ErrorDescription(GetLastError()));
}
}
}
//liDATA_8 <<==-------- --------
void liDATA_9()
{
double REPUTK_1_do;
double REPUTK_2_do;
double REPUTK_3_do;
double REPUTK_4_do;
double REPUTK_5_do;
double REPUTK_6_do;
int REPUTK_7_in;
double REPUTK_8_do;
double REPUTK_9_do;
int REPUTK_10_in;
bool REPUTK_11_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = _MarketInfo(Symbol(),MODE_LOTSIZE) ;
REPUTK_2_do = 1000.0 ;
REPUTK_3_do = _AccountFreeMargin() / 100.0 * dMaxRisk ;
if ( StopLoss == 0 )
{
Print("OrderSend() error - stoploss can not be zero");
}
REPUTK_4_do = REPUTK_3_do / StopLoss / d45QuotesRatio ;
REPUTK_5_do = 0.001 ;
REPUTK_6_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
REPUTK_7_in = 0 ;
while (REPUTK_6_do<1.0)
{
REPUTK_6_do = REPUTK_6_do * MathPow(10.0,REPUTK_7_in) ;
REPUTK_7_in = REPUTK_7_in + 1;
}
REPUTK_5_do = NormalizeDouble(REPUTK_4_do,REPUTK_7_in - 1) ;
if ( REPUTK_5_do<_MarketInfo(Symbol(),MODE_MINLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
}
if ( REPUTK_5_do>_MarketInfo(Symbol(),MODE_MAXLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MAXLOT) ;
}
REPUTK_8_do = _Ask() - StopLoss * d45QuotesRatio * Point() ;
if ( StopLoss == 0 )
{
REPUTK_8_do = 0.0 ;
}
REPUTK_9_do = TakeProfit * d45QuotesRatio * Point() + _Ask();
if ( TakeProfit == 0 )
{
REPUTK_9_do = 0.0 ;
}
REPUTK_10_in = -1 ;
REPUTK_10_in = _OrderSend(Symbol(),OP_BUY,REPUTK_5_do,_Ask(),MaxSlippage,0.0,0.0,DATA_1_st,Magic,0,Blue);
if ( REPUTK_10_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_10_in) )
{
REPUTK_11_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_8_do,REPUTK_9_do,0,Blue) ;
}
if ( REPUTK_11_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_9 <<==-------- --------
void liDATA_10()
{
double dTradeContractSize;
double REPUTK_2_do;
double REPUTK_3_do;
double REPUTK_4_do;
double REPUTK_5_do;
double REPUTK_6_do;
int REPUTK_7_in;
double REPUTK_8_do;
double REPUTK_9_do;
int REPUTK_10_in;
bool REPUTK_11_bo = false;
//----- -----
datetime REPUT_da_2;
int REPUT_in_3;
datetime dTimeCurrent = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( dTimeCurrent < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
dTradeContractSize = _MarketInfo(Symbol(),MODE_LOTSIZE);
REPUTK_2_do = 1000.0 ;
REPUTK_3_do = _AccountFreeMargin() / 100.0 * dMaxRisk ;
if ( StopLoss == 0 )
{
Print("OrderSend() error - stoploss can not be zero");
}
REPUTK_4_do = REPUTK_3_do / StopLoss / d45QuotesRatio ;
REPUTK_5_do = 0.001 ;
REPUTK_6_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
REPUTK_7_in = 0 ;
while (REPUTK_6_do<1.0)
{
REPUTK_6_do = REPUTK_6_do * MathPow(10.0,REPUTK_7_in) ;
REPUTK_7_in = REPUTK_7_in + 1;
}
REPUTK_5_do = NormalizeDouble(REPUTK_4_do,REPUTK_7_in - 1) ;
if ( REPUTK_5_do<_MarketInfo(Symbol(),MODE_MINLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
}
if ( REPUTK_5_do>_MarketInfo(Symbol(),MODE_MAXLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MAXLOT) ;
}
REPUTK_8_do = StopLoss * d45QuotesRatio * Point() + _Bid() ;
if ( StopLoss == 0 )
{
REPUTK_8_do = 0.0 ;
}
REPUTK_9_do = _Bid() - TakeProfit * d45QuotesRatio * Point() ;
if ( TakeProfit == 0 )
{
REPUTK_9_do = 0.0 ;
}
REPUTK_10_in = -1 ;
REPUTK_10_in = _OrderSend(Symbol(),OP_SELL,REPUTK_5_do,_Bid(),MaxSlippage,0.0,0.0,DATA_1_st,Magic2,0,Red) ;
if ( REPUTK_10_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_10_in) )
{
REPUTK_11_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_8_do,REPUTK_9_do,0,Red) ;
}
if ( REPUTK_11_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_10 <<==-------- --------
void liDATA_11()
{
double REPUTK_1_do;
double REPUTK_2_do;
int REPUTK_3_in;
bool REPUTK_4_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = _Ask() - StopLoss * d45QuotesRatio * Point() ;
if ( StopLoss == 0 )
{
REPUTK_1_do = 0.0 ;
}
REPUTK_2_do = TakeProfit * d45QuotesRatio * Point() + _Ask();
if ( TakeProfit == 0 )
{
REPUTK_2_do = 0.0 ;
}
REPUTK_3_in = -1 ;
REPUTK_3_in = _OrderSend(Symbol(),OP_BUY,Lots,_Ask(),MaxSlippage,0.0,0.0,DATA_1_st,Magic,0,Blue) ;
if ( REPUTK_3_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_3_in) )
{
REPUTK_4_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_1_do,REPUTK_2_do,0,Blue) ;
}
if ( REPUTK_4_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_11 <<==-------- --------
void liDATA_12()
{
double REPUTK_1_do;
double REPUTK_2_do;
int REPUTK_3_in;
bool REPUTK_4_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = StopLoss * d45QuotesRatio * Point() + _Bid() ;
if ( StopLoss == 0 )
{
REPUTK_1_do = 0.0 ;
}
REPUTK_2_do = _Bid() - TakeProfit * d45QuotesRatio * Point() ;
if ( TakeProfit == 0 )
{
REPUTK_2_do = 0.0 ;
}
REPUTK_3_in = -1 ;
REPUTK_3_in = _OrderSend(Symbol(),OP_SELL,Lots,_Bid(),MaxSlippage,0.0,0.0,DATA_1_st,Magic2,0,Red) ;
if ( REPUTK_3_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_3_in) )
{
REPUTK_4_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_1_do,REPUTK_2_do,0,Red) ;
}
if ( REPUTK_4_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
#property copyright "Copyright © 2022, ХАЛИТ"
#property link "https://t.me/mo_elnoby"
//#property version "3.4.2" // Такая версия несовместима с MQL-маркетом
#property description "CONNECT EA"
#property description "MAKE SURE YOU HAVE BROKER WITH LOWER SPREAD TO WORK WELL"
#property description "PAIRS: GBPUSD,USDCHF,USDCAD,USDJPY"
#property description "TF: M5"
#property description "UNL"
//#property strict
//#property icon "\\Images\\CONNECT.ico"
#define BANDS_PERIOD 20
#define BANDS_MA_SHIFT 0
#define BANDS_DEVIATION 2.0
#define BANDS_APPLIED_PRICE PRICE_MEDIAN
#define MA_PERIOD 20
#define ATR_PERIOD 14
#include <Indicators\Trend.mqh> // Включаемый файл, необходим для индикатора iBands
#include <Indicators\Oscilators.mqh> // Включаемый файл, необходим для индикатора iAtr
#include <Indicators\Trend.mqh> // Включаемый файл, необходим для индикатора iMA
#include <Trade\Trade.mqh> // Включаемый файл, необходим для торгового процессора.
//------------------
input string FULL = "UNL"; // FULL
input string SETTINGS = "CONNECT EA";
input string TF = "M5";
input string CURRENCY = "GBPUSD,USDCHF,USDCAD,USDJPY";
input uint uiIBandsPeriod = BANDS_PERIOD; // B.Bands Period
input int iIBandsMaShift = BANDS_MA_SHIFT; // B.Bands MA Shift
input double dIBandsDeviation = BANDS_DEVIATION; // B.Bands Deviation
input ENUM_APPLIED_PRICE apIBandsPrice = BANDS_APPLIED_PRICE; // B.Bands Applied Price
input bool bIUseATR = true; // Использовать ли ATR(14) для фильтра
input bool bIUseMA = true; // Использовать ли MA(20) для фильтра
input double Lots=0.01 ; // FIXED LOT
input bool UseRisk=true ; // USE RISK
input double MaxRisk=2 ; //RISK
input int StopLoss=65 ; // SL
input int TakeProfit=20 ; // TP
input double MaxSpread=5 ; // MAX SPREAD
input int MaxSlippage=1 ; // MAX SLIPPAGE (int)
input uint HourStart=22 ;
input uint HourEnd=1 ;
input int Magic = 1;
int Magic2 = Magic ;
string DATA_1_st = "CONNECT EA";
double d45QuotesRatio = 1.0; // Если котировки четырёхзначные, то остаётся 1, если котировки пятизначные - ставится 10.
string DATA_4_st = "\n";
int iDigits = 4;
int DATA_6_in = 0;
int DATA_7_in = 0;
double dMaxRisk = 1.0;
int DATA_9_in = 0;
int DATA_10_in = 0;
int DATA_11_in = 0;
datetime DATA_12_da = 0;
string Ai_1 = "2022.07.07";
static const int MIN_AVAILIBLE_BARS = 10;
string ErrorDescription( int mu_0_in)
{
return(" " + IntegerToString(mu_0_in));
};
// Очередной тик
MqlTick mtLastTick;
// Выбранный тикет позиции MT5
ulong ulSelectedPosTicket;
ulong ulSelectedHistoryPosTicket;
// Индикаторы, используемые в эксперте.
CiBands ibBands;
CiATR iaATR;
CiMA imMA;
// Торговый процессор
CTrade tTradeProcessor;
// Момент вызова функции HistorySelect
datetime dtHistorySelectMoment;
// Функция преобразования величины long в величину int с проверкой диапазона и удаления эксперта с графика, в случае его превышения
int _Long2Int(long lValue)
{
if(lValue < INT_MIN || lValue > INT_MAX)
{
Print("Невозможно преобразовать long-значение " + IntegerToString(lValue) + " к представлению int. Эксперт остановлен.");
ExpertRemove();
};
return((int)lValue);
}
// Функция, прячущая все индикаторы
// Аналог HideTestIndicators() МТ4
void _HideTestIndicators(bool bFlag)
{
#ifdef __MQL5__
// Print("В МТ5 индикаторы пока не скрываются. TODO: написать функцию _HideTestIndicators(bool bFlag)" );
#else // __MQL5__
_HideTestIndicators(bFlag);
#endif // __MQL5__
};
// Функция, возвращающая число баров на текущем графике
// Аналог Bars МТ4
int _Bars()
{
#ifdef __MQL5__
int iRes = Bars(Symbol(),Period());
if(iRes <= NULL || iRes >= INT_MAX)
{
Print("Ошибка функции Bars(), при запросе количества баров на чарте, вернулось:" + IntegerToString(iRes));
Print("GetLastError() = " + IntegerToString(GetLastError()));
};
return(iRes);
#else // __MQL5__
return(Bars);
#endif // __MQL5__
};
// Функции возвращающие Bid и Ask последней котировки
// Аналог переменных в МТ4
double _Bid()
{
#ifdef __MQL5__
return(mtLastTick.bid);
#else // __MQL5__
return(Bid);
#endif // __MQL5__
};
double _Ask()
{
#ifdef __MQL5__
return(mtLastTick.ask);
#else // __MQL5__
return(Ask);
#endif // __MQL5__
};
#define MODE_LOTSIZE 15
#define MODE_MINLOT 23
#define MODE_MAXLOT 25
// Аналог функции _MarketInfo
double _MarketInfo(string strSymbol,int iInfoID)
{
switch(iInfoID)
{
case MODE_LOTSIZE: return(SymbolInfoDouble(strSymbol,SYMBOL_TRADE_CONTRACT_SIZE));
case MODE_MINLOT: return(SymbolInfoDouble(strSymbol,SYMBOL_VOLUME_MIN));
case MODE_MAXLOT: return(SymbolInfoDouble(strSymbol,SYMBOL_VOLUME_MAX));
default:
break;
};
return(EMPTY_VALUE);
};
// Аналог функции AccountFreeMargin()
double _AccountFreeMargin()
{
return(AccountInfoDouble(ACCOUNT_MARGIN_FREE));
};
// Функция возвращает данные индикатора по указанному буфферу (нулевой индекс)
double _iBands(int iBuffer)
{
// Номера буфферов лент Боллинджера:
// 1 - верхняя
// 2 - нижняя
double dRes = ibBands.GetData(iBuffer,0);
return(dRes);
};
// Функция возвращающая данные индикатора ATR
double _iATR()
{
double dRes = iaATR.GetData(0,0);
if(bIUseATR == false)
dRes = NULL;
return(dRes);
};
// Функция возвращающая данные индикатора MA
double _iMA()
{
double dRes = imMA.GetData(0,0);
return(dRes);
}
// Функция возвращает час из указанной даты
uint _TimeHour(datetime dtFrom)
{
MqlDateTime mdtTime;
if(TimeToStruct(dtFrom,mdtTime)!=true)
return(UINT_MAX);
return(mdtTime.hour);
};
// Функция-аналог функции OrdersTotal() из MT4 для открытых ордеров
int _OrdersTotal()
{
return(PositionsTotal());
};
// Функция-аналог функции OrderSelect(SELECT_BY_POS) из MT4
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _OrderSelectByPos(uint uiPosIdx)
{
ulSelectedPosTicket = PositionGetTicket(uiPosIdx);
if(ulSelectedPosTicket == NULL)
return(false);
return(true);
};
// Функция-аналог функции OrderSelect(SELECT_BY_TICKET) из MT4 для открытых ордеров.
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _OrderSelectByTicket(uint uiTicket)
{
if(PositionSelectByTicket(uiTicket)==true)
{
ulSelectedPosTicket = uiTicket;
return(true);
};
ulSelectedPosTicket = NULL;
return(false);
};
// Функция-аналог функции OrderSymbol из MT4
// Возвращает строку-символ выбранного ордера
string _OrderSymbol()
{
string strRes = PositionGetString(POSITION_SYMBOL);
return(strRes);
};
// Функция-аналог функции OrderMagicNumber из MT4
long _OrderMagicNumber()
{
long lRes = PositionGetInteger(POSITION_MAGIC);
return(lRes);
};
// Функция-аналог функции OrderOpenPrice из MT4
double _OrderOpenPrice()
{
return(PositionGetDouble(POSITION_PRICE_OPEN));
};
// Функция-аналог функции OrderLots из MT4
double _OrderLots()
{
return(PositionGetDouble(POSITION_VOLUME));
};
// Функция-аналог функции OrdersTotal() из MT4 для исторических ордеров
int _OrdersHistoryTotal()
{
return(HistoryDealsTotal());
};
#define OT_BUY 0
#define OT_SELL 1
// Функция-аналог функции OrderType из MT4
int _OrderType()
{
ENUM_POSITION_TYPE ptType = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
switch(ptType)
{
case POSITION_TYPE_BUY: return(0);
case POSITION_TYPE_SELL: return(1);
default:
break;
};
return(WRONG_VALUE);
};
// Функция-аналог функции OrderOpenTime из MT4
datetime _OrderOpenTime()
{
return((datetime)PositionGetInteger(POSITION_TIME));
};
// Функция-аналог функции OrderTicket из MT4
ulong _OrderTicket()
{
return(ulSelectedPosTicket);
};
// Функция, подменяющая (не аналог!) функцию _OrderClosePrice из MT4
// Данная функция предназначена для определения цены закрытия исторических ордеров.
// Однако, в данном случае определяется цена закрытия открытого ордера - что не есть документированная возможность.
// Используем Bid или Ask для открытого ордера
double _OrderClosePrice()
{
if(_OrderType() == 1)
return(_Ask());
return(_Bid());
};
// Функция получает тикет открытой позиции по её идентификатору
long _GetOpenedComponentTicket(ulong ulDealID)
{
long lPosID = WRONG_VALUE;
// Выберем сделку в истории по идентификатору
if(HistoryDealSelect(ulDealID)!=true)
{
Print("ERROR !!! Не удалось выбрать в истории сделку, DealID = " + IntegerToString(ulDealID));
return(WRONG_VALUE);
};
// Выбираем PosID только что открытой сделки
if(HistoryDealGetInteger(ulDealID,DEAL_POSITION_ID,lPosID)!=true)
{
Print("ERROR !!! Не удалось получить PosID сделки! GetLastError: " + IntegerToString(GetLastError()));
return(WRONG_VALUE);
};
int iPosNum = PositionsTotal();
ulong ulCurTicket = 0;
// Перебираем все позиции
for(int iI=0; iI<iPosNum; ++iI)
{
// Выбираем очередную позицию, и получаем ее тикет
ulCurTicket = PositionGetTicket(iI);
if(ulCurTicket == NULL)
continue;
// Проверяем PosID
if(PositionGetInteger(POSITION_IDENTIFIER)!= lPosID)
continue;
// Нужная позиция найдена !
return((long)ulCurTicket);
};
Print("ERROR !!! Все сделки перебрали, но не нашли нужную! GetLastError: " + IntegerToString(GetLastError()));
return(WRONG_VALUE);
};
#define OP_BUY 0
#define OP_SELL 1
// Аналог функции OrderSend MT4
int _OrderSend(string strSymbol,int iOrderType,double dVolume,double dPrice,int iSlippage,double dSL,double dTP,string strComment = NULL,int iMagic = NULL,datetime dtExpiration = NULL,color clrColor = clrNONE)
{
// Можем выставлять только ордера на покупку или продажу. Проверим это
switch(iOrderType)
{
case OP_BUY:
if(tTradeProcessor.Buy(dVolume,strSymbol,dPrice,dSL,dTP,strComment)!=true)
return(WRONG_VALUE);
break;
case OP_SELL:
if(tTradeProcessor.Sell(dVolume,strSymbol,dPrice,dSL,dTP,strComment)!=true)
return(WRONG_VALUE);
break;
default:
return(WRONG_VALUE);
};
if(tTradeProcessor.ResultRetcode()!= TRADE_RETCODE_DONE)
return(WRONG_VALUE);
Print("Позиция открыта. ResultDeal()= " + IntegerToString(tTradeProcessor.ResultDeal()));
return((int)_GetOpenedComponentTicket(tTradeProcessor.ResultDeal()));
};
// Функция-аналог OrderModify() в МТ4
bool _OrderModify(int iTicket,double dOpenPrice,double dSL,double dTP,datetime dtExpiration,color clrColor)
{
return(tTradeProcessor.PositionModify(iTicket,dSL,dTP));
};
// Функция закрывает ордер по указанному тикету
bool _OrderClose(ulong ulTicket,double dLots,double dPrice, int iSlippage,color clrColor)
{
if(_OrderSelectByTicket((uint)ulTicket)!=true)
return(false);
double dUseLots = _OrderLots();
if(dLots >= dUseLots )
return(tTradeProcessor.PositionClose(ulTicket,iSlippage));
return(tTradeProcessor.PositionClosePartial(ulTicket,dLots,iSlippage));
};
// Функция-аналог функции OrderSelect(SELECT_BY_TICKET) из MT4 для исторических ордеров.
// На вход передается индекс открытой позиции MT5 в списке. При успехе возвращается true
bool _HstOrderSelectByPos(uint uiPosIdx)
{
ulSelectedHistoryPosTicket = HistoryDealGetTicket(uiPosIdx);
if(ulSelectedHistoryPosTicket == NULL)
return(false);
ENUM_DEAL_ENTRY deDealEntry = (ENUM_DEAL_ENTRY)HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_ENTRY);
if(deDealEntry != DEAL_ENTRY_OUT)
{
ulSelectedHistoryPosTicket = NULL;
return(false);
};
return(true);
};
string _HstOrderSymbol()
{
return(HistoryDealGetString(ulSelectedHistoryPosTicket,DEAL_SYMBOL));
};
long _HstOrderMagicNumber()
{
return(HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_MAGIC));
};
double _HstOrderProfit()
{
return(HistoryDealGetDouble(ulSelectedHistoryPosTicket,DEAL_PROFIT));
};
datetime _HstOrderCloseTime()
{
return((datetime)HistoryDealGetInteger(ulSelectedHistoryPosTicket,DEAL_TIME));
};
// Функция, предназначенная для обновления индикаторов
bool _Refresh()
{
SymbolInfoTick(Symbol(),mtLastTick);
ibBands.Refresh();
iaATR.Refresh();
imMA.Refresh();
if(HistorySelect(NULL,TimeCurrent())!=true)
return(false);
dtHistorySelectMoment = TimeCurrent();
return(true);
};
int OnInit()
{
// Устанвливаем число знаков и коррекцию для котировок
// По умолчанию d45QuotesRatio = 1
iDigits = Digits() ;
if (iDigits == 3 || iDigits == 5)
d45QuotesRatio = 10.0 ;
dMaxRisk = MaxRisk ;
_HideTestIndicators(true);
// Создадим индикаторы
if(ibBands.Create(Symbol(),PERIOD_CURRENT,uiIBandsPeriod,iIBandsMaShift,dIBandsDeviation,apIBandsPrice)!=true)
{
Print("Не удалось создать индикатор iBands! Работа невозможна.");
return(WRONG_VALUE);
};
if(iaATR.Create(Symbol(),PERIOD_CURRENT,ATR_PERIOD)!=true)
{
Print("Не удалось создать индикатор iATR! Работа невозможна.");
return(WRONG_VALUE);
};
if(imMA.Create(Symbol(),PERIOD_CURRENT,MA_PERIOD,0,MODE_SMA,PRICE_MEDIAN)!=true)
{
Print("Не удалось создать индикатор iMA! Работа невозможна.");
return(WRONG_VALUE);
};
// Инициализируем торговый процессор
tTradeProcessor.LogLevel(LOG_LEVEL_ALL);
tTradeProcessor.SetExpertMagicNumber(Magic);
tTradeProcessor.SetDeviationInPoints(MaxSlippage);
tTradeProcessor.SetMarginMode();
// Пока позиция не выбрана
ulSelectedPosTicket = NULL;
// Пока история не выбиралась.
dtHistorySelectMoment = NULL;
return(0);
}
//init <<==-------- --------
void OnTick()
{
// Обновим данные
_Refresh();
int iTotalOpenedOrders;
int iCurOrderIdx;
ChartSetInteger(ChartID(),CHART_SHOW_GRID,0);
ChartSetInteger(ChartID(),CHART_MODE,CHART_CANDLES);
_HideTestIndicators(true);
// Проверим, чтобы число доступных баров было больше десяти.
if ( _Bars() < MIN_AVAILIBLE_BARS )
{
Comment("Not enough bars");
return;
};
// Если Ask не выше верхней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
if ( !(_Ask()>=_iBands(2)) && !(_iATR() >=d45QuotesRatio * 15.0 * Point()))
{
// Если текущий час входит в пределы часа начала и часа конца.
if ((HourStart < HourEnd && _TimeHour(TimeCurrent()) >= HourStart && _TimeHour(TimeCurrent()) < HourEnd )||(HourStart > HourEnd && (_TimeHour(TimeCurrent()) < HourEnd || _TimeHour(TimeCurrent()) >= HourStart)))
{
// Посчитаем открытые ордера
iTotalOpenedOrders = 0;
for (iCurOrderIdx = _OrdersTotal() - 1 ; iCurOrderIdx >= 0 ; --iCurOrderIdx)
{
if ( _OrderSelectByPos(iCurOrderIdx) == true )
{
if ( _OrderSymbol() == Symbol() && _OrderMagicNumber() == Magic )
++iTotalOpenedOrders;
}
else
{
Print("_OrderSelectByPos() error - ",ErrorDescription(GetLastError()));
};
}; // цикл пересчёта открытых ордеров
if ( iTotalOpenedOrders < 1 )
{
if ( UseRisk == false )
liDATA_11();
if ( UseRisk == true )
liDATA_9();
};
}; // если текущий час входит в пределы часа начала и конца
}; // Если Ask не выше верхней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
// Если Bid не ниже нижней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
if ( !(_Bid()<=_iBands(1)) && !(_iATR()>=d45QuotesRatio * 15.0 * Point()) )
{
// Если текущий час входит в пределы часа начала и часа конца.
if((HourStart < HourEnd && _TimeHour(TimeCurrent()) >= HourStart && _TimeHour(TimeCurrent()) < HourEnd ) || (HourStart > HourEnd && (_TimeHour(TimeCurrent()) < HourEnd || _TimeHour(TimeCurrent()) >= HourStart)))
{
iTotalOpenedOrders = 0;
for (iCurOrderIdx = _OrdersTotal() - 1 ; iCurOrderIdx >= 0 ; --iCurOrderIdx)
{
if (_OrderSelectByPos(iCurOrderIdx))
{
if ( _OrderSymbol() == Symbol() && _OrderMagicNumber() == Magic )
++iTotalOpenedOrders;
}
else
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}; // цикл пересчёта открытых ордеров
if ( iTotalOpenedOrders < 1 )
{
if ( UseRisk == false )
liDATA_12();
if ( UseRisk == true )
liDATA_10();
};
}; // если текущий час входит в пределы часа начала и конца
}; // Если Bid не ниже нижней полосы Боллинджера и ATR не более 150 пунктов на пятизнаке
liDATA_7();
liDATA_8();
return;
}
//start <<==-------- --------
void OnDeinit(const int reason)
{
};
//deinit <<==-------- --------
void liDATA_7()
{
int REPUTK_1_in_si30si2[30][2];
int iTotalPos;
int REPUTK_3_in;
int iCurPos;
//----- -----
ArrayInitialize(REPUTK_1_in_si30si2,NULL); // Заполняем массив нулями, иначе выходит предупреждение
if (bIUseMA == true && _Ask()>=_iMA() )
{
return;
}
if ( _Ask() - _Bid() <=MaxSpread * d45QuotesRatio * Point() )
{
iTotalPos = _OrdersTotal() ;
REPUTK_3_in = 0 ;
for (iCurPos = 0 ; iCurPos < iTotalPos ; ++iCurPos)
{
if ( ( _OrderSelectByPos(iCurPos) && (_OrderType() != OT_SELL || _OrderSymbol() != Symbol() || _OrderMagicNumber() != Magic2) ) ) continue;
REPUTK_1_in_si30si2[REPUTK_3_in][0] = _Long2Int(_OrderOpenTime());
REPUTK_1_in_si30si2[REPUTK_3_in][1] = (int)_OrderTicket();
REPUTK_3_in = REPUTK_3_in + 1;
}
if ( REPUTK_3_in > 1 )
{
// ВНИМАНИЕ ! Закомментарено изменение размера массива.
// Массив статически определён, невозможно менять его размер, в МТ4 эта ошибка не отображалась.
// Размер массива в первом измерении 30, и, похоже, что это максимальное число позиций.
// Должно хватить - не изменяем размер статического массива.
// ArrayResize(REPUTK_1_in_si30si2,REPUTK_3_in,0);
//ArraySort(REPUTK_1_in_si30si2,0,0,1); // Так было в MT4
ArraySort(REPUTK_1_in_si30si2);
}
for (iCurPos = 0 ; iCurPos < REPUTK_3_in ; ++iCurPos)
{
if (_OrderSelectByTicket(REPUTK_1_in_si30si2[iCurPos][1]) != true || _OrderClose(_OrderTicket(),_OrderLots(),_OrderClosePrice(),MaxSlippage,Red) != false ) continue;
Print("OrderClose() error - ",ErrorDescription(GetLastError()));
}
} // if ( Ask - Bid<=MaxSpread * DATA_2_do * Point() )
} // void liDATA_7()
void liDATA_8()
{
int REPUTK_1_in_si30si2[30][2];
int REPUTK_2_in;
int REPUTK_3_in;
int REPUTK_4_in;
//----- -----
ArrayInitialize(REPUTK_1_in_si30si2,NULL);
if (bIUseMA == true && _Bid()<=_iMA() )
{
return;
}
if ( _Ask() - _Bid()<=MaxSpread * d45QuotesRatio * Point() )
{
REPUTK_2_in = _OrdersTotal() ;
REPUTK_3_in = 0 ;
for (REPUTK_4_in = 0 ; REPUTK_4_in < REPUTK_2_in ; REPUTK_4_in = REPUTK_4_in + 1)
{
if ( ( _OrderSelectByPos(REPUTK_4_in) && (_OrderType() != 0 || _OrderSymbol() != Symbol() || _OrderMagicNumber() != Magic) ) ) continue;
REPUTK_1_in_si30si2[REPUTK_3_in][0] = _Long2Int(_OrderOpenTime());
REPUTK_1_in_si30si2[REPUTK_3_in][1] = (int)_OrderTicket();
REPUTK_3_in = REPUTK_3_in + 1;
}
if ( REPUTK_3_in > 1 )
{
// ВНИМАНИЕ ! Закомментарено изменение размера массива.
// Массив статически определён, невозможно менять его размер, в МТ4 эта ошибка не отображалась.
// Размер массива в первом измерении 30, и, похоже, что это максимальное число позиций.
// Должно хватить - не изменяем размер статического массива.
// ArrayResize(REPUTK_1_in_si30si2,REPUTK_3_in,0);
// ArraySort(REPUTK_1_in_si30si2,0,0,1); Так было в МТ4
ArraySort(REPUTK_1_in_si30si2);
}
for (REPUTK_4_in = 0 ; REPUTK_4_in < REPUTK_3_in ; REPUTK_4_in = REPUTK_4_in + 1)
{
if ( _OrderSelectByTicket(REPUTK_1_in_si30si2[REPUTK_4_in][1]) != true || _OrderClose(_OrderTicket(),_OrderLots(),_OrderClosePrice(),MaxSlippage,Red) != false ) continue;
Print("OrderClose() error - ",ErrorDescription(GetLastError()));
}
}
}
//liDATA_8 <<==-------- --------
void liDATA_9()
{
double REPUTK_1_do;
double REPUTK_2_do;
double REPUTK_3_do;
double REPUTK_4_do;
double REPUTK_5_do;
double REPUTK_6_do;
int REPUTK_7_in;
double REPUTK_8_do;
double REPUTK_9_do;
int REPUTK_10_in;
bool REPUTK_11_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = _MarketInfo(Symbol(),MODE_LOTSIZE) ;
REPUTK_2_do = 1000.0 ;
REPUTK_3_do = _AccountFreeMargin() / 100.0 * dMaxRisk ;
if ( StopLoss == 0 )
{
Print("OrderSend() error - stoploss can not be zero");
}
REPUTK_4_do = REPUTK_3_do / StopLoss / d45QuotesRatio ;
REPUTK_5_do = 0.001 ;
REPUTK_6_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
REPUTK_7_in = 0 ;
while (REPUTK_6_do<1.0)
{
REPUTK_6_do = REPUTK_6_do * MathPow(10.0,REPUTK_7_in) ;
REPUTK_7_in = REPUTK_7_in + 1;
}
REPUTK_5_do = NormalizeDouble(REPUTK_4_do,REPUTK_7_in - 1) ;
if ( REPUTK_5_do<_MarketInfo(Symbol(),MODE_MINLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
}
if ( REPUTK_5_do>_MarketInfo(Symbol(),MODE_MAXLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MAXLOT) ;
}
REPUTK_8_do = _Ask() - StopLoss * d45QuotesRatio * Point() ;
if ( StopLoss == 0 )
{
REPUTK_8_do = 0.0 ;
}
REPUTK_9_do = TakeProfit * d45QuotesRatio * Point() + _Ask();
if ( TakeProfit == 0 )
{
REPUTK_9_do = 0.0 ;
}
REPUTK_10_in = -1 ;
REPUTK_10_in = _OrderSend(Symbol(),OP_BUY,REPUTK_5_do,_Ask(),MaxSlippage,0.0,0.0,DATA_1_st,Magic,0,Blue);
if ( REPUTK_10_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_10_in) )
{
REPUTK_11_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_8_do,REPUTK_9_do,0,Blue) ;
}
if ( REPUTK_11_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_9 <<==-------- --------
void liDATA_10()
{
double dTradeContractSize;
double REPUTK_2_do;
double REPUTK_3_do;
double REPUTK_4_do;
double REPUTK_5_do;
double REPUTK_6_do;
int REPUTK_7_in;
double REPUTK_8_do;
double REPUTK_9_do;
int REPUTK_10_in;
bool REPUTK_11_bo = false;
//----- -----
datetime REPUT_da_2;
int REPUT_in_3;
datetime dTimeCurrent = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( dTimeCurrent < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
dTradeContractSize = _MarketInfo(Symbol(),MODE_LOTSIZE);
REPUTK_2_do = 1000.0 ;
REPUTK_3_do = _AccountFreeMargin() / 100.0 * dMaxRisk ;
if ( StopLoss == 0 )
{
Print("OrderSend() error - stoploss can not be zero");
}
REPUTK_4_do = REPUTK_3_do / StopLoss / d45QuotesRatio ;
REPUTK_5_do = 0.001 ;
REPUTK_6_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
REPUTK_7_in = 0 ;
while (REPUTK_6_do<1.0)
{
REPUTK_6_do = REPUTK_6_do * MathPow(10.0,REPUTK_7_in) ;
REPUTK_7_in = REPUTK_7_in + 1;
}
REPUTK_5_do = NormalizeDouble(REPUTK_4_do,REPUTK_7_in - 1) ;
if ( REPUTK_5_do<_MarketInfo(Symbol(),MODE_MINLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MINLOT) ;
}
if ( REPUTK_5_do>_MarketInfo(Symbol(),MODE_MAXLOT) )
{
REPUTK_5_do = _MarketInfo(Symbol(),MODE_MAXLOT) ;
}
REPUTK_8_do = StopLoss * d45QuotesRatio * Point() + _Bid() ;
if ( StopLoss == 0 )
{
REPUTK_8_do = 0.0 ;
}
REPUTK_9_do = _Bid() - TakeProfit * d45QuotesRatio * Point() ;
if ( TakeProfit == 0 )
{
REPUTK_9_do = 0.0 ;
}
REPUTK_10_in = -1 ;
REPUTK_10_in = _OrderSend(Symbol(),OP_SELL,REPUTK_5_do,_Bid(),MaxSlippage,0.0,0.0,DATA_1_st,Magic2,0,Red) ;
if ( REPUTK_10_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_10_in) )
{
REPUTK_11_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_8_do,REPUTK_9_do,0,Red) ;
}
if ( REPUTK_11_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_10 <<==-------- --------
void liDATA_11()
{
double REPUTK_1_do;
double REPUTK_2_do;
int REPUTK_3_in;
bool REPUTK_4_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = _Ask() - StopLoss * d45QuotesRatio * Point() ;
if ( StopLoss == 0 )
{
REPUTK_1_do = 0.0 ;
}
REPUTK_2_do = TakeProfit * d45QuotesRatio * Point() + _Ask();
if ( TakeProfit == 0 )
{
REPUTK_2_do = 0.0 ;
}
REPUTK_3_in = -1 ;
REPUTK_3_in = _OrderSend(Symbol(),OP_BUY,Lots,_Ask(),MaxSlippage,0.0,0.0,DATA_1_st,Magic,0,Blue) ;
if ( REPUTK_3_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_3_in) )
{
REPUTK_4_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_1_do,REPUTK_2_do,0,Blue) ;
}
if ( REPUTK_4_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}
//liDATA_11 <<==-------- --------
void liDATA_12()
{
double REPUTK_1_do;
double REPUTK_2_do;
int REPUTK_3_in;
bool REPUTK_4_bo = false;
//----- -----
datetime REPUT_da_1;
datetime REPUT_da_2;
int REPUT_in_3;
REPUT_da_1 = TimeCurrent();
REPUT_da_2 = 0;
if ( _OrdersHistoryTotal() > 0 )
{
for (REPUT_in_3 = _OrdersHistoryTotal() - 1 ; REPUT_in_3 >= 0 ; REPUT_in_3=REPUT_in_3 - 1)
{
if ( _HstOrderSelectByPos(REPUT_in_3) == true && _HstOrderSymbol() == Symbol() && ( _HstOrderMagicNumber() == Magic || _HstOrderMagicNumber() == Magic2 ) )
{
if ( !(_HstOrderProfit()<0.0) ) break;
REPUT_da_2 = _HstOrderCloseTime();
break;
}
}
}
else
{
REPUT_da_2 = -3600;
}
if ( REPUT_da_1 < REPUT_da_2 + 3600 || _Ask() - _Bid()>MaxSpread * d45QuotesRatio * Point() ) return;
REPUTK_1_do = StopLoss * d45QuotesRatio * Point() + _Bid() ;
if ( StopLoss == 0 )
{
REPUTK_1_do = 0.0 ;
}
REPUTK_2_do = _Bid() - TakeProfit * d45QuotesRatio * Point() ;
if ( TakeProfit == 0 )
{
REPUTK_2_do = 0.0 ;
}
REPUTK_3_in = -1 ;
REPUTK_3_in = _OrderSend(Symbol(),OP_SELL,Lots,_Bid(),MaxSlippage,0.0,0.0,DATA_1_st,Magic2,0,Red) ;
if ( REPUTK_3_in > -1 )
{
if ( _OrderSelectByTicket(REPUTK_3_in) )
{
REPUTK_4_bo = _OrderModify((int)_OrderTicket(),_OrderOpenPrice(),REPUTK_1_do,REPUTK_2_do,0,Red) ;
}
if ( REPUTK_4_bo != false ) return;
Print("OrderModify() error - ",ErrorDescription(GetLastError()));
return;
}
Print("OrderSend() error - ",ErrorDescription(GetLastError()));
}