MACD Sample_v2

Profit factor:
1.09
Orders Execution
Checks for the total of open ordersIt automatically opens orders when conditions are reachedIt Closes Orders by itself It can change open orders parameters, due to possible stepping strategy
Indicators Used
MACD HistogramMoving average indicator
9 Views
0 Downloads
0 Favorites
MACD Sample_v2
/*-----------------------------+
|			       |
| Shared by www.Aptrafx.com    |
|			       |
+------------------------------*/

//+------------------------------------------------------------------+
//|                                                  MACD Sample.mq4 |
//|                      Copyright © 2005, MetaQuotes Software Corp. |
//|                                       http://www.metaquotes.net/ |
//+------------------------------------------------------------------+

extern double TakeProfit = 50;
extern double Lots = 0.1;
extern double TrailingStop = 30;
extern double MACDOpenLevel=3;
extern double MACDCloseLevel=2;
extern double MATrendPeriod=26;

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   double MacdCurrent, MacdPrevious, SignalCurrent;
   double SignalPrevious, MaCurrent, MaPrevious;
   int cnt, ticket, total;
// initial data checks
// it is important to make sure that the expert works with a normal
// chart and the user did not make any mistakes setting external 
// variables (Lots, StopLoss, TakeProfit, 
// TrailingStop) in our case, we check TakeProfit
// on a chart of less than 100 bars
   if(Bars<100)
     {
      Print("bars less than 100");
      return(0);  
     }
   if(TakeProfit<10)
     {
      Print("TakeProfit less than 10");
      return(0);  // check TakeProfit
     }
// to simplify the coding and speed up access
// data are put into internal variables
   MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0);
   MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
   SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);
   SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1);
   MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,0);
   MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,1);

   total=OrdersTotal();
   if(total<1) 
     {
      // no opened orders identified
      if(AccountFreeMargin()<(1000*Lots))
        {
         Print("We have no money. Free Margin = ", AccountFreeMargin());
         return(0);  
        }
      // check for long position (BUY) possibility
      if(MacdCurrent<0 && MacdCurrent>SignalCurrent && MacdPrevious<SignalPrevious &&
         MathAbs(MacdCurrent)>(MACDOpenLevel*Point) && MaCurrent>MaPrevious)
        {
         ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,"macd sample",16384,0,Green);
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
           }
         else Print("Error opening BUY order : ",GetLastError()); 
         return(0); 
        }
      // check for short position (SELL) possibility
      if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious && 
         MacdCurrent>(MACDOpenLevel*Point) && MaCurrent<MaPrevious)
        {
         ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
           }
         else Print("Error opening SELL order : ",GetLastError()); 
         return(0); 
        }
      return(0);
     }
   // it is important to enter the market correctly, 
   // but it is more important to exit it correctly...   
   for(cnt=0;cnt<total;cnt++)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()<=OP_SELL &&   // check for opened position 
         OrderSymbol()==Symbol())  // check for symbol
        {
         if(OrderType()==OP_BUY)   // long position is opened
           {
            // should it be closed?
            if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
               MacdCurrent>(MACDCloseLevel*Point))
                {
                 OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
                 return(0); // exit
                }
            // check for trailing stop
            if(TrailingStop>0)  
              {                 
               if(Bid-OrderOpenPrice()>Point*TrailingStop)
                 {
                  if(OrderStopLoss()<Bid-Point*TrailingStop)
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
                     return(0);
                    }
                 }
              }
           }
         else // go to short position
           {
            // should it be closed?
            if(MacdCurrent<0 && MacdCurrent>SignalCurrent &&
               MacdPrevious<SignalPrevious && MathAbs(MacdCurrent)>(MACDCloseLevel*Point))
              {
               OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
               return(0); // exit
              }
            // check for trailing stop
            if(TrailingStop>0)  
              {                 
               if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
                 {
                  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
                     return(0);
                    }
                 }
              }
           }
        }
     }
   return(0);
  }
// the end.

Profitability Reports

USD/CHF Jul 2025 - Sep 2025
1.18
Total Trades 64
Won Trades 59
Lost trades 5
Win Rate 92.19 %
Expected payoff 0.74
Gross Profit 311.43
Gross Loss -263.95
Total Net Profit 47.48
-100%
-50%
0%
50%
100%
USD/CAD Jul 2025 - Sep 2025
0.46
Total Trades 65
Won Trades 55
Lost trades 10
Win Rate 84.62 %
Expected payoff -2.77
Gross Profit 155.87
Gross Loss -335.69
Total Net Profit -179.82
-100%
-50%
0%
50%
100%
NZD/USD Jul 2025 - Sep 2025
1.14
Total Trades 40
Won Trades 38
Lost trades 2
Win Rate 95.00 %
Expected payoff 0.41
Gross Profit 133.90
Gross Loss -117.60
Total Net Profit 16.30
-100%
-50%
0%
50%
100%
GBP/USD Jul 2025 - Sep 2025
0.57
Total Trades 66
Won Trades 62
Lost trades 4
Win Rate 93.94 %
Expected payoff -3.13
Gross Profit 269.00
Gross Loss -475.70
Total Net Profit -206.70
-100%
-50%
0%
50%
100%
GBP/CAD Jul 2025 - Sep 2025
0.43
Total Trades 43
Won Trades 38
Lost trades 5
Win Rate 88.37 %
Expected payoff -3.38
Gross Profit 111.29
Gross Loss -256.73
Total Net Profit -145.44
-100%
-50%
0%
50%
100%
GBP/AUD Jul 2025 - Sep 2025
0.49
Total Trades 69
Won Trades 63
Lost trades 6
Win Rate 91.30 %
Expected payoff -2.57
Gross Profit 169.90
Gross Loss -347.52
Total Net Profit -177.62
-100%
-50%
0%
50%
100%
EUR/USD Jul 2025 - Sep 2025
6.19
Total Trades 307
Won Trades 303
Lost trades 4
Win Rate 98.70 %
Expected payoff 3.97
Gross Profit 1452.00
Gross Loss -234.60
Total Net Profit 1217.40
-100%
-50%
0%
50%
100%
AUD/USD Jul 2025 - Sep 2025
1.23
Total Trades 35
Won Trades 33
Lost trades 2
Win Rate 94.29 %
Expected payoff 0.66
Gross Profit 123.40
Gross Loss -100.40
Total Net Profit 23.00
-100%
-50%
0%
50%
100%
USD/JPY Jan 2025 - Jul 2025
0.54
Total Trades 220
Won Trades 213
Lost trades 7
Win Rate 96.82 %
Expected payoff -1.98
Gross Profit 513.66
Gross Loss -950.27
Total Net Profit -436.61
-100%
-50%
0%
50%
100%
USD/CHF Jan 2025 - Jul 2025
0.58
Total Trades 122
Won Trades 112
Lost trades 10
Win Rate 91.80 %
Expected payoff -2.37
Gross Profit 402.93
Gross Loss -692.15
Total Net Profit -289.22
-100%
-50%
0%
50%
100%

Comments