【MQL4】窓(ギャップ)ができた直後に「窓埋め」を狙って逆張りエントリーするEAの作り方(MODE_STOPLEVELの安全確認つき)

//+------------------------------------------------------------------+
//|                                      GapFillReversalEA.mq4        |
//|                     Copyright 2026, FX-EA System Project Creator |
//|                        https://creator.fx-ea-system-project.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2026, FX-EA System Project Creator"
#property link      "https://creator.fx-ea-system-project.com/"
#property version   "1.00"
#property strict

input int    InpMinGapPips     = 50;       //エントリー対象にする最小ギャップ(pips)
input int    InpMinRemainPips  = 25;       //エントリー時点で残っている必要がある最小ギャップ(pips)
input double InpLots           = 0.10;     //発注ロット数
input int    InpStopBufferPips = 20;       //本日始値からさらに外側へ加える損切りバッファ(pips)
input int    InpSlippage       = 5;        //許容スリッページ
input int    InpMagic          = 20261115; //マジックナンバー

datetime lastDailyBarTime = 0;

//+------------------------------------------------------------------+
//| 5桁/3桁ブローカーの補正済みpoint値を返す                                |
//+------------------------------------------------------------------+
double PointAdjust()
  {
   double point = _Point;
   if(_Digits == 3 || _Digits == 5)
      point *= 10;
   return(point);
  }

//+------------------------------------------------------------------+
//| このマジックナンバー・この通貨ペアの保有ポジションがあるか                   |
//+------------------------------------------------------------------+
bool HasOpenPosition()
  {
   for(int i = 0; i < OrdersTotal(); i++)
     {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES) &&
         OrderSymbol() == _Symbol && OrderMagicNumber() == InpMagic)
         return(true);
     }
   return(false);
  }

//+------------------------------------------------------------------+
//| 窓埋めを狙った逆張りエントリーを試みる                                   |
//+------------------------------------------------------------------+
void TryEnterGapFillTrade()
  {
   double point = PointAdjust();

   double todayOpen = iOpen(NULL, PERIOD_D1, 0);
   double prevClose = iClose(NULL, PERIOD_D1, 1);
   double gapPips = (todayOpen - prevClose) / point;

   if(MathAbs(gapPips) < InpMinGapPips)
      return;

   string dateKey = "GFR_" + _Symbol + "_" +
                     TimeToString(iTime(NULL, PERIOD_D1, 0), TIME_DATE);
   if(GlobalVariableCheck(dateKey))
      return;
   GlobalVariableSet(dateKey, 1);

   double stopLevelPoints = MarketInfo(_Symbol, MODE_STOPLEVEL);
   double minDistance = stopLevelPoints * _Point;

   if(gapPips > 0)
     {
      double remainPips = (Bid - prevClose) / point;
      if(remainPips < InpMinRemainPips)
        {
         Print("窓が既にほとんど埋まっているため見送り: remainPips=", remainPips);
         return;
        }
      double sl = MathMax(todayOpen, Bid) + InpStopBufferPips * point;
      double tp = prevClose;
      if((sl - Bid) < minDistance || (Bid - tp) < minDistance)
        {
         Print("MODE_STOPLEVELを満たせないため見送り");
         return;
        }
      int ticket = OrderSend(_Symbol, OP_SELL, InpLots, Bid, InpSlippage, sl, tp,
                             "GapFillReversalEA", InpMagic, 0, clrRed);
      if(ticket < 0)
         Print("売り発注に失敗しました。エラーコード: ", GetLastError());
     }
   else if(gapPips < 0)
     {
      double remainPips = (prevClose - Ask) / point;
      if(remainPips < InpMinRemainPips)
        {
         Print("窓が既にほとんど埋まっているため見送り: remainPips=", remainPips);
         return;
        }
      double sl = MathMin(todayOpen, Ask) - InpStopBufferPips * point;
      double tp = prevClose;
      if((Ask - sl) < minDistance || (tp - Ask) < minDistance)
        {
         Print("MODE_STOPLEVELを満たせないため見送り");
         return;
        }
      int ticket = OrderSend(_Symbol, OP_BUY, InpLots, Ask, InpSlippage, sl, tp,
                             "GapFillReversalEA", InpMagic, 0, clrBlue);
      if(ticket < 0)
         Print("買い発注に失敗しました。エラーコード: ", GetLastError());
     }
  }

//+------------------------------------------------------------------+
//| Expert initialization function                                    |
//+------------------------------------------------------------------+
int OnInit()
  {
   return(INIT_SUCCEEDED);
  }

//+------------------------------------------------------------------+
//| Expert tick function                                              |
//+------------------------------------------------------------------+
void OnTick()
  {
   datetime currentDailyBarTime = iTime(NULL, PERIOD_D1, 0);
   if(currentDailyBarTime == lastDailyBarTime)
      return;
   lastDailyBarTime = currentDailyBarTime;

   if(HasOpenPosition())
      return;

   TryEnterGapFillTrade();
  }
//+------------------------------------------------------------------+