MQLでポジションの一部（半分）だけ決済する方法（MT4・MT5）

MQL4（MT4）コードをコピー

#property strict
// 含み益が指定 pips に達したら半分だけ決済する EA（MT4）
input double InpTrigger = 30;     // 部分決済する含み益（pips）
input double InpLots    = 0.2;    // エントリー時のロット（この量のままなら未決済と判定）
input int    InpMagic   = 1001;   // 対象のマジックナンバー

int OnInit()
{
   return INIT_SUCCEEDED;
}

void OnTick()
{
   double pip  = (_Digits == 3 || _Digits == 5) ? _Point * 10 : _Point;
   double step = MarketInfo(_Symbol, MODE_LOTSTEP);
   double minL = MarketInfo(_Symbol, MODE_MINLOT);
   for(int i = OrdersTotal() - 1; i >= 0; i--)
   {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;
      if(OrderSymbol() != _Symbol || OrderMagicNumber() != InpMagic || OrderType() > OP_SELL) continue;
      if(MathAbs(OrderLots() - InpLots) > step / 2) continue;   // すでに部分決済済み

      double profitPips = (OrderType() == OP_BUY ? Bid - OrderOpenPrice() : OrderOpenPrice() - Ask) / pip;
      if(profitPips < InpTrigger) continue;

      double half = MathFloor(OrderLots() / 2 / step) * step;
      if(half < minL || OrderLots() - half < minL) continue;
      if(!OrderClose(OrderTicket(), half, OrderClosePrice(), 30))
         Print("部分決済失敗 error=", GetLastError());
   }
}

MQL5（MT5）コードをコピー

// 含み益が指定 pips に達したら半分だけ決済する EA（MT5）
#include <Trade\Trade.mqh>

input double InpTrigger = 30;     // 部分決済する含み益（pips）
input double InpLots    = 0.2;    // エントリー時のロット（この量のままなら未決済と判定）
input ulong  InpMagic   = 1001;   // 対象のマジックナンバー

CTrade trade;

int OnInit()
{
   return INIT_SUCCEEDED;
}

void OnTick()
{
   double pip  = (_Digits == 3 || _Digits == 5) ? _Point * 10 : _Point;
   double step = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_STEP);
   double minL = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_MIN);
   for(int i = PositionsTotal() - 1; i >= 0; i--)
   {
      ulong ticket = PositionGetTicket(i);
      if(ticket == 0) continue;
      if(PositionGetString(POSITION_SYMBOL) != _Symbol || (ulong)PositionGetInteger(POSITION_MAGIC) != InpMagic) continue;
      double lots = PositionGetDouble(POSITION_VOLUME);
      if(MathAbs(lots - InpLots) > step / 2) continue;   // すでに部分決済済み

      double open = PositionGetDouble(POSITION_PRICE_OPEN);
      double cur  = PositionGetDouble(POSITION_PRICE_CURRENT);
      bool   buy  = (PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY);
      double profitPips = (buy ? cur - open : open - cur) / pip;
      if(profitPips < InpTrigger) continue;

      double half = MathFloor(lots / 2 / step) * step;
      if(half < minL || lots - half < minL) continue;
      if(!trade.PositionClosePartial(ticket, half))
         Print("部分決済失敗 ", trade.ResultRetcodeDescription());
   }
}