【宽客EA】Disaster - MetaTrader 4EA

geek005

它是基于观察，发现在图表上价格与移动平均经常交叉并会移动更远一段距离，它在价格等于MA(590-M1)的地方设置挂单(限价买入或者限价卖出)，当价格改变时，MA的值改变，订单也会被修改，直到订单被触发。

当订单被触发后，就不会修改。退出 – 通过较紧的获利和止损。一旦EA发现没有订单了，它就会设置一个新的挂单。因为经常有价格只是接触了MA然后就不会进一步发展了，我选择了足够小的止损 - 30个点，获利水平=70.

1. 
   
2. //+------------------------------------------------------------------+
   
3. //|                                                     disaster.mq4 |
   
4. //|                                                         jay|
   
5. //|                                                          http://www.geekquant.com |
   
6. //+------------------------------------------------------------------+
   
7. #property copyright "jay"
   
8. #property link      "http://www.geekquant.com"
   
9. extern double StopLoss = 30;
   
10. extern double TakeProfit = 70;
    
11. extern int MAPER = 590;
    
12. int Magic = 54321;
    
13. 
    
14. datetime TradeTimeOut;
    
15. 
    
16. int init()
    
17.   {
    
18.    return(0);
    
19.   }
    
20. int deinit()
    
21.   {
    
22.    return(0);
    
23.   }
    
24. int start()
    
25.   {
    
26. // информация по предыдущему ордеру
    
27. int preOrderType=-1,preTicket=0;
    
28. double prePriceOpen=0,prePriceClose=0,preTP=0,preSL=0;
    
29. bool STOPLEVELCHECK;
    
30. int i,j,k,l,ticket,err,nBars=0,numOrdersCount=0,numSLCount=0;
    
31. int total=OrdersTotal();
    
32. double Lot=0.0,PriceStop=0.0,PriceLimit=0.0,Price=0.0;
    
33.    if (TradeTimeOut==0) TradeTimeOut=CurTime();
    
34.    if ( TradeTimeOut > CurTime() ) return(0);
    
35.    if ( Bars < 1000) return(0);
    
36.    // обработка истории - поиск ордеров
    
37.    total=OrdersHistoryTotal();
    
38.    // начинаем выборку с конца, после найденного последнего ордера прерываем дальнейший поиск
    
39.    for (i=total;i>=0;i--)
    
40.       {
    
41.       if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) continue;
    
42.       if (OrderMagicNumber() == Magic)
    
43.          {
    
44.          preOrderType=OrderType();
    
45.          preTicket=OrderTicket();
    
46.          prePriceOpen=OrderOpenPrice();
    
47.          preTP=OrderTakeProfit();
    
48.          preSL=OrderStopLoss();
    
49.          prePriceClose=OrderClosePrice();
    
50.          // последний ордер нашли, больше нам ничего не нужно
    
51.          break;
    
52.          }
    
53.       }
    
54.    // выборка текущих позиций
    
55.       total=OrdersTotal();
    
56.       for (i=0;i<total;i++)
    
