Board logo

标题: [MetaStock] 网格交易策略源码（MT4.0源码） [打印本页]
作者: 龙听    时间: 2018-3-9 12:58     标题: 网格交易策略源码（MT4.0源码）

MT4的网格交易法源码

  1. //+------------------------------------------------------------------+

  3. //|                                                      Grid1.1.mq4 |

  5. //|                                          Copy* 顺势加码 2006 |

  7. //|                                                |

  9. //+------------------------------------------------------------------+

  11. #property copy* "Copy* 顺势加码 2006"

  13. #property link      "bonnyshi@gmail.com"

  15. #include



  19. extern double GridStep=50;        //格幅

  21. extern double GridLength=100;   //格长

  23. double PivotPr, Multiple, i, Lots=0.1, STOPLEVEL, TP, ST;

  25. string Text="Grid";

  27. int Magic, j, BuyCount, SellCount, DTS, Ticket;

  29. //+------------------------------------------------------------------+

  31. int init()    //初始化部分将定义参数赋值: 每次在start里面都可能被赋值一次，消耗时间

  33.    

  35.     if (DTS==4)  DTS=2;

  37.        else  DTS=0;

  39.     Magic =105;

  41.     GridStep =GridStep*Point;

  43.     GridLength =GridLength*Point;

  45.     STOPLEVEL =MarketInfo(Symbol(),MODE_STOPLEVEL)*Point;

  47.     return(0);

  49.    



  53. //+------------------------------------------------------------------+

  55. int start()

  57. {

  59.     Multiple =NormalizeDouble((Bid-NormalizeDouble(Bid,DTS))/GridStep, 0); // 评rint 检查这地方出值为0  

  61.     PivotPr =NormalizeDouble(Bid,DTS) +GridStep*Multiple;

  63.     // 下网格布网

  65.     for(i=PivotPr; i>=PivotPr-GridLength; i=i-GridStep)

  67.        {

  69.         BuyCount=0; SellCount=0;

  71.         for(j=0; j

  73.            {

  75.             if(OrderSelect(j,SELECT_BY_POS)==false) return(0);

  77.   

  79.             if(OrderMagicNumber()==Magic && NormalizeDouble(OrderOpenPr(),DTS)==NormalizeDouble(i,DTS) )

  81.               {

  83.                if(OrderType()==OP_BUY || OrderType()==OP_BUYLIMIT )    BuyCount++;

  85.                if(OrderType()==OP_SELL || OrderType()==OP_SELLSTOP )     SellCount++;

  87.               }

  89.            }

  91.         if(BuyCount==0)

  93.            {

  95.             TP =i+GridStep; ST=0;

  97.             if(Ask-i>=STOPLEVEL)

  99.               {

  101.               Ticket =OrderSend(Symbol(),OP_BUYLIMIT,Lots,i,0,ST,TP,"Grid - BuyLimit",Magic,0,0);

  103.               if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid -   BuyLimit=",i," 开仓成功");

  105.                 else Alert( Symbol(),"Grid - BuyLimit=",i," 开仓失败:",ErrorDescription(GetLastError()));

  107.               Sleep(10000);

  109.               }

  111.            if(Ask==i)

  113.               {

  115.                Ticket=OrderSend(Symbol(),OP_BUY,Lots,i,0,ST,TP,"Grid - Buy",Magic,0,0);

  117.                if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid -   Buy=",i," 开仓成功");

  119.                else Alert( Symbol(),"Grid - Buy=",i," 开仓失败:",ErrorDescription(GetLastError()));

  121.                Sleep(10000);

  123.              }

  125.           }

  127.        if(SellCount==0)

  129.           {

  131.            TP=i-GridStep;ST=0;

  133.            if(Bid-i>=STOPLEVEL)

  135.              {

  137.               Ticket=OrderSend(Symbol(),OP_SELLSTOP,Lots,i,0,ST,TP,"Grid - SellStop",Magic,0,0);

  139.               if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid -   SellStop=",i," 开仓成功");

  141.               else Alert( Symbol(),"Grid - SellStop=",i," 开仓失败:",ErrorDescription(GetLastError()));

  143.               Sleep(10000);

  145.              }

  147.            if(Bid==i)

  149.              {

  151.               Ticket=OrderSend(Symbol(),OP_SELL,Lots,i,0,ST,TP,"Grid - Sell",Magic,0,0);

  153.               if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid -   BuyLimit=",i," 开仓成功");

  155.               else Alert( Symbol(),"Grid - BuyLimit=",i," 开仓失败:",ErrorDescription(GetLastError()));

  157.               Sleep(10000);

  159.              }

  161.           }

  163.       }   

  165.   

  167.    // 上网格布网

  169.    for(i=PivotPr+GridStep;i<=PivotPr+GridLength;i=i+GridStep)

  171.       {

  173.   

  175.        BuyCount=0;SellCount=0;

  177.        for(j=0;j

  179.           {

  181.            if(OrderSelect(j,SELECT_BY_POS)==false) return(0);

  183.            if(OrderMagicNumber()==Magic && NormalizeDouble(OrderOpenPrice(),DTS)==NormalizeDouble(i,DTS) )

  185.              {

  187.               if(OrderType()==OP_BUY || OrderType()==OP_BUYSTOP)    BuyCount++;   

  189.               if(OrderType()==OP_SELL || OrderType()==OP_SELLLIMIT)  SellCount++;

  191.              }

  193.           }

  195.        if(BuyCount==0)

  197.           {

  199.            TP=i+GridStep;ST=0;

  201.            if(i-Ask>=STOPLEVEL)

  203.              {Ticket=OrderSend(Symbol(),OP_BUYSTOP,Lots,i,0,ST,TP,"Grid +  BuyStop",Magic,0,0);

  205.               if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid +    BuyStop=",i," 开仓成功");

  207.               else Alert( Symbol(),"Grid +  BuyStop=",i," 开仓失败:",ErrorDescription(GetLastError()));

  209.               Sleep(10000);

  211.              }

  213.            if(i==Ask)

  215.              {

  217.              Ticket=OrderSend(Symbol(),OP_BUY,Lots,i,0,ST,TP,"Grid +  Buy",Magic,0,0);

  219.              if(Ticket>0) Alert(Symbol(),"  ",Ticket,"Grid +   Buy=",i," 开仓成功");

  221.              else Alert( Symbol(),"Grid +  Buy=",i," 开仓失败:",ErrorDescription(GetLastError()));

  223.              Sleep(10000);

  225.             }

  227.          }

  229.      if(SellCount==0)

  231.          {

  233.           TP=i-GridStep;ST=0;

  235.           if(i-Bid>=STOPLEVEL)

  237.             {

  239.             Ticket=OrderSend(Symbol(),OP_SELLLIMIT,Lots,i,0,ST,TP,"Grid +  SellLimit",Magic,0,0);

  241.             if (Ticket>0) Alert(Symbol()," ",Ticket,"Grid +    SellLimit=",i," 开仓成功");

  243.             else Alert( Symbol(),"Grid +  SellLimit=",i," 开仓失败:",ErrorDescription(GetLastError()));

  245.             Sleep(10000);

  247.             }  

  249.           if(i==Bid)

  251.             {

  253.             Ticket=OrderSend(Symbol(),OP_SELL,Lots,i,0,ST,TP,"Grid + Sell",Magic,0,0);

  255.             if(Ticket>0) Alert(Symbol(),"  ",Ticket,"Grid +    Sell=",i," 开仓成功");

  257.             else Alert( Symbol(),"Grid +  Sell=",i," 开仓失败:",ErrorDescription(GetLastError()));

  259.             Sleep(10000);

  261.             }

  263.          }

  265.     }

  267.    

  269. //----

  271.    return(0);

  273. }

  275. //+------------------------------------------------------------------+
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2