ilan_rsi_mm_extr19.mq4

extern string ?2= "???????? ????????";
extern double LotExponent = 1.4;  // 
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}; //
extern double TakeProfit = 30;  //
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}; // 
extern double PipStep = 30;     //
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;         // 
extern double Risk = 0.5;          // 
extern double LastTrade=100; // 
extern double TakeProfitLast = 10.0;  //
extern double LasTradeSize=17; // 
extern int    MaxTrades = 50;                // 

extern string s11 ="????????? ?????? ?? ?????";
extern double TrendPS = 11;     //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;     // 

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 %

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= "????????? ????";

extern double LockS=1.7; // ???????? ?????????? ????? ??????? ? ???????? ?????????????? ???????, ???? =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 --- ? ??????? ???????? ??????????? ?????????? ?????";

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 = 800; // ?????? ?????
extern int TFS=7;     // ????????? ?? ??????? ???????? ?????????, 
extern int invert=0; // ???? = 0 ?? ?? ??????, ???? =1 ?? ???????? ?????? ??????????? ??????, ????? ???????????? ? ?????

extern string _tmp3_ = " --- i-Regr --- ? ????? ????????";

extern bool IndOff2=false; // ?????????? ????????? ??? = TRUE
extern int Regr.degree1mall = 3; // ??????? ????????? 
extern double Regr.kstd1mall = 1.5; // ?????? ??????, ???? =0 ?? ???????? ?????? ??????? ?????
int Regr.shift1mall = 0; // ???????? ???????????? ???????? ????
extern int SPermall = 150; // ?????? ?????
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; // ????? ?????? ?????????? ?????? ?????????? ????                         //| ?? ??????? ???????? ??????????? (???????) ? "???", ? ??????? ?? ??????????? (???????)   |

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;

int init() {
      // код доступен только после оплаты
   }

int deinit() {
   return (0);
}

int start() {
      // код доступен только после оплаты
   }

int CountTrades(int m) {
   int count = 0;
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
      OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != m) continue;
      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--) {
      OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != m) continue;
      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--) {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
      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--) {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
      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) continue;
            if (OrderSymbol() == Symbol() || OrderMagicNumber() == MagicNumber) 
              {
              if (UseTrailingStop==1) TrailingStairs(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
              if (UseTrailingStop==2) TrailingStairs2(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
              }
            }

          }
      }

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);
      } 

   if (OrderType()==OP_BUY)
      {

      if ((OrderStopLoss()

Показано первые 50% кода (символов: 37672)