MT4內建的MACD EA程式註解

//+------------------------------------------------------------------+
//|                                                  MACD Sample.mq4 |
//|                   Copyright 2005-2014, MetaQuotes Software Corp. |
//|                                              http://www.mql4.com |
//+------------------------------------------------------------------+
#property copyright   "2005-2014, MetaQuotes Software Corp."
#property link        "http://www.mql4.com"

input double TakeProfit    =50;   //停利點數
input double Lots          =0.1;  //每次下單0.1口
input double TrailingStop  =30;   //獲利達30點時，啟動移動停利
input double MACDOpenLevel =3;    //MACD快線在0軸上下3點時，才可觸發多空單
input double MACDCloseLevel=2;    //MACD快線在0軸上下2點時，才可觸發平倉
input int    MATrendPeriod =26;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnTick(void)
  {
   double MacdCurrent,MacdPrevious;
   double SignalCurrent,SignalPrevious;
   double 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");    //K棒小於100根，程式退出
      return;
     }

   if(TakeProfit<10){
      Print("TakeProfit less than 10");   //輸入停利小於10點，程式退出
      return;
     }
//--- 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);   //抓目前K棒的MACD快線值
   MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);    //抓上一根K棒的MACD快線值
   SignalCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);   //抓目前K棒的MACD慢線值
   SignalPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1);    //抓上一根K棒的MACD慢線值
   MaCurrent=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,0);      //抓目前K棒的MA值
   MaPrevious=iMA(NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,1);     //抓上一根K棒的MA值

   total=OrdersTotal();   //取得帳戶所有單子數量
 
   if(total<1){
      //--- no opened orders identified
      if(AccountFreeMargin() < (1000*Lots)){    //如果原始保證金小於 1000*交易口數，結束程式（1口＊1000 ＝ 下1口的原始保證金）
         Print("We have no money. Free Margin = ",AccountFreeMargin());
         return;
      }

      //--- 偵測觸發buy單條件
      if(MacdCurrent<0 && MacdCurrent>SignalCurrent && MacdPrevious<SignalPrevious &&     //如果MACD快線在0軸下，又與慢線金叉
         MathAbs(MacdCurrent)>(MACDOpenLevel*Point) && MaCurrent>MaPrevious){             //而且快線在0軸下3點以上，又均線上升
       
         ticket = OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,"macd sample",16384,0,Green);   //則下buy單，不停損，50停利
       
         if(ticket>0){    //若下buy單成功，印出buy單價格
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))    Print("BUY order opened : ",OrderOpenPrice());
          }else
            Print("Error opening BUY order : ",GetLastError());   //若失敗則印出錯誤訊息，結束程式
       
         return;
      }


      //--- 偵測觸發sell單條件
      if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&     //如果MACD快線在0軸上，又與慢線死叉
         MacdCurrent>(MACDOpenLevel*Point) && MaCurrent<MaPrevious){                       //而且快線在0軸上3點以上，又均線下降{
       
         ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);    //則下sell單，不停損，50停利

         if(ticket>0){    //若下sell單成功，印出sell單價格
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))    Print("SELL order opened : ",OrderOpenPrice());
           }else
            Print("Error opening SELL order : ",GetLastError());    //若失敗則印出錯誤訊息，結束程式
          }
      //--- exit from the "no opened orders" block
      return;
     }


//--- 移動停損及停利
   for(cnt=0;cnt<total;cnt++){    //走訪所有訂單
      if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))   continue;
   
      if(OrderType()<=OP_SELL &&   // check for opened position
         OrderSymbol()==Symbol()){  // 如果是本商品
     
         //--- 如果是buy單
         if(OrderType()==OP_BUY){
         
            //--- 如果MACD在0軸上死叉，而且快線大於0軸3點以上
            if(MacdCurrent>0 && MacdCurrent<SignalCurrent && MacdPrevious>SignalPrevious &&
               MacdCurrent>(MACDCloseLevel*Point)){
               //--- 平倉buy 單
               if(!OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet))    Print("OrderClose error ",GetLastError());
             
               return;
            }
         
            //--- 移動停利
            if(TrailingStop>0){     //如果有設停利啟動點
               if(Bid-OrderOpenPrice() > Point*TrailingStop){   //如果獲利超過30點
                  if(OrderStopLoss() < Bid-Point*TrailingStop){ //如果獲利大於停利點
                     //--- 動態變更停利點
                     if(!OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green))
                        Print("OrderModify error ",GetLastError());
                   
                     return;
                  }
                }
            }

          }else{ // 如果是sell單

            //--- 如果MACD在0軸下金叉，且快線小於0軸3點以上
            if(MacdCurrent<0 && MacdCurrent>SignalCurrent &&
               MacdPrevious<SignalPrevious && MathAbs(MacdCurrent)>(MACDCloseLevel*Point)){
               //--- 平倉sell單
               if(!OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet))    Print("OrderClose error ",GetLastError());
             
               return;
            }

            //--- 移動停利
            if(TrailingStop>0){   //如果有設停利啟動點
               if((OrderOpenPrice()-Ask) > (Point*TrailingStop)){   //如果獲利超過30點
                  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0)){     //目前點數小於停利點
                     //--- 動態變更停利點
                     if(!OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red))
                        Print("OrderModify error ",GetLastError());
                   
                     return;
                  }
                }
            }
          }
      }
    }
//---
  }
//+------------------------------------------------------------------+