VORTEX_APEX

#property version     "5.07"
#property description "Elite XAUUSD Straddle Lot-Increment Algorithmic System"
#property strict

#include <Trade\Trade.mqh>
#include <Trade\PositionInfo.mqh>
#include <Trade\OrderInfo.mqh>

input group "=== CORE STRADDLE CONFIGURATION ==="
input int            InpStraddleDistancePips = 120;       // Base Straddle Distance from Spot (Pips)
input int            InpMinStraddleDistance  = 60;        // Minimum Allowed Straddle Distance (Pips)
input int            InpMaxStraddleDistance  = 350;       // Maximum Allowed Straddle Distance (Pips)
input int            InpExpirationMinutes    = 15;        // Pending Order Expiration (Minutes)

input group "=== QUANTITATIVE RISK & COMPOUNDING ==="
input double         InpBaseRiskPercent      = 2.0;       // Initial Risk Percent Per Trade Setup
input double         InpLotIncrementMultiplier= 1.5;      // Compounding Scale Factor for Pyramiding (Alpha)
input int            InpMaxPyramidLegs       = 4;         // Maximum Scaling Legs Per Direction
input double         InpMinLotSize           = 0.01;      // Hard Floor Lot Size
input double         InpMaxLotSize           = 50.0;      // Absolute Ceiling Lot Size

input group "=== TRAILING & RISK PROTECTION ==="
input int            InpBreakEvenTriggerPips = 100;       // Pips in profit to trigger Break-Even
input int            InpBreakEvenBufferPips  = 15;        // Pips to lock in past entry price
input int            InpTrailingStartPips    = 150;       // Pips in profit to activate Trailing Stop
input int            InpTrailingStepPips     = 10;        // Trailing Stop Step Resolution (Pips)
input int            InpMaxSpreadPips        = 40;        // Maximum Allowed Execution Spread (Pips)
input int            InpATRPeriod            = 14;        // ATR Calculation Period

input group "=== SYSTEM IDENTIFICATION ==="
input ulong          InpMagicNumber          = 99912388;  // Unique Bot Identity Allocation
input int            InpSlippagePips         = 30;        // Max Execution Slippage Allowed (Pips)

CTrade           TradeEngine;
CPositionInfo    PosInfo;
COrderInfo       OrderInfo;

int              atrHandle;
double           pipFactor;
datetime         lastOrderPlacementTime = 0;

int GlobalFillingModeInt = 0; 

int OnInit()
{
      // код доступен только после оплаты
   }

void OnDeinit(const int reason)
{
   IndicatorRelease(atrHandle);
   Print("[VORTEX_APEX] System deactivated. Reason Code: ", reason);
}

void OnTick()
{
      // код доступен только после оплаты
   }

void ScanMarketState(int &buyCount, int &sellCount, int &orderCount)
{
   buyCount = 0;
   sellCount = 0;
   orderCount = 0;

   for(int i = PositionsTotal() - 1; i >= 0; i--)
   {
      if(PosInfo.SelectByIndex(i))
      {
         if(PosInfo.Symbol() == _Symbol && PosInfo.Magic() == InpMagicNumber)
         {
            if(PosInfo.PositionType() == POSITION_TYPE_BUY)  buyCount++;
            if(PosInfo.PositionType() == POSITION_TYPE_SELL) sellCount++;
         }
      }
   }

   for(int i = OrdersTotal() - 1; i >= 0; i--)
   {
      if(OrderInfo.SelectByIndex(i))
      {
         if(OrderInfo.Symbol() == _Symbol && OrderInfo.Magic() == InpMagicNumber)
         {
            orderCount++;
         }
      }
   }
}

void ManageStraddleGrid(int orderCount)
{

   if(orderCount > 0)
   {

      if(TimeCurrent() - lastOrderPlacementTime > InpExpirationMinutes * 60)
      {
         CancelAllPendingOrders();
      }
      return;
   }

   double atrValues[];
   ArraySetAsSeries(atrValues, true);
   if(CopyBuffer(atrHandle, 0, 0, 1, atrValues) < 1) return;

   double dynamicDistance = InpStraddleDistancePips * (atrValues[0] / _Point / 100.0);
   if(dynamicDistance < InpMinStraddleDistance) dynamicDistance = InpMinStraddleDistance;
   if(dynamicDistance > InpMaxStraddleDistance) dynamicDistance = InpMaxStraddleDistance;

   double offsetPrice = dynamicDistance * pipFactor;
   double ask = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
   double bid = SymbolInfoDouble(_Symbol, SYMBOL_BID);

   double buyStopPrice  = ask + offsetPrice;
   double sellStopPrice = bid - offsetPrice;

   double initialLot = NormalizeDouble((AccountInfoDouble(ACCOUNT_EQUITY) * (InpBaseRiskPercent / 100.0)) / 1000.0, 2);
   if(initialLot < InpMinLotSize) initialLot = InpMinLotSize;
   if(initialLot > InpMaxLotSize) initialLot = InpMaxLotSize;

   datetime expiration = TimeCurrent() + (InpExpirationMinutes * 60);

   MqlTradeRequest request={};
   MqlTradeResult  result={};

   request.action       = TRADE_ACTION_PENDING;
   request.symbol       = _Symbol;
   request.volume       = initialLot;
   request.price        = NormalizeDouble(buyStopPrice, _Digits);
   request.type         = ORDER_TYPE_BUY_STOP;
   request.type_filling = (ENUM_ORDER_TYPE_FILLING)GlobalFillingModeInt; 
   request.type_time    = ORDER_TIME_SPECIFIED;
   request.expiration   = expiration;
   request.magic        = InpMagicNumber;
   request.deviation    = InpSlippagePips * (int)(pipFactor/_Point);

   if(OrderSend(request, result))
   {

      ZeroMemory(request);
      ZeroMemory(result);

      request.action     

Показано первые 50% кода (символов: 9558)