qstr4_2

ÿþ//+------------------------------------------------------------------+

//|                                                        qstr3.mq4 |

//|                        Copyright 2018, MetaQuotes Software Corp. |

//|                                             https://www.qstr.com |

//+------------------------------------------------------------------+

#property copyright "QstrCorp"

#property link      "https://www.qstr.com"

#property version   "1.00"

#property strict



//--- input parameters

//+-----------------------------------------------------------------------------+

extern int                TakeProfit    = 1500;

extern int                StopLoss      = 500;

extern double Lots=1;     // 5AB:> 7040==>5 :>;8G. ;>B>2

extern double Prots=0.07;    // @>F5=B A2>1>4=KE A@54AB2



                             // 038G5A:89 =><5@ >B:@KB>3> >@45@0

extern int                Magic=12345;

//+-----------------------------------------------------------------------------+

sinput string             MA            = "0AB@>9:8 8=48:0B>@0 Moving average";

extern int                ma_period     = 20;

extern int                ma_shift      = 0;

extern ENUM_MA_METHOD     ma_method     = MODE_EMA;

extern ENUM_APPLIED_PRICE applied_price = PRICE_CLOSE;

extern int                shift         = 0;



extern int    Period_MA_1=14;      // 5@8>4  1

extern int    Period_MA_2=30;      // 5@8>4  2

extern int    Period_MA_3=120;      // 5@8>4  3

extern int    v14=1;                 // 8=. :>@>ABL 87<5=5=8O  2 ?C=:B0E =0 10@ :0: >?@545;5=85 D;5B0

extern int    v30=1;                 // 8=. :>@>ABL 87<5=5=8O  2 ?C=:B0E =0 10@ :0: >?@545;5=85 D;5B0

extern int    v120=1;                 // 8=. :>@>ABL 87<5=5=8O  2 ?C=:B0E =0 10@ :0: >?@545;5=85 D;5B0

extern int    n=12;                 // @0B=>ABL C<5=LH5=8O "$ 8 C25;8G5=8O ?5@8>40 ?@>AG5B0

extern double Rastvor=28.0;    //  0AAB>O=85 <564C  



datetime tx;



string

Symb;                            // A8<2>; 2K1@0==>3> >@45@0



int

cnt=0,                           // ><5@ >@45@0

Total,                           // >;8G5AB2> >@45@>2 2 >:=5 

Tip=-1,                          // "8? 2K1@0=. >@45@0 (B=0,S=1 -1 =5B >@45@0)

Ticket,                          // "8:5B >@45@0

Or=-1,                           // !>AB>O=85 -1 =5B =0H8E >@45@>2, 645< A83=0;0 >B:@KB8O 109 8;8 A5;;,

                                 // 0 >B:@KB >@45@ 109, 645< A83=0;0 70:@KB8O >@45@0 109, 

// 1 >B:@KB >@45@ A5;;, 645< A83=0;8 70:@KB8O A5;;

TrOr=-1,// !83=0; >B:@KB8O >@45@>2 ?>   

OpOr=-1,// !83=0; >B:@KB8O >@45@>2 -1 =5B, 0 109, 1 A5;; A >BA5G5=85< 548=8G=KE >H81>:

ClOr=-1,// !83=0; 70:@KB8O >@45@0 -1 =5B, 0 109, 1 A5;;



Handle,// $09;>2K9 >?8A0B5;L

Qnt_Symb;                           // >;8G5AB2> 70?8A0==KE A8<2.

string File_Name="QstrV.csv";        // <O D09;0



double  MA2[26],MA14[26],MA30[26],MA120[26],MA480[26],//>10@=K5 7=0G5=8O  4;O G0A>2>3> B09<D@59<0

MA2n[26],MA14n[26],MA30n[26],MA120n[26],MA480n[26],// >10@=K5 7=0G5=8O  4;O "$ 5<8= A ?@82545==K< CA@54=5=85< : 1 G0AC

MA2_5n[26],VMA2_5n[26],// =0G5=85  4;O "$ 5<8= =0 2 10@0E 8 A:>@>ABL 87<5=5=8O =0 ?5@2>< 10@5

VMA2[26],VMA14[26],VMA30[26],VMA120[26],VMA480[26],// !:>@>AB8 87<5=5=8O  2 ?C=:B0E =0 10@ 4;O "$ 1 G0A

VMA2n[26],VMA14n[26],VMA30n[26],VMA120n[26],VMA480n[26],//!:>@>AB8 87<5=5=8O _n 2 ?C=:B0E =0 10@ 4;O "$ 5<8= 

                                                        //A CA@54 =0 1G0A



RMA2_14[26],RMA14_30[26],RMA30_120[26],RMA120_480[26],//@07=8F0 2-14, 14-30, 30-120, 120-480   