57.          {
    
58.          if (OrderSelect(i,SELECT_BY_POS)==false) continue;
    
59.          if (OrderMagicNumber() == Magic)
    
60.             {
    
61.             numOrdersCount++;
    
62.             // если цена отложенного ордера отличается от необходимого - модифицируем
    
63.             STOPLEVELCHECK = true;
    
64.             if (OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP)
    
65.                {
    
66.                Price=NormalizeDouble(iMA(NULL,PERIOD_M1,MAPER,0,MODE_SMA,PRICE_CLOSE,0),Digits);
    
67.                if (OrderType()==OP_BUYSTOP)
    
68.                   {
    
69.                   PriceStop=Price - MarketInfo(Symbol(),MODE_SPREAD)*Point - StopLoss * Point;
    
70.                   PriceLimit=Price + TakeProfit * Point;
    
71.                   STOPLEVELCHECK = (Price-Ask) > MarketInfo(Symbol(),MODE_STOPLEVEL)*Point;
    
72.                   if (preOrderType==OP_BUY && (prePriceOpen-prePriceClose)>0)
    
73.                      {
    
74.                      PriceLimit=Price + 0.5 * TakeProfit * Point;
    
75.                      }
    
76.                   }
    
77.                if (OrderType()==OP_SELLSTOP)
    
78.                   {
    
79.                   PriceStop=Price + StopLoss * Point;
    
80.                   PriceLimit=Price - MarketInfo(Symbol(),MODE_SPREAD)*Point - TakeProfit * Point;
    
81.                   STOPLEVELCHECK = (Bid-Price) > MarketInfo(Symbol(),MODE_STOPLEVEL)*Point;
    
82.                   if (preOrderType==OP_SELL && (prePriceOpen-prePriceClose)<0)
    
83.                      {
    
84.                      PriceLimit=Price - MarketInfo(Symbol(),MODE_SPREAD)*Point - 0.5*TakeProfit * Point;
    
85.                      }
    
86.                   }
    
87.                if (NormalizeDouble(OrderOpenPrice()-Price,Digits)!=0
    
88.                      && NormalizeDouble(OrderStopLoss()-PriceStop,Digits)!=0
    
89.                      && NormalizeDouble(OrderTakeProfit()-PriceLimit,Digits)!=0 && STOPLEVELCHECK)
    
90.                   {
    
91.                   OrderModify(OrderTicket(),Price, PriceStop, PriceLimit ,0,CLR_NONE);
    
92.                   }
    
93.                }
    
94.             Price=NormalizeDouble(iMA(NULL,PERIOD_M1,MAPER,0,MODE_SMA,PRICE_CLOSE,0),Digits);
    
95.             if (OrderType()==OP_BUY && Minute()/5==NormalizeDouble(Minute()/5,0) )
    
96.                {
    
97.                if (NormalizeDouble(Bid-OrderStopLoss()-70*Point,Digits)>0)
    
98.                   {
    
99.                   //OrderModify(OrderTicket(),OrderOpenPrice(),,0,0,CLR_NONE);
    
100.                   }
     
101.                }
     
102.             if (OrderType()==OP_SELL && Minute()/5==NormalizeDouble(Minute()/5,0) )
     
103.                {
     
104.                if (NormalizeDouble(OrderStopLoss()-Ask-70*Point,Digits)>0)
     
105.                   {
     
106.                   //OrderModify(OrderTicket(),OrderOpenPrice(),, 0,0,CLR_NONE);
     
107.                   }
     
108.                }
     
109.             }
     
110.          }
     
111.    Lot=NormalizeDouble(0.4*AccountFreeMargin()/1000,1);
     
112.    if (Lot>MarketInfo(Symbol(),MODE_MAXLOT)) Lot=MarketInfo(Symbol(),MODE_MAXLOT);
     
113.    //if (Lot>5) Lot=5.0;
     
114.    if (Lot<MarketInfo(Symbol(),MODE_MINLOT)) return(0);
     
115.    if (numOrdersCount==0) // если открытых ордеров нет - ставим отложенные ордера
     
116.    {
     
117.       Price=NormalizeDouble(iMA(NULL,PERIOD_M1,MAPER,0,MODE_SMA,PRICE_CLOSE,0),Digits);
     
118.       if (Bid-Price > 20 * Point)
     
119.          {
     
120.          ticket=OrderSend(Symbol(), OP_SELLSTOP, Lot ,
     
121.             Price, 1, Price + StopLoss * Point, Price - TakeProfit * Point, "MACROS2", Magic, 0, Red);
     
122.             //TradeTimeOut=TimeCurrent()+60*60*10;
     
123.          }
     
124.       if (Price-Ask > 20 * Point)
     
125.          {
     
126.          ticket=OrderSend(Symbol(), OP_BUYSTOP, Lot ,
     
127.             Price+MarketInfo(Symbol(),MODE_SPREAD)*Point, 1,
     
128.             Price + MarketInfo(Symbol(),MODE_SPREAD)*Point - StopLoss * Point,
     
129.             Price + MarketInfo(Symbol(),MODE_SPREAD)*Point + TakeProfit * Point, "MACROS2", Magic, 0, Red);
     
130.             //TradeTimeOut=TimeCurrent()+60*60*10;
     
131.          }
     
132.    }
     
133.    return(0);
     
134.   }
     

复制代码