一个简洁地基于MA的EA源码分析

交易流程分析：
下面的源码是一个基于移动平均线的智能交易系统的代码
，整个程序非常简洁但EA的功能又非常齐全，实现了完全由电脑自动下单和平仓，整个程序只用了一个START()
函数来实现 ，我们知道所谓电脑自动交易系统，也就是让电脑来模拟交易员的操作进行交易的下单和平仓过程。
我们首先来分析一个外汇交易员手工进行外汇交易的操作过程：其步骤如下：
1.打开外汇交易客户端，选定一种货币对图表；
2。监视该货币对的K线趋势图，俗称盯盘，寻找开仓或者是平仓的时机，即开仓或者是平仓的条件
3。如果条件满足，进行下单开仓(做多或者做空)或者平仓
4。重复第二步，继续盯盘，假定第二步是开仓，就是寻找平仓的条件。
5。如果平仓的条件满足，进行平仓操作，计算盈亏核算。完成一次交易的循环。
6。若继续交易，重复2->3->4->5步
7。若不进行交易，退出外汇客户端。
基于以上的分析，我们已经知道一个完整的智能交易系统(俗称EA)在运行后必须要实现的基本功能，就是上述的人工操作的1-5步。

相关MQL语言知识：
为了实现机器操作，再来看看所需的MQL4语言的相关知识：
1.掌握MQL4语言的基本语法和程序的构成，及运行流程
    有关语法部分，请读者参看相关的资料，这里略去。
    关于程序的构成，对于一个智能交易系统EA程序来说：主要由三个函数构成分别是：
    init():初始化函数，负责程序变量及数据初始输入；只在程序调入时执行一次，一般不用重写内容。
    deinit():反初始化函数，负责程序退出时，将数据从内存中清除；只在程序退出时，执行一次，一般不用重写内容。
    start():开始函数，也即程序的主函数，负责EA程序的全部交易执行过程，实际上他是一个EA的交易管理与执行函数。每隔一定时间，一般几秒之内，执行一次，就是循环执行，起到程序退出时终止
    运行流程：启动EA后，程序的INTI()开始执行一次，-->然后START()循环执行--->最后退出EA时deinit()执行一次

2。mql4中与交易相关的交易函数：

  开仓函数：
int OrderSend( string symbol, int cmd, double volume, double price,int slippage, double stoploss, double takeprofit, void comment,void magic, void expiration, void arrow_color)
    这个功能主要应用于开仓位置和挂单交易.
参量:
symbol  -   交易货币对。
cmd  -  购买方式。
volume -  购买手数。
price  -   收盘价格。
slippage  -   最大允许滑点数。
stoploss  -   止损水平。
takeprofit  -   赢利水平。
comment  -   注解文本。
magic  -   定单指定码。可以作为用户指定识别码使用。
expiration  -   定单有效时间(只限挂单)。
arrow_color  -  图表上箭头颜色。如果参量丢失或存在CLR_NONE价格值不会在图表中画出

平仓函数：
bool OrderClose( int ticket, double lots, double price, intslippage, void Color)
对定单进行平仓操作。如果函数成功，返回的值是真实的。如果函数失败，返回的值是假的。获得详细错误信息，请查看GetLastError()函数。
参量:
ticket  -   定单编号。
lots  -   手数。
price  -   收盘价格。
slippage  -   最高划点数。
Color  -  图表中标记颜色。如果参量丢失，CLR_NONE值将不会在图表中画出。

定单修改函数：
bool OrderModify( int ticket, double price, double stoploss, doubletakeprofit, datetime expiration, void arrow_color)
对于先前的开仓或挂单进行特性修改。如果函数成功，返回的值为 TRUE。如果函数失败，返回的值为FALSE。 获得详细的错误信息,查看GetLastError()函数。

参量:
ticket  -   定单编号。
price  -   收盘价格
stoploss  -   新止损水平。
takeprofit  -   新赢利水平。
expiration  -   挂单有效时间。
arrow_color  -  在图表中允许对止损/赢利颜色进行修改。如果参量丢失或存在CLR_NONE 值，在图表中将不会显示。

程序代码分析
  参看代码中的相关注释
