//��������������������������������������������������������������������������������������������������������������������������
#property copyright "runik"
#property link "ngb2008@mail.ru"
// 19.3
// + ���������� ��������� �����
// + �������� �������� OpenNewCycle
// + �������� ������ ���������, ��� ��������� ������ (������������) ������ ��� � ���������� ���������� ��������� SPer � SPermall � ��������� ��������
// ��������� ��� Rigal � �������� ������� �����, "��������" ��� !
//19
// + �� 5 ������ ������� ��������� �������� ���������� (� ������ ������������� ������� ����������� ���������� ��������� � ������� �� 5 ������)
// + ��� ���������� ��������� �� ���� ��, � ������� ��������� ������ ���� ���������� � �����������, � ���� � �����, ���� ���� ��������� ����� ������� ����� �� ��� ��������� ���������
// + ����� ���������� ����������� ������� ����, ����� �������� lotdecimal (� ������ ������������� ������� ����������� ���������� ���)
// + ������ ��� (�� ������ �������� ������ ��� ������) ����� ������������ ��� � �� ��� �� �������� ���������� �� �����, ����� ���� ������
// + �������� ��������� ���������� � ��������� � ���� ������� ��� �������� (��. ��������� FDir, IndOff1, IndOff2)
// �������� ����� ������ �� ����� ������ �� �1 �� �1
// ��� ������ ����� ��������� i-Regr
// ������ ��� �������� � ���� ������������ ����� ���������� "�������" ���� ������ 1.4 - 1.5 - 1.6
// ������� !!! ���������� ����� ��������� � ������� !
// �� ������ �������� ������� �����-������ ...
// ���� ����������� ���� �� �������� �� ������� � ������ ������� ��������� ��� ����������� �� ���������.
// ��������� ������ ����� �����, ������� ���� ����������� ���� �������� ��������� ��� ngb2008[a]mail.ru
// ���� �� ������ �������������� ������ ��������, �� ����������. ��� ������ ���� ���������� � �������� GNU.
// �� ���������� �������� ���������������� ��� � �� ���������� ��� �����.
// ���� ��� ���������� ������ �������� � �� �� �������������,
// �� ������ ������� ������� :) � ������� ������� Z182368142593
// ���������� ��� ��� �� �������� (��� �����) � ���� ��. ����� (������ ����� ������, ��� ������� �� ��������� �����)
// � ��. �����
extern string �2= "�������� ���������";
// ����� ��� ��� � ������� �����, ������� �������� ����� ��� ��� ���� �� ������� ����������� � ����� �� ������������ ������ ��������,
// ������ �������������, ������ ����� �� ������ ����
extern double LotExponent = 1.2; // ��������� ����� � ����� �� ���������� ��� ������ � ���������. ������ ��� 0.1, �����: 0.15, 0.26, 0.43 ...
double learr[25]={1.3,1.4,1.5,1.6,1.7,2,2,2,2,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.6,1.6,1.6,1.6,1.6,1.6,1.6}; // dec �� ������ ��� ���� LotExponent=0
extern double TakeProfit = 50; //dec ����������� ���� ������, ���� = 0 �� ���������� ������ �������� ������ ��� ��������� �����
int tparr[25]={10,10,10,10,20,30,30,30,30,30,30,30,30,30,30,30,30,10,10,10,10,10,10,10,10,10}; // dec(�������� ��� 5 ������ ���� ����� ��������!)
extern double PipStep = 50; //dec ��� ������� ������
double psarr[25]={70,110,110,110,110,110,110,110,110,110,110,110,90,90,90,90,90,90,170,180,190,200,200,200,200,200}; //dec �������� ���� PipStep=0(�������� ��� 5 ������ ���� ����� �������� !)
extern string c9 = "MM";
extern double Lots = 0.1; // ������ ����� � ��������� 0.01 ��� ���� ���� ����� 0.1 �� ��������� ��� � ����� ����� 0.15
extern double Risk = 2; // ������ ������ �������� � % �� ����, ���� = 0 �� ������ ������ ����������� �������� Lots
// ��� ��������� ����� � ��� ������ ����� ����� �� ��������� ����� �� ���������� ��������� ������ � � �� �������������� �������� 0,1 - 0,2 - 0,4 - 0,8 - 1,6 - 1,6 - 1,6 ...
extern double LastTrade=100; // ����� ����� ������ ������� ������� ����������� = ���������� ��������� � ���� ����������� � ����� ��������� + lastradeprofit
extern double TakeProfitLast = 10.0; //dec ����������� ���� ������ ����� ������� ������ ������ ��� LastTrade
extern double LasTradeSize=17; // ������������ ������ �������� ������ � % �� ����, �������� ��� ���� 10 000 ������ ��������� ������� �� ������ 1 ����
extern int MaxTrades = 50; // ����������� ���������� ������������ �������� �������
extern bool OpenNewCycle = true; // ���� false, �� �� ��������� ��������� ����� ������, �.�. ��� ��������� ���������
extern string s11 ="��������� ������ �� ������";
// ��� ��������� �������� �� ������ ��������� ����� ���� ���������� (��� ����������) �� ������, ����� ����� ����� ��� ���� NumTr = 2 �� �� ������ �� ���������� ���� ��������� �����
// ����� ������� �������� �������� ��� ���������� ������ ���� ������� ������������ �������������� ��� ��������� ���������, ����������� ��� �������, � �������� NumTr (5-6)
// �� ���� �� ������� � ������� ����������� � �������� ����������� ��� � ������� �����, �� � ��� ����� ��������� "�����"
extern double TrendPS = 7; //dec ��� �������� ����� �� ������, ���� =0 �� �� ������ �� ��������, ������ ������ ������ ��� ������ ������ ������
extern double ProfitPerc= 5; //dec ���� �� ������ ��������� ������� ����� 10% ��������, �� ��������� ��� ����� � ��������
extern double MinProfitPips =15; //dec ���� � ��� ������ ����� �� ������ � ���� ����� ������ ���, �� ����������� �� ���������, ������� ���������� � + �� ������ MinProfitPips �� ����� ���������
extern double MinProfitPipsOne =2; //dec ���� � ��� ������ ����� �� ������ � ���� ����� ������ ���, �� ����������� �� ���������, ������� ���������� � + �� ������ MinProfitPips �� ����� ���������
extern double NumTr=2; // ������� ������� ��������� ���� ���� ����� �� � ���� �������
extern int FDir = 2; // �������������� ����� �����������
// ���� =-1 �������� �� ������� ���������� ���������� ������,
// ���� = 0 �� ������ ������ ������ � ����� ����������� �� ���,
// (=1 ����) �� ������ ������� �� ��������� � ��������� ����,
// =2 - �� ������ ���������� ���������, � ����������� �� ����������� ������
extern string c3= "��������������� ���������";
extern int MagicNumber = 54321; // �����
extern double slip = 3.0; //dec ���������������
// ������ ����� ...
extern double PercDown=0; // �.�. ���� �� "�������������" (�.�. ���� ������� ������ �� � ����� �����������) �������� �� �������� �� ����� ������ ������ 30 % �� �������� �������, �� ��� ���� ����������� � ����� �� ���������
extern double PercClose=0; // ������� ���� �� ����� �� 10 % �������� ����� 30 ���� ����������� � ����� �������, ������ ����������� ��������������, ���� �� 60 % ������� � ��������, �� ��������� ��� 20 %
// ����� �� ������������ ������ �������� ���� ��������� ��� ��������� ������� 0
extern int ComOn=0; // ��������� ����� ������������ ��� =0
extern string c4= "��������� ��������� � ��������";
extern int TFIlanX=0; // ��������� �� ������� ���� ��������� ������ ��. mper ��� = 5 - H1
// ���� ������ �������
extern int nH1=0; // =3 ����� 3 ������ ������������� �� �� �1
extern int nH4=0; // =5 ����� 5 ������ ������������� �� �� �4
extern string c8= "��������� ����";
// ���� ���� � ��� �������� ��� � ��������, �� ����� �����: ������ ��� ���� ��������� trendmagic
// ������� ������ ����������� ��� ����� �����, ���� ��� ��������� �������� � ���� ����� ������ ����, �� ���������� ����� ������� ����� � ����������������� �������
// ������� �� ����� �������� (����� ���. ������, ������, ����������� ������) �������� ��� ��������� ���� ����������, ��������, ���������, �����
extern double LockS=0; // �������� ���������� ����� ������� � �������� �������������� �������, ���� =0 �� �� ��������, ���� =0.5, �� �������� 50% ������� �����
extern int LMagN=689; // ���������� ����� ��� ������� ����
extern int NumLockMin=10; // ����� ������ �� ����� ������ ��������� ������� ����� ���� ��������� ����������� ������ ������� �����������
extern int NumLoc=15; // ����� ������ �� ����� ������ ��������� ������� ����� ���� ���������� ������� ������ ����� �������
extern int MaxDist=400; //dec ������������ ���������� �� ������ ������ ����� �������� ��� �� ��������� ���
extern int LockProfitPerc=1; // ��������� ��������� � % �� �������� ��� �������� ���� ������� ������� � �����
extern int koridor = 50; // dec ���������� � ����� ������� ��� ���������������� � �������
extern double Lmul = 2; // ��������� ������� � ����������� ������� �������
extern int MaxLockTrades = 4; // ������������� ���������� ������� �������
extern int CCPeriod = 50; // �������� ���������� ���������� ��� �������� ���� TrendMagic
extern int ATRPeriod = 5; // �������� ���������� ���������� ��� �������� ���� TrendMagic
extern int TMTF = 7; // ��������� �� ������� �������� ��������� ���������
int TradeAfterLock = 0; // ��� =0 ���� � ��� �������� ���, �� �� ��������� ���������, = 1 ���������� ���������
extern string _tmp2_ = " --- i-Regr --- � ������� �������� ����������� ���������� �����";
// �� ������� ���������� � ����� ����������� ���������� "���������� �����" ������ �������� ������� �� ����������� (������ ������)
// ������� ��� � ���������� ����������� ������� ���������, ���� �������� � ��������� �� ����, �� �� 2000 ������� �������� (���� ��� ���� � ����� ������ ��� 5 % ����, �� �������� ������ � ��������)
// ������� ����� ���� ����������� ������� �������� ����������� ������ !
// ��� ����� ������ ������ ����� ������ ������ � ��������� ������, �������� (��������� ���������) 3, 1.5, 2, 0, 800, 5, 0
extern bool IndOff1=false; // ���������� ��������� ��� = TRUE
extern int Regr.degree1 = 6; // ������� ���������
extern double Regr.kstd1 = 5; // ������ ������, ���� =0 �� �������� ������ ������� �����
extern int kanal=2; // ������� ������ � ��������� �����, ��� =2 �� ���������� ������� �� ��������� ������, =1 ������ �� ��������� ����� �������, = 0 �� ��������� ������� ������ ���������� �������� ����� �������
int Regr.shift1 = 0; // �������� ������������ �������� ����
extern int SPer = 170; // ������ �����
extern int TFS=8; // ��������� �� ������� �������� ���������,
extern int invert=0; // ���� = 0 �� �� ������, ���� =1 �� �������� ������ ����������� ������, ����� ������������ � �����
// ���� ��� �������� ������ ����� �������� ������� � �����, �� ������������� ��� invert=1; �� ������ ��������� � +
extern string _tmp3_ = " --- i-Regr --- � ����� ��������";
// �� ������� ���������� � ����� ����������� �� ���������� ���� ���� ����� ������ ���, ���� �� ��������� ������������ ��� �������� � �������� ������� �������
// ��� ����� ���������� ������ ����� ����������� ������ � ��, �������� (��������� ���������) 1, 3,1.5, 0, 800, 5
extern bool IndOff2=false; // ���������� ��������� ��� = TRUE
extern int Regr.degree1mall = 3; // ������� ���������
extern double Regr.kstd1mall = 1.5; // ������ ������, ���� =0 �� �������� ������ ������� �����
int Regr.shift1mall = 0; // �������� ������������ �������� ����
extern int SPermall = 50; // ������ �����
extern int TFSmall=3; // ��������� �� ������� �������� ���������
//��������������������������������������������������������������������������������������������������������������������������
extern bool UseEquityStop = FALSE;
extern double TotalEquityRisk = 20.0;
bool UseTimeOut = FALSE;
double MaxTradeOpenHours = 48.0;
extern string t2 = " ��������� ���������";
// ��� ���������� ����������, �������� ...
extern int UseTrailingStop = 0; // 0-�� ���������� ����, 1 - ����������� ����, 2 - ���� ���� ������
extern int ProfitTrailDist = 30; //dec ���������� �� ����� ���������, ����� ������� �������� ���� //+------------------------------------------------------------------+
extern int TrailDist = 80; //dec ���������� �� ������� ������� �������� //| �������� �����������-������������ |
extern int TrailStep = 10; //dec ������������ ������ ������ 5 ������� //| ������� ��������� ����� �������, ���������� �� ����� ��������, |
extern int NumIT = 3; // ����� ������ ���������� ������ ���������� ���� //| �� ������� �������� ����������� (�������) � "���", � ������� �� ����������� (�������) |
//| ������: ��� +30 ���� �� +10, ��� +40 - ���� �� +20 � �.�. |
extern double xtral=2; // �������� ���, ���������� �� ����� ��������� �� ��������� � xtral ��� ������ ��� �� ����� �� �� ����, �������� ���� ���� �� 90 � � +, ������ ���� �� ������ 30 � � ���� ���������
//��������������������������������������������������������������������������������������������������������������������������
int mper[10]={0,1,5,15,30,60,240,1440,10080,43200};
int TFIlan=0;
int ccc=0;
double lota[100]; // ����
int modea[100]; // ��� ������ OP_BUY 0 , OP_SELL 1 , OP_BUYLIMIT 2 , OP_SELLLIMIT 3 , OP_BUYSTOP 4 , OP_SELLSTOP 5
double opa[100]; // ���� ��������
double sla[100]; // ��������
double tpa[100]; // ������
string comma[100]; // �����������
datetime tima[100]; // ����� �������� ������
double profa[100];
int ticka[100];
//��������������������������������������������������������������������������������������������������������������������������
double PriceTarget, StartEquity, BuyTarget, SellTarget, AveragePrice, SellLimit, BuyLimit,LastBuyPrice, LastSellPrice, Spread,mac;
bool flag;
string EAName = "Ilan_extr19";
int timeprev = 0, expiration;
int NumOfTrades = 0;
double iLots;
int cnt = 0, total;
double Stopper = 0.0;
bool TradeNow = FALSE, LongTrade = FALSE, ShortTrade = FALSE;
int ticket;
bool NewOrdersPlaced = FALSE;
double AccountEquityHighAmt, PrevEquity;
int TrendRe=1; // ��� =0 ����� �������� �����, ��� =1 ����� �����, �.�. ���������� �� ������
double LastDD=0; // ����� ����������� ������������ �������� ��� ������� ����� ������
double FirstTr=0; // ����� ���������� ����� ������ ������ � �����
int ClLock=0; // ���� ��� �������� ����
double LocSummP =0; // ����� ���������� ������� ���������� �� ���� ��� ������ �����
double LastLPrice = 0; // ���� �������� ���������� ����
int stoptrade2l=0;
bool init = false;
int last_tick = -1;
//��������������������������������������������������������������������������������������������������������������������������
int init() {
if(init) return(0);
int BrokerDecimal=1;
// ���� ������ ���� ��������� �� ������ � ��������� � ���� ������ - ���� ����� ������ ������������ � 10 ��� - ������ ���������
if(Digits==3 || Digits==5) BrokerDecimal=10;
// ����������� ��� ������ � ������ �� ���������
PipStep = PipStep * BrokerDecimal;
TakeProfit = TakeProfit * BrokerDecimal;
TakeProfitLast = TakeProfitLast* BrokerDecimal;
TrendPS = TrendPS * BrokerDecimal;
MinProfitPips = MinProfitPips * BrokerDecimal;
MinProfitPipsOne = MinProfitPipsOne* BrokerDecimal;
MaxDist =MaxDist* BrokerDecimal;
koridor =koridor* BrokerDecimal;
ProfitTrailDist = ProfitTrailDist * BrokerDecimal;
slip = slip*BrokerDecimal;
TrailDist = TrailDist*BrokerDecimal;
TrailStep = TrailStep*BrokerDecimal;
last_tick = TimeCurrent();
init = true;
return (0);
}
int deinit() {
return (0);
}
//��������������������������������������������������������������������������������������������������������������������������
int start()
{
last_tick++;
total = CountTrades(MagicNumber);
if(total == 0 && !OpenNewCycle)
return (0);
PercCloseDown(); //
if (TrendPS>0 && stoptrade2l==0) TrenT();
if (TrendRe==0)
{
ProfitMonitor(); // ���� ������� ������� ����� �� �� ������ ������ ��������� �������� (������� ��������� ���� ���������� �� ����������)
}
int ct=NumT();
if (UseTrailingStop >0 && ct>=NumIT) TrailingAlls();
if (UseTimeOut) {
if (TimeCurrent() >= expiration) {
CloseThisSymbolAll(MagicNumber);
PrintF("Closed All due to TimeOut");
}
}
if (LockS>0) ControlLock();
if (LockS>0) BeginLockTrade(); // �������� ������������ ���� ������� ���������
TFIlan=TFIlanX;
if (nH1!=0 && NumT()>=nH1) TFIlan=5;
if (nH4!=0 && NumT()>=nH4) TFIlan=6;
if (FDir<0)
{
if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);
}
if (total>=1 && FDir>=0)
{
if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);
}
timeprev = iTime(NULL,mper[TFIlan],0);
// ���������� ������� �� ���� �� !!!
if (!IsTesting()) { LoadHist();}
//
double CurrentPairProfit = CalculateProfit();
if (UseEquityStop) {
if (CurrentPairProfit < 0.0 && MathAbs(CurrentPairProfit) > TotalEquityRisk / 100.0 * AccountEquityHigh()) {
CloseThisSymbolAll(MagicNumber);
PrintF("Closed All due to Stop Out");
NewOrdersPlaced = FALSE;
}
}
if (total == 0) flag = FALSE;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY)
{
LongTrade = TRUE;
ShortTrade = FALSE;
break;
}
if (OrderType() == OP_SELL)
{
LongTrade = FALSE;
ShortTrade = TRUE;
break;
}
}
}
// if (LockOn==1 && total>0) LockPositions();
if (total > 0 && total <= MaxTrades)
{
RefreshRates();
LastBuyPrice = FindMinBuyPrice();
LastSellPrice = FindMaxSellPrice();
if (LongTrade && LastBuyPrice - Ask >= PipStepX(0) * Point && alerts(1)>0 ) TradeNow = TRUE;
if (ShortTrade && Bid - LastSellPrice >= PipStepX(1) * Point && alerts(-1)<0) TradeNow = TRUE;
if (stoptrade2l==1) TradeNow = FALSE;
}
if (total < 1) {
ShortTrade = FALSE;
LongTrade = FALSE;
TradeNow = TRUE;
NewOrdersPlaced = FALSE;
StartEquity = AccountEquity();
if (stoptrade2l==1) TradeNow = FALSE;
}
if (TradeNow) {
// LastBuyPrice = FindLastBuyPrice();
// LastSellPrice = FindLastSellPrice();
double MaxLot1=FindMaxLots();
TrendRe=0;
if (ShortTrade) {
NumOfTrades = total;
if (LotExponent>0) iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()+1));
if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);
double ltsiz=LasTradeSize/100*AccountBalance()/1000;
if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
RefreshRates();
ticket = OpenPendingOrder(1, iLots, Bid, slip, Ask, 0, 0, "" + NumOfTrades, MagicNumber, 0, HotPink);
if (ticket < 0) {
PrintF("Error: "+ GetLastError());
return (0);
}
TradeNow = FALSE;
NewOrdersPlaced = TRUE;
} else {
if (LongTrade) {
NumOfTrades = total;
if (LotExponent>0) iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()+1));
if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);
ltsiz=LasTradeSize/100*AccountBalance()/1000;
if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
ticket = OpenPendingOrder(0, iLots, Ask, slip, Bid, 0, 0, "" + NumOfTrades, MagicNumber, 0, Lime);
if (ticket < 0) {
PrintF("Error: "+ GetLastError());
return (0);
}
TradeNow = FALSE;
NewOrdersPlaced = TRUE;
}
}
}
if (TradeNow && total < 1)
{
SellLimit = Bid;
BuyLimit = Ask;
TrendRe=1;
if (!ShortTrade && !LongTrade)
{
NumOfTrades = total;
iLots = GetLots();
iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()));
int axx=-1;
if (FDir==-1) axx=alerts(1); // ���� ����� ��������� ������ ������ �� ������� ���������
if (alert(-1)==-1 && axx==-1 && FDir!=0)
{
ticket = OpenPendingOrder(1, iLots, SellLimit, slip, SellLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, HotPink);
if (ticket < 0)
{
PrintF("Error: "+ GetLastError()); return (0);
}
NewOrdersPlaced = TRUE;
} //
axx=1;
if (FDir==-1) axx=alerts(0); // ���� ����� ��������� ������ ������ �� ������� ���������
if (alert(1)==1 && axx==1 && FDir!=1 && !NewOrdersPlaced)
{ // ������ <
ticket = OpenPendingOrder(0, iLots, BuyLimit, slip, BuyLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, Lime);
if (ticket < 0)
{
PrintF("Error: "+ GetLastError()); return (0);
}
NewOrdersPlaced = TRUE;
}
if (ticket > 0) expiration = TimeCurrent() + 60.0 * (60.0 * MaxTradeOpenHours);
TradeNow = FALSE;
}
}
total = CountTrades(MagicNumber);
AveragePrice = 0;
double Count = 0;double maxpr=0; double minpr=10000000;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
{
AveragePrice += OrderOpenPrice() * OrderLots();
Count += OrderLots();
}
}
}
if (total > 0) AveragePrice = NormalizeDouble(AveragePrice / Count, Digits);
if (NewOrdersPlaced)
{
double tp3=0;
if (TakeProfit==0) tp3=tparr[NumT()];
if (TakeProfit!=0) tp3=TakeProfit;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY)
{
PriceTarget = AveragePrice + tp3 * Point;
if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice + TakeProfitLast * Point;
flag = TRUE;
}
if (OrderType() == OP_SELL)
{
PriceTarget = AveragePrice - tp3 * Point;
if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice - TakeProfitLast * Point;
flag = TRUE;
}
}
}
}
if (NewOrdersPlaced && TrendRe==0)
{
if (flag)
{
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderTakeProfit() != PriceTarget)
ModifyOrder(Symbol(),OrderOpenPrice(),OrderStopLoss(), RoundToTickSize(PriceTarget), Yellow);
NewOrdersPlaced = FALSE;
}
}
}
}
return (0);
}
//��������������������������������������������������������������������������������������������������������������������������
int CountTrades(int m)
{
int count = 0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == m)
if (OrderType() == OP_SELL || OrderType() == OP_BUY)
count++;
}
return (count);
}
int LockTicket(int m) // ���������� ����� � ��������� �������� ����������
{
int t = 0;
datetime dt = 0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == m)
if (OrderType() == OP_SELL || OrderType() == OP_BUY)
if (dt < OrderOpenTime())
{
t = OrderTicket();
dt = OrderOpenTime();
}
}
return (t);
}
//��������������������������������������������������������������������������������������������������������������������������
void again()
{
timeprev = Time[1];
return (0);
}
void CloseThisSymbolAll(int mn) {
for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol()) {
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {
while (!IsTradeAllowed()) Sleep(1000);
if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
PrintF ("close ALL orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
}
}
}
//��������������������������������������������������������������������������������������������������������������������������
int OpenPendingOrder(int pType, double pLots, double pPrice, int pSlippage, double ad_24, int ai_32, int ai_36, string a_comment_40, int a_magic_48, int a_datetime_52, color a_color_56) {
int l_ticket_60 = 0;
int l_error_64 = 0;
int l_count_68 = 0;
int li_72 = 3;
pPrice=NormalizeDouble(pPrice,Digits);
switch (pType) {
case 2:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_BUYLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(1000);
}
break;
case 4:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_BUYSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 0:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
RefreshRates();
l_ticket_60 = OrderSend(Symbol(), OP_BUY, pLots, RoundToTickSize(Ask), pSlippage, StopLong(Bid, ai_32), TakeLong(Ask, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 3:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELLLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 5:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELLSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 1:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELL, pLots, RoundToTickSize(Bid), pSlippage, StopShort(Ask, ai_32), TakeShort(Bid, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
}
return (l_ticket_60);
}
double StopLong(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 - ai_8 * Point);
}
double StopShort(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 + ai_8 * Point);
}
double TakeLong(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 + ai_8 * Point);
}
double TakeShort(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 - ai_8 * Point);
}
double CalculateProfit()
{
double ld_ret_0 = 0;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
ld_ret_0 += OrderProfit();
}
return (ld_ret_0);
}
void TrailingAlls()
{
int total2=CountTrades(MagicNumber);
if (CalculateProfit()<=0 || total2==0) return(0);
double AveragePrice2 = 0;
double Count2 = 0;
int dir=-1;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
{
AveragePrice2 += OrderOpenPrice() * OrderLots();
Count2 += OrderLots();
if (OrderType() == OP_BUY) dir = 0;
if (OrderType() == OP_SELL) dir = 1;
}
}
}
if (total2 > 0)
{
AveragePrice2 = RoundToTickSize(AveragePrice2/Count2);
}
if (dir==0)
{
if (AveragePrice2>Bid-ProfitTrailDist*Point) return(0);
}
if (dir==1)
{
if (AveragePrice2<Bid+ProfitTrailDist*Point) return(0);
}
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderSymbol() == Symbol() || OrderMagicNumber() == MagicNumber)
{
if (UseTrailingStop == 1) TrailingStairs(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
if (UseTrailingStop == 2) TrailingStairs2(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
}
}
}
}
//+------------------------------------------------------------------+
//| �������� �����������-������������ |
//| ������� ��������� ����� �������, ���������� �� ����� ��������, |
//| �� ������� �������� ����������� (�������) � "���", � ������� �� |
//| ����������� (�������) |
//| ������: ��� +30 ���� �� +10, ��� +40 - ���� �� +20 � �.�. |
//+------------------------------------------------------------------+
void TrailingStairs(int ticket,int trldistance,int trlstep,double avg)
{
double nextstair; // ��������� �������� �����, ��� ������� ����� ������ ��������
// ��������� ���������� ��������
if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
{
Print("�������� �������� TrailingStairs() ���������� ��-�� �������������� �������� ���������� �� ����������.");
return(0);
}
// ���� ������� ������� (OP_BUY)
if (OrderType()==OP_BUY)
{
// �����������, ��� ����� �������� ����� ������� ��������������� ��������
// ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
if ((OrderStopLoss()==0))
nextstair = avg + trldistance*Point;
// ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
else
nextstair = OrderStopLoss() + trldistance*Point;
// ���� ������� ���� (Bid) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
if (Bid>=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
}
// ���� �������� ������� (OP_SELL)
if (OrderType()==OP_SELL)
{
// �����������, ��� ����� �������� ����� ������� ��������������� ��������
// ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
if ((OrderStopLoss()==0) )
nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
else
nextstair = OrderStopLoss() - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// ���� ������� ���� (���) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
if (Ask<=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
}
}
void TrailingStairs2(int ticket,int trldistance,int trlstep,double avg)
{
double nextstair; // ��������� �������� �����, ��� ������� ����� ������ ��������
// ��������� ���������� ��������
if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
{
Print("�������� �������� TrailingStairs() ���������� ��-�� �������������� �������� ���������� �� ����������.");
return(0);
}
// ���� ������� ������� (OP_BUY)
if (OrderType()==OP_BUY)
{
// �����������, ��� ����� �������� ����� ������� ��������������� ��������
// ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
if ((OrderStopLoss()==0))
nextstair = avg + trldistance*Point;
// ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
else
{double trl=(OrderStopLoss()-avg)/Point;
nextstair = OrderStopLoss() + xtral*trl*Point;}
// ���� ������� ���� (Bid) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
if (Bid>=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
}
// ���� �������� ������� (OP_SELL)
if (OrderType()==OP_SELL)
{
// �����������, ��� ����� �������� ����� ������� ��������������� ��������
// ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
if ((OrderStopLoss()==0) )
nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
else
{trl=(avg-OrderStopLoss())/Point;
nextstair = OrderStopLoss() - (trl*xtral + MarketInfo(Symbol(),MODE_SPREAD))*Point;
}
// ���� ������� ���� (���) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
if (Ask<=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
}
}
double AccountEquityHigh() {
if (CountTrades(MagicNumber) == 0) AccountEquityHighAmt = AccountEquity();
if (AccountEquityHighAmt < PrevEquity) AccountEquityHighAmt = PrevEquity;
else AccountEquityHighAmt = AccountEquity();
PrevEquity = AccountEquity();
return (AccountEquityHighAmt);
}
double FindMinBuyPrice() {
double l_ord_open_price_8;
double l_ticket_24;
double ld_unused_0 = 0;
double l_ticket_20 = 1000000000;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--)
{
if(OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_BUY)
{
l_ticket_24 = OrderOpenPrice();
if (l_ticket_24 < l_ticket_20)
{
l_ord_open_price_8 = OrderOpenPrice();
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
double FindMaxSellPrice()
{
double l_ord_open_price_8;
double l_ticket_24;
double ld_unused_0 = 0;
double l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--)
{
if(OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_SELL)
{
l_ticket_24 = OrderOpenPrice();
if (l_ticket_24 > l_ticket_20) {
l_ord_open_price_8 = OrderOpenPrice();
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
double GetLots()
{
double minlot=MarketInfo(Symbol(), MODE_MINLOT);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);
if(Risk!=0)
{
double lot = AccountBalance() * Risk/100 / 1000.0;
}
else lot=Lots;
if (lot<minlot) { lot=minlot; }
if (lot>maxlot) { lot=maxlot; }
int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10)));
lot = NormalizeDouble(lot,LotsDigits);
return(lot);
}
double LotSiz(double ltt)
{
double ls=0;
double minlot=MarketInfo(Symbol(), MODE_MINLOT);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);
int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10)));
ls = NormalizeDouble(ltt,LotsDigits);
if (ltt<minlot) { ls=minlot; }
if (ltt>maxlot) { ls=maxlot; }
//int LotsDigits = MathCeil(MathAbs(MathLog( MarketInfo(Symbol(),MODE_MINLOT))/MathLog(10)));
//���������� �������� ���� ����� ������� � ������� �������.
return(ls);
}
double PipStepX(int dir)
{
if (PipStep==0) double r=psarr[NumT()];
if (PipStep>0)r=PipStep;
return(r);
}
int TrenT()
{
int t=FillArray(MagicNumber);
// ����������� ������� ������� ������� � ���������� ����� �� ������ � ���� �� ������ �������� ��� ������ ������ � ������� �����
double minl1=10000;
if (Risk==0) minl1=Lots;
if (Risk>0)
{
for (int i=0;i<100;i++)
{
if (minl1>lota[i] && lota[i]>0) minl1=lota[i];
}
} // Risk
if (lota[ArrayMaximum(lota)]>minl1) { TrendRe=0;return(0);}
ModifTrendOrders();
TrendRe=1;
int ii=-1; int jj=-1; // ���� ���� ������� ��� � ���� ������ ���� �����
double lastb=0; double lasts=10000000;
// �������� ������� �� ������
for(int cnt=0;cnt<100;cnt++)
{
if (modea[cnt]==0 && opa[cnt]>lastb && opa[cnt]>0){lastb=opa[cnt];ii=cnt;}
if (modea[cnt]==1 && opa[cnt]<lasts && opa[cnt]>0){lasts=opa[cnt];jj=cnt;}
}
if (modea[0]==0)
{
if (Ask>=lastb+TrendPS*Point)
{
ticket=OrderSend(Symbol(),OP_BUY,minl1,NormalizeDouble(Ask,Digits),slip,0,0,"trend",MagicNumber,0,Green);
if (ticket>0)
{
ModifTrendOrders();
return(0);
}
}
}
if (modea[0]==1)
{
if (Bid<=lasts-TrendPS*Point)
{
ticket=OrderSend(Symbol(),OP_SELL,minl1,NormalizeDouble(Bid,Digits),slip,0,0,"trend",MagicNumber,0,Red);
if (ticket>0)
{
ModifTrendOrders();
return(0);
}
}
}
}
int FillArray(int mn1) // ��������� �������� ���� ������� ������� �������� �� ������� �����������
{
ArrayInitialize(lota,-1);
ArrayInitialize(modea,-1);
ArrayInitialize(opa,-1);
ArrayInitialize(sla,-1);
ArrayInitialize(tpa,-1);
ArrayInitialize(tima,-1);
ArrayInitialize(ticka,-1);
ArrayInitialize(profa,-0.001);
int c=0;
int total = OrdersTotal();
for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol())
{
lota[c]=OrderLots();
modea[c]=OrderType();
opa[c]=OrderOpenPrice();
sla[c]=OrderStopLoss();
tpa[c]=OrderTakeProfit();
comma[c]=OrderComment();
tima[c]=OrderOpenTime();
ticka[c]=OrderTicket();
profa[c]=OrderProfit()+OrderCommission()+OrderSwap();
c++;
}
}
// for (cnt=0;cnt<to;cnt++) { PrintF(lota[cnt]," ", modea[cnt], " ", opa[cnt], " ", sla[cnt], " ", tpa[cnt], " ", tima[cnt], " ", ticka[cnt] ); }
return(c);
}
int ModifTrendOrders()
{
if (ProfitPerc>0)
{
int zk=0;
for (int i=0;i<OrdersTotal();i++)
{
if (profa[i]!=-0.001) zk=zk+profa[i];
}
if (zk>=AccountBalance()*ProfitPerc/100)
{
CloseThisSymbolAll(MagicNumber);
}
}
if (MinProfitPips>0)
{
double nf=0; double mpric=0;int k=0;
nf=nulfunc(MagicNumber);
double allpro=0;
if (modea[0]==0)
{
double a1=nf+(MinProfitPips+1)*Point;
for (i=0;i<100;i++)
{
if (opa[i]>mpric) mpric=opa[i];
if (profa[i]!=-0.001) allpro=allpro+profa[i];
if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;
/* if ((opa[i]<=Bid-TrendPS*1.5*Point) && (sla[i]<Bid-TrendPS*Point) && opa[i]>0 && Bid-TrendPS*Point<Bid-MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1>Bid-TrendPS*Point)
{
if (ticka[i]>0)
{
OrderSelect(ticka[i],SELECT_BY_TICKET);
if (OrderStopLoss()!=mpric-TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric-TrendPS*Point,OrderTakeProfit(),Green); }
}
}*/
}//a1+TrendPS*Point>=Bid &&
if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades(MagicNumber)>NumTr) ClosePlusOrders(k);
// if (mpric>a1+TrendPS*Point && Bid<=a1 && k>=NumTr && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);
} // modea==0
if (modea[0]==1)
{mpric=1000000000;k=0;
a1=nf-(MinProfitPips+1)*Point;
for (i=0;i<100;i++)
{
if (opa[i]<mpric) mpric=opa[i];
if (profa[i]!=-0.001) allpro=allpro+profa[i];
if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;
/* if ((opa[i]>=Ask+TrendPS*1.5*Point) && (sla[i]>Ask+TrendPS*Point || sla[i]==0) && opa[i]>0 && Ask+TrendPS*Point>Ask+MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1<Ask+TrendPS*Point)
{
if (ticka[i]>0)
{
OrderSelect(ticka[i],SELECT_BY_TICKET);
if (OrderStopLoss()!=mpric+TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric+TrendPS*Point,OrderTakeProfit(),Red); }
}
}*/
}//a1-TrendPS*Point<=Ask &&
if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades(MagicNumber)>NumTr) ClosePlusOrders(k);
//if (mpric<a1-TrendPS*Point && Ask>=a1 && k>=NumTr && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);
} // modea==1
}
return(0);
}
double FindMaxLots()
{
double maxLots = 0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
maxLots = MathMax(maxLots, OrderLots());
}
return (maxLots);
}
double nulfunc(int mn) // ��� �������� ����� �������������� ���� �������� ������� (���� ��� �� ������� �� ���� ���� �� ������� 0)
{
double np=0;
double f=0;
double p=0;
double l=0;
int m=0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
{
m = OrderType();
p=OrderOpenPrice();
l=OrderLots();
if (m == OP_BUY)
l=-l;
if ((m == OP_BUY || m == OP_SELL) && OrderMagicNumber() == mn && OrderSymbol() == Symbol())
{
np = np + l * p;
f = f + l;
}
}
}
if (f!=0) np = NormalizeDouble(MathAbs(np/f), Digits);
return (np);
}
int PercCloseDown()
{
if (PercClose!=0 && PercDown!=0 && total>0)
{
double Pr11 = 0;
int oti = 2147483647;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
Pr11 = Pr11 + OrderProfit()+OrderCommission()+OrderSwap();
oti = MathMin(oti, OrderTicket());
}
}
if (FirstTr<oti) {FirstTr=oti;LastDD=0;}
if (LastDD>Pr11 && Pr11<0) {LastDD=Pr11;}
if (MathAbs(LastDD)>PercDown*AccountBalance()/100 && MathAbs(Pr11)<=PercClose*AccountBalance()/100) {LastDD=0;FirstTr=0;CloseThisSymbolAll(MagicNumber);}
}
}
int ProfitMonitor()
{
int total1 = CountTrades(MagicNumber);
double AveragePrice1 = 0;
double Count1 = 0;
double Profit1=0;
double ProfitPoint=0;
int dir = -1;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
{
AveragePrice1 += OrderOpenPrice() * OrderLots();
Count1 += OrderLots();
Profit1+= OrderProfit();
if (OrderType() == OP_BUY) dir=0;
if (OrderType() == OP_SELL) dir=1;
}
}
}
if (total1 > 2)
{
AveragePrice1 = NormalizeDouble(AveragePrice1 / Count1, Digits);
int ProfitPips=0;
if (TakeProfit==0) ProfitPips=tparr[NumT()];
if (TakeProfit!=0) ProfitPips=TakeProfit;
if (total1>LastTrade) ProfitPips=TakeProfitLast;
if (dir==0 && TrendRe==0) {ProfitPoint=AveragePrice1+ProfitPips*Point;if (Bid>=ProfitPoint) CloseThisSymbolAll(MagicNumber); }
if (dir==1 && TrendRe==0) {ProfitPoint=AveragePrice1-ProfitPips*Point;if (Ask<=ProfitPoint) CloseThisSymbolAll(MagicNumber); }
}
}
//+----------------------------------------------------------------------------+
//| ����������� ������ |
//| ���������: |
//| sy - ������������ ����������� ("" - ������� ������) |
//| pp - ���� �������� �������, ��������� ������ |
//| sl - ������� ������� ����� |
//| tp - ������� ������� ����� |
//| cl - ���� |
//+----------------------------------------------------------------------------+
void ModifyOrder(string sy="", double pp=-1, double sl=0, double tp=0, color cl=CLR_NONE) {
if (sy=="") sy=Symbol();
bool fm;
int NumberOfTry=1;
int PauseAfterError=10;
double pAsk=MarketInfo(sy, MODE_ASK);
double pBid=MarketInfo(sy, MODE_BID);
int dg, err, it;
if (pp<=0) pp=OrderOpenPrice();
if (sl<0) sl=OrderStopLoss();
if (tp<0) tp=OrderTakeProfit();
dg=MarketInfo(sy, MODE_DIGITS);
pp=RoundToTickSize(pp);
sl=RoundToTickSize(sl);
tp=RoundToTickSize(tp);
if (pp!=OrderOpenPrice() || sl!=OrderStopLoss() || tp!=OrderTakeProfit()) {
for (it=1; it<=NumberOfTry; it++) {
if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) break;
while (!IsTradeAllowed()) Sleep(5000);
RefreshRates();
if (NormalizeDouble(tp,Digits)!=OrderTakeProfit()) fm=OrderModify(OrderTicket(), NormalizeDouble(pp,Digits), NormalizeDouble(sl,Digits), NormalizeDouble(tp,Digits), 0, cl);
if (fm) {
//if (UseSound) PlaySound(NameFileSound); break;
} else {
err=GetLastError();
PrintF("Error("+err+") modifying order: try "+it);
PrintF("Ask="+pAsk+" Bid="+pBid+" sy="+sy+" op="+OrderType()+
" pp="+pp+" sl="+sl+" OrderStopLoss() "+OrderStopLoss()+" tp="+tp+" OrderTakeProfit "+OrderTakeProfit());
Sleep(1000*PauseAfterError);
}
}
}
}
//+----------------------------------------------------------------------------+
int ClosePlusOrders(int kk)
{
for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol())
{
if (OrderMagicNumber() == MagicNumber && OrderProfit() + OrderSwap() > 0)
{
if (OrderType() == OP_BUY && OrderOpenPrice()+MinProfitPipsOne*Point<=Ask && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
if (OrderType() == OP_SELL && OrderOpenPrice()-MinProfitPipsOne*Point>=Bid && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
PrintF ("close plus orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
while (!IsTradeAllowed()) Sleep(1000);
RefreshRates();
}
}
}
int PrintF (string s)
{
if (ComOn == 1) Print(s);
}
double RoundToTickSize(double price)
{
return(NormalizeDouble(MathRound(price/MarketInfo(Symbol(), MODE_TICKSIZE))*MarketInfo(Symbol(), MODE_TICKSIZE), MarketInfo(Symbol(), MODE_DIGITS)));
}
int NumT() // ����������� ������ ������� ������
{
int nmax = 0;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
if (StringFind(OrderComment(), "trend") == -1)
nmax = nmax+1;
}
return(nmax);
}
void CloseThisSymbolAll2() {
for (int trade = 0; trade <= 99; trade++) {
OrderSelect(ticka[trade], SELECT_BY_TICKET, MODE_TRADES);
if (OrderSymbol() == Symbol()) {
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
while (!IsTradeAllowed()) Sleep(1000);
RefreshRates();
if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
PrintF ("close ALL orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
}
}
}
int Dir(int mn)
{
int r=-1;
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
{
if (OrderType() == OP_BUY)
r=1;
else if (OrderType() == OP_SELL)
r=-1;
}
}
}
return(r);
}
double Balance(int mn)
{
double result=0, FProf = 0;
int trade;
for(trade=OrdersTotal()-1;trade>=0;trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==mn)
result += OrderProfit() - OrderSwap() - OrderCommission();
}
return(result);
}
double CountLots(int mn)
{
double lots = 0;
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
if (OrderType() == OP_SELL || OrderType() == OP_BUY)
lots += OrderLots();
}
return (lots);
}
void LoadHist()
//---------��� ����� ���� �� ����������� ����� �������� BigGun c fx4u.ru
{
int iPeriod[9];
iPeriod[0]=1;
iPeriod[1]=5;
iPeriod[2]=15;
iPeriod[3]=30;
iPeriod[4]=60;
iPeriod[5]=240;
iPeriod[6]=1440;
iPeriod[7]=10080;
iPeriod[7]=43200;
for (int iii=0;iii<9;iii++)
{
double open = iTime(Symbol(), iPeriod[iii], 0);
int error=GetLastError();
while(error==4066)
{
Print("Error 4066: Data for symbol = ", Symbol(), " period = ", iPeriod[iii], " not loaded. Loading data...");
Sleep(10000);
open = iTime(Symbol(), iPeriod[iii], 0);
error=GetLastError();
}
}
}
void BeginLockTrade()
{
int ct=NumT();
int ol=0;
int ld=Dir(MagicNumber); // ���������� ����������� ����� 1(b) ��� -1(s)
int lm=LockTicket(LMagN); // ��������� ���� �� � ����� ��� �������� ������� ������
if (lm<=0) stoptrade2l=0;
int lt=CountTrades(LMagN);
if (lm<=0 && ct>=NumLoc) ol=1;// ������� ������� ������ ��� NumLoc
if (lm<=0 && MaxDist<=FODist(MagicNumber,"max")) ol=1;// ���� ���� �� ������� � ����� ������ �� �������� ������ ��� MaxDist
if (lm<=0 && ct>=NumLockMin && alertl()==-ld && alertl2()==-ld) ol=1; // ������� ������� ������ ��� NumLockMin � ������ ��������� ���� ������ �������� � ������ �������
if (ol==0 && lm>0 && lt<MaxLockTrades) // ���������� �����������
{
// ���������� ��������� �����
OrderSelect(lm,SELECT_BY_TICKET,MODE_TRADES);
// ���������� ���������� � ���������� ����� �����
if (OrderType()==OP_BUY)
{
if ((OrderOpenPrice()-Bid)/Point>=koridor)
int gi_328 = OpenPendingOrder(1, LotSiz(OrderLots()*Lmul), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Yellow);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0); }
}
if (OrderType()==OP_SELL)
{
if ((Ask-OrderOpenPrice())/Point>=koridor)
gi_328 = OpenPendingOrder(0, LotSiz(OrderLots()*Lmul), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
}
}
if (ol==1) // ��������� ������ ������� �����
{
double al=CountLots(MagicNumber);
int lll=0;
//if (LastLPrice+MinLP*Point<Ask || LastLPrice-MinLP*Point>Bid || LastLPrice==0) lll=1;
// Print (" ct ",ct," ld ",ld," al ",al," a ",a );
if (ld==1)
{
ClLock =0;
gi_328 = OpenPendingOrder(1, LotSiz(LockS*al), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Red);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0); }
if (TradeAfterLock==0) stoptrade2l=1;
}
if (ld==-1)
{
ClLock =0;
gi_328 = OpenPendingOrder(0, LotSiz(LockS*al), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
if (TradeAfterLock==0) stoptrade2l=1;
}
}
} // BeginLockTrade
void ControlLock()
{
int lm=LockTicket(LMagN); // ��������� ���� �� � ����� ��� �������� ������� ������
if (lm<=0) stoptrade2l=0;
int lt=CountTrades(LMagN);
if (lm>0) // ��������� ���� �� ��������� ���
{
double b=Balance(LMagN)+Balance(MagicNumber);
double xb=AccountBalance()/100*LockProfitPerc;
if (b>0 && b>=xb) {CloseThisSymbolAll(LMagN);CloseThisSymbolAll(MagicNumber);}
}
} // ControlLock
int FODist(int mn, string ex) // ���������� ���������� � ������� �� ������ �������� ������ � ���� ������ ��������
{
double rs = 0;
double rs1 = 0;
if (ex == "max")
rs = 0;
if (ex == "min")
rs=10000000000000;
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
if (OrderType() == OP_SELL || OrderType() == OP_BUY)
{
rs1 = NormalizeDouble(MathAbs((Ask+Bid)/2-OrderOpenPrice())/Point,0);
if (ex == "max")
rs = MathMax(rs, rs1);
else if (ex == "min")
rs = MathMin(rs, rs1);
}
}
return(rs);
}
int alert(int d6)
{
if (IndOff1) return(d6);
static int x_r1;
static datetime timeprev_r1;
if (timeprev_r1 == iTime(NULL,mper[TFS],0)) return (x_r1);
timeprev_r1 = iTime(NULL,mper[TFS],0);
x_r1 = 0;
string ind_name = "i-Regr";
double ma3=0;
double ma = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 0);
double ma1 = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 1);
if (invert==1) {ma3=ma;ma=ma1;ma1=ma3;}
if (kanal==0)
{
if (ma>ma1) x_r1=1;
if (ma<ma1) x_r1=-1;
}
else
{
double m_up = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,1, 0);
double m_d = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,2, 0);
if (kanal == 1)
{
if (ma>ma1 && Bid>m_d) x_r1 = 1;
if (ma<ma1 && Ask<m_up) x_r1 = -1;
}
else if (kanal == 2)
{
if (ma>ma1 && Bid>m_d && Ask<m_up ) x_r1 = 1;
if (ma<ma1 && Ask<m_up && Bid>m_d ) x_r1 = -1;
}
}
return(x_r1);
}
int alerts(int d6)
{
if (IndOff2) return(d6);
static int x_r2;
static datetime timeprev_r2;
if (timeprev_r2 == iTime(NULL,mper[TFSmall],0)) return (x_r2);
timeprev_r2 = iTime(NULL,mper[TFSmall],0);
x_r2 = 0;
string ind_name = "i-Regr";
double ma = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 0);
double ma1 = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 1);
double m_up = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,1, 0);
double m_d = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,2, 0);
if (ma>ma1 && Bid>m_d && Ask<m_up ) x_r2=1;
if (ma<ma1 && Ask<m_up && Bid>m_d ) x_r2=-1;
return(x_r2);
}
int alertl()
{
static int x_tm;
static datetime timeprev_TM;
if (timeprev_TM == iTime(NULL,mper[TMTF],0)) return (x_tm);
timeprev_TM = iTime(NULL,mper[TMTF],0);
x_tm = 0;
string ind_name = "TrendMagic";
double ma = iCustom(NULL, mper[TMTF], ind_name, CCPeriod, ATRPeriod, 0, 0);
double ma1 = iCustom(NULL, mper[TMTF], ind_name, CCPeriod, ATRPeriod, 1, 0);
if (ma!=EMPTY_VALUE) x_tm = 1;
if (ma1!=EMPTY_VALUE) x_tm = -1;
return(x_tm);
}
int alertl2()
{
static int x_r3;
static datetime timeprev_r3;
if (timeprev_r3 == iTime(NULL,mper[TFSmall],0)) return (x_r3);
timeprev_r3 = iTime(NULL,mper[TFSmall],0);
x_r3 = 0;
string ind_name = "i-Regr";
double ma = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 0);
double ma1 = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 1);
if (ma>ma1) x_r3=1;
if (ma<ma1) x_r3=-1;
return(x_r3);
}