RMAn2_14[26],RMAn14_30[26],RMAn30_120[26],RMAn120_480[26],//  07=8F0 2n-MA14n, MA14n-MA30n, MA30n-MA120n =0 ?5@2>< 10@5

VRMAn2_14[26],VRMAn14_30[26],VRMAn30_120[26],VRMAn120_480[26]// !:>@>ABL 87<5=5=8O @07=8FK RMAn2_14, RMAn14_30, RMAn30_120,

                                                             //RMAn120_480  =0 10@    

;



int Tr=-1, TrOpen=-1,// =0G5=8O B@5=40 , -1 D45B >6840=85, 0 225@E 09, 1 2=87 !5;;

Tr0,Tr1,Tr2,Tr3,Tr4, // =0G5=8O B@5=40 ?>B8:>2> =0 5 B8:0E, 4;O C18@0=8O 548=8G=>9 >H81:8 =0G0;L=KE 7=0G5=89 =0 =>2>< 10@5

TrOpen0,TrOpen1,TrOpen2,TrOpen3,TrOpen4;       // =0G5=8O B@5=40  ?>B8:>2> =0 5 B8:0E



double

MA_1_t,                          // =0G5=. _1 B5:CI55

MA_2_t,                          // =0G5=. _2 B5:CI55 

Lot,                             // >;8G. ;>B>2 2 2K1@0=.>@45@5

Lts,                             // >;8G. ;>B>2 2 >B:@K2.>@45@5

Min_Lot,                         // 8=8<0;L=>5 :>;8G5AB2> ;>B>2

Step,                            // (03 87<5=5=8O @07<5@0 ;>B0

Free,                            // "5:CI85 A2>1>4=K5 A@54AB20

One_Lot,                         // !B>8<>ABL >4=>3> ;>B0

Price,                           // &5=0 2K1@0==>3> >@45@0

SL,                              // SL 2K1@0==>3> >@45@0 

TP;                              // TP 2K1@0==>3> >@45@0

bool

Ans  =false,                     // B25B A5@25@0 ?>A;5 70:@KB8O

Cls_B=false,                     // @8B5@89 4;O 70:@KB8O  Buy

Cls_S=false,                     // @8B5@89 4;O 70:@KB8O  Sell

Opn_B=false,                     // @8B5@89 4;O >B:@KB8O  Buy

Opn_S=false,                     // @8B5@89 4;O >B:@KB8O  Sell

Work=true;                       // @8B5@89 @01>BK, 5A;8 :@8B8G5A:0O >H81:0 8;8 :>;8G5AB2> =0H8E >@45@>2 1>;55 1

bool sel=false;

//+------------------------------------------------------------------+

//| Expert initialization function                                   |

//+------------------------------------------------------------------+

int OnInit()

  {



   Countinit();// DC=:F8O ?>4AG5B0 >B:@KBKE >@45@>2 8 ?>8A: A =0H8< <038:

//----------

   FileTest();// DC=:F8O >B:@KB8O D09;0 70?8A8 40==KE



   tx=TimeCurrent();// 7040=85 2@5<5=8 =0G0;0 @01>BK A>25B=8:0

//--- create timer

   EventSetTimer(60);



//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {



   FileClose( Handle );                // 0:@K205< D09;

   Alert("$09; ",File_Name," 70:@KB.");// !>>1I5=85



//--- destroy timer

   EventKillTimer();



  }

//+------------------------------------------------------------------+

//| Expert tick function                                             |

//+------------------------------------------------------------------+

