电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

五分鐘動量交易系統(tǒng)（EA，不是指標）

 王道591 2017-02-20
小弟根據《五分鐘動量交易系統(tǒng)》編的，請大家多多指教！
  1. //+------------------------------------------------------------------+
  2. //|                                           五分鐘動量交易系統(tǒng).mq4 |
  3. //+------------------------------------------------------------------+

  5. extern double MAPeriod=20; //指數(shù)均線周期
  6. extern double StopLossSpred = 20; //初始止損離均線的點數(shù)
  7. extern double CloseSpred = 15; //后半倉止損離均線的點數(shù)
  8. extern double Lots=0.2; //持倉,必須為偶數(shù)


  11. //+------------------------------------------------------------------+
  12. //|                                                                  |
  13. //+------------------------------------------------------------------+
  14. int start()
  15.   {
  16.    double MacdCurrent, MacdPrevious, Ma;
  17.    int cnt, ticket, total;

  19.    if(Bars<100)
  20.      {
  21.       Print("K線少于100根！");
  22.       return(0);  
  23.      }

  25.    MacdCurrent=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
  26.    MacdPrevious=iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,2);
  27.    Ma=iMA(NULL,0,MAPeriod,0,MODE_EMA,PRICE_CLOSE,0);
  28.    
  29.    total=OrdersTotal();
  30.    
  31.    //開單檢查
  32.    if(total<1) //在沒有持倉的情況下才能開新倉
  33.      {
  34.       // 檢查資金
  35.       if(AccountFreeMargin()<(1000*Lots))
  36.         {
  37.          Print("資金不足： ", AccountFreeMargin());
  38.          return(0);  
  39.         }
  40.       // 檢查開多單的可能性
  41.       if(MacdCurrent>0 && MacdPrevious<0 && Ask>Ma && Ask<=Ma+20*Point)  //MACD首紅且匯價位于均線上20點內做多
  42.         {
  43.          ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ma-StopLossSpred*Point,0,"lbs-buy",197658,0,Red);
  44.          if(ticket>0)
  45.            {
  46.             if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("開多單成功 : ",OrderOpenPrice());
  47.            }
  48.          else Print("開多單發(fā)生錯誤 : ",GetLastError());
  49.          return(0);
  50.         }
  51.       // 檢查開空單的可能性
  52.       if(MacdCurrent<0 && MacdPrevious>0 && Bid<Ma && Bid>=Ma-20*Point) //MACD首綠且匯價位于均線下20點內做空
  53.         {
  54.          ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ma+StopLossSpred*Point,0,"lbs-sell",197658,0,Green);
  55.          if(ticket>0)
  56.            {
  57.             if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("開空單成功 : ",OrderOpenPrice());
  58.            }
  59.          else Print("開空單發(fā)生錯誤 : ",GetLastError());
  60.          return(0);
  61.         }
  62.       return(0);
  63.      }
  64.      
  65.    //減倉及平倉檢查   
  66.    for(cnt=0;cnt<total;cnt++)
  67.      {
  68.       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  69.       if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())  // check for symbol
  70.         {
  71.          if(OrderType()==OP_BUY)   // 如果有做多單存在
  72.            {
  73.             //多單減倉檢查
  74.             if(Ask-OrderOpenPrice()>=OrderOpenPrice()-OrderStopLoss() && OrderOpenPrice()>OrderStopLoss() && OrderLots()==Lots)
  75.               {
  76.                 ticket=OrderClose(OrderTicket(),Lots/2,Ask,3,Violet); // 平掉一半倉位
  77.                 if(ticket>0)
  78.                   {
  79.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多單減倉成功 : ",OrderOpenPrice());
  80.                   }
  81.                 else Print("多單減倉發(fā)生錯誤 : ",GetLastError());
  82.                 return(0);
  83.               }
  84.             
  85.             //修改后半倉位的止損價到盈虧平衡點
  86.             if(Ask-OrderOpenPrice()>OrderOpenPrice()-OrderStopLoss() && OrderOpenPrice()>OrderStopLoss() && OrderLots()==Lots/2)
  87.               {
  88.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
  89.                 if(ticket>0)
  90.                   {
  91.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多單盈虧平衡點修改成功 : ",OrderOpenPrice());
  92.                   }
  93.                 else Print("多單盈虧平衡點修改發(fā)生錯誤 : ",GetLastError());
  94.                 return(0);
  95.               }
  96.             
  97.             //根據行情發(fā)展修改剩余倉位的止損價到均線下15點
  98.             if(Ma-CloseSpred*Point>OrderStopLoss() && OrderOpenPrice()<=OrderStopLoss() && OrderLots()==Lots/2)
  99.               {
  100.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),Ma-CloseSpred*Point,OrderTakeProfit(),0,Red);
  101.                 if(ticket>0)
  102.                   {
  103.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("多單止損修改成功 : ",OrderOpenPrice());
  104.                   }
  105.                 else Print("多單止損修改發(fā)生錯誤 : ",GetLastError());
  106.                 return(0);
  107.               }  
  108.           }
  109.          else // 如果有做空單存在
  110.            {
  111.             //空單減倉檢查
  112.             if(OrderOpenPrice()-Bid>OrderStopLoss()-OrderOpenPrice() && OrderOpenPrice()<OrderStopLoss() && OrderLots()==Lots)
  113.               {
  114.                 ticket=OrderClose(OrderTicket(),Lots/2,Ask,3,Violet); // 平掉一半倉位
  115.                 if(ticket>0)
  116.                   {
  117.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空單減倉成功 : ",OrderOpenPrice());
  118.                   }
  119.                 else Print("空單減倉發(fā)生錯誤 : ",GetLastError());
  120.                 return(0);
  121.               }
  122.             
  123.             //修改后半倉位的止損價到盈虧平衡點
  124.             if(OrderOpenPrice()-Bid>OrderStopLoss()-OrderOpenPrice() && OrderOpenPrice()<OrderStopLoss() && OrderLots()==Lots/2)
  125.               {
  126.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Green);
  127.                 if(ticket>0)
  128.                   {
  129.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空單盈虧平衡點修改成功 : ",OrderOpenPrice());
  130.                   }
  131.                 else Print("空單盈虧平衡點修改發(fā)生錯誤 : ",GetLastError());
  132.                 return(0);
  133.               }
  134.             
  135.             //根據行情發(fā)展修改剩余倉位的止損價到均線下15點
  136.             if(Ma+CloseSpred*Point<OrderStopLoss() && OrderOpenPrice()>=OrderStopLoss() && OrderLots()==Lots/2)
  137.               {
  138.                 ticket=OrderModify(OrderTicket(),OrderOpenPrice(),Ma+CloseSpred*Point,OrderTakeProfit(),0,Green);
  139.                 if(ticket>0)
  140.                   {
  141.                     if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("空單止損修改成功 : ",OrderOpenPrice());
  142.                   }
  143.                 else Print("空單止損修改發(fā)生錯誤 : ",GetLastError());
  144.                 return(0);
  145.               }
  146.            }
  147.         }
  148.      }

  150.    return(0);
  151.   }
  152. // the end.
復制代碼

    本站是提供個人知識管理的網絡存儲空間，所有內容均由用戶發(fā)布，不代表本站觀點。請注意甄別內容中的聯(lián)系方式、誘導購買等信息，謹防詐騙。如發(fā)現(xiàn)有害或侵權內容，請點擊一鍵舉報。
    轉藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多