: | : | :期货量化学习 | :期货量化 |
返回列表 发帖

[MetaStock] 网格交易策略源码（MT4.0源码）

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2893117 
威望
1396590 布 
龙e币
1496527 刀 
在线时间
13326 小时 
注册时间
2009-12-3 
最后登录
2024-12-26 

Medal No.1
1# 跳转到 » 倒序看帖
打印
tT
龙听发表于 2018-3-9 12:58 | 只看该作者

[MetaStock] 网格交易策略源码（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. //+------------------------------------------------------------------+
复制代码

收藏 分享
论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）
 
期货论坛 - 版权/免责声明   1.本站发布源码(包括函数、指标、策略等)均属开放源码，用意在于让使用者学习程序化语法撰写，使用者可以任意修改语法內容并调整参数。仅限用于个人学习使用，请勿转载、滥用，严禁私自连接实盘账户交易。
  2.本站发布资讯(包括文章、视频、历史记录、教材、评论、资讯、交易方案等)均系转载自网络主流媒体，内容仅为作者当日个人观点，本网转载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。本网不对该类信息或数据做任何保证。不对您构成任何投资建议，不能依靠信息而取代自身独立判断，不对因使用本篇文章所诉信息或观点等导致的损失承担任何责任。
  3.本站发布资源(包括书籍、杂志、文档、软件等)均从互联网搜索而来，仅供个人免费交流学习，不可用作商业用途，本站不对显示的内容承担任何责任。请在下载后24小时内删除。如果喜欢，请购买正版，谢谢合作！
  4.龙听期货论坛原创文章属本网版权作品，转载须注明来源“龙听期货论坛”，违者本网将保留追究其相关法律责任的权力。本论坛除发布原创文章外，亦致力于优秀财经文章的交流分享，部分文章推送时若未能及时与原作者取得联系并涉及版权问题时，请及时联系删除。联系方式：http://www.qhlt.cn/thread-262-1-1.html
如何访问权限为100/255贴子：/thread-37840-1-1.html；注册后仍无法回复：/thread-23-1-1.html；微信/QQ群：/thread-262-1-1.html；网盘链接失效解决办法：/thread-93307-1-1.html

返回列表