void OnTick()

  {

   Total=Count();// >4AG5B >B:@KBKE >@45@>2 A =0H8< <038:, 5A;8 1>;55 1 :>=5F



                 // @5420@8B.>1@01>B:0

   if(Bars<Period_MA_2) // 54>AB0B>G=> 10@>2

     {

      Alert("54>AB0B>G=> 10@>2 2 >:=5. -:A?5@B =5 @01>B05B.");

      return;                                   // KE>4 87 start()

     }

   if(Work==false) // @8B8G5A:0O >H81:0

     {

      Alert("@8B8G5A:0O >H81:0. -:A?5@B =5 @01>B05B.");

      return;                                   // KE>4 87 start()

     }

//--------------------------------------------------------------- 4 --

// >B8:>2>5 ?@8A2>5=85 B@5=40    

   Tr4=Tr3;

   Tr3=Tr2;

   Tr2=Tr1;

   Tr1=Tr0;

   Tr0=Tr;

   TrOpen4=TrOpen3;

   TrOpen3=TrOpen2;

   TrOpen2=TrOpen1;

   TrOpen1=TrOpen0;

   TrOpen0=TrOpen;

// 2K7>2 DC=:F89 B@5=40, D;030 >B:@KB8O >@45@>2  

   Tr=IMA();

   TrOr=TROR();

   TrOpen=TROPEN();



   string var1=TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS);

   Print("Tr= ",Tr," 14[1]= ",MA14n[1]," V14[1]= ",VMA14n[1],

         "120[1]= ",MA120n[1]," V120[1]= ",VMA120n[1]," VR30_120[1]= ",VRMAn30_120[1]);



   Comment(">;-2> =0H8E >@45@>2 = ",Total," "8? = ",Tip,"  ",OrderType()," Or = ",Or," sel = ",sel,

           "Magic ",OrderMagicNumber(),"@45@>2 2A53> ",OrdersTotal()," 0@>2 ",Bars,"\n",

           ""@5=4 = ",Tr,"\n",

           "$;03 "   = ",TrOr,"\n",

           "&5=0 Ask = ",Ask,"\n",

           " 07<5@ ?C=:B0 = ",Point,"\n",

           ">;8G5AB2> 7=0:>2, ?>A;5 70?OB>9 = ",Digits,"\n",

           "><5@ 2K1@0==. >@4 ",cnt," = ","\n",// .

           ""8:5B 2K1@0==. >@4 ",Ticket," = ",OrderTicket(),

           "&5=0 2K1@0==. >@4. ",Price," = ",OrderOpenPrice(),"\n",// 

           " SL 2K1@0==>3> >@4.  ",SL," = ",OrderStopLoss(),"\n",// 

           "TP 2K1@0==>3> >@4.  ",TP," = ",OrderTakeProfit(),"\n",// 

           ">;8G5AB2> ;>B>2  ",Lot," = ",OrderLots() // 



           );

   datetime tm=TimeCurrent();

   if(tx!=tm && tm>=tx+100)

     {

      Qnt_Symb=FileWrite(Handle,var1," Tr= ",Tr," V14= ",VMA14n[1],

                         " V30 = ",VMA30n[1]," V120 = ",VMA120n[1],

                         " R14-30 = ",RMAn14_30[1]," R30-120 = ",RMAn30_120[1],

                         " VR14-30 = ",VRMAn14_30[1]," VR30-120 = ",VRMAn30_120[1],

                         " V2 = ",VMA2n[1]," R2-14 = ",RMAn2_14[1]," VR2-14 = ",VRMAn2_14[1]

                         );//0?8AL 2 D09;



      if(Qnt_Symb<0) // A;8 =5 ?>;CG8;>AL

        {

         Alert("H81:0 70?8A8 2 D09; ",GetLastError());// !>>1I5=85

        };

      tx=tm;

     };



//---

   if(Or==-1)

     {

      if(TrOr==0 //&& TrV==0 && TrS==0

         )

        {

         OpOr=0;

         Or=OpenOr(OpOr);



         return;

        }

      if(TrOr==1 //&& TrV==1 && TrS==1

         )

        {

         OpOr=1;

         Or=OpenOr(OpOr);



         return;

        }

      OpOr=-1;

      return;

     }

//-------------------------------------------------------------------------------------     

// @>?CA: 545=8G=>3> 87<5=5=8O >@45@0 =0 A<5=5 10@0 8 ?@8 A<5=5 B@5=40 70:@KB85 >@45@0

//---------------------------------------------------------------------------------------



   if(Or==0)

     {

      if(TrOpen0==0 || TrOpen1==0 || TrOpen2==0 || TrOpen3==0 // || Tr3==0 || Tr4==0 //&& TrV==0 && TrS==0

         )

        {

         return;

        }

      else

        {

         ClOr=0;

         Or=CloseOr(ClOr);

         return;

        }

     }



   if(Or==1)

     {

      if(TrOpen0==1 || TrOpen1==1 || TrOpen2==1 || TrOpen3==1 // || Tr3==1 || Tr4==1 //&& TrV==1 && TrS==1

         )

        {

         return;

        }

      else

        {

         ClOr=1;

         Or=CloseOr(ClOr);

         return;

        }

     }



  }

//+------------------------------------------------------------------+

//| Timer function                                                   |

//+------------------------------------------------------------------+

void OnTimer()

  {

//---



  }

//+------------------------------------------------------------------+

int Countinit() // !G5BG8: >@45@>2 ?@8 8=8F80;870F88, >72@0I05B :>;8G5AB2> >@45@>2 A =0H8< <038:

  {



   int Totalin=0;

   for(int cin=0; cin<OrdersTotal(); cin++)

     {

      if(sel=OrderSelect(cin,SELECT_BY_POS,MODE_TRADES))

        {

         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)

            Totalin++;

        }

     }

   if(Totalin>0) // 5 1>;55 >4=>3> >@45@0 A =0H8< <038: 2 =0G0;5 @01>BK M:A?5@B0

     {

      Alert(">;8G5AB2> >@45@>2 A =0H8< <038: = ",Totalin," ><5=O9B5 <038: 8;8 C40;8B5 >@45@0. -:A?5@B =5 @01>B05B.");

      Comment("I81:0 - :>;8G5AB2> >@45@>2 A =0H8< 038: = ",Totalin);

      Work=false;



      return(Totalin);                             // KE>4 87 Countinit()

     }

   Work=true;

   return(Totalin);

  }

