【MQL4】经典MACD代码

量子量化

【MQL4】经典MACD代码

1. 
   
2. //+------------------------------------------------------------------+
   
3. //|                                                  MACD Sample.mq4 |
   
4. //|                      Copyright © 2004, MetaQuotes Software Corp. |
   
5. //|                                       http://www.metaquotes.net/ |
   
6. //+------------------------------------------------------------------+
   
7. 
   
8. extern double TakeProfit = 50;
   
9. extern double Lots = 0.1;
   
10. extern double TrailingStop = 30;
    
11. extern double MACDOpenLevel=3;
    
12. extern double MACDCloseLevel=2;
    
13. extern double MATrendPeriod=26;
    
14. double Points;
    
15. //+------------------------------------------------------------------+
    
16. //|                                                                  |
    
17. //+------------------------------------------------------------------+
    
18. int init ()
    
19.   {
    
20.    Points = MarketInfo (Symbol(), MODE_POINT);
    
21. //----
    
22.    return(0);
    
23.   }
    
24. //+------------------------------------------------------------------+
    
25. //|                                                                  |
    
26. //+------------------------------------------------------------------+
    
27. int deinit()
    
28.   {
    
29.    return(0);
    
30.   }
    
31. //+------------------------------------------------------------------+
    
32. //|                                                                  |
    
33. //+------------------------------------------------------------------+
    
34. int start()
    
35.   {
    
36.    double MacdCurrent=0, MacdPrevious=0, SignalCurrent=0;
    
37.    double SignalPrevious=0, MaCurrent=0, MaPrevious=0;
    
38.    int cnt=0, total;
    
39. // первичные проверки данных
    
40. // важно удостовериться что эксперт работает на нормальном графике и
    
41. // пользователь правильно выставил внешние переменные (Lots, StopLoss,
    
42. // TakeProfit, TrailingStop)
    
43. // в нашем случае проверяем только TakeProfit
    
44.    if(Bars<100)
    
45.      {
    
46.       Print("bars less than 100");
    
47.       return(0);  // на графике менее 100 баров
    
48.      }
    
49.    if(TakeProfit<10)
    
50.      {
    
51.       Print("TakeProfit less than 10");
    
52.       return(0);  // проверяем TakeProfit
    
53.      }
    
54. // ради упрощения и ускорения кода, сохраним необходимые
    
55. // данные индикаторов во временных переменных
    
56.    MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0);
    
57.    MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
    
58.    SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);
    
59.    SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1);
    
60.    MaCurrent=iMA(NULL,0,MATrendPeriod,MODE_EMA,0,PRICE_CLOSE,0);
    
61.    MaPrevious=iMA(NULL,0,MATrendPeriod,MODE_EMA,0,PRICE_CLOSE,1);
    
62. // теперь надо определиться - в каком состоянии торговый терминал?
    
63. // проверим, есть ли ранее открытые позиции или ордеры?
    
64.    if(OrdersTotal()<1)
    
65.      {
    
66.       // нет ни одного открытого ордера
    
67.       // на всякий случай проверим, если у нас свободные деньги на счету?
    
68.       // значение 1000 взято для примера, обычно можно открыть 1 лот
    
69.       if(AccountFreeMargin()<(1000*Lots))
    
70.         {
    
71.          Print("We have no money");
    
72.          return(0);  // денег нет - выходим
    
73.         }
    
74.       // проверим, не слишком ли часто пытаемся открыться?
    
75.       // если последний раз торговали менее чем 5 минут(5*60=300 сек)
    
76.       // назад, то выходим
    
77.       // If((CurTime-LastTradeTime)<300) { Exit }
    
78.       // проверяем на возможность встать в длинную позицию (BUY)
    
79.       if(MacdCurrent<0 && MacdCurrent>SignalCurrent && MacdPrevious<SignalPrevious &&
    
80.          MathAbs(MacdCurrent)>(MACDOpenLevel*Points) && MaCurrent>MaPrevious)
    
81.         {
    
82.          OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Points,"macd sample",16384,0,Red); // исполняем
    
83.          if(GetLastError()==0)Print("Order opened : ",OrderOpenPrice());
    
84.          return(0); // выходим, так как все равно после совершения торговой операции
    
85.             // наступил 10-ти секундный таймаут на совершение торговых операций
    
86.         }
    
87.       // проверяем на возможность встать в короткую позицию (SELL)
    
88.       if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
    
89.          MacdCurrent>(MACDOpenLevel*Points) && MaCurrent<MaPrevious)
    
90.         {
    
91.          OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Points,"macd sample",16384,0,Red); // исполняем
    
92.          if(GetLastError()==0)Print("Order opened : ",OrderOpenPrice());
    
93.          return(0); // выходим
    
94.         };
    
95.       // здесь мы завершили проверку на возможность открытия новых позиций.
    
96.       // новые позиции открыты не были и просто выходим по Exit, так как
    
97.       // все равно анализировать нечего
    
98.       return(0);
    
99.      };
    
100.    // переходим к важной части эксперта - контролю открытых позиций
     
101.    // 'важно правильно войти в рынок, но выйти - еще важнее...'
     
102.    total=OrdersTotal();
     
103.    for(cnt=0;cnt<total;cnt++)
     
104.      {
     
105.       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
     
106.       if(OrderType()<=OP_SELL && // это открытая позиция? OP_BUY или OP_SELL
     
107.          OrderSymbol()==Symbol())    // инструмент совпадает?
     
108.         {
     
109.          if(OrderType()==OP_BUY)   // открыта длинная позиция
     
110.            {
     
111.             // проверим, может уже пора закрываться?
     
112.             if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
     
113.                MacdCurrent>(MACDCloseLevel*Points))
     
114.                 {
     
115.                  OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // закрываем позицию
     
116.                  return(0); // выходим
     
117.                 };
     
118.             // проверим - может можно/нужно уже трейлинг стоп ставить?
     
119.             if(TrailingStop>0)  // пользователь выставил в настройках трейлингстоп
     
120.               {                 // значит мы идем его проверять
     
121.                if(Bid-OrderOpenPrice()>Points*TrailingStop)
     
122.                  {
     
123.                   if(OrderStopLoss()<Bid-Points*TrailingStop)
     
124.                     {
     
125.                      OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Points*TrailingStop,OrderTakeProfit(),0,Red);
     
126.                      return(0);
     
127.                     }
     
128.                  }
     
129.               }
     
130.            }
     
131.          else // иначе это короткая позиция
     
132.            {
     
133.             // проверим, может уже пора закрываться?
     
134.             if(MacdCurrent<0 && MacdCurrent>SignalCurrent &&
     
135.                MacdPrevious<SignalPrevious && MathAbs(MacdCurrent)>(MACDCloseLevel*Points))
     
136.               {
     
137.                OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // закрываем позицию
     
138.                return(0); // выходим
     
139.               }
     
140.             // проверим - может можно/нужно уже трейлинг стоп ставить?
     
141.             if(TrailingStop>0)  // пользователь выставил в настройках трейлингстоп
     
142.               {                 // значит мы идем его проверять
     
143.                if((OrderOpenPrice()-Ask)>(Points*TrailingStop))
     
144.                  {
     
145.                   if(OrderStopLoss()==0.0 ||
     
146.                      OrderStopLoss()>(Ask+Points*TrailingStop))
     
147.                     {
     
148.                      OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Points*TrailingStop,OrderTakeProfit(),0,Red);
     
149.                      return(0);
     
150.                     }
     
151.                  }
     
152.               }
     
153.            }
     
154.         }
     
155.      }
     
156.    return(0);
     
157.   }
     
158. // the end.

复制代码