Graal-003(2)

//+------------------------------------------------------------------+
//|                                                    Graal-003.mq4 |
//|                                        Copyright © 2005, Registr |
//|                                                  Exsys@pochta.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Registr"
#property link      "Exsys@pochta.ru"
//----
#import "user32.dll"
   int MessageBoxA(int hWnd ,string lpText,string lpCaption,int uType);
#import "Registr.dll"
   string jLeft(string InStr,int Number);
   string jRight(string InStr,int Number);
   string jTrimAll(string InStr);
   string jTrimLeft(string InStr);
   string jTrimRight(string InStr);
   int    jLen(string InStr);
   string jCopy(string InStr,int Ind,int Count);
   int    jPos(string SubInStr,string InStr);
   string jGetProgramName();
   string jGetProgramDir(string ProgName);
   string jGetCurrDir();
   bool   jFileExists(string FileName);
   string jFileExt(string FileName);
   void   jDeleteLogs(string FolderName);
#import
//----
#include <stdlib.mqh>
//---- input parameters
extern double    Lots       =0.1;
extern int       TakeProfit=500;
extern int       StopLoss  =500;
extern int       Limit    =5;     // Óðîâåíü óñòàíîâêè îòëîæåííîãî îðäåðà
extern int       ProfitLevel= 30; // Îáùèé ïðîôèò äëÿ âñåõ ïîçèöèé ïðè êîòîðîì îíè çàêðûâàþòñÿ
extern int       ModeOpeningOfWarrants=1;
/* Ðåæèì óñòàíîâêè îðäåðîâ: 0 - ñíà÷àëà îòêðûâàþòñÿ ïîçèöèè, çàòåì óñòàíàâëèâàòñÿ îòëîæåííûå îðäåðà,
   1 - ñíà÷àëà óñòàíàâëèâàòñÿ îòëîæåííûå îðäåðà, çàòåì îòêðûâàþòñÿ ïîçèöèè, 2 - îòêðûâàþòñÿ òîëüêî 
   ïîçèöèè, 3 - óñòàíàâëèâàòñÿ òîëüêî îòëîæåííûå îðäåðà */
extern int       ModeClosingOfWarrants=1;
/* Ðåæèì çàêðûòèÿ îðäåðîâ: 0 - îðäåðà çàêðûâàòñÿ â ñìåøàííîì ïîðÿäêå ïî ïðèíöèïó ÔÈÔÎ ( ïîñëåäíèì
   îòêðûëñÿ, ïåðâûì çàêðûëÿ, 1 - ñíà÷àëà çàêðûâàþòñÿ îòêðûòûå ïîçèöèè, çàòåì îòëîæåííûå îðäåðà, 
   2 - ñíà÷àëà çàêðûâàþòñÿ îòëîæåííûå îðäåðà, çàòåì îòêðûòûå ïîçèöèè, 3 - òî æå ñàìîå, ÷òî 2 íî,
   îòëîæåííûå îðäåðà çàêðûâàþòñÿ â îáðàòíîì ïîðÿäêå(íå ðåàëèçîâàíî)*/
extern bool OpenOnlyOnDepthOfFChannel=false; /*Ðàçðåøàåò ñîâåòíèêó îòêðûâàòü ïîçèöèè òîëüêî íà ãëóáèíå 
ôðàêòàëüíîãî êàíàëà*/
extern int  DepthOfFChannel=25; /*Ãëóáèíà ôðàêòàëüíîãî êàíàëà íà êîòîðîé îòêðûâàþòñÿ îðäåðà, â ïðîöåíòàõ, ïðè 
çíà÷åíèè ðàâíîìó íóëþ êàíàë îòîáðàæàåòñÿ, íî ôèëüòð íå ðàáîòàåò*/
extern bool ReferenceOnChannel_HL=false; /*Ðàçðåøàåò ñîâåòíèêó îðåèíòèðîâàòüñÿ íà êàíàë High-Low, ýòî îçíà÷àåò,
÷òî ñîâåòíèê íå áóäåò îòêðûâàòü ïîçèöèþ Buy, åñëè öåíà íèæå óðîâíÿ îðåèíòàöèè Low, è íàîáîðîò*/
extern int  LevelOrientationOnChannel_HL=20; /*Óðîâåíü îðåèíòàöèè â ïðîöåíòàõ îò êàíàëà High-Low, ïðè çíà÷åíèè
ðàâíîìó íóëþ êàíàë îòîáðàæàåòñÿ, íî ôèëüòð íå ðàáîòàåò*/
extern bool ToTradeInFlat=true; /*Ðàçðåøàåò èëè çàïðåùàåò ñîâåòíèêó òîðãîâàòü âî ôëýòå*/
extern int  LevelChannel_HLForFlat=20; /*Óðîâåíü êàíàëà High-Low, ïðè êîòîðîì òåíäåíöèÿ ñ÷èòàåòñÿ ôëýòîì*/
extern bool UseWPRInClosePositions=false; /*Èñïîëüçîâàòü ëè èíäèêàòîð WPR â ïðèíÿòèå ðåøåíèÿ î çàêðûòèè îðäåðîâ*/
extern int  ControlLevelWPR=30; /*Êîíòðîëüíûé óðîâåíü èíäèêàòîðà WPR*/
extern bool ToExposeContrwarrants=false; /*Âûñòàâëÿòü êîíòðîðäåðà ïðè ñðàáàòûâàíèè îòëîæåííûõ îðäåðîâ*/
extern bool OnlyOnePosition=false; 
/* Äîïîëíèòåëüíàÿ íàñòðîéêà, êîòîðóþ ââîæó ïðÿìî ñ êîë¸ñ, ïîýòîìó â 
   èíôîðìàöèîííîì òàáëî îíà íå îòîáðàæàåòñÿ. Ðàçðåøàåò èëè çàïðåùàåò ñîâåòíèêó îòêðûâàòü òîëüêî îäèí
   îðäåð Buy è îäèí îðäåð Sell, â êàæäîé ñåññèè. Áóäåò ðàáîòàòü, òîëüêî ïðè ðàçðåøåíèè âûñòàâëÿòü êîíòðîðäåðà,
   ò.ê. â ïðîòèâíîì ñëó÷àå òåðÿåòñÿ ñìûñë èäåè. Ñîáñòâåííî, â äàëüíåéøåì, òîðãîâëÿ óæå âåä¸òñÿ íà îòëîæåííûõ îðäåðàõ...*/
extern bool      DeleteLogsOnClose=false; /*Ñòèðàòü âñå log-ôàéëû, ñîçäàâàåìûå ÌÒ4, ïðè çàâåðøåíèè ðàáîòû òåðìèíàëà*/
/* ýòîì ñëó÷àå, êàòàëîã ÌÒ4 íå áóäåò ðàçðàñòàòüñÿ äî ãèãàáàéòîâ*/
extern bool      EraseOldFileOfReport=true; /*Ñòèðàòü ñòàðûé ôàéë ïðîòîêîëà, åñëè ôàéë FileNameOfReport óæå ñóùåñòâóåò*/
extern string    FileNameOfReport; /*Íàçâàíèå ôàéëà ïðîòîêîëà*/
extern bool      UseSoundInOperations=false; /*Èñïîëüçîâàòü çâóêîâîå ñîïðîâîæäåíèå òîðãîâûõ îïåðàöèé*/
extern string    SoundOpenBuy="OpenBuy.wav"; /*Çâóê ïðè îòêðûòèè îðäåðà Buy*/
extern string    SoundOpenSell="OpenSell.wav"; /*Çâóê ïðè îòêðûòèè îðäåðà Sell*/
extern string    SoundOpenBuyStop="OpenBuyStop.wav"; /*Çâóê ïðè âûñòàâëåíèè îðäåðà BuyStop*/
extern string    SoundOpenSellStop="OpenSellStop.wav"; /*Çâóê ïðè âûñòàâëåíèè îðäåðà SellStop*/
extern string    SoundClosing="ClosePositions.wav"; /*Çâóê ïðè çàêðûòèè âñåõ îðäåðîâ*/
//----
static int magicNumber=123456;
static string NameOfExpert="Graal-003";
static datetime prev_min=D'1.1.1'; // âðåìÿ ïðåäûäóùåãî ôðàêòàëüíîãî ìèíèìóìà
static datetime prev_max=D'1.1.1'; // âðåìÿ ïðåäûäóùåãî ôðàêòàëüíîãî ìàêñèìóìà
//----
bool AllowTrade,OpenBuy,OpenSell,StopWorkOfExpert,beginning,WorkWPR;
bool TrendUp,TrendDn,SignalOnClosing,CheckClose,LockForClose;
datetime PrevTime,TimeOfClosing;
int CountBars,jk,CountSessions,CountOperations,CountOrders,CountBuy,CountSell;
int PerHL,TotalBuyStop,CountBuyStop,TotalSellStop,CountSellStop,MaximalDrawdown;
double iFractals_up,iFractals_lo,PrevPrice,FractalPrevUp,FractalPrevDn,UseOfDeposit;
double ChannelHLClose,MidLine,MaxH,MinL,SubMaxH,SubMinL,FChannel;
double CollectorBuy,CollectorSell,SubFractalUp,FractalUp,SubFractalDn,FractalDn;
double InfoOpenOrders[][4];
string FlagFractal;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   int buffer;
   //bool
   AllowTrade=true;OpenBuy=false;OpenSell=false;StopWorkOfExpert=false;beginning=true;
   WorkWPR=false;TrendUp=false;TrendDn=false;SignalOnClosing=false; CheckClose=false;
   LockForClose=true;
   //datetime
   PrevTime=Time[0];TimeOfClosing=0;
   //int
   CountBars=0;jk=0;CountSessions=0;CountOperations=0;CountOrders=0;CountBuy=0;CountSell=0;
   MaximalDrawdown=0;PerHL=14;TotalBuyStop=0;CountBuyStop=0;TotalSellStop=0;CountSellStop=0;
   //double
   iFractals_up=0;iFractals_lo=0;PrevPrice=0;FractalPrevUp=0;FractalPrevDn=0;UseOfDeposit=0;
   CollectorBuy=0;CollectorSell=0;SubFractalUp=0;FractalUp=0;SubFractalDn=0;FractalDn=0;
   //string
   FlagFractal="";