//>=5F ?>4AG5B0 >@45@>2 ?@8 8=8F80;870F88 M:A?5@B0+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

int Count() // !G5BG8: >@45@>2, >72@0I05B 7=0G5=8O =0H53> >@45@0 8 :>;8G5AB2> >@45@>2 A =0H8< <038:

  {

   Total=0;

   Ticket=0;                  // ><5@ 2K1@0==. >@4.

   Symb="";                   //=AB@C<5=B >@45@0

   Tip=-1;                    // "8? 2K1@0==>3> >@4.

   Price=0;               // &5=0 2K1@0==. >@4.

   SL=0;                // SL 2K1@0==>3> >@4.

   TP=0;              // TP 2K1@0==>3> >@4.

   Lot=0;                    // >;8G5AB2> ;>B>2

   for(cnt=0; cnt<OrdersTotal(); cnt++)

     {

      if(sel=OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))

        {

         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)

            Total++;

        }

     }

//   Alert(Total);

   if(Total>1) // 5 1>;55 >4=>3> >@4

     {

      Alert("@45@>2 A =0H8< <038: 1>;LH5 >4=>3> = ",Total," ><5=O9B5 <038: 8;8 C40;8B5 >@45@0. -:A?5@B =5 @01>B05B.");

      Comment("I81:0 2> 2@5<O @01>BK, :>;8G5AB2> >@45@>2 A =0H8< 038: = ",Total);

      Work=false;

      return(Total);                             // KE>4 87 Count()

     }

   if(Total==1)

     {

      Ticket=OrderTicket();                  // ><5@ 2K1@0==. >@4.

      Tip   =OrderType();                    // "8? 2K1@0==>3> >@4.

      Symb= Symbol();                        //=AB@C<5=B 2K1@0==>3> >@45@0;                   

      Price =OrderOpenPrice();               // &5=0 2K1@0==. >@4.

      SL    =OrderStopLoss();                // SL 2K1@0==>3> >@4.

      TP    =OrderTakeProfit();              // TP 2K1@0==>3> >@4.

      Lot   =OrderLots();                    // >;8G5AB2> ;>B>2

      if(Tip==OP_BUY)Or=0;

      if(Tip==OP_SELL)Or=1;

      if(Tip==OP_BUYSTOP)Or=4;

      if(Tip==OP_SELLSTOP )Or=5;

      Work=true;

      return(Total);                             // KE>4 87 Count()

     }

   if(Total==0)

     {

      Or=-1;

      Total=0;

      Ticket=0;                  // ><5@ 2K1@0==. >@4.

      Symb="";                   //=AB@C<5=B >@45@0

      Tip=-1;                    // "8? 2K1@0==>3> >@4.

      Price=0;               // &5=0 2K1@0==. >@4.

      SL=0;                // SL 2K1@0==>3> >@4.

      TP=0;              // TP 2K1@0==>3> >@4.

      Lot=0;                    // >;8G5AB2> ;>B>2

      Work=true;

     }

   return(Total);

  }

//>=5F ?>4AG5B0 >@45@>2+------------------------------------------------------------------+

//+------------------------------------------------------------------+

//>4AG5B A:>;L7OI8E A@54=8E  ?>10@=>, 2>72@0I05B B@5=4 Tr -1 D;5B, 0 225@E 09, 1 2=87 !5;; 

