Executer_AC

//+------------------------------------------------------------------+
//|                                                  Executer_AC.mq4 |
//|                           Copyright © 2006, Alex Sidd (Executer) |
//|                                           mailto:work_st@mail.ru |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//|  Äàííûé ñîâåòíèê  íàïèñàí íà îñíîâå ñîâåòíèêà  MACD Sample.      |
//+------------------------------------------------------------------+
extern double TakeProfit = 120;  //ïðîôèò
extern double Lots = 0.9;        //êîë-âî âûñòàâëÿåìûõ ëîòîâ
extern double TrailingStop = 30; //òðåéëèíã ñòîï
extern double StopLoss = 70;
extern double DecreaseFactor = 80;
extern double MaximumRisk    = 0.014;
extern double MaximumLots    = 100;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetSizeLot() //îïòèìèçàöèÿ ëîòîâ
  {
   double Lot = Lots;
   int cycle;
   int prof = 0;
   int orders = HistoryTotal();     // history orders total
   int losses = 0;                  // number of losses orders without a break
   int vinn = 0;
   int i = orders;
//---- select lot size
  Lot = NormalizeDouble(AccountFreeMargin()*MaximumRisk / 100, 1);
//----
   if(AccountFreeMargin() <= 14) 
       DecreaseFactor = 14;
//----
   if(AccountFreeMargin() > 10000) 
       DecreaseFactor = 60;
//----
   if(DecreaseFactor > 0 && orders > DecreaseFactor)
     {
       //----
       for(cycle = 1; cycle < DecreaseFactor; cycle++)
         {
           i--;
           //----
           if(OrderSelect(i, SELECT_BY_TICKET, MODE_HISTORY) == false) 
             { 
               Print("Error in history!"); 
               break; 
             } 
           //----
           if(OrderCloseTime()>0)
             {
               prof = prof + OrderProfit(); 
               if(OrderProfit() <= 0 ) 
                   losses++;
               else 
                   vinn++;
             }
         }  
       if(prof <= 0 && losses > vinn) 
           Lot = 0.1;
       if(prof <=0 && vinn > losses) 
           Lot = Lot - (0.1*losses);
       if(prof > 0 && losses > vinn) 
         {
           Lot = Lot + (0.1*NormalizeDouble(vinn / 4, 0.1));
         }
       if(prof > 0 && losses <= vinn )
         {
           Lot = Lot + (0.1*NormalizeDouble(vinn / 2, 0.1));
         }
     } 
   if(AccountFreeMargin() < 300 || Lot < 0.1) 
       Lot = 0.1;
   if(Lot*1275 >= AccountFreeMargin()) 
       Lot = NormalizeDouble(AccountFreeMargin()*MaximumRisk / 100, 1);
   if(MaximumLots != 0 && Lot > MaximumLots) 
       Lot = MaximumLots;
   if(DecreaseFactor > orders) 
       Lot = Lots;
   return(Lot);
  }  
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+  
int start()
  {
   double ACCur, ACPrev, ACPrev2, ACPrev3;
   int cnt, ticket, total;
// iAC - îñöèëëÿòîð óñêîðåíèÿ-çàìåäëåíèÿ.
// Ñèíòàêñèñ: iAC( shift ) 
// Ïàðàìåòð: shift - ñìåùåíèå îòíîñèòåëüíî òåêóùåãî áàðà (êîëè÷åñòâî ïåðèîäîâ 
// íàçàä), îòêóäà íóæíî áðàòü äàííûå.
   if(Bars < 100)
     {
       Print("Áàðîâ ìåíüøå 100");
       return(0);  
     }
   if(TakeProfit < 10)
     {
       Print("TakeProfit ìåíüøå ÷åì 10");
       return(0);  // check TakeProfit
     }
   ACCur = iAC(NULL, 0, 1);
   ACPrev = iAC(NULL, 0, 2);
   ACPrev2 = iAC(NULL, 0, 3);
   ACPrev3 = iAC(NULL, 0, 4);
   total = OrdersTotal();  // ïðîâåðÿåì åñòü ëè îòêðûòûå ïîçèöèè
   if(total < 1) 
     {
       if(AccountFreeMargin() < (500*Lots))  // ïðîâåðÿåì äåíåæêè íà ñ÷åòó
         {
           Print("Äåíåã ïî÷òè íåò, îñòàëîñü âñåãî: ", AccountFreeMargin());
           return(0);  
         }
       // ïðîâåðÿåì îòêðûòèå ïîçèöèè íà ïîêóïêó
       if(ACCur > 0 && ACPrev > 0)
         {
           // ïðîâåðÿåì âîçìîæíîñòü îòêðûòèÿ íà ïîêóïêó
           if(ACCur > ACPrev && ACPrev > ACPrev2)
             {
               OrderSend(Symbol(), OP_BUY, GetSizeLot(), Ask, 3, Ask - StopLoss*Point, 
                         Ask + TakeProfit*Point, "AC expert", 16384, 0, Green);
               return(0); 
             }
           // ïðîâåðÿåì âîçìîæíîñòü îòêðûòèÿ íà ïðîäàæó
           if(ACCur < ACPrev && ACPrev < ACPrev2 && ACPrev2 < ACPrev3)
             {
               OrderSend(Symbol(), OP_SELL, GetSizeLot(), Bid, 3, Bid + StopLoss*Point, 
                         Bid - TakeProfit*Point, "AC expert", 16384, 0, Red);
               return(0); 
             }
         }
       if(ACCur < 0 && ACPrev < 0)
         {
           // ïðîâåðÿåì âîçìîæíîñòü îòêðûòèÿ íà ïîêóïêó
           if(ACCur > ACPrev && ACPrev > ACPrev2 && ACPrev2 > ACPrev3)
             {
               OrderSend(Symbol(), OP_BUY, GetSizeLot(), Ask, 3, Ask - StopLoss*Point, 
                         Ask + TakeProfit*Point, "AC expert", 16384, 0, Green);
               return(0); 
             }
           // ïðîâåðÿåì âîçìîæíîñòü îòêðûòèÿ íà ïðîäàæó
           if(ACCur < ACPrev && ACPrev < ACPrev2)
             {
               OrderSend(Symbol(), OP_SELL, GetSizeLot(), Bid, 3, Bid + StopLoss*Point, 
                         Bid - TakeProfit*Point, "AC expert", 16384, 0, Red);
               return(0); 
             }
         }
       if(ACCur > 0 && ACPrev < 0)
         {
           OrderSend(Symbol(), OP_BUY, GetSizeLot(), Ask, 3, Ask - StopLoss*Point, 
                     Ask + TakeProfit*Point, "AC expert", 16384, 0, Green);
           return(0); 
         }
       if(ACCur < 0 && ACPrev > 0)
         {
           OrderSend(Symbol(), OP_SELL, GetSizeLot(), Bid, 3, Bid + StopLoss*Point, 
                     Bid - TakeProfit*Point, "AC expert", 16384, 0, Red);
           return(0); 
         }
       return(0);
     }
   for(cnt = 0; cnt < total; cnt++)
     {
       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
       if(OrderType() <= OP_SELL &&   // ïðîâåðêà îòêðûòîé ïîçèöèè 
          OrderSymbol() == Symbol())  // ïðîâåðêà ñ íàøåãî ëè îíà ãðàôèêà
         {
           if(OrderType() == OP_BUY)    // åñëè îòêðûòà ïîçèöèÿ íà ïîêóïêó
             {
               // íàäî ëè åå çàêðûòü?
               if(ACCur < ACPrev)
                 {
                   OrderClose(OrderTicket(), OrderLots(), Bid, 3, Violet); // çàêðûëè
                   return(0);  // ñâàëèâàåì
                 }
               // íóæíî ëè äâèãàòü òðåéëèíã ñòîï
               if(TrailingStop > 0)  
                 {                 
                   if(Bid - OrderOpenPrice() > Point*TrailingStop)
                     {
                       if(OrderStopLoss() < Bid - Point*TrailingStop)
                         {
                           OrderModify(OrderTicket(), OrderOpenPrice(), 
                                       Bid - Point*TrailingStop, OrderTakeProfit(), 
                                       0, Green);
                           return(0);
                         }
                     }
                 }
             }
           else // åñëè ýòà ïîçèöèÿ íà ïðîäàæó
             {
               // íàäî ëè çàêðûòü?
               if(ACCur > ACPrev)
                 {
                   OrderClose(OrderTicket(), OrderLots(), Ask, 3, Violet); // çàêðûëè
                   return(0); // âûõîä
                 }
               // íóæîí ëè òðåéëèíãñòîïèíã
               if(TrailingStop > 0)  
                 {                 
                   if((OrderOpenPrice() - Ask) > (Point*TrailingStop))
                     {
                       if((OrderStopLoss() > (Ask + Point*TrailingStop)) || 
                          (OrderStopLoss() == 0))
                         {
                           OrderModify(OrderTicket(), OrderOpenPrice(), 
                                       Ask + Point*TrailingStop, OrderTakeProfit(),
                                       0, Red);
                           return(0);
                         }
                     }
                 }
             }
         }
     }
   return(0);
  }
//+------------------------------------------------------------------+