//+------------------------------------------------------------------+
//|                                                  modifiedEA.mq4 |
//|                      Copyright ?2008, MetaQuotes Software Corp. |
//|                              [e-mail]  QQ:806935610|
//+------------------------------------------------------------------+
#property copyright "Copyright ?2008, lin Ge QQ:806935610"
#propertylink      "[e-mail]  QQ:806935610"
//---- input parameters
extern double TakeProfit = 20;
extern double StopLoss = 30;
extern double Lots = 2;
extern double TrailingStop = 50;
extern int ShortEma = 5;
extern int LongEma = 60;
//+------------------------------------------------------------------+
//| expertinitializationfunction                                  |
//+------------------------------------------------------------------+
int init()
  {
//----
  
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitializationfunction                                |
//+------------------------------------------------------------------+
int deinit()
  {
//----
  
//----
   return(0);
  }

//+------------------------------------------------------------------+
//| expert startfunction                                            |
//+------------------------------------------------------------------+
int start()
  {
    intcnt, ticket, total;
    doubleSEma, LEma;
//----
    if(Bars< 100)
      {
        Print("barsless than 100");
        return(0);  
      }
//----
    if(TakeProfit< 10)
      {
        Print("TakeProfitless than 10");
        return(0);  //check TakeProfit
      }
//----
    SEma= iMA(NULL, 0, ShortEma, 0, MODE_EMA, PRICE_CLOSE, 0);
    LEma= iMA(NULL, 0, LongEma, 0, MODE_EMA, PRICE_CLOSE, 0);
//----
    staticint isCrossed  = 0;
    isCrossed= Crossed (LEma, SEma);
//----
    total  =OrdersTotal();
    if(total< 1)
      {
        if(isCrossed==1)      //满足空仓条件，开空仓
          {
            ticket= OrderSend(Symbol(), OP_SELL, Lots, Bid, 3, Bid +StopLoss*Point,
                              Bid - TakeProfit*Point, "EMA_CROSS", 12345, 0, Green);
            if(ticket> 0)
              {
                if(OrderSelect(ticket,SELECT_BY_TICKET, MODE_TRADES))
                    Print("SELLorder opened : ",OrderOpenPrice());
              }
            else
                Print("Erroropening SELL order : ", GetLastError());
            return(0);
          }
        if(isCrossed==2)      //满足多仓条件，开多仓
          {
            ticket= OrderSend(Symbol(), OP_BUY, Lots, Ask, 3, Ask -StopLoss*Point,
                              Ask + TakeProfit*Point, "EMA_CROSS", 12345, 0, Red);
            if(ticket> 0)
              {
                if(OrderSelect(ticket,SELECT_BY_TICKET, MODE_TRADES))
                    Print("BUYorder opened : ", OrderOpenPrice());
              }
            else
                Print("Erroropening BUY order : ",GetLastError());
            return(0);
          }
        return(0);
      }
//----订单修改，实现动态止盈止损跟踪
    for(cnt= 0; cnt < total; cnt++)
      {
        OrderSelect(cnt,SELECT_BY_POS, MODE_TRADES);
        if(OrderType()<= OP_SELL &&OrderSymbol() == Symbol())
          {
            if(OrderType()== OP_SELL)   // long position isopened
              {
                //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
              {
                //check for trailing stop
                if(TrailingStop> 0)  
                  {                
                    if((OrderOpenPrice()- Ask) > (Point*TrailingStop))
                      {
                        if((OrderStopLoss()> (Ask + Point*TrailingStop)) )
                          {
                            OrderModify(OrderTicket(),OrderOpenPrice(),
                                        Ask+ Point*TrailingStop,
                                        OrderTakeProfit(),0, Red);
                            return(0);
                          }
                      }
                  }
              }
          }
      }
//----
    return(0);
  }
//+------------------------------------------------------------------+
//移动平均线多空条件判断，
int Crossed (double line1 , double line2)
  {
    staticint last_direction = 0;
    staticint current_direction = 0;
    //Don'twork in the first load, wait for the first cross!
    staticbool first_time = true;
    if(first_time== true)
      {
        first_time= false;
        return(0);
      }
//----
    if(line1> line2)
        current_direction= 2;  //up 多头市场上穿做多
    if(line1< line2)
        current_direction= 1;  //down 空头市场下穿做空
//----
    if(current_direction!= last_direction)  //changed多空换位
      {
        last_direction= current_direction;
        return(last_direction);
      }
    else
      {
        return(0);  //not changed
      }
  }