五分钟动量交易系统（EA，不是指标）

小弟根据《五分钟动量交易系统》编的，请大家多多指教！

1. //+------------------------------------------------------------------+
   
2. //|                                           五分钟动量交易系统.mq4 |
   
3. //+------------------------------------------------------------------+
   
4. 
   
5. extern double MAPeriod=20; //指数均线周期
   
6. extern double StopLossSpred = 20; //初始止损离均线的点数
   
7. extern double CloseSpred = 15; //后半仓止损离均线的点数
   
8. extern double Lots=0.2; //持仓,必须为偶数
   
9. 
   
10. 
    
11. //+------------------------------------------------------------------+
    
12. //|                                                                  |
    
13. //+------------------------------------------------------------------+
    
14. int start()
    
15.   {
    
16.    double MacdCurrent, MacdPrevious, Ma;
    
17.    int cnt, ticket, total;
    
18. 
    
19.    if(Bars<100)
    
20.      {
    
21.       Print("K线少于100根！");
    
22.       return(0);  
    
23.      }
    
24. 
    
25.    MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
    
26.    MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,2);
    
27.    Ma=iMA(NULL,0,MAPeriod,0,MODE_EMA,PRICE_CLOSE,0);
    
28.    
    
29.    total=OrdersTotal();
    
30.    
    
31.    //开单检查
    
32.    if(total<1) //在没有持仓的情况下才能开新仓
    
33.      {
    
34.       // 检查资金
    
35.       if(AccountFreeMargin()<(1000*Lots))
    
36.         {
    
37.          Print("资金不足： ", AccountFreeMargin());
    
38.          return(0);  
    
39.         }
    
40.       // 检查开多单的可能性
    
41.       if(MacdCurrent>0 && MacdPrevious<0 && Ask>Ma && Ask<=Ma+20*Point)  //MACD首红且汇价位于均线上20点内做多
    
42.         {
    
43.          ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ma-StopLossSpred*Point,0,"lbs-buy",197658,0,Red);
    
44.          if(ticket>0)
    
45.            {
    
46.             if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("开多单成功 : ",OrderOpenPrice());
    
47.            }
    
48.          else Print("开多单发生错误 : ",GetLastError());
    
49.          return(0);
    
50.         }
    
51.       // 检查开空单的可能性
    
52.       if(MacdCurrent<0 && MacdPrevious>0 && Bid<Ma && Bid>=Ma-20*Point) //MACD首绿且汇价位于均线下20点内做空
    
53.         {
    
54.          ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ma+StopLossSpred*Point,0,"lbs-sell",197658,0,Green);
    
55.          if(ticket>0)
    
56.            {
    
57.             if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("开空单成功 : ",OrderOpenPrice());
    
58.            }
    
59.          else Print("开空单发生错误 : ",GetLastError());
    
60.          return(0);
    
61.         }
    
62.       return(0);
    
63.      }
    
64.      
    
65.    //减仓及平仓检查   
    
66.    for(cnt=0;cnt<total;cnt++)
    
67.      {
    
68.       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
    
69.       if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())  // check for symbol
    
70.         {
    
71.          if(OrderType()==OP_BUY)   // 如果有做多单存在
    
72.            {
    
73.             //多单减仓检查
    
74.             if(Ask-OrderOpenPrice()>=OrderOpenPrice()-OrderStopLoss() && OrderOpenPrice()>OrderStopLoss() && OrderLots()==Lots)
    
75.               {
    
76.                 ticket=OrderClose(OrderTicket(),Lots/2,Ask,3,Violet); // 平掉一半仓位
    
77.                 if(ticket>0)
    
78.                   {
    
79.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多单减仓成功 : ",OrderOpenPrice());
    
80.                   }
    
81.                 else Print("多单减仓发生错误 : ",GetLastError());
    
82.                 return(0);
    
83.               }
    
84.             
    
85.             //修改后半仓位的止损价到盈亏平衡点
    
86.             if(Ask-OrderOpenPrice()>OrderOpenPrice()-OrderStopLoss() && OrderOpenPrice()>OrderStopLoss() && OrderLots()==Lots/2)
    
87.               {
    
88.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
    
89.                 if(ticket>0)
    
90.                   {
    
91.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多单盈亏平衡点修改成功 : ",OrderOpenPrice());
    
92.                   }
    
93.                 else Print("多单盈亏平衡点修改发生错误 : ",GetLastError());
    
94.                 return(0);
    
95.               }
    
96.             
    
97.             //根据行情发展修改剩余仓位的止损价到均线下15点
    
98.             if(Ma-CloseSpred*Point>OrderStopLoss() && OrderOpenPrice()<=OrderStopLoss() && OrderLots()==Lots/2)
    
99.               {
    
100.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),Ma-CloseSpred*Point,OrderTakeProfit(),0,Red);
     
101.                 if(ticket>0)
     
102.                   {
     
103.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多单止损修改成功 : ",OrderOpenPrice());
     
104.                   }
     
105.                 else Print("多单止损修改发生错误 : ",GetLastError());
     
106.                 return(0);
     
107.               }  
     
108.           }
     
109.          else // 如果有做空单存在
     
110.            {
     
111.             //空单减仓检查
     
112.             if(OrderOpenPrice()-Bid>OrderStopLoss()-OrderOpenPrice() && OrderOpenPrice()<OrderStopLoss() && OrderLots()==Lots)
     
113.               {
     
114.                 ticket=OrderClose(OrderTicket(),Lots/2,Ask,3,Violet); // 平掉一半仓位
     
115.                 if(ticket>0)
     
116.                   {
     
117.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空单减仓成功 : ",OrderOpenPrice());
     
118.                   }
     
119.                 else Print("空单减仓发生错误 : ",GetLastError());
     
120.                 return(0);
     
121.               }
     
122.             
     
123.             //修改后半仓位的止损价到盈亏平衡点
     
124.             if(OrderOpenPrice()-Bid>OrderStopLoss()-OrderOpenPrice() && OrderOpenPrice()<OrderStopLoss() && OrderLots()==Lots/2)
     
125.               {
     
126.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Green);
     
127.                 if(ticket>0)
     
128.                   {
     
129.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空单盈亏平衡点修改成功 : ",OrderOpenPrice());
     
130.                   }
     
131.                 else Print("空单盈亏平衡点修改发生错误 : ",GetLastError());
     
132.                 return(0);
     
133.               }
     
134.             
     
135.             //根据行情发展修改剩余仓位的止损价到均线下15点
     
136.             if(Ma+CloseSpred*Point<OrderStopLoss() && OrderOpenPrice()>=OrderStopLoss() && OrderLots()==Lots/2)
     
137.               {
     
138.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),Ma+CloseSpred*Point,OrderTakeProfit(),0,Green);
     
139.                 if(ticket>0)
     
140.                   {
     
141.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空单止损修改成功 : ",OrderOpenPrice());
     
142.                   }
     
143.                 else Print("空单止损修改发生错误 : ",GetLastError());
     
144.                 return(0);
     
145.               }
     
146.            }
     
147.         }
     
148.      }
     
149. 
     
150.    return(0);
     
151.   }
     
152. // the end.

复制代码