【MQL4】含み益を2段階で確定する「パーシャルクローズ(部分決済)」EAの作り方(OrderCloseで一部だけ決済する)

//+------------------------------------------------------------------+
//|                                    PartialCloseScaleOutEA.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    InpFastMA         = 10;       //短期移動平均の期間
input int    InpSlowMA         = 30;       //長期移動平均の期間
input double InpLots           = 0.30;     //発注ロット数(部分決済のため少し多めを推奨)
input int    InpStopLossPips   = 300;      //初期損切り(pips)
input int    InpStage1Pips     = 150;      //第1段階の利益しきい値(pips)
input double InpStage1Percent  = 50.0;     //第1段階で決済する割合(%)
input int    InpStage2Pips     = 300;      //第2段階の利益しきい値(pips)
input double InpStage2Percent  = 50.0;     //第2段階で決済する割合(残量に対する%)
input int    InpTrailPips      = 150;      //第2段階後のトレーリング幅(pips)
input int    InpMagic          = 20261114; //マジックナンバー

datetime lastBarTime = 0;

double NormalizeLotsToStep(double lots)
  {
   double step   = MarketInfo(_Symbol, MODE_LOTSTEP);
   double minLot = MarketInfo(_Symbol, MODE_MINLOT);
   double rounded = MathFloor(lots / step) * step;
   if(rounded < minLot)
      rounded = 0;
   return(NormalizeDouble(rounded, 2));
  }

double GetProfitPips(double point)
  {
   if(OrderType() == OP_BUY)
      return((Bid - OrderOpenPrice()) / point);
   if(OrderType() == OP_SELL)
      return((OrderOpenPrice() - Ask) / point);
   return(0);
  }

void ManagePosition(double point)
  {
   double profitPips = GetProfitPips(point);
   string ticketStr = (string)OrderTicket();
   double closePrice = (OrderType() == OP_BUY) ? Bid : Ask;

   if(profitPips >= InpStage1Pips && !GlobalVariableCheck("PCSE_S1_" + ticketStr))
     {
      double closeLots = NormalizeLotsToStep(OrderLots() * (InpStage1Percent / 100.0));
      if(closeLots > 0 && closeLots < OrderLots())
        {
         if(OrderClose(OrderTicket(), closeLots, closePrice, 3, clrYellow))
           {
            OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice(),
                        OrderTakeProfit(), 0, clrBlue);
           }
        }
      GlobalVariableSet("PCSE_S1_" + ticketStr, 1);
      return;
     }

   if(profitPips >= InpStage2Pips && GlobalVariableCheck("PCSE_S1_" + ticketStr) &&
      !GlobalVariableCheck("PCSE_S2_" + ticketStr))
     {
      double remainingLots = OrderLots();
      double closeLots2 = NormalizeLotsToStep(remainingLots * (InpStage2Percent / 100.0));
      if(closeLots2 > 0 && closeLots2 < remainingLots)
        {
         OrderClose(OrderTicket(), closeLots2, closePrice, 3, clrYellow);
         GlobalVariableSet("PCSE_S2_" + ticketStr, 1);
        }
      else
        {
         // 残量が最小ロットを下回るため全決済し、このチケットの記録を削除する
         OrderClose(OrderTicket(), remainingLots, closePrice, 3, clrYellow);
         GlobalVariableDel("PCSE_S1_" + ticketStr);
         GlobalVariableDel("PCSE_S2_" + ticketStr);
        }
      return;
     }

   if(GlobalVariableCheck("PCSE_S2_" + ticketStr) && OrderSelect(OrderTicket(), SELECT_BY_TICKET))
     {
      double newSl = (OrderType() == OP_BUY)
                    ? Bid - InpTrailPips * point
                    : Ask + InpTrailPips * point;
      bool improves = (OrderType() == OP_BUY) ? (newSl > OrderStopLoss())
                                               : (newSl < OrderStopLoss());
      if(improves)
         OrderModify(OrderTicket(), OrderOpenPrice(), newSl, OrderTakeProfit(), 0, clrBlue);
     }
  }

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 OnTick()
  {
   double point = _Point;
   if(_Digits == 3 || _Digits == 5)
      point *= 10;

   for(int i = 0; i < OrdersTotal(); i++)
     {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES) &&
         OrderSymbol() == _Symbol && OrderMagicNumber() == InpMagic)
         ManagePosition(point);
     }

   if(Time[0] == lastBarTime)
      return;
   lastBarTime = Time[0];

   if(Bars < MathMax(InpFastMA, InpSlowMA) + 5)
      return;
   if(HasOpenPosition())
      return;

   double fastNow  = iMA(_Symbol, 0, InpFastMA, 0, MODE_SMA, PRICE_CLOSE, 1);
   double slowNow  = iMA(_Symbol, 0, InpSlowMA, 0, MODE_SMA, PRICE_CLOSE, 1);
   double fastPrev = iMA(_Symbol, 0, InpFastMA, 0, MODE_SMA, PRICE_CLOSE, 2);
   double slowPrev = iMA(_Symbol, 0, InpSlowMA, 0, MODE_SMA, PRICE_CLOSE, 2);

   bool goldenCross = (fastPrev <= slowPrev && fastNow > slowNow);
   bool deadCross   = (fastPrev >= slowPrev && fastNow < slowNow);

   if(goldenCross)
     {
      double sl = Bid - InpStopLossPips * point;
      int ticket = OrderSend(_Symbol, OP_BUY, InpLots, Ask, 3, sl, 0,
                             "PartialCloseScaleOutEA", InpMagic, 0, clrBlue);
      if(ticket < 0)
         Print("買い発注に失敗しました。エラーコード: ", GetLastError());
     }
   else if(deadCross)
     {
      double sl = Ask + InpStopLossPips * point;
      int ticket = OrderSend(_Symbol, OP_SELL, InpLots, Bid, 3, sl, 0,
                             "PartialCloseScaleOutEA", InpMagic, 0, clrRed);
      if(ticket < 0)
         Print("売り発注に失敗しました。エラーコード: ", GetLastError());
     }
  }

// OnDeinit()でPCSE_変数を一括削除しない。EAの再適用時にも
// 段階の記録を保持するため、削除は第2段階の全決済時のみ行う。
//+------------------------------------------------------------------+