int IMA()

  {

   for(int i=0; i<22; i++)

     {

      MA2[i]=NormalizeDouble((iMA(NULL,0,2,ma_shift,ma_method,applied_price,i)),7);

      MA2n[i]=NormalizeDouble((iMA(NULL,Period()/n,14,ma_shift,ma_method,applied_price,i)),7);

      MA2_5n[i]=NormalizeDouble((iMA(NULL,Period()/n,2,ma_shift,ma_method,applied_price,i)),7);

      MA14[i]=NormalizeDouble((iMA(NULL,0,14,ma_shift,ma_method,applied_price,i)),7);

      MA14n[i]=NormalizeDouble((iMA(NULL,Period()/n,14*n,ma_shift,ma_method,applied_price,i)),7);

      MA30[i]=NormalizeDouble((iMA(NULL,0,30,0,ma_method,applied_price,i)),7);

      MA30n[i]=NormalizeDouble ((iMA(NULL,Period()/n,30*n, ma_shift,ma_method,applied_price,i)),7);

      MA120[i]=NormalizeDouble ((iMA(NULL,0,120, ma_shift,ma_method,applied_price,i)),7);

      MA120n[i]=NormalizeDouble((iMA(NULL,Period()/n,120*n,ma_shift,ma_method,applied_price,i)),7);

      MA480[i]=NormalizeDouble((iMA(NULL,0,480,ma_shift,ma_method,applied_price,i)),7);

      MA480n[i]=NormalizeDouble((iMA(NULL,Period()/n,480*n,ma_shift,ma_method,applied_price,i)),7);

     }

   for(int i=0; i<22; i++)

     {

      VMA2_5n[i]=NormalizeDouble(((MA2_5n[i]-MA2_5n[i+1])/Point),2);

      VMA2n[i]=NormalizeDouble(((MA2n[i]-MA2n[i+1])/Point),2);

      VMA14n[i]=NormalizeDouble(((MA14n[i]-MA14n[i+1])/Point),2);

      VMA30n[i]=NormalizeDouble(((MA30n[i]-MA30n[i+1])/Point),2);

      VMA120n[i]=NormalizeDouble(((MA120n[i]-MA120n[i+1])/Point),2);

      VMA480n[i]=NormalizeDouble(((MA480n[i]-MA480n[i+1])/Point),2);





      VMA2[i]=NormalizeDouble(((MA2[i]-MA2[i+1])/Point),2);

      VMA14[i]=NormalizeDouble(((MA14[i]-MA14[i+1])/Point),2);

      VMA30[i]=NormalizeDouble(((MA30[i]-MA30[i+1])/Point),2);

      VMA120[i]=NormalizeDouble(((MA120[i]-MA120[i+1])/Point),2);

      VMA480[i]=NormalizeDouble(((MA480[i]-MA480[i+1])/Point),2);



      RMA120_480[i]=NormalizeDouble((MA120[i]-MA480[i])/Point,2);

      RMA30_120[i]=NormalizeDouble((MA30[i]-MA120[i])/Point,2);

      RMA14_30[i]=NormalizeDouble((MA14[i]-MA30[i])/Point,2);

      RMA2_14[i]=NormalizeDouble((MA2[i]-MA14[i])/Point,2);



      RMAn2_14[i]=NormalizeDouble((MA2n[i]-MA14n[i])/Point,2);

      RMAn14_30[i]=NormalizeDouble((MA14n[i]-MA30n[i])/Point,2);

      RMAn30_120[i]=NormalizeDouble((MA30n[i]-MA120n[i])/Point,2);

      RMAn120_480[i]=NormalizeDouble((MA120n[i]-MA480n[i])/Point,2);



      VRMAn2_14[i]=NormalizeDouble((RMAn2_14[i]-RMAn2_14[i+1]),2);

      VRMAn14_30[i]=NormalizeDouble((RMAn14_30[i]-RMAn14_30[i+1]),2);

      VRMAn30_120[i]=NormalizeDouble((RMAn30_120[i]-RMAn30_120[i+1]),2);

      VRMAn120_480[i]=NormalizeDouble((RMAn120_480[i]-RMAn120_480[i+1]),2);

     }



// @>25@:0 D;5B0 8 =5CAB>9G82>3> B@5=40

   if(

      (MathAbs(RMAn30_120[1])<100 && MathAbs(VMA120n[1])<1.2 && MathAbs(VMA14n[1])<0.2 && MathAbs(VMA30n[1])<0.2) || 

      ( VMA14n[1]>=0 && VMA30n[1]>0 && VMA120n[1]<0 && MathAbs(RMAn30_120[1])<=340) ||

      ( VMA14n[1]<=0 && VMA30n[1]<0 && VMA120n[1]>0 && MathAbs(RMAn30_120[1])<=340) ||

      (VMA14n[1]>0 && VMA30n[1]<0 && MathAbs(VMA120n[1])<1.8 && MathAbs(RMAn30_120[1])<=340) ||

      (VMA14n[1]<0 && VMA30n[1]>0 && MathAbs(VMA120n[1])<1.8 && MathAbs(RMAn30_120[1])<=340)

      )

     {

      Tr=-1;

      return(Tr);

     }



// @>25@:0 CAB>9G82>3> B@5=40

   if(

      ( RMAn30_120[1]>=600 && VMA120n[1]>=1) ||

      ( RMAn30_120[1]>=500 && RMAn14_30[1]>=30 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=400 && RMAn14_30[1]>=50 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=300 && RMAn14_30[1]>=80 && VMA14n[1]>=-0.4 && VMA30n[1]>=0.01 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=200 && RMAn14_30[1]>=60 && VMA14n[1]>=-0.2 && VMA30n[1]>=0.1 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=100 && RMAn14_30[1]>=30 && VMA14n[1]>=-0.1 && VMA30n[1]>=0.2 && VMA120n[1]>=1.8 )

      )

     {

      Tr=0;

      return(Tr);

     }



   if(

      (RMAn30_120[1]<=-600 && VMA120n[1]<=-1) || 

      ( RMAn30_120[1]<=-500 && RMAn14_30[1]<=-30 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-400 && RMAn14_30[1]<=-50 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-300 && RMAn14_30[1]<=-80 && VMA14n[1]<=0.4 && VMA30n[1]<=-0.01 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-200 && RMAn14_30[1]<=-60 && VMA14n[1]<=0.2 && VMA30n[1]<=-0.1 && VMA120n[1]<=-1.8 ) ||

      (RMAn30_120[1]<=-100 && RMAn14_30[1]<=-30 && VMA14n[1]<=0.1 && VMA30n[1]<=-0.2 && VMA120n[1]<=-1.8)

      )

     {

      Tr=1;

      return(Tr);

     }

// @>25@:0 A@54=53> B@5=40 8;8 53> =0G0;0

//  if(



//      VMA120n[1]>1.8 && 

//      VMA30n[1]>1 && 

//      VMA14n[1]>2 && 

//      VRMAn12[1]>=0.5

//     )

//    {

//      Tr=0;

//      return(Tr);

//     }

//   if(

//      VMA120n[1]<-1.8 && 

//      VMA30n[1]<-1 && 

//      VMA14n[1]<-2 && 

//      VRMAn12[1]<=-0.5

//     )

//    {

//      Tr=1;

//      return(Tr);

//    }

   Tr=-1;



   return(Tr);



  }

