Cómo Crear un Expert Advisor con IA para MT5 en Deriv

//+------------------------------------------------------------------+
//| EA EMA Cross + RSI — AI-generated                                |
//| IA Trader Pro — iatraderpro.com/                                  |
//| WARNING: Use only on a DEMO account!                             |
//+------------------------------------------------------------------+
#property copyright "IA Trader Pro"
#property version   "1.00"
#property strict

// Input parameters
input int      EMA_Fast     = 9;       // Fast EMA period
input int      EMA_Slow     = 21;      // Slow EMA period
input int      RSI_Period   = 14;      // RSI period
input int      RSI_Lower    = 40;      // RSI minimum for buy
input int      RSI_Upper    = 60;      // RSI maximum for sell
input double   RiskPercent  = 2.0;     // Risk per trade (%)
input int      StopLoss     = 200;     // Stop Loss in points
input int      TakeProfit   = 400;     // Take Profit in points
input int      TrailingStop = 100;     // Trailing Stop in points
input int      MagicNumber  = 12345;   // Magic number

// Indicator handles
int handleEmaFast, handleEmaSlow, handleRsi;

//+------------------------------------------------------------------+
//| Initialization                                                   |
//+------------------------------------------------------------------+
int OnInit()
{
   handleEmaFast = iMA(_Symbol, PERIOD_CURRENT, EMA_Fast, 0, MODE_EMA, PRICE_CLOSE);
   handleEmaSlow = iMA(_Symbol, PERIOD_CURRENT, EMA_Slow, 0, MODE_EMA, PRICE_CLOSE);
   handleRsi     = iRSI(_Symbol, PERIOD_CURRENT, RSI_Period, PRICE_CLOSE);

   if(handleEmaFast == INVALID_HANDLE || handleEmaSlow == INVALID_HANDLE || handleRsi == INVALID_HANDLE)
   {
      Print("❌ Error creating indicators");
      return INIT_FAILED;
   }

   Print("✅ EA IA Trader Pro started successfully");
   return INIT_SUCCEEDED;
}

//+------------------------------------------------------------------+
//| Deinitialization                                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   IndicatorRelease(handleEmaFast);
   IndicatorRelease(handleEmaSlow);
   IndicatorRelease(handleRsi);
   Print("EA stopped. Reason: ", reason);
}

//+------------------------------------------------------------------+
//| Main tick                                                        |
//+------------------------------------------------------------------+
void OnTick()
{
   // Check if there's an open position
   if(PositionsTotal() > 0)
   {
      // Apply trailing stop
      ApplyTrailingStop();
      return;
   }

   // Get indicator values
   double emaFast[], emaSlow[], rsi[];
   CopyBuffer(handleEmaFast, 0, 0, 3, emaFast);
   CopyBuffer(handleEmaSlow, 0, 0, 3, emaSlow);
   CopyBuffer(handleRsi, 0, 0, 2, rsi);

   ArraySetAsSeries(emaFast, true);
   ArraySetAsSeries(emaSlow, true);
   ArraySetAsSeries(rsi, true);

   // Crossover up (buy signal)
   bool crossUp = emaFast[1] <= emaSlow[1] && emaFast[0] > emaSlow[0];
   bool crossDown = emaFast[1] >= emaSlow[1] && emaFast[0] < emaSlow[0];

   double lot = CalculateLot();

   // BUY signal
   if(crossUp && rsi[0] > RSI_Lower && rsi[0] < 70)
   {
      double price = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
      double sl = price - StopLoss * _Point;
      double tp = price + TakeProfit * _Point;

      MqlTradeRequest req = {};
      MqlTradeResult  res = {};
      req.action    = TRADE_ACTION_DEAL;
      req.symbol    = _Symbol;
      req.volume    = lot;
      req.type      = ORDER_TYPE_BUY;
      req.price     = price;
      req.sl        = sl;
      req.tp        = tp;
      req.magic     = MagicNumber;
      req.comment   = "IA Trader Pro BUY";

      if(OrderSend(req, res))
         Print("🟢 BUY: ", lot, " lots @ ", price);
      else
         Print("❌ Buy error: ", res.retcode);
   }

   // SELL signal
   if(crossDown && rsi[0] < RSI_Upper && rsi[0] > 30)
   {
      double price = SymbolInfoDouble(_Symbol, SYMBOL_BID);
      double sl = price + StopLoss * _Point;
      double tp = price - TakeProfit * _Point;

      MqlTradeRequest req = {};
      MqlTradeResult  res = {};
      req.action    = TRADE_ACTION_DEAL;
      req.symbol    = _Symbol;
      req.volume    = lot;
      req.type      = ORDER_TYPE_SELL;
      req.price     = price;
      req.sl        = sl;
      req.tp        = tp;
      req.magic     = MagicNumber;
      req.comment   = "IA Trader Pro SELL";

      if(OrderSend(req, res))
         Print("🔴 SELL: ", lot, " lots @ ", price);
      else
         Print("❌ Sell error: ", res.retcode);
   }
}

//+------------------------------------------------------------------+
//| Calculate lot based on risk                                      |
//+------------------------------------------------------------------+
double CalculateLot()
{
   double balance = AccountInfoDouble(ACCOUNT_BALANCE);
   double riskAmount = balance * RiskPercent / 100.0;
   double tickValue = SymbolInfoDouble(_Symbol, SYMBOL_TRADE_TICK_VALUE);
   double lot = riskAmount / (StopLoss * tickValue);

   double minLot = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_MIN);
   double maxLot = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_MAX);
   double lotStep = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_STEP);

   lot = MathFloor(lot / lotStep) * lotStep;
   lot = MathMax(minLot, MathMin(maxLot, lot));

   return lot;
}

//+------------------------------------------------------------------+
//| Trailing Stop                                                    |
//+------------------------------------------------------------------+
void ApplyTrailingStop()
{
   for(int i = PositionsTotal() - 1; i >= 0; i--)
   {
      if(PositionGetSymbol(i) != _Symbol) continue;
      if(PositionGetInteger(POSITION_MAGIC) != MagicNumber) continue;

      double openPrice = PositionGetDouble(POSITION_PRICE_OPEN);
      double currentSL = PositionGetDouble(POSITION_SL);
      double bid = SymbolInfoDouble(_Symbol, SYMBOL_BID);
      double ask = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
      long type = PositionGetInteger(POSITION_TYPE);

      if(type == POSITION_TYPE_BUY)
      {
         double newSL = bid - TrailingStop * _Point;
         if(newSL > currentSL && newSL > openPrice)
         {
            MqlTradeRequest req = {};
            MqlTradeResult  res = {};
            req.action   = TRADE_ACTION_SLTP;
            req.position = PositionGetInteger(POSITION_TICKET);
            req.symbol   = _Symbol;
            req.sl       = newSL;
            req.tp       = PositionGetDouble(POSITION_TP);
            OrderSend(req, res);
         }
      }
      else if(type == POSITION_TYPE_SELL)
      {
         double newSL = ask + TrailingStop * _Point;
         if(newSL < currentSL && newSL < openPrice)
         {
            MqlTradeRequest req = {};
            MqlTradeResult  res = {};
            req.action   = TRADE_ACTION_SLTP;
            req.position = PositionGetInteger(POSITION_TICKET);
            req.symbol   = _Symbol;
            req.sl       = newSL;
            req.tp       = PositionGetDouble(POSITION_TP);
            OrderSend(req, res);
         }
      }
   }
}