Download MetaTrader 5
To add comments, please log in or register
Publish your article and win recognition from thousands of traders!
Automated-Trading
Admin
88669
Automated-Trading 2016.07.28 11:36 

Accelerator Bot for USDJPY H4:

This EA uses different indicators: ADX, Stochatisc, Accelerator... This EA is optimized for USDJPY TF H4, but it can work on others if you optimize it.

Author: vsebastien3

hjik
5
hjik 2016.08.16 04:54  
Automated-Trading:

Accelerator Bot for USDJPY H4:

Author: vsebastien3

How too use this EA?
oscarlondero
5
oscarlondero 2016.08.19 20:59  

Hi!

You had same errors in the code in the OrderModify areas.

Here is the correct code, enjoy!

#property version   "1.20"

#property strict


int RiskBoost=3;

int magicalNumber = 2427892;

extern int StopL = 750;          //StopLoss(in pips)

extern int TakeProfit = 1750;   //TakeProfit

int slippage = 3;

extern double Lots = 0.20;       // Lot size

extern int Trailing =95;          //Trailing stop (in pips)

extern double percent = 0.02;    //percent riked by trade

extern bool AutoLots=True;

int depotinit=500;

bool saving=false;

int MovingPeriod = 200;

extern int x1=0;

extern int x2=150;

extern int x3=500;

extern int ADXP=14;

extern int ADXS=20;

int filtre=5;

int ticket = 0;

double iDoji=8.5; 

bool res=false;

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

//| Expert initialization function                                   |

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

int OnInit()

  {

//---

   

//---

   return(INIT_SUCCEEDED);

  }

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

//| Expert deinitialization function                                 |

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

void OnDeinit(const int reason)

  {

//---

   

  }

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

//| Expert tick function                                             |

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

int start()

  {   

  double ADX=iADX(Symbol(),0,ADXP,PRICE_HIGH,MODE_MAIN,0); 

   double STOCHM_1 = iStochastic(Symbol(),0,8,3,3,MODE_SMMA,0, MODE_MAIN, 1);

  double STOCHS_1 = iStochastic(Symbol(),0,8,3,3,MODE_SMMA,0, MODE_SIGNAL, 1);
  
        double MA =iMA(Symbol(),0,MovingPeriod,0,MODE_EMA,PRICE_CLOSE,0); 

  AutoLot();  

  double close=Close[1];

  if((IsEveningStar()==0) && (IsDojiCandle()==0) && (IsBearishEngulfing()==0))

  {
  
  filtre=1;
  
  }

  if((IsMorningStar()==0) && (IsDojiCandle()==0) && (IsBullishEngulfing()==0))

  {

  filtre=0;

  }
  

   if(ADX>ADXS && isPositionOpen()==False && Close[1]<Open[1] && Algo()>0 && filtre==1  )

  {

OpenBuy();

  }  

  if(ADX>ADXS && isPositionOpen()==False && Close[1]>Open[1] && Algo()<0 && filtre==0 )

  {

  OpenSell();

  }  

  if(ADX<ADXS && isPositionOpen()==False && Close[1]<Open[1] && STOCHM_1 > STOCHS_1 && filtre==1)

  {

  OpenBuy();

  }  

  if(ADX<ADXS && isPositionOpen()==False && Close[1]>Open[1] && STOCHM_1 < STOCHS_1 && filtre==0)

  {

  OpenSell();

  }

  
  if((ADX>ADXS && Algo()<0)  )

  {

  CloseBuy();

   
  }
  
  if((ADX>ADXS && Algo()>0))
  
  {

  CloseSell();
  
  }  

  if((ADX<ADXS && STOCHM_1 < STOCHS_1))

  {

  CloseBuy();   

  }
  
  if((ADX<ADXS && STOCHM_1 > STOCHS_1))

  {

  CloseSell();
  
  }  

  Trail();

  return(0);   

  }  

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


void CloseSell()

  {

   int  total=OrdersTotal();

   for(int y=OrdersTotal()-1; y>=0; y--)

     {

      if(OrderSelect(y,SELECT_BY_POS,MODE_TRADES))

         if(OrderSymbol()==Symbol() && OrderType()==OP_SELL && OrderMagicNumber()==magicalNumber)

           {

            ticket=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),5,Black);

           }

     }

  }

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

//|                                                                  |

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

void CloseBuy()

  {

   int  total=OrdersTotal();

   for(int y=OrdersTotal()-1; y>=0; y--)

     {

      if(OrderSelect(y,SELECT_BY_POS,MODE_TRADES))

         if(OrderSymbol()==Symbol() && OrderType()==OP_BUY && OrderMagicNumber()==magicalNumber)

           {

            ticket=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),5,Black);

           }
     }
     

  }

  

