AK-47 Scalper EA: Tu Asesor Experto para MetaTrader 4

1. Parámetros de entrada

#define ExtBotName "AK-47 Scalper EA" // Nombre del Bot
#define  Version "1.00"

//--- parámetros de entrada
extern string  EASettings        = "---------------------------------------------"; //-------- <Configuraciones del EA> --------
input int      InpMagicNumber    = 124656;   //Número Mágico

extern string  TradingSettings   = "---------------------------------------------"; //-------- <Configuraciones de Trading> --------
input double   Inpuser_lot       = 0.01;     //Lotes
input double   InpSL_Pips        = 3.5;      //Stoploss (en Pips)
input double   InpMax_spread     = 0.5;      //Spread máximo permitido (en Pips) (0 = flotante)

extern string  MoneySettings     = "---------------------------------------------"; //-------- <Configuraciones de Dinero> --------
input bool     isVolume_Percent  = true;     //Permitir Volumen en Porcentaje
input double   InpRisk           = 3;        //Porcentaje de Riesgo del Saldo (%)

input string   TimeSettings      = "---------------------------------------------"; //-------- <Configuraciones de Tiempo de Trading> --------
input bool     InpTimeFilter     = true      //Filtro de Tiempo de Trading
input int      InpStartHour      = 2         //Hora de Inicio
input int      InpStartMinute    = 30        //Minuto de Inicio
input int      InpEndHour        = 21        //Hora de Fin
input int      InpEndMinute      = 0         //Minuto de Fin

2. Inicialización de variables locales

//--- Variables
int      Pips2Points;               // deslizamiento  3 pips    3=points    30=points
double   Pips2Double;               // Stoploss 15 pips    0.015      0.0150
int      InpMax_slippage   = 3;     // Deslizamiento máximo permitido.
bool     isOrder           = false; // solo abre 1 orden
int      slippage;
string   strComment        = "";

3. Código Principal

a/ Función de inicialización del Asesor Experto

int OnInit()
  {
//---   
   //Detección de 3 o 5 dígitos
   //Pip y punto
   if (Digits % 2 == 1)
   {
      Pips2Double  = _Point*10; 
      Pips2Points  = 10;
      slippage = 10* InpMax_slippage;
   } 
   else
   {    
      Pips2Double  = _Point;
      Pips2Points  =  1;
      slippage = InpMax_slippage;
   }
   
//---
   return(INIT_SUCCEEDED);
  }

b/ Función de tick del Asesor Experto

void OnTick()
  {
//---
     if(IsTradeAllowed() == false)
     {
      Comment("AK-47 EA\nTrading no permitido.");
      return;
     }
     
       MqlDateTime structTime;
       TimeCurrent(structTime);
       structTime.sec = 0;
       
       //Establecer tiempo de inicio
       structTime.hour = InpStartHour;
       structTime.min = InpStartMinute;       
       datetime timeStart = StructToTime(structTime);
       
       //Establecer tiempo de fin
       structTime.hour = InpEndHour;
       structTime.min = InpEndMinute;
       datetime timeEnd = StructToTime(structTime);
       
       double acSpread = MarketInfo(Symbol(), MODE_SPREAD);
       StopLevel = MarketInfo(Symbol(), MODE_STOPLEVEL);
      
      strComment = "\n" + ExtBotName + " - v." + (string)Version;
      strComment += "\nHora GMT = " + TimeToString(TimeGMT(),TIME_DATE|TIME_SECONDS);
      strComment += "\nTiempo de Trading = [" + (string)InpStartHour + "h" + (string)InpStartMinute + " --> " +  (string)InpEndHour + "h" + (string)InpEndMinute + "]";
      
      strComment += "\nSpread Actual = " + (string)acSpread + " Puntos";
      strComment += "\nNivel de Stop actual = " + (string)StopLevel + " Puntos";
      
      Comment(strComment);
   
      //Actualizar Valores
      UpdateOrders();
      
      TrailingStop();
      
      //Verificar tiempo de Trading
      if(InpTimeFilter)
      {
         if(TimeCurrent() >= timeStart && TimeCurrent() < timeEnd)
         {
            if(!isOrder) OpenOrder();
         }
      }
      else
      {
         if(!isOrder) OpenOrder();
      }
  }

