EA框架模型，大部分地方做了注释

龙听

1. 现在我学会了EA基本的东西，并且按照框架思路 建立了EA框架模型，大部分地方做了注释。希望对大家有用；
   
2. 程序代码如下：
   
3. //+------------------------------------------------------------------+
   
4. //|                                             ganendexin's 模板.mq4 |
   
5. //|                       Copyright ?2008, MetaQuotes Software Corp. |
   
6. //|                                        http://www.520fx.com
   
7. //+------------------------------------------------------------------+
   
8. #property copyright "ganendexin"
   
9. #property link      "http://www.520fx.com"
   
10. 
    
11. //---- input parameters
    
12. extern double    TakeProfit=250.0;
    
13. extern double    Lots=0.1;
    
14. extern double    TrailingStop=35.0;
    
15. //+------------------------------------------------------------------+
    
16. //| expert initialization function                                   |
    
17. //+------------------------------------------------------------------+
    
18. int init()
    
19.   {
    
20. //----  
    
21.   
    
22. //----
    
23.    return(0);
    
24.   }
    
25. //+------------------------------------------------------------------+
    
26. //| expert deinitialization function                                 |
    
27. //+------------------------------------------------------------------+
    
28. int deinit()
    
29.   {
    
30. //----  
    
31.    
    
32. //----
    
33.    return(0);
    
34.   }
    
35. 
    
36. //信号部分，下面这部分给出的是买卖信号，这个信号可以是自己编写的，也可以是用iCustom来调用的。以后需要修改的大部分是在这里面改
    
37. int Crossed (double line1 , double line2)
    
38.    {
    
39.       static int last_direction = 0;
    
40.       static int current_direction = 0;
    
41.       
    
42. if(line1>line2)current_direction = 1; //up
    
43.       
    
44.       if(line1<line2)current_direction = 2; //down
    
45. 
    
46. 
    
47. 
    
48.       if(current_direction != last_direction) //changed  
    
49.       {
    
50.             last_direction = current_direction;
    
51.             return (last_direction);
    
52.       }
    
53.       else
    
54.       {
    
55.             return (0);
    
56.       }
    
57.    }  
    
58.    
    
59.    
    
60. //+------------------------------------------------------------------+
    
61. //| expert start function                                            |
    
62. //+------------------------------------------------------------------+
    
63. int start()
    
64.   {
    
65. //----  
    
66. 
    
67.    //程序开始前，先定义变量。
    
68.    
    
69.    int cnt, ticket, total; //用于检查订单的个数及类型，cnt是按照索引来计算，ticket是按照ticket来计算。在算类型之前，要先OrderSelect
    
70.    double shortEma, longEma; //这个地方是定义买卖信号的参数的，根据实际需要来定个数和类型。
    
71.    int counted_bars;
    
72. 
    
73. 
    
74.    //如果需要控制最低的K线个数，可用下面的
    
75.    
    
76.    
    
77.    
    
78.   //提示获利点，这个是有的系统对最小获利点有要求的情况下使用。例如FXDD要求为10.
    
79.    if(TakeProfit<10)
    
80.      {
    
81.       Print("TakeProfit less than 10");
    
82.       return(0);  // check TakeProfit
    
83.      }
    
84.       
    
85.   //信号函数里面的，参数的取得    重点
    
86.    shortEma = iMA(NULL,0,8,0,MODE_EMA,PRICE_CLOSE,0);
    
87.    longEma = iMA(NULL,0,13,0,MODE_EMA,PRICE_CLOSE,0);
    
88.    
    
89.    
    
90.    //把计算过的信号返回，并由这个信号来选择开仓等操作。
    
91.    int isCrossed  = Crossed (shortEma,longEma);
    
92.    
    
93.    //判断持仓状态，
    
94.    
    
95.       //把仓单总数赋值给一个变量，用于下一步计算仓单情况
    
96.        total  = OrdersTotal();  
    
97.       
    
98.        //空仓情况开始  
    
99.        //如果有空仓，则计算
    
100.    if(total < 1)  
     
101.      {
     
102.        //如果出现买的信号
     
103.        if(isCrossed == 1)
     
104.          {
     
105. //建立buy单，即多仓，            
     
106. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,
     
107. "My EA",12345,0,Green);
     
108.             //判断是否建仓成功，建仓成功，ticket被赋值为个数字，不是初始的0
     
109.             if(ticket>0)
     
110.               {
     
111.              //检查是否已经成交，重点是检查不是挂单 注意参数 MODE_TRADES
     
112.                if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
     
113. //打印出开仓价格
     
114. Print("已BUY，价格为: ",OrderOpenPrice());
     
115.               }
     
116.             //如果建仓失败，打印出错误提示
     
117.             else Print("建BUY仓失败: ",GetLastError());  
     
118. //建仓失败后，立即返回，并进行一下次的计算            
     
119. return(0);
     
120. 
     
121.       
     
122.          }
     
123.          
     
124.          
     
125. //如果卖单信号出现 ,注意，此时仍然是指在空仓状态下      
     
126.          if(isCrossed == 2)
     
127.          {
     
128. //建立SELL单，即空头仓，      
     
129. 
     
130.             ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,
     
131. Bid-TakeProfit*Point,"My EA",12345,0,Red);
     
132.             //如果建仓成功
     
133.             if(ticket>0)
     
134.               {
     
135.               //检查是否已经成交，而不是挂单
     
136.                if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
     
137. Print("SELL order opened : ",OrderOpenPrice());
     
138.               }
     
139.               //建仓失败，输出提示
     
140.             else Print("Error opening SELL order : ",GetLastError());  
     
141.             //立即返回，准备下一次的计算。
     
142.             return(0);
     
143.          }
     