//***************************************************************************   

  void OpenBuy()

  {  

    double EMA_D5_1 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,1);

   double EMA_D5_0 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,0);

   double EMA_D20_0 = iMA(Symbol(),PERIOD_D1,20,0,MODE_EMA,PRICE_CLOSE,0);

   double EMA_D130_0 = iMA(Symbol(),PERIOD_MN1,6,0,MODE_EMA,PRICE_CLOSE,0);

    double  BuyLots=Lots;

     double SellLots=Lots;
    

  if ((EMA_D5_0 > EMA_D20_0) && (EMA_D5_0 > EMA_D5_1) && (EMA_D20_0 > EMA_D130_0))

    {

     BuyLots=Lots;

     SellLots=Lots;

    }

    if ((EMA_D5_0 < EMA_D20_0) && (EMA_D5_0 < EMA_D5_1) && (EMA_D20_0 < EMA_D130_0))

    {

     BuyLots=Lots;

     SellLots=Lots;

    }

   ticket=OrderSend(Symbol(),OP_BUY,BuyLots,Ask,slippage,Ask-StopL*Point,Ask+TakeProfit*Point,"BUY",magicalNumber,0,Green);   

           if (ticket>=0)

           {             

               if(OrderSelect(ticket,SELECT_BY_TICKET))

               {

              if (OrderType()==OP_BUY ) {   res=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-StopL*Point,Bid+TakeProfit*Point,0,clrNONE); } 

              if (OrderType()==OP_SELL) {   res=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+StopL*Point,Ask-TakeProfit*Point,0,clrNONE); } 
         

           if(!res)

               Print("Error in OrderModify. Error code=",GetLastError());

            else

               Print("Order modified successfully.");              

               }
                      

           }           

   }

   

  //*******************************************************************************

  

  void OpenSell()    

  {

    double EMA_D5_1 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,1);

   double EMA_D5_0 = iMA(Symbol(),PERIOD_D1,5,0,MODE_EMA,PRICE_CLOSE,0);

   double EMA_D20_0 = iMA(Symbol(),PERIOD_D1,20,0,MODE_EMA,PRICE_CLOSE,0);

   double EMA_D130_0 = iMA(Symbol(),PERIOD_MN1,6,0,MODE_EMA,PRICE_CLOSE,0);  

  double  BuyLots=Lots;

     double SellLots=Lots;    

  if ((EMA_D5_0 > EMA_D20_0) && (EMA_D5_0 > EMA_D5_1) && (EMA_D20_0 > EMA_D130_0))

    {

     BuyLots=Lots;

     SellLots=Lots;

    }


    if ((EMA_D5_0 < EMA_D20_0) && (EMA_D5_0 < EMA_D5_1) && (EMA_D20_0 < EMA_D130_0))

    {

     BuyLots=Lots;

     SellLots=Lots;

    }


  double ATR=iATR(NULL,0,20,0);  

ticket = OrderSend(Symbol(),OP_SELL,SellLots,Bid,slippage,Bid+StopL*Point,Bid-TakeProfit*Point,"SELL",magicalNumber,0,Green);

           if (ticket>=0)

           {             

               if(OrderSelect(ticket,SELECT_BY_TICKET))

               {

              if (OrderType()==OP_BUY ) {   res=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-StopL*Point,Bid+TakeProfit*Point,0,clrNONE); } 

              if (OrderType()==OP_SELL) {   res=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+StopL*Point,Ask-TakeProfit*Point,0,clrNONE); } 

              if(!res)

               Print("Error in OrderModify. Error code=",GetLastError());

            else

               Print("Order modified successfully.");             

               }
           
           

           }           

           }           

//**************************************************************


int Trail()

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

     {

      bool ch = OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);

                  if(!ch)

               Print("Error in OrderSelect. Error code=",GetLastError());

            else

             //  Print("Order selected successfully.");
             
      if( OrderSymbol()==Symbol() && OrderMagicNumber()==magicalNumber)
        
        {

         if(OrderType()==OP_BUY)

           {

            if(Trailing>0)

              {

               if(Bid-OrderOpenPrice()>Point*Trailing)

                 {

                  if(OrderStopLoss()<Bid-Point*Trailing)

                    {

                     res =OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*Trailing,OrderTakeProfit(),0,Green); return(0);
                     
             if(!res)

               Print("Error in OrderModify. Error code=",GetLastError());

            else

               Print("Order modified Trailing successfully.");

                    }

                 }

              }

           }

         if(OrderType()==OP_SELL)

           {

            if(Trailing>0)

              {

               if((OrderOpenPrice()-Ask)>(Point*Trailing))

                 {

                  if((OrderStopLoss()>(Ask+Point*Trailing)) || (OrderStopLoss()==0))

                    {

                      res =OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*Trailing,OrderTakeProfit(),0,Green); return(0);

                                 if(!res)

               Print("Error in OrderModify. Error code=",GetLastError());

            else

               Print("Order modified Trailing successfully.");

                    }

                 }

              }

           }

         }

       }

  return(0);

}

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