//>=5F ?>4AG5B0  8 >?@545;5=85 B@5=40 4;O A>AB>O=8O 157 >@45@>2-----------+

//+------------------------------------------------------------------+

//?@545;5=85 B@5=40 ?@8 >B:@KB>< >@45@5-------------------------------------+

int TROPEN()

  {

   if(

      ( RMAn30_120[1]>=600 && VMA120n[1]>=1) ||

      ( RMAn30_120[1]>=500 && RMAn14_30[1]>=30 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=400 && RMAn14_30[1]>=50 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=300 && RMAn14_30[1]>=80 && VMA14n[1]>=-0.4 && VMA30n[1]>=0.01 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=200 && RMAn14_30[1]>=60 && VMA14n[1]>=-0.2 && VMA30n[1]>=0.1 && VMA120n[1]>=1.8 ) ||

      ( RMAn30_120[1]>=100 && RMAn14_30[1]>=30 && VMA14n[1]>=-0.1 && VMA30n[1]>=0.2 && VMA120n[1]>=1.8 )

      )

     {

      TrOpen=0;

      return(TrOpen);

     }



   if(

      (RMAn30_120[1]<=-600 && VMA120n[1]<=-1) ||

      (RMAn30_120[1]<=-500 && RMAn14_30[1]<=-30 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-400 && RMAn14_30[1]<=-50 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-300 && RMAn14_30[1]<=-80 && VMA14n[1]<=0.4 && VMA30n[1]<=-0.01 && VMA120n[1]<=-1.8 ) ||

      ( RMAn30_120[1]<=-200 && RMAn14_30[1]<=-60 && VMA14n[1]<=0.2 && VMA30n[1]<=-0.1 && VMA120n[1]<=-1.8 ) ||

      (RMAn30_120[1]<=-100 && RMAn14_30[1]<=-30 && VMA14n[1]<=0.1 && VMA30n[1]<=-0.2 && VMA120n[1]<=-1.8)

      )

     {

      TrOpen=1;

      return(TrOpen);

     }



   TrOpen=-1;

   return(TrOpen);

  }

// @>?CA: 545=8G=KE 87<5=5=89 B@5=40 =0 A<5=5 10@0 8 CAB0=>2:0 D;030 >B:@KB8O >@45@0

int TROR()

  {

   if(

      Tr==0 && Tr0==0 && Tr1==0 //&& Tr2==0 && ((Tr3==-1 && Tr4==-1) || (Tr3==1 && Tr4==1))

      )

     {

      TrOr=0;

      return(TrOr);

     }



   if(

      Tr==1 && Tr0==1 && Tr1==1 //&& Tr2==1 && ((Tr3==-1 && Tr4==-1) || (Tr3==0 && Tr4==0))

      )

     {

      TrOr=1;

      return(TrOr);

     }

   TrOr=-1;



   return(TrOr);





  }

//>=5F CG5B0 D;03> >B:@KB8O >@45@>2+------------------------------------------------------------------+

//+------------------------------------------------------------------+

//



//+------------------------------------------------------------------+  



//

//+------------------------------------------------------------------+

// B:@KB85 >@45@>2