144.        //如果买卖条件都没有满足，即if(isCrossed!=1&&isCrossed!=2)则直接返回
     
145.          return(0);
     
146.       //空仓情结束
     
147.      }
     
148.      
     
149.      
     
150.   //如果持仓，注意，这里省略了一个else，即if(ticket>0) else，而程序之所以不写else，是因为，当(ticket>0)时，不执行if（ticket<0）;这体现出编程者对语句的熟练和深刻理解。希望看这个程序的新手多用心体会。
     
151.   
     
152.   //开始计算仓单总数，并对所有已持仓当进行判断 ,这里用cnt=0作为开始，是以仓当的索引值开始判断的，而不是ticket。
     
153.    for(cnt=0;cnt<total;cnt++) //从索引值为0的仓单开始，直到计算完所有的仓当int total=OrdersTotal;
     
154.      {
     
155.      //选择仓当，在使用order相关的函数时，必须先运行一次OrderSelect
     
156.       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
     
157.      //如果是持有的是买单
     
158.      
     
159.       if(OrderType()<=OP_SELL && OrderSymbol()==Symbol()) //OP_SELL的值为1，OP_BUY的值为0。这里，指如果持有买、卖单，而不是挂单，并且货币兑是当前图表的货币对
     
160.         {
     
161.         //判断持有buy单即多头单的情况
     
162.          if(OrderType()==OP_BUY)   // long position is opened
     
163.            {
     
164.             // 卖单信号开始 should it be closed? 如果出现了卖的信号
     
165.            if(isCrossed == 2)
     
166.                 {
     
167.                  //平仓buy单
     
168.                  OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet);  
     
169. // close position 之后立即返回，不管平仓是否成功，如果不成功，则重新回到循环里面，并重新判断索引值为0的订单，因为不管成功与否，会一直判断索引值为0的仓单，当仓单被平后，就没有索引值了。另外，这里说的是，在有卖信号下，对buy单的处理，sell单的索引不会被这个if语句里的OrderClose所执行
     
170.                  return(0); // exit
     
171.                 }
     
172.             
     
173.             // check for trailing stop 如果没有出新新信号，注意（此时已经是持有buy单了）检查移动止损，并修改止损和和获利点
     
174.             
     
175.             if(TrailingStop>0)   //如果追踪止损大于0，
     
176.               {                  
     
177.                if(Bid-OrderOpenPrice()>Point*TrailingStop) //如果获利（现在的买价减去开仓价格）大于 追踪止损的值
     
178.                  {
     
179.                   if(OrderStopLoss()<Bid-Point*TrailingStop) //如果单子的止损点比追踪止损点小
     
180.                     {
     
181.                      //修改订单的止损点为追踪止损点
     
182.                      OrderModify(OrderTicket(),OrderOpenPrice(),Bid-
     
183. Point*TrailingStop,OrderTakeProfit(),0,Green);
     
184.                      //修改完后立刻返回
     
185.                      return(0);
     
186.                     }
     
187.                  }
     
188.               }
     
189.        // 卖单信号结束
     
190.            }
     
191.          else // go to short position
     
192.            {
     
193.             // 买buy单信号开始 should it be closed? 注意，此时仍处于，所有仓单的检查和循环中，即操作完成后，立刻返回到仓位检查状态，并开始执行
     
194.             if(isCrossed == 1) //出现买单信号
     
195.               {
     
196.                //平仓卖单
     
197.                OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet);  
     
198. // close position
     
199.                //立刻返回，不管是否成功，并重新进行下一次的运算
     
200.                return(0); // exit
     
201.               }
     
202.             // check for trailing stop 检查止损点
     
203.             if(TrailingStop>0)   //如果止损价大于0
     
204. {                  
     
205.               
     
206.                if((OrderOpenPrice()-Ask)>(Point*TrailingStop)) //如果获利点(开仓价格-现在的卖价）大于追踪止损价
     
207.                  {                   if((OrderStopLoss()>(Ask+Point*TrailingStop)) ||(OrderStopLoss()==0)) //如果止损点大于止损假
     
208.                     {
     
209.                      //修改订单的止损价个为现在的追踪止损价格
     
210. OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,
     
211. OrderTakeProfit(),0,Red);
     
212.                      //修改后，立刻返回
     
213.                      return(0);
     
214.                     }
     
215.                  }
     
216.               }
     
217.            }
     
218.         }
     
219.      }
     
220.    return(0);
     
221.   }
     
222. //+------------------------------------------------------------------+

复制代码