void AutoLot()

{

   if(AutoLots == True)

   {

   double tickvalue = MarketInfo(Symbol(),MODE_TICKVALUE);
   
   Lots=MathRound(((AccountBalance()*percent*tickvalue)/StopL)*100)/100;

      if(Lots<0.01)

      {Lots=0.01;}

       if((AccountBalance()>=1.5*depotinit || AccountBalance()<=0.6*depotinit) && saving==true)

   {

   Lots=0.01;

   }

   //double tickvalue = MarketInfo(Symbol(),MODE_TICKVALUE*10);

   }   

}

////////////////////////////////////////////////////////////////////////////

bool isPositionOpen()

  {

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

     {

      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderMagicNumber()==magicalNumber && OrderSymbol()==Symbol())

        {

         return true;

        }

     }

   return false;
   
   }

///////////////////////////

double Algo()

  {

   double a1 = iAC(Symbol(),PERIOD_W1 , 0);

   double a2 = iAC(Symbol(),PERIOD_D1 , 0);

   double a3 = iAC(Symbol(), PERIOD_H4, 0);   
   
   return(x1 * a1 + x2 * a2 + x3 * a3);

  }  

  //////////////////////////////////////////////////
  
  int IsMorningStar()

{int retval=0;


if(

    (Body(3) > Body(2)) &&  // Star body smaller than the previous one
    

    (Body(1) > Body(2)) && // Body of star smaller than bodies of first and last candles
    
    (Close[3] < Open[3]) && // First is a down candle
    
    (Close[1] > Open[1]) && // Third is an up candle
    
    (Close[1] > (BodyLo(3) + Body(3)*0.5)) // The third candle closes above the midpoint of the first candle
    
  )

  retval=1;


return (retval);
}

int IsEveningStar()

{int retval=0;

if(

    (Body(3) > Body(2)) &&  // Star body smaller than the previous one
    
    (Body(1) > Body(2)) && // Body of star smaller than bodies of first and last candles
    
    (Close[3] > Open[3]) && // First is an up candle
    
    (Close[1] < Open[1]) && // Third is a down candle
    
    (Close[1] < (BodyHi(3) - Body(3)*0.5)) // The third candle closes below the midpoint of the first candle
    
  )

  retval=1;

return (retval);

}

int IsBullishEngulfing()

{int retval=0;

if(

    (Close[2] < Open[2]) && // First is a down candle
    
    (Close[1] > Open[1]) && // Second is an up candle
    
    (Body(2) < Body(1)) // First engulfed by second
  )

  retval=1;

return (retval);

}

int IsBearishEngulfing()

{int retval=0;

if(

    (Close[2] > Open[2]) && // First is an up candle
    
    (Close[1] < Open[1]) && // Second is a down candle
    
    (Body(2) < Body(1)) // First engulfed by second

  )

  retval=1;

return (retval);

}

int IsDojiCandle()

{int retval=0;

if(

   (Body(1) < ((High[1] - Low[1])/iDoji))

  )

  retval=1;

return (retval);

}

double Body (int iCandle)

{ double CandleOpen, CandleClose;

CandleOpen=Open[iCandle];

CandleClose=Close[iCandle];

return (MathMax(CandleOpen, CandleClose)-(MathMin(CandleOpen, CandleClose)));

}

double BodyLo (int iCandle)

{

return (MathMin(Open[iCandle], Close[iCandle]));

}

double BodyHi (int iCandle)

{

return (MathMax(Open[iCandle], Close[iCandle]));

}
Mike
51
Mike 2016.08.23 08:17  
Hi,
I tried the original EA by vsebastein3, it seems to work fine to me. In testing I didn't get the order modify errors oscarlondero mentions. I  also tried oscarlondero proposed order modify changes to the EA, the changes gave me order  modify errors. The order modify operation may depend on the build of your MT4, Im running build 1010. Cheers.
BING
3
BING 2016.09.11 06:12  
What does the name mean?
/
To add comments, please log in or register