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

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

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

程序代码分析
   参看代码中的相关注释
//+------------------------------------------------------------------+
//|                                                   modifiedEA.mq4 |
//|                       Copyright ?2008, MetaQuotes Software Corp. |
//|                               yyy999@people.com.cn  QQ:806935610 |
//+------------------------------------------------------------------+
#property copyright "Copyright ?2008, lin Ge QQ:806935610"
#property link      "yyy999@people.com.cn  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;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----

//----
   return(0);
  }

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
    int cnt, ticket, total;
    double SEma, LEma;
//----
    if(Bars < 100)
      {
        Print("bars less than 100");
        return(0);  
      }
//----
    if(TakeProfit < 10)
      {
        Print("TakeProfit less 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);
//----
    static int 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("SELL order opened : ",OrderOpenPrice());
              }
            else
                Print("Error opening 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("BUY order opened : ", OrderOpenPrice());
              }
            else
                Print("Error opening 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 is opened
              {
                // 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)
  {
    static int last_direction = 0;
    static int current_direction = 0;
    //Don't work in the first load, wait for the first cross!
    static bool 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
      }
  }