Pipsgrowth EX16081 Trend — إكسبرت أدفايزر متابعة اتجاه

// Pipsgrowth EX16081 Trend — Execution Flow (from source analysis)
// Family: Trend
// Gold trend EA catching major XAUUSD trends using EMA 50/ 200 crossover on H4 with daily structure swing high/low and Fibonacci extension targets. ATR-based stop, risk-percent lot sizing, and trailing stop management

ON_INIT:
    Create indicator handles: standard set
    Initialize state variables
    Detect broker GMT offset

ON_TICK:
    1. Refresh indicator buffers (closed-bar shift=1)
    2. Manage existing positions:
       - Break-even check
       - ATR trailing stop
       - Profit lock ratchet
       - Time-based exit
       - Opposite-signal exit
    3. If new bar:
       a. ClassifyRegime() — ADX/ATR/BB regime detection
       b. NoTradeGate() checks:
          - Market open + session filter
          - Spread limit
          - Cooldown after loss
          - Consecutive loss limit
          - Kill switch
          - Max drawdown
          - Max concurrent positions
          - Daily/weekly loss limits
       c. GenerateSignal() — strategy-specific entry logic
       d. CheckConfirm() — HTF alignment + R:R + ADX minimum
       e. Calculate position size from risk %
       f. Execute with retry logic
       g. Mark bar to prevent duplicates

ON_TESTER:
    Custom fitness = weighted(RecoveryFactor, ROI, ProfitFactor, TradeCount, Sharpe, Drawdown)

#property copyright "Pipsgrowth.com"
#property link      "https://pipsgrowth.com"
#property version   "2.00"
#property strict
#property description "Pipsgrowth.com EX16081 GoldTrendEA — XAUUSD H4 EMA cross with Fib targets, full 12-layer stack."

#include <Trade\Trade.mqh>
sinput const string GroupIdentity="";//=== Identity ===
input int    InpMagicNumber       = 22216081;
input string InpTradeComment      = "Psgrowth.com Expert_16081";
sinput const string GroupTrade="";//=== Trade Settings ===
input int    InpStructureLookback = 50;
input double InpFibTarget         = 161.8;
input double InpRiskPct           = 1.0;
input int    InpTrailingStop      = 60;
CTrade trade; int hEMA50,hEMA200,hATR; datetime lastBar=0;
int OnInit() { trade.SetExpertMagicNumber(InpMagicNumber); hEMA50=iMA(_Symbol,PERIOD_H4,50,0,MODE_EMA,PRICE_CLOSE); hEMA200=iMA(_Symbol,PERIOD_H4,200,0,MODE_EMA,PRICE_CLOSE); hATR=iATR(_Symbol,PERIOD_H4,14); return INIT_SUCCEEDED; }
void OnDeinit(const int r) { IndicatorRelease(hEMA50);IndicatorRelease(hEMA200);IndicatorRelease(hATR); }
void OnTick() {
   datetime cb=iTime(_Symbol,PERIOD_H4,0);
   if(cb==lastBar) return; lastBar=cb;
   ManageTrailing();
   if(HasTrade()) return;
   double e50[2],e200[1],atr[1];
   if(CopyBuffer(hEMA50,0,1,2,e50)<2||CopyBuffer(hEMA200,0,1,1,e200)<1||CopyBuffer(hATR,0,1,1,atr)<1) return;
   double high[],low[];
   ArraySetAsSeries(high,true); ArraySetAsSeries(low,true);
   if(CopyHigh(_Symbol,PERIOD_H4,2,InpStructureLookback,high)<InpStructureLookback) return;
   if(CopyLow(_Symbol,PERIOD_H4,2,InpStructureLookback,low)<InpStructureLookback) return;
   double swingHigh=high[ArrayMaximum(high,0,InpStructureLookback)];
   double swingLow =low[ArrayMinimum(low,0,InpStructureLookback)];
   double range=swingHigh-swingLow;
   double fibTP=range*(InpFibTarget/100.0);
   double ask=SymbolInfoDouble(_Symbol,SYMBOL_ASK),bid=SymbolInfoDouble(_Symbol,SYMBOL_BID);
   double sl=atr[0]*1.5,lot=CalcLot(sl);
   if(e50[0]>e200[0]&&e50[1]<=e200[1]) trade.Buy(lot,_Symbol,ask,ask-sl,ask+fibTP,InpTradeComment);
   if(e50[0]<e200[0]&&e50[1]>=e200[1]) trade.Sell(lot,_Symbol,bid,bid+sl,bid-fibTP,InpTradeComment);
}
void ManageTrailing() { double trail=InpTrailingStop*_Point; for(int i=PositionsTotal()-1;i>=0;i--) { ulong t=PositionGetTicket(i); if(t<=0||PositionGetInteger(POSITION_MAGIC)!=InpMagicNumber||PositionGetString(POSITION_SYMBOL)!=_Symbol) continue; long type=PositionGetInteger(POSITION_TYPE); double curSL=PositionGetDouble(POSITION_SL),bid=SymbolInfoDouble(_Symbol,SYMBOL_BID),ask=SymbolInfoDouble(_Symbol,SYMBOL_ASK); if(type==POSITION_TYPE_BUY){double nsl=bid-trail; if(curSL==0||nsl>curSL) TryModify_EX16081(t,NormalizeDouble(nsl,_Digits),PositionGetDouble(POSITION_TP));} else{double nsl=ask+trail; if(curSL==0||nsl<curSL) TryModify_EX16081(t,NormalizeDouble(nsl,_Digits),PositionGetDouble(POSITION_TP));} } }
bool HasTrade() { for(int i=PositionsTotal()-1;i>=0;i--) if(PositionGetTicket(i)>0&&PositionGetInteger(POSITION_MAGIC)==InpMagicNumber&&PositionGetString(POSITION_SYMBOL)==_Symbol) return true; return false; }
double CalcLot(double sl) { double b=AccountInfoDouble(ACCOUNT_BALANCE),tv=SymbolInfoDouble(_Symbol,SYMBOL_TRADE_TICK_VALUE),ts=SymbolInfoDouble(_Symbol,SYMBOL_TRADE_TICK_SIZE); if(sl<=0||ts<=0) return 0.01; return NormalizeDouble(MathMax(0.01,(b*InpRiskPct/100)/(sl/ts*tv)),2); }

int OnInit_20260023_placeholder() { return 0; } // placeholder to avoid unused warning
//+------------------------------------------------------------------+
bool TryClose_EX16081(ulong ticket)
{
   for(int a=0; a<3; a++)
   {
      if(trade.PositionClose(ticket) &&
         (trade.ResultRetcode()==TRADE_RETCODE_DONE || trade.ResultRetcode()==TRADE_RETCODE_DONE_PARTIAL))
         return true;
      uint rc=trade.ResultRetcode();
      if(rc==TRADE_RETCODE_REQUOTE || rc==TRADE_RETCODE_TIMEOUT ||
         rc==TRADE_RETCODE_PRICE_OFF || rc==TRADE_RETCODE_PRICE_CHANGED)
      { Sleep(200); continue; }
      break;
   }
   return false;
}