int OpenOr(int Op)

  {



// B:@KB85 >@45@>2

   while(true) // &8:; 70:@KB8O >@4.

     {

      if(Total==0 && OpOr==0) // B:@KBKE >@4. =5B  + :@8B5@89 >B:@. Buy

        {                                       // 

         RefreshRates();                        // 1=>2;5=85 40==KE

         SL=Bid - New_Stop(StopLoss)*Point;     // KG8A;5=85 SL >B:@.

         TP=Bid + New_Stop(TakeProfit)*Point;   // KG8A;5=85 TP >B:@.

         Alert(">?KB:0 >B:@KBL Buy. 6840=85 >B25B0..");

         Ticket=OrderSend(Symb,OP_BUY,Lots,Ask,2,SL,TP,"QstrBuy",Magic,0,Blue);//B:@KB85 Buy

         if(Ticket>0) // >;CG8;>AL :)

           {

            Alert(Symbol()," "$ ",Period(),"B:@KB >@45@ Buy ?> F5=5 ",Ask,"Ticket = ",Ticket);

            Qnt_Symb=FileWrite(Handle,Symbol()," "$ ",Period(),"B:@KB >@45@ Buy ?> F5=5 ",Ask,"Ticket = ",Ticket);//0?8AL 2 D09;

            if(Qnt_Symb<0) // A;8 =5 ?>;CG8;>AL

              {

               Alert("H81:0 70?8A8 2 D09; ",GetLastError());// !>>1I5=85

              };

            Or=0;

            return(Or);                             // KE>4 87 start()

           }

         if(Fun_Error(GetLastError())==1) // 1@01>B:0 >H81>:

            continue;                           // >2B>@=0O ?>?KB:0

         return(Or);                                // KE>4 87 start()

        }

      if(Total==0 && OpOr==1) // B:@KBKE >@4. =5B + :@8B5@89 >B:@. Sell

        {                                       //

         RefreshRates();                        // 1=>2;5=85 40==KE

         SL=Ask + New_Stop(StopLoss)*Point;     // KG8A;5=85 SL >B:@.

         TP=Ask - New_Stop(TakeProfit)*Point;   // KG8A;5=85 TP >B:@.

         Alert(">?KB:0 >B:@KBL Sell. 6840=85 >B25B0..");

         Ticket=OrderSend(Symb,OP_SELL,Lots,Bid,2,SL,TP,"QstrSell",Magic,0,Blue);//B:@KB85 Sel

         if(Ticket>0) // >;CG8;>AL :)

           {

            Alert(Symbol()," "$ ",Period(),"B:@KB >@45@ Sell ?> F5=5 ",Bid,"Ticket = ",Ticket);

            Qnt_Symb=FileWrite(Handle,Symbol()," "$ ",Period(),"B:@KB >@45@ Sell ?> F5=5 ",Bid,"Ticket = ",Ticket);//0?8AL 2 D09;

            if(Qnt_Symb<0) // A;8 =5 ?>;CG8;>AL

              {

               Alert("H81:0 70?8A8 2 D09; ",GetLastError());// !>>1I5=85

              };



            Or=1;

            return(Or);                             // KE>4 87 start()

           }

         if(Fun_Error(GetLastError())==1) // 1@01>B:0 >H81>:

            continue;                           // >2B>@=0O ?>?KB:0

         return(Or);                                // KE>4 87 start()

        }

      break;                                    // KE>4 87 while

     }

//--------------------------------------------------------------- 9 --

   return(Or);                                      // KE>4 87 start()

  }

//-------------------------------------------------------------- 10 --



//+------------------------------------------------------------------+

int CloseOr(int Cls)

  {



// 0:@KB85 >@45@>2

   while(true) // &8:; 70:@KB8O >@4.

     {

      if(Or==0 && ClOr==0) // B:@KB >@45@ Buy..

        {                                       //8 5ABL :@8B5@89 70:@

         Alert(">?KB:0 70:@KBL Buy ",Ticket,". 6840=85 >B25B0..");

         RefreshRates();                        // 1=>2;5=85 40==KE

         Ans=OrderClose(Ticket,Lots,Bid,2);      // 0:@KB85 Buy

         if(Ans==true) // >;CG8;>AL :)

           {

            Alert(Symbol()," "$ ",Period(),"0:@KB >@45@ Buy ?> F5=5 = ",Bid,"Ticket = ",Ticket);

            Qnt_Symb=FileWrite(Handle,Symbol()," "$ ",Period(),"0:@KB >@45@ Buy ?> F5=5 ",Bid,"Ticket = ",Ticket);//0?8AL 2 D09;

            if(Qnt_Symb<0) // A;8 =5 ?>;CG8;>AL

              {

               Alert("H81:0 70?8A8 2 D09; ",GetLastError());// !>>1I5=85

              };

            Or=-1;

            break;                              // KE>4 87 F8:;0 70:@

           }

         if(Fun_Error(GetLastError())==1) // 1@01>B:0 >H81>:

            continue;                           // >2B>@=0O ?>?KB:0

         return(Or);                                // KE>4 87 start()

        }



      if(Or==1 && ClOr==1) // B:@KB >@45@ Sell..

        {                                       // 8 5ABL :@8B5@89 70:@

         Alert(">?KB:0 70:@KBL Sell ",Ticket,". 6840=85 >B25B0..");

         RefreshRates();                        // 1=>2;5=85 40==KE

         Ans=OrderClose(Ticket,Lots,Ask,2);      // 0:@KB85 Sell

         if(Ans==true) // >;CG8;>AL :)

           {

            Alert(Symbol()," "$ ",Period(),"0:@KB >@45@ Sell ?> F5=5 ",Ask,"Ticket = ",Ticket);

            Qnt_Symb=FileWrite(Handle,Symbol()," "$ ",Period(),"0:@KB >@45@ Sell ?> F5=5 ",Ask,"Ticket = ",Ticket);//0?8AL 2 D09;

            if(Qnt_Symb<0) // A;8 =5 ?>;CG8;>AL

              {

               Alert("H81:0 70?8A8 2 D09; ",GetLastError());// !>>1I5=85

              };



            Or=-1;

            break;                              // KE>4 87 F8:;0 70:@

           }

         if(Fun_Error(GetLastError())==1) // 1@01>B:0 >H81>:

            continue;                           // >2B>@=0O ?>?KB:0

         return(Or);                                // KE>4 87 start()

        }

      break;                                    // KE>4 87 while

     }



   return(Or);

  }

//+------------------------------------------------------------------+



//-------------------------------------------------------------- 10 --

int Fun_Error(int Error) // $-8O >1@01>B >H81>:

  {

   switch(Error)

     {                                          // @5>4>;8<K5 >H81:8            

      case  4: Alert("">@3>2K9 A5@25@ 70=OB. @>1C5< 5IQ @07..");

      Sleep(3000);                           // @>AB>5 @5H5=85

      return(1);                             // KE>4 87 DC=:F88

      case 135:Alert("&5=0 87<5=8;0AL. @>1C5< 5IQ @07..");

      RefreshRates();                        // 1=>28< 40==K5

      return(1);                             // KE>4 87 DC=:F88

      case 136:Alert("5B F5=. 4Q< =>2K9 B8:..");

      while(RefreshRates()==false)           // > =>2>3> B8:0

         Sleep(1);                           // 045@6:0 2 F8:;5

      return(1);                             // KE>4 87 DC=:F88

      case 137:Alert("@>:5@ 70=OB. @>1C5< 5IQ @07..");

      Sleep(3000);                           // @>AB>5 @5H5=85

      return(1);                             // KE>4 87 DC=:F88

      case 146:Alert(">4A8AB5<0 B>@3>2;8 70=OB0. @>1C5< 5IQ..");

      Sleep(500);                            // @>AB>5 @5H5=85

      return(1);                             // KE>4 87 DC=:F88

                                             // @8B8G5A:85 >H81:8

      case  2: Alert("1I0O >H81:0.");

      return(0);                             // KE>4 87 DC=:F88

      case  5: Alert("!B0@0O 25@A8O B5@<8=0;0.");

      Work=false;                            // >;LH5 =5 @01>B0BL

      return(0);                             // KE>4 87 DC=:F88

      case 64: Alert("!G5B 701;>:8@>20=.");

      Work=false;                            // >;LH5 =5 @01>B0BL

      return(0);                             // KE>4 87 DC=:F88

      case 133:Alert("">@3>2;O 70?@5I5=0.");

      return(0);                             // KE>4 87 DC=:F88

      case 134:Alert("54>AB0B>G=> 45=53 4;O A>25@H5=8O >?5@0F88.");

      return(0);                             // KE>4 87 DC=:F88

      default: Alert(">7=8:;0 >H81:0 ",Error); // @C385 20@80=BK   

      return(0);                             // KE>4 87 DC=:F88

     }

  }

//-------------------------------------------------------------- 11 --

//-------------------------------------------------------------- 11 --

int New_Stop(int Parametr) // @>25@:0 AB>?-?@8:.

  {

   int Min_Dist=MarketInfo(Symb,MODE_STOPLEVEL);// 8=8<. 48AB0=F8O

   if(Parametr<Min_Dist) // A;8 <5=LH5 4>?CAB.

     {

      Parametr=Min_Dist;                        // #AB0=>28< 4>?CAB.

      Alert("#25;8G5=0 48AB0=F8O AB>?-?@8:070.");

     }

   return(Parametr);                            // >72@0B 7=0G5=8O

  }

//-------------------------------------------------------------- 12 --



int FileTest()

  {

   Handle=FileOpen(File_Name,FILE_CSV|FILE_WRITE,";");//B:@KB85 D09;0

   if(Handle==-1) // 5C40G0 ?@8 >B:@KB88 D09;0

     {

      Alert("H81:0 ?@8 >B:@KB88 D09;0. ",// !>>1I5=85 >1 >H81:5 

            ">7<>6=>, D09; 70=OB 4@C38< ?@8;>65=85<");



     }



   return(Handle);

  }

//+------------------------------------------------------------------+