3.1 Calcular señal para enviar órdenes

void OpenOrder(){
   
   //int OrdType = OP_SELL;//-1;

   double TP = 0;
   double SL = 0;
   string comment = ExtBotName;

   //Calcular Lotes
   double lot1 = CalculateVolume();
   
   //if(OrdType == OP_SELL){
      double OpenPrice = NormalizeDouble(Bid - (StopLevel * _Point) - (InpSL_Pips/2) * Pips2Double, Digits);
      SL = NormalizeDouble(Ask + StopLevel * _Point + InpSL_Pips/2 * Pips2Double, Digits);
         
      if(CheckSpreadAllow())                                    //Verificar Spread
      {
         if(!OrderSend(_Symbol, OP_SELLSTOP, lot1, OpenPrice, slippage, SL, TP, comment, InpMagicNumber, 0, clrRed))
         Print(__FUNCTION__,"--> Error en OrderSend ",GetLastError());
      }
   //}
}

3.2 Calcular Volumen

double CalculateVolume()
  {
   double LotSize = 0;

   if(isVolume_Percent == false)
     {
      LotSize = Inpuser_lot;
     }
   else
     {

      LotSize = (InpRisk) * AccountFreeMargin();
      LotSize = LotSize /100000;
      double n = MathFloor(LotSize/Inpuser_lot);
      //Comment((string)n);
      LotSize = n * Inpuser_lot;

      if(LotSize < Inpuser_lot)
         LotSize = Inpuser_lot;

      if(LotSize > MarketInfo(Symbol(),MODE_MAXLOT))
         LotSize = MarketInfo(Symbol(),MODE_MAXLOT);

      if(LotSize < MarketInfo(Symbol(),MODE_MINLOT))
         LotSize = MarketInfo(Symbol(),MODE_MINLOT);
     }

   return(LotSize);
  }

3.3 El EA tiene función "Trailing Stop", SL cambiará cada vez que el precio cambie (baje)

void TrailingStop()
  {
   for(int i = OrdersTotal() - 1; i >= 0; i--)
     {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
        {
         if((OrderMagicNumber() == InpMagicNumber) && (OrderSymbol() == Symbol()))   //_Symbol))
           {

            //Para Orden de Venta
            if(OrderType() == OP_SELL)
              {
                  //--Calcular SL cuando el precio cambie
                  double SL_in_Pip = NormalizeDouble(OrderStopLoss() - (StopLevel * _Point) - Ask, Digits) / Pips2Double;
                  if(SL_in_Pip > InpSL_Pips){
                        double newSL = NormalizeDouble(Ask + (StopLevel * _Point) + InpSL_Pips * Pips2Double, Digits);
                        if(!OrderModify(OrderTicket(), OrderOpenPrice(), newSL, OrderTakeProfit(), 0, clrRed))
                        {
                           Print(__FUNCTION__,"--> Error en OrderModify ",GetLastError());
                        {
                           continue  
                        }
              }
              }
             
            //Para Orden de Venta Stop
            else if(OrderType() == OP_SELLSTOP)
              {
                  double SL_in_Pip = NormalizeDouble(OrderStopLoss() - (StopLevel * _Point) - Ask, Digits) / Pips2Double;
                  
                  if(SL_in_Pip < InpSL_Pips/2){
                     double newOP = NormalizeDouble(Bid - (StopLevel * _Point) - (InpSL_Pips/2) * Pips2Double, Digits);
                     double newSL = NormalizeDouble(Ask + (StopLevel * _Point) + (InpSL_Pips/2) * Pips2Double, Digits);
                     
                     if(!OrderModify(OrderTicket(), newOP, newSL, OrderTakeProfit(), 0, clrRed))
                     {
                        Print(__FUNCTION__,"--> Error en Modificar Orden Pendiente!", GetLastError());
                        continue  
                     }
                  
                    }
          }
           }
        }
     }
  }

AK-47 Scalper EA: Tu Asesor Experto para MetaTrader 4

Publicaciones relacionadas