//----
   string StrYear=(CharToStr(50)+CharToStr(48)+CharToStr(48)+CharToStr(54));
   string StrMonth=(CharToStr(51));
   int YearWork=StrToInteger(StrYear),MonthWork=StrToInteger(StrMonth);
   if(TimeYear(CurTime())>=YearWork)
     {//001
      if((TimeMonth(CurTime())>MonthWork)||(TimeYear(CurTime())>YearWork))
        {//002
         Alert("Ñðîê äåéñòâèÿ ñîâåòíèêà èñò¸ê!");
         StopWorkOfExpert=true;return(0);
        }//002
     }//001
   if(!IsTesting())
     {
      ObjectsDeleteAll(WindowOnDropped());
      Comment("");
      if((!IsDllsAllowed())||(!IsLibrariesAllowed()))
        {
         Alert("Äëÿ ðàáîòû ýêñïåðòà íåîáõîäèìî ðàçðåøèòü èìïîðò ôóíêöèé",
          "\n"+"èç âíåøíèõ è dll áèáëèîòåê! Ðàáîòà ýêñïåðòà íå âîçìîæíà!");
         StopWorkOfExpert=true;return(0);
        }
      if(!IsTradeAllowed())
        {
         MessageBoxA(WindowHandle(Symbol(),0),
         "Ñîâåòíèêó íå ðàçðåøåíî òîðãîâàòü! Â ñâîéñòâàõ ñîâåòíèêà ïîñòàâüòå"
         +"\n"+"ãàëî÷êó íà ïðîòèâ îïöèè - \" ÐÀÇÐÅØÈÒÜ ÑÎÂÅÒÍÈÊÓ ÒÎÐÃÎÂÀÒÜ \"."
         ,"Ñîâåòíèêó "+NameOfExpert+" òîðãîâëÿ íå ðàçðåøåíà!",16);
         StopWorkOfExpert=true;return(0);
        }
      Sleep(2000);
      PlaySound("Money.wav");
      buffer=ToInformTheUser();
      if(buffer==2) { StopWorkOfExpert=true;return(0); }
      if(!IsConnected())
        {
         Alert("Îòñóòñòâóåò ñîåäèíåíèå ñ ñåðâåðîì! Ðàáîòà ñîâåòíèêà ïðèîñòàíîâëåíà!");
        }
     }
   else
     {
      Alert("Âíèìàíèå! Â òåñòåðå ìíîãèå ôóíêöèè íå ðàáîòàþò!");
     }

   if(StringLen(FileNameOfReport)==0) { FileNameOfReport=("Report"+Symbol()+Period()); }
   if(EraseOldFileOfReport) { FileDelete(FileNameOfReport); }
   //
   Print("Âûïîëíåí áëîê init");
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   if(!IsTesting())
     {
      ObjectsDeleteAll(WindowOnDropped());
      Comment("");
     }
   WriteLineInFile(FileNameOfReport,GetCurRusTime()
   +"Îêîí÷àíèå ðàáîòû ñîâåòíèêà "+NameOfExpert);
   if(DeleteLogsOnClose)
     {
      jDeleteLogs(jGetCurrDir()+"\\experts\logs");
      jDeleteLogs(jGetCurrDir()+"\\tester\logs");
     }
   Print("Âûïîëíåí áëîê deinit");
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   //if ((Year()<2005) || (Month()<10)) return (0);
   if(StopWorkOfExpert) return(0);
   bool NewBar=false;int i,size;
   //êîíòðîëüíàÿ ìåòêà
   int a=0; int b=0; int c=0;
   if(a==b)
     {//?
      c=a+b;
     }//?
   if(beginning)
     {
      WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íà÷àëî ðàáîòû ñîâåòíèêà "+NameOfExpert);
      if(IsTesting())WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Âíèìàíèå! Â òåñòåðå ìíîãèå ôóíêöèè íå ðàáîòàþò!");
      WriteLineInFile(FileNameOfReport,"");
      CountSessions++;
      WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íà÷àëî òîðãîâîé ñåñèè ¹"+CountSessions);
      WriteLineInFile(FileNameOfReport,"");
      beginning=false;
     }
   if(!IsTesting()&&(jk<3))
     {
      if(CalculationOfWarrants(Symbol(),0,8,0)>0)
        {
         int answer=InfoByOpenOrders();jk=3;
         if(answer==6) { StopWorkOfExpert=true;return(0); }
        }
      jk++;
     }
   if (Time[0]!=PrevTime)
     {
      CountBars++;
      NewBar=True;
      PrevPrice=0;
      PrevTime=Time[0];
     }
   if((CountBuyStop>CalculationOfWarrants(Symbol(),0,4,0))||
      (CountSellStop>CalculationOfWarrants(Symbol(),0,5,0)))
     {
      int resSS=0,resSB=0,intSize=0;
      size=ArrayRange(InfoOpenOrders,0);
      for(i=0;i<size;i++)
        {
         if(OrderSelect(InfoOpenOrders[i][0],SELECT_BY_TICKET))
           {
            if(OrderType()==InfoOpenOrders[i][2]) continue;
            else
              {
               switch(OrderType())
                 {
                  case OP_BUY:
                     CountOperations++;
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Òîðãîâàÿ îïåðàöèÿ ¹"+CountOperations);
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()
                     +"Ñðàáîòàë îðäåð BuyStop òèêåò "+DoubleToStr(InfoOpenOrders[i][0],0)
                     +" âíóòðåííèé ¹"+DoubleToStr(InfoOpenOrders[i][1],0)+" íà îòìåòêå: "
                     +DoubleToStr(InfoOpenOrders[i][3],Digits));
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()
                     +"Îòêðûòà ïîçèöèÿ Buy òèêåò "+DoubleToStr(InfoOpenOrders[i][0],0)
                     +" âíóòðåííèé ¹"+DoubleToStr(InfoOpenOrders[i][1],0)+" ïî öåíå: "
                     +DoubleToStr(InfoOpenOrders[i][3],Digits));
                     InfoOpenOrders[i][2]=OP_BUY;
                     FlagFractal="buy";
                     CountBuyStop--;
                     UseOfDeposit=UseOfDeposit+((NormalizeDouble(Ask,Digits)*1000)*OrderLots());
                     if(ToExposeContrwarrants&&AllowTrade)
                       {
                        WriteLineInFile(FileNameOfReport,"Ðàçðåøåíî âûñòàâëåíèå êîíòðîðäåðîâ!");
                        CountOrders++;
                        resSS=PerformanceOpenSellStop(Symbol(),Lots,(FractalDn-(Limit*Point)),5,StopLoss,TakeProfit,
                        CountOrders+" SellStop "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenSellStop);
                        if(resSS>0)
                          {
                           CountSellStop++;TotalSellStop++;
                           intSize=ArrayRange(InfoOpenOrders,0);
                           ArrayResize(InfoOpenOrders,size+1);
                           InfoOpenOrders[intSize][0]=resSS;
                           InfoOpenOrders[intSize][1]=CountOrders;
                           InfoOpenOrders[intSize][2]=OP_SELLSTOP;
                           InfoOpenOrders[intSize][3]=NormalizeDouble((FractalDn-(Limit*Point)),Digits);
                          }
                        else
                          {
                           WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûñòàâèòü îòëîæåííûé êîíòðîðäåð!");
                           CountOrders--;
                          }
                       }
                     WriteLineInFile(FileNameOfReport,"");
                     break;
                  case OP_SELL:
                     CountOperations++;
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Òîðãîâàÿ îïåðàöèÿ ¹"+CountOperations);
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()
                     +"Ñðàáîòàë îðäåð SellStop òèêåò "+DoubleToStr(InfoOpenOrders[i][0],0)
                     +" âíóòðåííèé ¹"+DoubleToStr(InfoOpenOrders[i][1],0)+" íà îòìåòêå: "
                     +DoubleToStr(InfoOpenOrders[i][3],Digits));
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()
                     +"Îòêðûòà ïîçèöèÿ Sell òèêåò "+DoubleToStr(InfoOpenOrders[i][0],0)
                     +" âíóòðåííèé ¹"+DoubleToStr(InfoOpenOrders[i][1],0)+" ïî öåíå: "
                     +DoubleToStr(InfoOpenOrders[i][3],Digits));
                     InfoOpenOrders[i][2]=OP_SELL;
                     FlagFractal="sell";
                     CountSellStop--;
                     UseOfDeposit=UseOfDeposit+((NormalizeDouble(Bid,Digits)*1000)*OrderLots());
                     if(ToExposeContrwarrants&&AllowTrade)
                       {
                        WriteLineInFile(FileNameOfReport,"Ðàçðåøåíî âûñòàâëåíèå êîíòðîðäåðîâ!");
                        CountOrders++;
                        resSB=PerformanceOpenBuyStop(Symbol(),Lots,(FractalUp+(Limit*Point)),5,StopLoss,TakeProfit,
                        CountOrders+" SellStop "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenBuyStop);
                        if(resSB>0)
                          {
                           CountBuyStop++;TotalBuyStop++;
                           intSize=ArrayRange(InfoOpenOrders,0);
                           ArrayResize(InfoOpenOrders,size+1);
                           InfoOpenOrders[intSize][0]=resSB;
                           InfoOpenOrders[intSize][1]=CountOrders;
                           InfoOpenOrders[intSize][2]=OP_BUYSTOP;
                           InfoOpenOrders[intSize][3]=NormalizeDouble(FractalUp+(Limit*Point),Digits);
                          }
                        else
                          {
                           WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûñòàâèòü îòëîæåííûé êîíòðîðäåð!");
                           CountOrders--;
                          }
                       }
                     WriteLineInFile(FileNameOfReport,"");
                     break;
                  default:
                     WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Ïóòàíèöà â îðäåðàõ íà ñåðâåðå!");
                     Print("Ïóòàíèöà â îðäåðàõ íà ñåðâåðå!");
                     break;
                 }
              }
           }
         else
           {
            WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûáðàòü îðäåð "+ InfoOpenOrders[i][0]
            +" âíóòðåííèé ¹"+InfoOpenOrders[i][1]+", ïðè÷èíà: "+ErrorDescription(GetLastError()));
            Print("Íå óäàëîñü âûáðàòü îðäåð "+ InfoOpenOrders[i][0]+" âíóòðåííèé ¹"+InfoOpenOrders[i][1]
            +", ïðè÷èíà: "+ErrorDescription(GetLastError()));
           }
        }
     }
   if(MaximalDrawdown>(CalculationOfWarrants(Symbol(),magicNumber,0,1)+CalculationOfWarrants(Symbol(),magicNumber,1,1)))
     {
      MaximalDrawdown=CalculationOfWarrants(Symbol(),magicNumber,0,1)+CalculationOfWarrants(Symbol(),magicNumber,1,1);
     }
   if (CalculationOfWarrants(Symbol(),magicNumber,6,1)>ProfitLevel)
     {
      AllowTrade=false;
      if(LockForClose)
        {
         SignalOnClosing=true;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Îáùèé óðîâåíü ïðèáûëè ïðèâûñèë ProfitLevel, ñãåíåðèðîâàí ñèãíàë íà çàêðûòèå îðäåðîâ - SignalOnClosing");
         if(!UseWPRInClosePositions) { WriteLineInFile(FileNameOfReport,""); }
        }
     }
   if(SignalOnClosing&&UseWPRInClosePositions&&LockForClose)
     {
      double InitWPRPrev=0,InitWPRCurr=0;
      InitWPRPrev=iWPR(Symbol(),0,14,1);
      InitWPRCurr=iWPR(Symbol(),0,14,0);
      if((InitWPRPrev>(0-ControlLevelWPR))&&(InitWPRCurr>InitWPRPrev))
        {
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ñèãíàë SignalOnClosing îòìåíåí ôèëüòðîì \"WPR\", ò.ê. òðåíä ââåðõ");
         WorkWPR=true;TrendUp=true;SignalOnClosing=false;
        }
      if((InitWPRPrev<(-100+ControlLevelWPR))&&(InitWPRCurr<InitWPRPrev))
        {
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ñèãíàë SignalOnClosing îòìåíåí ôèëüòðîì \"WPR\", ò.ê. òðåíä âíèç");
         WorkWPR=true;TrendDn=true;SignalOnClosing=false;
        }
      WriteLineInFile(FileNameOfReport,"");
      LockForClose=false;
     }
   if(WorkWPR)
     {
      double WPRPrev=0,WPRCurr=0;
      WPRPrev=iWPR(Symbol(),0,14,1);
      WPRCurr=iWPR(Symbol(),0,14,0);
      if(TrendUp&&(WPRCurr<(0-ControlLevelWPR)))
        {
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ôèëüòð \"WPR\" ñãåíåðèðîâàí ñèãíàë íà çàêðûòèå îðäåðîâ - SignalOnClosing");
         WriteLineInFile(FileNameOfReport,"");
         WorkWPR=false;TrendUp=false;SignalOnClosing=true;
        }
      if(TrendDn&&(WPRCurr>(-100+ControlLevelWPR)))
        {
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ôèëüòð \"WPR\" ñãåíåðèðîâàí ñèãíàë íà çàêðûòèå îðäåðîâ - SignalOnClosing");
         WriteLineInFile(FileNameOfReport,"");
         WorkWPR=false;TrendDn=false;SignalOnClosing=true;
        }
      if ((CalculationOfWarrants(Symbol(),magicNumber,0,1))
      +(CalculationOfWarrants(Symbol(),magicNumber,1,1))<ProfitLevel/2)
        {
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Äåéñòâèå ôèëüòðà \"WPR\" îòìåíåíî,ñãåíåðèðîâàí ñèãíàë íà çàêðûòèå îðäåðîâ - SignalOnClosing");
         WriteLineInFile(FileNameOfReport,"");
         WorkWPR=false;TrendUp=false;TrendDn=false;SignalOnClosing=true;
        }
     }
   if(SignalOnClosing)
     {
      if(!IsTesting())
        {
         if((UseSoundInOperations)&&(CheckSoundFileName(SoundClosing)=="")) PlaySound(SoundClosing);
        }
      CloseAllPositions(Symbol(),magicNumber,ModeClosingOfWarrants);
      SetBadge("K",CurTime(),((Ask+Bid)/2)-3*Point,170,Violet);
      SignalOnClosing=false;LockForClose=false;CheckClose=true;
     }
   if(CheckClose)
     {
      if(CalculationOfWarrants(Symbol(),magicNumber,8,0)==0)
        {
         WriteLineInFile(FileNameOfReport,"Âñå îðäåðà çàêðûòû!");
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Îêîí÷àíèå òîðãîâîé ñåñèè ¹"+CountSessions);
         WriteLineInFile(FileNameOfReport,"");
         WriteLineInFile(FileNameOfReport,"Îò÷¸ò ïî ñåññèè: ");
         WriteLineInFile(FileNameOfReport,"Âñåãî îòêðûòî îðäåðîâ: "+CountOrders);
         WriteLineInFile(FileNameOfReport,"Âñåãî îòêðûòî îðäåðîâ Buy: "+CountBuy+" ,îðäåðîâ SellStop: "
         +TotalSellStop+" ,èç íèõ ñðàáîòàâøèõ: "+(TotalSellStop-CountSellStop));
         WriteLineInFile(FileNameOfReport,"Âñåãî îòêðûòî îðäåðîâ Sell: "+CountSell+" ,îðäåðîâ BuyStop: "
         +TotalBuyStop+" ,èç íèõ ñðàáîòàâøèõ: "+(TotalBuyStop-CountBuyStop));
         WriteLineInFile(FileNameOfReport,"Âðåìÿ çàêðûòèÿ îðäåðîâ: "+TimeToStr(TimeOfClosing,TIME_SECONDS ));
         WriteLineInFile(FileNameOfReport,"Ïðèáûëü/óáûòîê ïî ïîçèöèÿì Buy: "+DoubleToStr(CollectorBuy,2));
         WriteLineInFile(FileNameOfReport,"Ïðèáûëü/óáûòîê ïî ïîçèöèÿì Sell: "+DoubleToStr(CollectorSell,2));
         WriteLineInFile(FileNameOfReport,"Ïðèáûëü/óáûòîê ïî âñåì ïîçèöèÿì: "+DoubleToStr((CollectorBuy+CollectorSell),2));
         WriteLineInFile(FileNameOfReport,"Îáñîëþòíîå èñïîëüçîâàíèå äåïîçèòà: "+DoubleToStr(UseOfDeposit,2));
         WriteLineInFile(FileNameOfReport,"Îòíîñèòåëüíîå èñïîëüçîâàíèå äåïîçèòà: "
         +DoubleToStr((UseOfDeposit/((AccountBalance()-(CollectorBuy+CollectorSell))/100)),2)+"%");
         WriteLineInFile(FileNameOfReport,"Ìàêñèìàëüíàÿ ïðîñàäêà çà ñåññèþ: "+MaximalDrawdown);
         WriteLineInFile(FileNameOfReport,"");
         CountBuy=0;TotalSellStop=0;CountSellStop=0;CountSell=0;TotalBuyStop=0;CountBuyStop=0;
         TimeOfClosing=0;CollectorBuy=0;CollectorSell=0;UseOfDeposit=0;MaximalDrawdown=0;
         CountOperations=0;CountOrders=0;WorkWPR=false;TrendUp=false;TrendDn=false;
         SignalOnClosing=false;LockForClose=true;CheckClose=false;//FlagFractal="";
         ArrayResize(InfoOpenOrders,0);
         Sleep(5000);
         WriteLineInFile(FileNameOfReport,"");
         WriteLineInFile(FileNameOfReport,"");
         CountSessions++;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íà÷àëî òîðãîâîé ñåñèè ¹"+CountSessions);
         WriteLineInFile(FileNameOfReport,"");
         AllowTrade=true;
        }
     }
   for(i=0; i < 300; i++)
     {
      iFractals_up=iFractals(NULL, 0, MODE_UPPER, i);
      iFractals_lo=iFractals(NULL, 0, MODE_LOWER, i);
      if ((iFractals_up!=0) || (iFractals_lo!=0)) break;
     }
   if ((iFractals_up!=0) && (Time[i]!=prev_max) && (i < 3))
     {
      prev_max=Time[i];
      if(AllowTrade)
        {
         OpenSell=true;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Èíäèêàòîð iFractals ñãåíåðèðîâàë ñèãíàë OpenSell");
        }
     }
   if ((iFractals_lo!=0) && (Time[i]!=prev_min) && (i < 3))
     {
      prev_min=Time[i];
      if(AllowTrade)
        {
         OpenBuy=true;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Èíäèêàòîð iFractals ñãåíåðèðîâàë ñèãíàë OpenBuy");
        }
     }
   FractalUp=0;FractalDn=0;
   FractalUp=iFractals_up;
   FractalDn=iFractals_lo;
   if(FractalUp==0)
     {
      if(FractalPrevUp==0)
        {
         FractalUp=High[PerHL];
         for(i=0;i<PerHL;i++)
           {
            if (FractalUp<High[i]) FractalUp=High[i];
           }
        }
         else FractalUp=FractalPrevUp;
     }
      else FractalPrevUp=FractalUp;
   if(FractalDn==0)
     {
      if(FractalPrevDn==0)
        {
         FractalDn=Low[PerHL];
         for(i=0;i<PerHL;i++)
           {
            if (FractalDn>Low[i])  FractalDn=Low[i];
           }
        }
         else FractalDn=FractalPrevDn;
     }
      else FractalPrevDn=FractalDn;
   if(OpenOnlyOnDepthOfFChannel)
     {
      FChannel=MathRound((FractalUp-FractalDn)/Point);
      SubFractalUp=FractalUp-(((FChannel/100)*DepthOfFChannel)*Point);
      SubFractalDn=FractalDn+(((FChannel/100)*DepthOfFChannel)*Point);
      if(!IsTesting())
        {
         bool R1=DrawChannel("FChannel",FractalUp,FractalDn,SubFractalUp,SubFractalDn);
         if(!R1) WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Îøèáêà â îòîáðàæåíèè êàíàëà FChannel");
        }
      if(DepthOfFChannel>0)
        {
         if(OpenBuy)
           {
            RefreshRates();
            if(Close[0]<SubFractalDn)
              {
               OpenBuy=false;
               SetBadge("C",CurTime(),Close[0],76,MediumVioletRed);
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"FChannel\", ò.ê. öåíà íå äîñòèãëà çàäàííîé ãëóáèíû êàíàëà");
               WriteLineInFile(FileNameOfReport,"");
              }
           }
         if(OpenSell)
           {
            RefreshRates();
            if(Close[0]>SubFractalUp)
              {
               OpenSell=false;
               SetBadge("C",CurTime(),Close[0],76,DodgerBlue);
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Ñèãíàë OpenSell îòìåíåí ôèëüòðîì \"FChannel\", ò.ê. öåíà íå äîñòèãëà çàäàííîé ãëóáèíû êàíàëà");
               WriteLineInFile(FileNameOfReport,"");
              }
           }
        }
     }
   MaxH=Close[PerHL];MinL=Close[PerHL];
   for(i=1;i<PerHL;i++)
     {
      if (MaxH<Close[i]) MaxH=Close[i];
      if (MinL>Close[i]) MinL=Close[i];
     }
   MidLine=NormalizeDouble((MaxH+MinL)/2,Digits);
   ChannelHLClose=MathRound((MaxH-MinL)/Point);
   if(ReferenceOnChannel_HL)
     {
      SubMaxH=MaxH-(((ChannelHLClose/100)*LevelOrientationOnChannel_HL)*Point);
      SubMinL=MinL+(((ChannelHLClose/100)*LevelOrientationOnChannel_HL)*Point);
      if(!IsTesting())
        {
         bool R2=DrawChannel("ChannelHLClose",MaxH,MinL,SubMaxH,SubMinL,MidLine);
         if(!R2) WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Îøèáêà â îòîáðàæåíèè êàíàëà ChannelHLClose");
        }
      if(LevelOrientationOnChannel_HL>0)
        {
         if(OpenBuy)
           {
            RefreshRates();
            if(Close[0]<SubMinL)
              {
               OpenBuy=false;
               SetBadge("R",CurTime(),Close[0],251,MediumVioletRed);
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"ChannelHLClose\", ò.ê. öåíà íèæå óðîâíÿ îðåèíòàöèè êàíàëà");
               WriteLineInFile(FileNameOfReport,"");
              }
           }
         if(OpenSell)
           {
            RefreshRates();
            if(Close[0]>SubMaxH)
              {
               OpenSell=false;
               SetBadge("R",CurTime(),Close[0],251,DodgerBlue);
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"ChannelHLClose\", ò.ê. öåíà âûøå óðîâíÿ îðåèíòàöèè êàíàëà");
               WriteLineInFile(FileNameOfReport,"");
              }
           }
        }
     }
   if(!ToTradeInFlat)
     {
      if((ChannelHLClose<LevelChannel_HLForFlat)
      &&(CalculationOfWarrants(Symbol(),magicNumber,0,0)==CalculationOfWarrants(Symbol(),magicNumber,1,0)))
        {
         if(OpenBuy)
           {
            SetBadge("F",CurTime(),((Ask+Bid)/2)-3*Point,104,MediumVioletRed);
            WriteLineInFile(FileNameOfReport,GetCurRusTime()
            +"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"Flat\", ò.ê. ðûíî÷íàÿ òåíäåíöèÿ îòñóòñâóåò");
            WriteLineInFile(FileNameOfReport,"");
            OpenBuy=false;
           }
         if(OpenSell)
           {
            SetBadge("F",CurTime(),((Ask+Bid)/2)+3*Point,104,DodgerBlue);
            WriteLineInFile(FileNameOfReport,GetCurRusTime()
            +"Ñèãíàë OpenSell îòìåíåí ôèëüòðîì \"Flat\", ò.ê. ðûíî÷íàÿ òåíäåíöèÿ îòñóòñâóåò");
            WriteLineInFile(FileNameOfReport,"");
            OpenSell=false;
           }
        }
     }
   if(OnlyOnePosition&&ToExposeContrwarrants)
     {
      if(OpenBuy)
        {
         if(CalculationOfWarrants(Symbol(),magicNumber,0,0)>0)
           {
            WriteLineInFile(FileNameOfReport,GetCurRusTime()
            +"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"OnlyOnePosition\", ò.ê. ïîçèöèÿ óæå Buy åñòü");
            WriteLineInFile(FileNameOfReport,"");
            OpenBuy=false;
           }
        }
      if(OpenSell)
        {
         if(CalculationOfWarrants(Symbol(),magicNumber,1,0)>0)
           {
            WriteLineInFile(FileNameOfReport,GetCurRusTime()
            +"Ñèãíàë OpenSell îòìåíåí ôèëüòðîì \"OnlyOnePosition\", ò.ê. ïîçèöèÿ óæå Sell åñòü");
            WriteLineInFile(FileNameOfReport,"");
            OpenSell=false;
           }
        }
     }
   if(OpenBuy)
     {
      if(FlagFractal=="buy")
        {
         SetBadge("Z",CurTime(),((Ask+Bid)/2)-3*Point,65,MediumVioletRed);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ñèãíàë OpenBuy îòìåíåí ôèëüòðîì \"DoublePosition\", ò.ê. íà ýòîì óðîâíå ïîçèöèÿ Buy óæå åñòü");
         OpenBuy=false;
         WriteLineInFile(FileNameOfReport,"");
        }
      else WriteLineInFile(FileNameOfReport,"");
     }
   if(OpenSell)
     {
      if(FlagFractal=="sell")
        {
         SetBadge("Z",CurTime(),((Ask+Bid)/2)+3*Point,65,DodgerBlue);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()
         +"Ñèãíàë OpenSell îòìåíåí ôèëüòðîì \"DoublePosition\", ò.ê. íà ýòîì óðîâíå ïîçèöèÿ Sell óæå åñòü");
         OpenSell=false;
         WriteLineInFile(FileNameOfReport,"");
        }
      else WriteLineInFile(FileNameOfReport,"");
     }
   if((OpenBuy)&&(AllowTrade))
     {
      int resBuy,resSellStop,process1=0,mode1=ModeOpeningOfWarrants;
      CountOperations++;
      WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Òîðãîâàÿ îïåðàöèÿ ¹"+CountOperations);
      SetBadge("B",CurTime(),((Ask+Bid)/2)-3*Point,241,Red);
      if((mode1==0)||(mode1==1)) process1=2;
      if((mode1==2)||(mode1==3)) process1=1;
      while(process1>0)
        {
         if((mode1==0)||(mode1==2))
           {
            CountOrders++;
            resBuy=PerformanceOpenBuy(Symbol(),Lots,5,StopLoss,TakeProfit,CountOrders
            +" Buy "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenBuy);
            if(resBuy>0)
              {
               CountBuy++;process1--;FlagFractal="buy";
               size=ArrayRange(InfoOpenOrders,0);
               ArrayResize(InfoOpenOrders,size+1);
               InfoOpenOrders[size][0]=resBuy;
               InfoOpenOrders[size][1]=CountOrders;
               InfoOpenOrders[size][2]=OP_BUY;
               InfoOpenOrders[size][3]=NormalizeDouble(Ask,Digits);
               UseOfDeposit=UseOfDeposit+((NormalizeDouble(Ask,Digits)*1000)*Lots);
              }
            else
              {
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûïîëíèòü òîðãîâûå îïåðàöèè!");
               CountOrders--;
               break;
              }
            if(mode1==0) mode1=3;
           }
         if((mode1==1)||(mode1==3))
           {
            CountOrders++;
            resSellStop=PerformanceOpenSellStop(Symbol(),Lots,(FractalDn-(Limit*Point)),5,StopLoss,TakeProfit,
            CountOrders+" SellStop "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenSellStop);
            if(resSellStop>0)
              {
               CountSellStop++;TotalSellStop++;process1--;
               size=ArrayRange(InfoOpenOrders,0);
               ArrayResize(InfoOpenOrders,size+1);
               InfoOpenOrders[size][0]=resSellStop;
               InfoOpenOrders[size][1]=CountOrders;
               InfoOpenOrders[size][2]=OP_SELLSTOP;
               InfoOpenOrders[size][3]=NormalizeDouble((FractalDn-(Limit*Point)),Digits);
              }
            else
              {
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü çàâåðøèòü òîðãîâûå îïåðàöèè!");
               CountOrders--;
               break;
              }
            if(mode1==1) mode1=2;
           }
        }
      WriteLineInFile(FileNameOfReport,"");
      OpenBuy=false;
     }
   if((OpenSell)&&(AllowTrade))
     {
      int resSell,resBuyStop,process2=0,mode2=ModeOpeningOfWarrants;
      CountOperations++;
      WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Òîðãîâàÿ îïåðàöèÿ ¹"+CountOperations);
      SetBadge("S",CurTime(),((Ask+Bid)/2)+7*Point,242,Blue);
      if((mode2==0)||(mode2==1)) process2=2;
      if((mode2==2)||(mode2==3)) process2=1;
      while(process2>0)
        {
         if((mode2==0)||(mode2==2))
           {
            CountOrders++;
            resSell=PerformanceOpenSell(Symbol(),Lots,5,StopLoss,TakeProfit,CountOrders
            +" Sell "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenSell);
            if(resSell>0)
              {
               CountSell++;process2--;FlagFractal="sell";
               size=ArrayRange(InfoOpenOrders,0);
               ArrayResize(InfoOpenOrders,size+1);
               InfoOpenOrders[size][0]=resSell;
               InfoOpenOrders[size][1]=CountOrders;
               InfoOpenOrders[size][2]=OP_SELL;
               InfoOpenOrders[size][3]=NormalizeDouble(Bid,Digits);
               UseOfDeposit=UseOfDeposit+((NormalizeDouble(Bid,Digits)*1000)*Lots);
              }
            else
              {
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûïîëíèòü òîðãîâûå îïåðàöèè!");
               CountOrders--;
               break;
              }
            if(mode2==0) mode2=3;
           }
         if((mode2==1)||(mode2==3))
           {
            CountOrders++;
            resBuyStop=PerformanceOpenBuyStop(Symbol(),Lots,(FractalUp+(Limit*Point)),5,StopLoss,TakeProfit,
            CountOrders+" SellStop "+NameOfExpert,magicNumber,UseSoundInOperations,SoundOpenBuyStop);
            if(resBuyStop>0)
              {
               CountBuyStop++;TotalBuyStop++;process2--;
               size=ArrayRange(InfoOpenOrders,0);
               ArrayResize(InfoOpenOrders,size+1);
               InfoOpenOrders[size][0]=resBuyStop;
               InfoOpenOrders[size][1]=CountOrders;
               InfoOpenOrders[size][2]=OP_BUYSTOP;
               InfoOpenOrders[size][3]=NormalizeDouble(FractalUp+(Limit*Point),Digits);
              }
            else
              {
               WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü çàâåðøèòü òîðãîâûå îïåðàöèè!");
               CountOrders--;
               break;
              }
            if(mode2==1) mode2=2;
           }
        }
      WriteLineInFile(FileNameOfReport,"");
      OpenSell=false;
     }
   if(!IsTesting())
     {
      string com=("Äàòà: "+GetCurRusTime());
      if(OpenOnlyOnDepthOfFChannel) { com=com + ("  Êàíàë FChannel: "+DoubleToStr(FChannel,2)); }
      if(ReferenceOnChannel_HL) { com=com + ("  Êàíàë ChannelHLClose: "+DoubleToStr(ChannelHLClose,2)); }
      Comment(com);
     }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int ToInformTheUser()
  {
   string InitialMsg,Msg0,Msg1,Msg2,Msg3,Msg4,Msg5,Msg6,Msg7,Msg8,Msg9,Msg10,Msg11,Msg12,Msg13,Msg14,Msg15,Msg16,
   Msg18,Msg19,Msg20,Msg21,Msg22,Msg23,Msg24,Msg25,Msg26,Msg27,Msg28,Msg29,Msg30,Msg31,Msg32,Msg33,Msg34,
   Msg35,Msg36,Msg37,Msg38,Msg39,Msg40,Msg41,Msg42,Msg43,Msg44,Msg45,Msg46,Msg47,Msg48,Msg49,Msg50,Msg51,Msg52,
   Msg53,Msg54,Msg55,Msg56,Msg57,Msg58,Msg59;
   if(IsDemo()) { Msg0=" íà äåìî-ñ÷¸òå ¹"+AccountNumber(); } else { Msg0=" íà ðåàëüíîì ñ÷¸òå ¹"+AccountNumber(); }
   Msg1=("Ýêñïåðò "+NameOfExpert+" íà÷èíàåò ñâîþ ðàáîòó"+Msg0+" ñî ñëåäóþùèìè âõîäíûìè ïàðàìåòðàìè: "+"\n");
   Msg2=(""+"\n");
   Msg3=("Èíôîðìàöèÿ î ñ÷¸òå:"+"\n");
   Msg4=(""+"\n");
   Msg5=("Íàçâàíèå áðîêåðñêîé êàìïàíèè: "+" "+AccountCompany()+"\n");
   Msg6=("Íàèìåíîâàíèå âëàäåëüöà ñ÷¸òà: "+AccountName()+"\n"+"\n");
   Msg7=("Íîìåð ñ÷¸òà ó áðîêåðà: "+AccountNumber()+"  ");
   Msg8=("Âàëþòà ñ÷¸òà: "+AccountCurrency()+"  ");
   Msg9=("Êðåäèòíîå ïëå÷î: 1 ê "+AccountLeverage()+"\n");
   Msg10=(""+"\n");
   Msg11=("Âàø äåïîçèò: "+""+DoubleToStr(AccountBalance(),2)+"  ");
   Msg12=("Òåêóùèé áàëàíñ (ñðåäñòâà): "+""+DoubleToStr(AccountEquity(),2)+"  ");
   if(AccountMargin()!=0) Msg13=("Çàëîã: "+""+DoubleToStr(AccountMargin(),2)+"  "); else Msg13="";
   Msg14=("Ñâîáîäíûå ñðåäñòâà: "+""+DoubleToStr(AccountFreeMargin(),2)+"\n");
   if(AccountMargin()!=0) Msg15=("Íåðåàëèçîâàííàÿ ïðèáûëü/óáûòîê: "+""+DoubleToStr(AccountProfit(),2)
   +"\n"); else Msg15="";
   Msg16=(""+"\n");
   Msg18=("Âõîäíûå ïàðàìåòðû:"+"\n");
   Msg19=(""+"\n");
   Msg20=("Lots: "+"           "+DoubleToStr(Lots,1)+(" (Ðàçìåð ëîòà)")+"\n");
   Msg21=("TakeProfit: "+" "+TakeProfit+(" (Îáùèé óðîâåíü ôèêñàöèè ïðèáûëè)")+"\n");
   Msg22=("StopLoss: "+"   "+StopLoss+(" (Îáùèé óðîâåíü ôèêñàöèè óáûòêà)")+"\n");
   Msg23=("Limit: "+"           "+Limit
   +(" (Âåëè÷èíà, íà êîòîðóþ, âûøå èëè íèæå óðîâíÿ ôðàêòàëà, âûñòàâëÿþòñÿ îòëîæåííûå îðäåðà)")+"\n");
   Msg24=("ProfitLevel: "+" "+ProfitLevel+(" (Óðîâåíü ïðèáûëè, ïðè êîòîðîì çàêðûâàþòñÿ âñå îðäåðà)")+"\n");
   Msg25=(""+"\n");
   Msg26=("ModeOpeningOfWarrants: "+ModeOpeningOfWarrants+" (Ðåæèì îòêðûòèÿ îðäåðîâ)"+"\n");
   Msg27=("ModeClosingOfWarrants: "+"  "+ModeClosingOfWarrants+" (Ðåæèì çàêðûòèÿ îðäåðîâ)"+"\n");
   Msg28=(""+"\n");
   if(OpenOnlyOnDepthOfFChannel)
     {
      Msg29="Äà";
      Msg31=("DepthOfFChannel: "+"                       "+DepthOfFChannel
      +" (Ãëóáèíà îòêðûòèÿ ïîçèöèé, â ïðîöåíòàõ ôðàêòàëüíîãî êàíàëà)"+"\n");
     }
   else
     {
      Msg29="Íåò";Msg31="";
     }
   Msg30=("OpenOnlyOnDepthOfFChannel: "+"  "+Msg29+" (Îòêðûâàòüñÿ òîëüêî íà ãëóáèíå ôðàêòàëüíîãî êàíàëà)"+"\n");
   if(ReferenceOnChannel_HL)
     {
      Msg32="Äà";
      Msg34=("LevelOrientationOnChannel_HL: "+" "+LevelOrientationOnChannel_HL+" (Óðîâåíü îðåèíòàöèè â ïðîöåíòàõ îò êàíàëà High-Low)"+"\n");
     }
   else
     {
      Msg32="Íåò";Msg34="";
     }
   Msg33=("ReferenceOnChannel_HL: "+"           "+Msg32+" (Ðàçðåøàòü ñîâåòíèêó îðåèíòèðîâàòüñÿ íà êàíàë High-Low)"+"\n");
   if(ToTradeInFlat)
     {
      Msg35="Äà";
      Msg37="";
     }
   else
     {
      Msg35="Íåò";
      Msg37=("LevelChannel_HLForFlat: "+"             "+LevelChannel_HLForFlat+" (Óðîâåíü êàíàëà High-Low, ïðè êîòîðîì òåíäåíöèÿ ñ÷èòàåòñÿ ôëýòîì)"+"\n");
     }
   Msg36=("ToTradeInFlat: "+"                             "+Msg35+" (Ðàçðåøàòü ñîâåòíèêó òîðãîâàòü âî ôëýòå)"+"\n");
   if(UseWPRInClosePositions)
     {
      Msg38="Äà";
      Msg40=("ControlLevelWPR: "+"                        "+ControlLevelWPR+" (Êîíòðîëüíûé óðîâåíü èíäèêàòîðà WPR)"+"\n");
     }
   else
     {
      Msg38="Íåò";Msg40="";
     }
   Msg39=("UseWPRInClosePositions: "+"            "+Msg38+" (Èñïîëüçîâàòü èíäèêàòîð WPR â ïðèíÿòèè ðåøåíèÿ î çàêðûòèè îðäåðîâ)"+"\n");
   if(ToExposeContrwarrants)
     {
      Msg41="Äà";
     }
   else
     {
      Msg41="Íåò";
     }
   Msg42=("ToExposeContrwarrants: "+"             "+Msg41+" (Âûñòàâëÿòü êîíòðîðäåðà ïðè ñðàáàòûâàíèè îòëîæåííûõ îðäåðîâ)"+"\n");
   Msg43=(""+"\n");
   if(DeleteLogsOnClose)
     {
      Msg56="Äà";
     }
   else
     {
      Msg56="Íåò";
     }
   Msg59=("DeleteLogsOnClose: "+"               "+Msg56+" (Ñòèðàòü âñå log-ôàéëû ñîçäàâàåìûå òåðìèíàëîì è òåñòåðîì)"+"\n");
   if(EraseOldFileOfReport)
     {
      Msg44="Äà";
      Msg47=("-- Âíèìàíèå! Åñëè óêàçàííûé ôàéë ïðîòîêîëà óæå ñóæåñòâóåò, îí áóäåò ñò¸ðò! --"+"\n");
     }
   else
     {
      Msg44="Íåò";
      Msg47=("-- Âíèìàíèå! Åñëè óêàçàííûé ôàéë ïðîòîêîëà óæå ñóæåñòâóåò, â íåãî áóäåò ïðîäîëæåíà çàïèñü! --"+"\n");
     }
   Msg45=("EraseOldFileOfReport: "+"           "+Msg44+" (Ñòèðàòü ñòàðûé ôàéë ïðîòîêîëà, åñëè ôàéë óæå ñóùåñòâóåò)"+"\n");
//----
   if(StringLen(FileNameOfReport)==0)
     {//14
      Msg46=("FileNameOfReport: "+""+"Íå óêàçàíî íàçâàíèå ôàéëà ïðîòîêîëà. Áóäåò èñïîëüçîâàíî íàçâàíèå Report"+Symbol()+Period()+"\n");
     }
   else
     {
      Msg46=("FileNameOfReport: "+"                     "+FileNameOfReport+" (Íàçâàíèå ôàéëà ïðîòîêîëà)"+"\n");
     }
   Msg48=(""+"\n");
   if(UseSoundInOperations)
     {
      Msg49="Äà";
      if(StringLen(SoundOpenBuy)==0) SoundOpenBuy="";
      if(StringLen(SoundOpenSell)==0) SoundOpenSell="";
      if(StringLen(SoundOpenBuyStop)==0) SoundOpenBuyStop="";
      if(StringLen(SoundOpenSellStop)==0) SoundOpenSellStop="";
      if(StringLen(SoundClosing)==0) SoundClosing="";
      if(StringLen(CheckSoundFileName(SoundOpenBuy))==0)
        {
         Msg51=("SoundOpenBuy: "+"             "+SoundOpenBuy+" (Çâóê ïðè îòêðûòèè îðäåðà Buy)"+"\n");
        }
      else
        {
         Msg51=("SoundOpenBuy: "+"        "+CheckSoundFileName(SoundOpenBuy)+" Çâóêà äëÿ Buy íå áóäåò."+"\n");
        }
      if(StringLen(CheckSoundFileName(SoundOpenSell))==0)
        {
         Msg52=("SoundOpenSell: "+"             "+SoundOpenSell+" (Çâóê ïðè îòêðûòèè îðäåðà Sell)"+"\n");
        }
      else
        {
         Msg52=("SoundOpenSell: "+"         "+CheckSoundFileName(SoundOpenSell)+" Çâóêà äëÿ Sell íå áóäåò."+"\n");
        }
      if(StringLen(CheckSoundFileName(SoundOpenBuyStop))==0)
        {
         Msg53=("SoundOpenBuyStop: "+"     "+SoundOpenBuyStop+" (Çâóê ïðè îòêðûòèè îðäåðà BuyStop)"+"\n");
        }
      else
        {
         Msg53=("SoundOpenBuyStop: "+" "+CheckSoundFileName(SoundOpenBuyStop)+" Çâóêà äëÿ BuyStop íå áóäåò."+"\n");
        }
      if(StringLen(CheckSoundFileName(SoundOpenSellStop))==0)
        {
         Msg54=("SoundOpenSellStop: "+"      "+SoundOpenSellStop+" (Çâóê ïðè îòêðûòèè îðäåðà SellStop)"+"\n");
        }
      else
        {
         Msg54=("SoundOpenSellStop: "+" "+CheckSoundFileName(SoundOpenSellStop)+" Çâóêà äëÿ SellStop íå áóäåò."+"\n");
        }
      if(StringLen(CheckSoundFileName(SoundClosing))==0)
        {
         Msg55=("SoundClosing: "+"                "+SoundClosing+" (Çâóê ïðè çàêðûòèè âñåõ îðäåðîâ)"+"\n");
        }
      else
        {
         Msg55=("SoundClosing: "+"           "+CheckSoundFileName(SoundClosing)+" Çâóêà äëÿ Close íå áóäåò."+"\n");
        }
     }
   else
     {
      Msg49="Íåò";Msg51="";Msg52="";Msg53="";Msg54="";Msg55="";
     }
   Msg50=("UseSoundInOperations: "+" "+Msg49+" (Èñïîëüçîâàòü çâóêîâîå ñîïðîâîæäåíèå òîðãîâûõ îïåðàöèé)"+"\n");
   Msg57=(""+"\n");
   Msg58=("Åñëè Âàñ óñòðàèâàþò âõîäíûå ïàðàìåòðû ñîâåòíèêà íàæìèòå êíîïêó  \" Îê \"  è ïðîãðàììà ïðîäîëæèò ñâîþ"+"\n"+"ðàáîòó, èíà÷å íàæìèòå êíîïêó \" Îòìåíà \"."+"\n");
//----
   InitialMsg=Msg1+Msg2+Msg3+Msg4+Msg5+Msg6+Msg7+Msg8+Msg9+Msg10+Msg11+Msg12+Msg13+Msg14
   +Msg15+Msg16+Msg18+Msg19+Msg20+Msg21+Msg22+Msg23+Msg24+Msg25+Msg26+Msg27+Msg28
   +Msg30+Msg31+Msg33+Msg34+Msg36+Msg37+Msg39+Msg40+Msg42+Msg43+Msg59+Msg45+Msg46+Msg47+Msg48
   +Msg50+Msg51+Msg52+Msg53+Msg54+Msg55+Msg57+Msg58;
//----
   return(MessageBoxA(WindowHandle(Symbol(),0),InitialMsg,"Íà÷àëüíûå ïàðàìåòðû ýêïåðòà "+NameOfExpert,65));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
string CheckSoundFileName(string SoundFileName)
  {
   if(StringLen(SoundFileName)==0)
     {
      return("Íå óêàçàíî èìÿ ôàéëà çâóêîâîãî ñîïðîâîæäåíèÿ.");
     }
   else
      if((StringFind(SoundFileName,".wav",0))!=(StringLen(SoundFileName)-4))
        {
         return("Íåâåðíî óêàçàíî èìÿ ôàéëà çâóêîâîãî ñîïðîâîæäåíèÿ.");
        }
      else
         if(!jFileExists(jGetCurrDir()+"\sounds"+CharToStr(92)+SoundFileName))
           {
            return("Óêàçàííûé ôàéë íå ñóùåñòâóåò â êàòàëîãå ..\sounds.");
           }
         else
           {
            return("");
           }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int InfoByOpenOrders()
  {
   string Msg1,Msg2,Msg3,Msg4,Msg5,Msg6,Msg7,Msg8,Msg9,Msg10,Msg11,Msg12,OutString;
//----
   Msg1=("Âíèìàíèå! Ïî òåêóùåìó èíñòðóìåíòó "+Symbol()+" ó Âàñ èìåþòñÿ ñëåäóþùèå îòêðûòûå îðäåðà:"+"\n");
   Msg2=(""+"\n");
   if(CalculationOfWarrants(Symbol(),0,0,0)>0)
     {
      Msg3=(" BUY - "+""+CalculationOfWarrants(Symbol(),0,0,0)+"  ");
     }  else Msg3="";
   if(CalculationOfWarrants(Symbol(),0,1,0)>0)
     {
      Msg4=(" SELL - "+""+CalculationOfWarrants(Symbol(),0,1,0)+"  ");
     }  else Msg4="";
   if(CalculationOfWarrants(Symbol(),0,2,0)>0)
     {
      Msg5=(" BUYLIMIT - "+""+CalculationOfWarrants(Symbol(),0,2,0)+"  ");
     }  else Msg5="";
   if(CalculationOfWarrants(Symbol(),0,3,0)>0)
     {
      Msg6=(" SELLLIMIT - "+""+CalculationOfWarrants(Symbol(),0,3,0)+"  ");
     }  else Msg6="";
   if(CalculationOfWarrants(Symbol(),0,4,0)>0)
     {
      Msg7=(" BUYSTOP - "+""+CalculationOfWarrants(Symbol(),0,4,0)+"  ");
     }  else Msg7="";
   if(CalculationOfWarrants(Symbol(),0,5,0)>0)
     {
      Msg8=(" SELLSTOP - "+""+CalculationOfWarrants(Symbol(),0,5,0)+"  ");
     }  else Msg8="";
   Msg9=(""+"\n");
   Msg10=("Ñîâåòíèê íå áóäåò êàñàòüñÿ â ñâîåé ðàáîòå ýòèõ îðäåðîâ, åñëè òîëüêî ýòè îðäåðà íå áûëè"
    +"\n"+"îòêðûòû ðàíåå ýòèì æå ñîâåòíèêîì. Îäíàêî, âî èçáåæàíèè èñêàæåíèÿ ðåçóëüòàòîâ ðàáîòû"
    +"\n"+"ñîâåòíèêà, íàñòîÿòåëüíî ðåêîìåíäóåì çàêðûòü âñå îòêðûòûå îðäåðà!"+"\n");
   Msg11=(""+"\n");
   Msg12=("Âû ìîæåòå çàâåðøèòü ðàáîòó ñîâåòíèêà è çàêðûòü âûøå óêàçàííûå îðäåðà. Äëÿ ïðîäîëæå-"
    +"\n"+"íèÿ ðàáîòû ñîâåòíèêà, çàéäèòå â åãî ñâîéñòâà è ñíèìèòå, à çàòåì âíîâü ïîñòàâüòå ãàëî÷êó"
    +"\n"+"íà ïðîòèâ îïöèè \" ÐÀÇÐÅØÈÒÜ ÑÎÂÅÒÍÈÊÓ ÒÎÐÃÎÂÀÒÜ \".  Çàâåðøèòü ðàáîòó ñîâåòíèêà?"+"\n");
   OutString=Msg1+Msg2+Msg3+Msg4+Msg5+Msg6+Msg7+Msg8+Msg9+Msg9+Msg10+Msg11+Msg12;
   return(MessageBoxA(WindowHandle(Symbol(),0),OutString,"Èìåþòñÿ îòêðûòûå îðäåðà!",52));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CalculationOfWarrants(string NameOfToll,int UniqueMagic,int Index1,int Index2)
  {
   int Inform[9][2],Zero[9][2];int n=0;
   ArrayCopy(Inform,Zero,0,0,WHOLE_ARRAY);
   bool Condition1;
   if(UniqueMagic==0)
     {
      Condition1=(OrderSymbol()==NameOfToll);
     }
   else
     {
      Condition1=((OrderSymbol()==NameOfToll)&&(OrderMagicNumber()==UniqueMagic));
     }
   for(n=OrdersTotal()-1;n>=0;n--)
     {
      OrderSelect(n,SELECT_BY_POS,MODE_TRADES);
      if (Condition1)
        {
         if(OrderType()==0) {Inform[0][0]=Inform[0][0]+1;Inform[0][1]=Inform[0][1]+OrderProfit();}
         if(OrderType()==1) {Inform[1][0]=Inform[1][0]+1;Inform[1][1]=Inform[1][1]+OrderProfit();}
         if(OrderType()==2) {Inform[2][0]=Inform[2][0]+1;}
         if(OrderType()==3) {Inform[3][0]=Inform[3][0]+1;}
         if(OrderType()==4) {Inform[4][0]=Inform[4][0]+1;}
         if(OrderType()==5) {Inform[5][0]=Inform[5][0]+1;}
        }
     }
   Inform[6][0]=Inform[0][0]+Inform[1][0];
   Inform[6][1]=Inform[0][1]+Inform[1][1];
   Inform[7][0]=Inform[2][0]+Inform[3][0]+Inform[4][0]+Inform[5][0];
   Inform[8][0]=Inform[0][0]+Inform[1][0]+Inform[2][0]+Inform[3][0]
   +Inform[4][0]+Inform[5][0];
   return(Inform[Index1][Index2]);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void WriteLineInFile(string FileName,string Line)
  {
   int HFile=FileOpen(FileName,FILE_READ|FILE_WRITE," ");
   if(HFile>0)
     {
      FileSeek(HFile,0,SEEK_END);
      FileWrite(HFile,Line);
      FileFlush(HFile);
      FileClose(HFile);
     }
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
string GetCurRusTime()
  {
   string StrMonth="",StrDay="",StrHour="",StrMinute="",StrSeconds="";
   RefreshRates();
   if(Month()<10) { StrMonth="0"+Month(); } else { StrMonth=Month(); }
   if(Day()<10) { StrDay="0"+Day(); } else { StrDay=Day(); }
   if(Hour()<10) { StrHour="0"+Hour(); } else { StrHour=Hour(); }
   if(Minute()<10) { StrMinute="0"+Minute(); } else { StrMinute=Minute(); }
   if(Seconds()<10) { StrSeconds="0"+Seconds(); } else { StrSeconds=Seconds(); }
   return(""+StrDay+"."+StrMonth+"."+Year()+" "+StrHour+":"+StrMinute+":"+StrSeconds+" ");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void SetBadge(string BadgeName, datetime BadgeTime, double BadgePrice,int BadgeType,color BadgeColor)
  {
   string Name=BadgeName+CurTime();
   if(PrevPrice>0)
     {
      if(((BadgePrice-PrevPrice)>=0*Point)&&((BadgePrice-PrevPrice)<3*Point)) BadgePrice=BadgePrice+3*Point;
      if(((PrevPrice-BadgePrice)>=0*Point)&&((PrevPrice-BadgePrice)<3*Point)) BadgePrice=BadgePrice-3*Point;
     }
   ObjectCreate(Name,OBJ_ARROW,0,BadgeTime,BadgePrice);
   ObjectSet(Name,OBJPROP_ARROWCODE,BadgeType);
   ObjectSet(Name,OBJPROP_COLOR,BadgeColor);
   PrevPrice=BadgePrice;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool DrawChannel(string NaneChannel,double Upper=0,double Down=0,double SubUp=0,double SubDn=0,double Average=0)
  {
   bool res[11];
   if(NaneChannel=="FChannel")
     {
      if(ObjectFind(NaneChannel+"H")>0) ObjectDelete(NaneChannel+"H");
      ObjectCreate(NaneChannel+"H", OBJ_HLINE, 0, Time[0],Close[0]);
      ObjectSet(NaneChannel+"H",OBJPROP_COLOR,Pink);
      if(ObjectFind(NaneChannel+"L")>0) ObjectDelete(NaneChannel+"L");
      ObjectCreate(NaneChannel+"L", OBJ_HLINE, 0, Time[0],Close[0]);
      ObjectSet(NaneChannel+"L",OBJPROP_COLOR,SkyBlue);
      if(ObjectFind(NaneChannel+"SH")>0) ObjectDelete(NaneChannel+"SH");
      ObjectCreate(NaneChannel+"SH",OBJ_RECTANGLE,0 ,0,0,0,0);
      ObjectSet(NaneChannel+"SH",OBJPROP_COLOR,Pink);
      if(ObjectFind(NaneChannel+"LH")>0) ObjectDelete(NaneChannel+"LH");
      ObjectCreate(NaneChannel+"LH",OBJ_RECTANGLE,0 ,0,0,0,0);
      ObjectSet(NaneChannel+"LH",OBJPROP_COLOR,SkyBlue);
     }
   if(NaneChannel=="ChannelHLClose")
     {
      if(ObjectFind(NaneChannel+"H")>0) ObjectDelete(NaneChannel+"H");
      ObjectCreate(NaneChannel+"H", OBJ_HLINE, 0, Time[0],Close[0]);
      ObjectSet(NaneChannel+"H",OBJPROP_COLOR,HotPink);
      if(ObjectFind(NaneChannel+"L")>0) ObjectDelete(NaneChannel+"L");
      ObjectCreate(NaneChannel+"L", OBJ_HLINE, 0, Time[0],Close[0]);
      ObjectSet(NaneChannel+"L",OBJPROP_COLOR,RoyalBlue);
      if(ObjectFind(NaneChannel+"M")>0) ObjectDelete(NaneChannel+"M");
      ObjectCreate(NaneChannel+"M", OBJ_HLINE, 0, Time[0],Close[0]);
      ObjectSet(NaneChannel+"M",OBJPROP_COLOR,Gold);
      if(ObjectFind(NaneChannel+"SH")>0) ObjectDelete(NaneChannel+"SH");
      ObjectCreate(NaneChannel+"SH",OBJ_RECTANGLE,0 ,0,0,0,0);
      ObjectSet(NaneChannel+"SH",OBJPROP_COLOR,HotPink);
      if(ObjectFind(NaneChannel+"LH")>0) ObjectDelete(NaneChannel+"LH");
      ObjectCreate(NaneChannel+"LH",OBJ_RECTANGLE,0 ,0,0,0,0);
      ObjectSet(NaneChannel+"LH",OBJPROP_COLOR,RoyalBlue);
     }
   if((NaneChannel=="FChannel")||(NaneChannel=="ChannelHLClose"))
     {
      res[0]=ObjectSet(NaneChannel+"H",OBJPROP_PRICE1,Upper);
      res[1]=ObjectSet(NaneChannel+"L",OBJPROP_PRICE1,Down);
      if(Average>0)
        {
         res[2]=ObjectSet(NaneChannel+"M",OBJPROP_PRICE1,Average);
        }
      else { res[2]=true; }
      res[3]=ObjectSet(NaneChannel+"SH",OBJPROP_TIME1,CurTime());
      res[4]=ObjectSet(NaneChannel+"SH",OBJPROP_PRICE1,SubUp);
      res[5]=ObjectSet(NaneChannel+"SH",OBJPROP_TIME2,CurTime()-(5760*Period()));
      res[6]=ObjectSet(NaneChannel+"SH",OBJPROP_PRICE2,Upper);
      res[7]=ObjectSet(NaneChannel+"LH",OBJPROP_TIME1,CurTime());
      res[8]=ObjectSet(NaneChannel+"LH",OBJPROP_PRICE1,Down);
      res[9]=ObjectSet(NaneChannel+"LH",OBJPROP_TIME2,CurTime()-(5760*Period()));
      res[10]=ObjectSet(NaneChannel+"LH",OBJPROP_PRICE2,SubDn);
      ObjectsRedraw();
     }
   if(res[0]&&res[1]&&res[2]&&res[3]&&res[4]&&res[5]&&res[6]&&res[7]&&res[8]&&res[9]&&res[10])
      return(true);else return(false);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int PerformanceOpenBuy(string Toll,double SizeOfLot,int Accuracy,int FixingOfLoss,
int FixingOfProfit,string Note,int UniqueNumber,bool UseSound=false,string NameOfSound="")
  {
   double OpenPrice=0,SL=0,TP=0;int ticket=0,index=0,err=0,attempt=0;datetime InitialTime=CurTime();
   while(ticket<=0)
     {
      while(!IsTradeAllowed()) Sleep(1000);
      RefreshRates();
      OpenPrice=NormalizeDouble(Ask,Digits);
      SL=OpenPrice - FixingOfLoss   * Point;
      TP=OpenPrice + FixingOfProfit * Point;
      ticket=OrderSend(Toll,OP_BUY,SizeOfLot,OpenPrice,Accuracy,SL,TP,Note,UniqueNumber,0,Gold);
      if(ticket>0)
        {
         if(!IsTesting())
           {
            if((UseSound)&&(CheckSoundFileName(NameOfSound)=="")) PlaySound(NameOfSound);
           }
         index=StringFind(Note," ", 0);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Îòêðûòà ïîçèöèÿ Buy òèêåò "
         +ticket+" âíóòðåííèé ¹ "+StringSubstr(Note,0,index)+" ïî öåíå: "+DoubleToStr(OpenPrice,Digits));
         Sleep(5000);
         return(ticket);
        }
      else
        {
         err=GetLastError();attempt++;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü îòêðûòü îðäåð Buy, ïðè÷èíà: "
         +ErrorDescription(err));
         Print(TimeToStr(CurTime(),TIME_SECONDS)+" InitialTime: "+TimeToStr(InitialTime,TIME_SECONDS)
         +" Íå óäàëîñü îòêðûòü îðäåð Buy, ïðè÷èíà: "+ErrorDescription(err));
         if((err==135)&&(Accuracy<11)) Accuracy++;
         if(((CurTime()-InitialTime)>180)||(attempt==10)) break;
         Sleep(1000);
        }
     }
   return(-1);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int PerformanceOpenSell(string Toll,double SizeOfLot,int Accuracy,int FixingOfLoss,
int FixingOfProfit,string Note,int UniqueNumber,bool UseSound=false,string NameOfSound="")
  {
   double OpenPrice=0,SL=0,TP=0;int ticket=0,index=0,err=0,attempt=0;datetime InitialTime=CurTime();
   while(ticket<=0)
     {
      while(!IsTradeAllowed()) Sleep(1000);
      RefreshRates();
      OpenPrice=NormalizeDouble(Bid,Digits);
      SL=OpenPrice + StopLoss   * Point;
      TP=OpenPrice - TakeProfit * Point;
      ticket=OrderSend(Toll,OP_SELL,SizeOfLot,OpenPrice,Accuracy,SL,TP,Note,UniqueNumber,0,DeepSkyBlue);
      if(ticket>0)
        {
         if(!IsTesting())
           {
            if((UseSound)&&(CheckSoundFileName(NameOfSound)=="")) PlaySound(NameOfSound);
           }
         index=StringFind(Note," ", 0);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Îòêðûòà ïîçèöèÿ Sell òèêåò "
         +ticket+" âíóòðåííèé ¹ "+StringSubstr(Note,0,index)+" ïî öåíå: "+DoubleToStr(OpenPrice,Digits));
         Sleep(5000);
         return(ticket);
        }
      else
        {
         err=GetLastError();attempt++;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü îòêðûòü îðäåð Sell, ïðè÷èíà: "
         +ErrorDescription(err));
         Print(TimeToStr(CurTime(),TIME_SECONDS)+" InitialTime: "+TimeToStr(InitialTime,TIME_SECONDS)
         +" Íå óäàëîñü îòêðûòü îðäåð Sell, ïðè÷èíà: "+ErrorDescription(err));
         if((err==135)&&(Accuracy<11)) Accuracy++;
         if(((CurTime()-InitialTime)>180)||(attempt==10)) break;
         Sleep(1000);
        }
     }
   return(-1);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int PerformanceOpenBuyStop(string Toll,double SizeOfLot,double OpenPrice,int Accuracy,int FixingOfLoss,
int FixingOfProfit,string Note,int UniqueNumber,bool UseSound=false,string NameOfSound="")
  {
   double SL=0,TP=0;int ticket=0,index=0,err=0,attempt=0;datetime InitialTime=CurTime();
   while(ticket<=0)
     {
      while(!IsTradeAllowed()) Sleep(1000);
      RefreshRates();
      OpenPrice=NormalizeDouble(OpenPrice,Digits);
      SL=OpenPrice - FixingOfLoss   * Point;
      TP=OpenPrice + FixingOfProfit * Point;
      ticket=OrderSend(Toll,OP_BUYSTOP,SizeOfLot,OpenPrice,Accuracy,SL,TP,Note,UniqueNumber,0,Orange);
      if(ticket>0)
        {
         if(!IsTesting())
           {
            if((UseSound)&&(CheckSoundFileName(NameOfSound)=="")) PlaySound(NameOfSound);
           }
         index=StringFind(Note," ", 0);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Âûñòàâëåí îðäåð BuyStop òèêåò "
         +ticket+" âíóòðåííèé ¹ "+StringSubstr(Note,0,index)+" íà îòìåòêó: "+DoubleToStr(OpenPrice,Digits));
         Sleep(5000);
         return(ticket);
        }
      else
        {
         err=GetLastError();attempt++;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûñòàâèòü îðäåð BuyStop, ïðè÷èíà: "
         +ErrorDescription(err));
         Print(TimeToStr(CurTime(),TIME_SECONDS)+" InitialTime: "+TimeToStr(InitialTime,TIME_SECONDS)
         +"Íå óäàëîñü âûñòàâèòü îðäåð BuyStop, ïðè÷èíà: "+ErrorDescription(err));
         if((err==135)&&(Accuracy<11)) Accuracy++;
         if(((CurTime()-InitialTime)>180)||(attempt==10)) break;
         Sleep(1000);
        }
     }
   return(-1);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int PerformanceOpenSellStop(string Toll,double SizeOfLot,double OpenPrice,int Accuracy,int FixingOfLoss,
int FixingOfProfit,string Note,int UniqueNumber,bool UseSound=false,string NameOfSound="")
  {
   double SL=0,TP=0;int ticket=0,index=0,err=0,attempt=0;datetime InitialTime=CurTime();
   while(ticket<=0)
     {
      while(!IsTradeAllowed()) Sleep(1000);
      RefreshRates();
      OpenPrice=NormalizeDouble(OpenPrice,Digits);
      SL=OpenPrice + StopLoss   * Point;
      TP=OpenPrice - TakeProfit * Point;
      ticket=OrderSend(Toll,OP_SELLSTOP,SizeOfLot,OpenPrice,Accuracy,SL,TP,Note,UniqueNumber,0,Blue);
      if(ticket>0)
        {
         if(!IsTesting())
           {
            if((UseSound)&&(CheckSoundFileName(NameOfSound)=="")) PlaySound(NameOfSound);
           }
         index=StringFind(Note," ", 0);
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Âûñòàâëåí îðäåð SellStop òèêåò "
         +ticket+" âíóòðåííèé ¹ "+StringSubstr(Note,0,index)+" íà îòìåòêó: "+DoubleToStr(OpenPrice,Digits));
         Sleep(5000);
         return(ticket);
        }
      else
        {
         err=GetLastError();attempt++;
         WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Íå óäàëîñü âûñòàâèòü îðäåð SellStop, ïðè÷èíà: "
         +ErrorDescription(err));
         Print(TimeToStr(CurTime(),TIME_SECONDS)+" InitialTime: "+TimeToStr(InitialTime,TIME_SECONDS)
         +"Íå óäàëîñü âûñòàâèòü îðäåð SellStop, ïðè÷èíà: "+ErrorDescription(err));
         if((err==135)&&(Accuracy<11)) Accuracy++;
         if(((CurTime()-InitialTime)>180)||(attempt==10)) break;
         Sleep(1000);
        }
     }
   return(-1);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseAllPositions(string NameOfToll,int UniqueMagic,int ModeClosing)
  {
   bool WorkWarrant=false,PostWarrant=false,result=false;
   int attempt,cnt,index=0,NumberOfTry=2,PauseAfterError=1;
   double TimeProfit;
   datetime InitTime=CurTime();
//----
   if(ModeClosing==0) {WorkWarrant=true;PostWarrant=true;}
   if(ModeClosing==1) {WorkWarrant=true;PostWarrant=false;}
   if(ModeClosing==2) {WorkWarrant=false;PostWarrant=true;}
   CountOperations++;
   WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Òîðãîâàÿ îïåðàöèÿ ¹"+CountOperations);
   while(OrdersTotal()>0)
     {
      for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
        {
         result=false;
         TimeProfit=0;
         if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
           {
            if ((OrderSymbol()==NameOfToll)&&(OrderMagicNumber()==UniqueMagic))
              {
               for(attempt=0;attempt<NumberOfTry;attempt++)
                 {
                  RefreshRates();
                  while(!IsTradeAllowed()) Sleep(2000);
                  if((OrderType()==0)&&WorkWarrant)
                    {
                     TimeProfit=OrderProfit();
                     result=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),5,Yellow);
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Çàêðûòà ïîçèöèÿ Buy òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ïî öåíå: "
                        +DoubleToStr(OrderClosePrice(),Digits));
                        CollectorBuy=CollectorBuy+TimeProfit;
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð Buy òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð Buy òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                  if((OrderType()==1)&&WorkWarrant)
                    {
                     TimeProfit=OrderProfit();
                     result=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),5,Blue );
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Çàêðûòà ïîçèöèÿ Sell òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ïî öåíå: "
                        +DoubleToStr(OrderClosePrice(),Digits));
                        CollectorSell=CollectorSell+TimeProfit;
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð Sell òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð Sell òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                  if((OrderType()==2)&&PostWarrant)
                    {
                     result=OrderDelete(OrderTicket());
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Óäàë¸í îðäåð BuyLimit òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ñ îòìåòêè: "
                        +DoubleToStr(OrderOpenPrice(),Digits));
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð BuyLimit òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð BuyLimit òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                  if((OrderType()==3)&&PostWarrant)
                    {
                     result=OrderDelete(OrderTicket());
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Óäàë¸í îðäåð SellLimit òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ñ îòìåòêè: "
                        +DoubleToStr(OrderOpenPrice(),Digits));
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð SellLimit òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð SellLimit òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                  if((OrderType()==4)&&PostWarrant)
                    {
                     result=OrderDelete(OrderTicket());
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Óäàë¸í îðäåð BuyStop òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ñ îòìåòêè: "
                        +DoubleToStr(OrderOpenPrice(),Digits));
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð BuyStop òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð BuyStop òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                  if((OrderType()==5)&&PostWarrant)
                    {
                     result=OrderDelete(OrderTicket());
                     if (result)
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()+"Óäàë¸í îðäåð SellStop òèêåò "+OrderTicket()
                        +" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)+" ñ îòìåòêè: "
                        +DoubleToStr(OrderOpenPrice(),Digits));
                        Sleep(2000);
                        break;
                       }
                     else
                       {
                        index=StringFind(OrderComment()," ", 0);
                        WriteLineInFile(FileNameOfReport,GetCurRusTime()
                        +" Îðäåð SellStop òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        Alert(" Îðäåð SellStop òèêåò "+OrderTicket()+" âíóòðåííèé ¹ "+StringSubstr(OrderComment(),0,index)
                        +" íå óäàëîñü çàêðûòü. Ïðè÷èíà: "+ErrorDescription(GetLastError())+" Ïîïûòêà ¹"+attempt+1);
                        if(ModeClosing==1) {PostWarrant=true;}
                        Sleep(1000*PauseAfterError);
                       }
                    }
                 }
               if((ModeClosing==1)&&(CalculationOfWarrants(NameOfToll,UniqueMagic,6,0)==0))
               {PostWarrant=true;}
               if((ModeClosing==2)&&(CalculationOfWarrants(NameOfToll,UniqueMagic,7,0)==0))
               {WorkWarrant=true;cnt=OrdersTotal();}
              }
           }
         else
           {
            switch(OrderType())
              {//0
               case 0:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð Buy ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð Buy ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
               case 1:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð Sell ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð Sell ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
               case 2:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð BuyLimit ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð BuyLimit ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
               case 3:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð SellLimit ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð SellLimit ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
               case 4:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð BuyStop ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð BuyStop ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
               case 5:
                  WriteLineInFile(FileNameOfReport,GetCurRusTime()
                  +"Íå óäàëîñü âûáðàòü îðäåð SellStop ¹ "+OrderTicket()
                  +" Ïðè÷èíà: "+ErrorDescription(GetLastError()));
                  Alert("Íå óäàëîñü âûáðàòü îðäåð SellStop ¹ ",OrderTicket(),
                  " Ïðè÷èíà: ",ErrorDescription(GetLastError()));
                  break;
              }//0
           }
        }
     }
   TimeOfClosing=CurTime()-InitTime;
   WriteLineInFile(FileNameOfReport,"");
   return;
  }
//+------------------------------------------------------------------+