【MQL4】移動平均クロスEAにDeMarkerフィルターを追加｜『過熱している時だけ』新規エントリーを止める設計

//+------------------------------------------------------------------+
//|                                    MaCrossDeMarkerFilterEA.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    MagicNumber      = 56789;//マジックナンバー
input double Lots             = 0.01;//ロット数
input int    FastMaPeriod     = 5;//短期移動平均の期間
input int    SlowMaPeriod     = 20;//長期移動平均の期間
input int    DeMarkerPeriod   = 14;//DeMarkerの期間
input double DeMarkerUpperLimit = 0.7;//これ以上なら買われすぎ(買い見送り)
input double DeMarkerLowerLimit = 0.3;//これ以下なら売られすぎ(売り見送り)
input int    StopLossPips     = 30;//損切り(pips)
input int    TakeProfitPips   = 60;//利確(pips)
input int    Slippage         = 3;//スリッページ

//+------------------------------------------------------------------+
//| このEA(マジックナンバー)の保有ポジション数を返す                   |
//+------------------------------------------------------------------+
int CountMyOrders()
  {
   int count = 0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
         count++;
     }
   return(count);
  }

//+------------------------------------------------------------------+
//| 確定足(shift)で短期MAが長期MAを上抜けしたか                       |
//+------------------------------------------------------------------+
bool IsGoldenCross(int shift)
  {
   double fastNow  = iMA(NULL,0,FastMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift);
   double fastPrev = iMA(NULL,0,FastMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift+1);
   double slowNow  = iMA(NULL,0,SlowMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift);
   double slowPrev = iMA(NULL,0,SlowMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift+1);

   return(fastPrev <= slowPrev && fastNow > slowNow);
  }

//+------------------------------------------------------------------+
//| 確定足(shift)で短期MAが長期MAを下抜けしたか                       |
//+------------------------------------------------------------------+
bool IsDeadCross(int shift)
  {
   double fastNow  = iMA(NULL,0,FastMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift);
   double fastPrev = iMA(NULL,0,FastMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift+1);
   double slowNow  = iMA(NULL,0,SlowMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift);
   double slowPrev = iMA(NULL,0,SlowMaPeriod,0,MODE_SMA,PRICE_CLOSE,shift+1);

   return(fastPrev >= slowPrev && fastNow < slowNow);
  }

//+------------------------------------------------------------------+
//| 確定足(shift)のDeMarkerが買われすぎ域か                           |
//+------------------------------------------------------------------+
bool IsOverheatedForBuy(int shift)
  {
   double dm = iDeMarker(NULL,0,DeMarkerPeriod,shift);
   return(dm >= DeMarkerUpperLimit);
  }

//+------------------------------------------------------------------+
//| 確定足(shift)のDeMarkerが売られすぎ域か                           |
//+------------------------------------------------------------------+
bool IsOverheatedForSell(int shift)
  {
   double dm = iDeMarker(NULL,0,DeMarkerPeriod,shift);
   return(dm <= DeMarkerLowerLimit);
  }

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(CountMyOrders() > 0) return;//このEAの保有ポジションが既にあれば新規エントリーしない

   int shift = 1;//直近の確定足で判定する

   if(IsGoldenCross(shift))
     {
      if(IsOverheatedForBuy(shift))
        {
         Print("ゴールデンクロス検出も、DeMarker=",DoubleToString(iDeMarker(NULL,0,DeMarkerPeriod,shift),3),
               "が買われすぎ域のため買いエントリーを見送りました。");
        }
      else
        {
         double sl = Bid - StopLossPips*Point*10;
         double tp = Ask + TakeProfitPips*Point*10;
         int result = OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,sl,tp,"MA Cross DM Filter Buy",MagicNumber,0,Blue);
         if(result < 0)
            Print("買い注文に失敗しました。エラーコード=",GetLastError());
        }
     }

   if(IsDeadCross(shift))
     {
      if(IsOverheatedForSell(shift))
        {
         Print("デッドクロス検出も、DeMarker=",DoubleToString(iDeMarker(NULL,0,DeMarkerPeriod,shift),3),
               "が売られすぎ域のため売りエントリーを見送りました。");
        }
      else
        {
         double sl = Ask + StopLossPips*Point*10;
         double tp = Bid - TakeProfitPips*Point*10;
         int result = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,sl,tp,"MA Cross DM Filter Sell",MagicNumber,0,Red);
         if(result < 0)
            Print("売り注文に失敗しました。エラーコード=",GetLastError());
        }
     }
  }
//+------------------------------------------------------------------+