EA自動智能交易系統(範例說明)

對於程式語言一直抱持排斥的心態,所以無法好好地靜下心學好

 

交易已經進展到『程式自動交易』非走不可的階段,看看如何能快速又簡單進入

 

先來學習別人的,多看並利用一些好工具,來簡化學習的曲線

 

//+——————————————————————+
//| 

                                              Moving Average.mq4 |                                                                                                                                           
//|                                                    http://www.imt4.com |
//+——————————————————————+
#define MAGICMA  20050610

extern double Lots                            = 0.1;
extern double MaximumRisk              = 0.02;
extern double DecreaseFactor        = 3;
extern double MovingPeriod            = 10;
extern double MovingShift              =3;
//+——————————————————————+
//| Calculate open positions                                                                                |
//+——————————————————————+
int CalculateCurrentOrders(string symbol)
  {
    int buys=0,sells=0;
//—-
    for(int i=0;i<OrdersTotal();i++)
        {
          if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
          if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
              {
                if(OrderType()==OP_BUY)  buys++;
                if(OrderType()==OP_SELL) sells++;
              }
        }
//—- return orders volume
    if(buys>0) return(buys);
    else            return(-sells);
  }
//+——————————————————————+
//| Calculate optimal lot size                                                                            |
//+——————————————————————+
double LotsOptimized()
  {
    double lot=Lots;
    int      orders=HistoryTotal();        // history orders total
    int      losses=0;                                  // number of losses orders without a break
//—- select lot size
    lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);
//—- calcuulate number of losses orders without a break
    if(DecreaseFactor>0)
        {
          for(int i=orders-1;i>=0;i–)
              {
                if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print(“Error in history!”); break; }
                if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
                //—-
                if(OrderProfit()>0) break;
                if(OrderProfit()<0) losses++;
              }
          if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
        }
//—- return lot size
    if(lot<0.1) lot=0.1;
    return(lot);
  }
//+——————————————————————+
//| Check for open order conditions                                                                  |
//+——————————————————————+
void CheckForOpen()
  {
    double ma;
    int      res;
//—- go trading only for first tiks of new bar
    if(Volume[0]>1) return;
//—- get Moving Average
    ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);
//—- sell conditions
    if(Open[1]>ma && Close[1]<ma) 
        {
          res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,0,””,MAGICMA,0,Red);
          return;
        }
//—- buy conditions
    if(Open[1]<ma && Close[1]>ma) 
        {
          res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,””,MAGICMA,0,Blue);
          return;
        }
//—-
  }
//+——————————————————————+
//| Check for close order conditions                                                                |
//+——————————————————————+
void CheckForClose()
  {
    double ma;
//—- go trading only for first tiks of new bar
    if(Volume[0]>1) return;
//—- get Moving Average
    ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);
//—-
    for(int i=0;i<OrdersTotal();i++)
        {
          if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)              break;
          if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
          //—- check order type
          if(OrderType()==OP_BUY)
              {
                if(Open[1]>ma && Close[1]<ma) OrderClose(OrderTicket(),OrderLots(),Bid,3,White);
                break;
              }
          if(OrderType()==OP_SELL)
              {
                if(Open[1]<ma && Close[1]>ma) OrderClose(OrderTicket(),OrderLots(),Ask,3,White);
                break;
              }
        }
//—-
  }
//+——————————————————————+
//| Start function                                                                                                    |
//+——————————————————————+
void start()
  {
//—- check for history and trading
    if(Bars<100 || IsTradeAllowed()==false) return;
//—- calculate open orders by current symbol
    if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
    else    &n
bsp;                                                                 CheckForClose();
//—-
  }
//+——————————————————————+

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
以下是註解

//+——————————————————————+
//|                                                                          Moving Average.mq4 |                                       
//|                                                                            http://www.imt4.com |
//+——————————————————————+
#define MAGICMA  20050610 //定義本EA操作的訂單的唯一標識號碼

extern double Lots                            = 0.1;//每單的交易量
extern double MaximumRisk              = 0.02;//作者定義的最大風險參數
extern double DecreaseFactor        = 3;//作者定義的參數,作用要看程序中的用法
extern double MovingPeriod            = 10;//EA中使用的均線的周期
extern double MovingShift              =3;//EA中使用的均線向左的K線偏移量
//+——————————————————————+
//| Calculate open positions                                                                                |
//+——————————————————————+
int CalculateCurrentOrders(string symbol)//函數作用,計算當前持倉訂單的數量
  {
    int buys=0,sells=0;//定義兩個臨時變量,準備用於後面的多空訂單的個數計算
//—-
    for(int i=0;i<OrdersTotal();i++)//循環檢測當前的訂單隊列
        {
          if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;//挑出持倉單的每一個訂單位置
          if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)//根據訂單位置,比較是否是當前K線商品以及訂單唯一標識號是否和本程序設置的一致(用於避 免EA誤操作其他程序控制的持倉單)
              {
                if(OrderType()==OP_BUY)  buys++;//找到符合條件的持倉單後,如果是多單,則臨時變量buys增加1
                if(OrderType()==OP_SELL) sells++;//找到符合條件的持倉單後,如果是空單,則臨時變量sells增加1
              }
        }
//—- return orders volume
    if(buys>0) return(buys);
    else            return(-sells);//本函數返回查詢計算結束時的持倉單的個數。
  }
//+——————————————————————+
//| Calculate optimal lot size                                                                            |
//+——————————————————————+
double LotsOptimized()//函數目的,根據要求 計算出訂單交易量
  {
    double lot=Lots;
    int      orders=HistoryTotal();        // history orders total 歷史出場訂單的個數
    int      losses=0;                                  // number of losses orders without a break
//—- select lot size
    lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);//通過風險系數的計算獲得當前入場單應該采用的交易量
//—- calcuulate number of losses orders without a break
    if(DecreaseFactor>0)
        {
          for(int i=orders-1;i>=0;i–)
              {
                if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print(“Error in history!”); break; }//循環查詢出場單隊列
                if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;//
                //—-
                if(OrderProfit()>0) break;
                if(OrderProfit()<0) losses++;//循環計算所有出場虧損單的虧損總和
              }
          if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);//如果虧損額大於1,則下一入場單的交易量修正為新的計算結果。
        }
//—- return lot size
    if(lot<0.1) lot=0.1;//如果計算出的交易量小於帳戶最小手數0.1,則下一入場單的交易手數使用0.1作為交易量
    return(lot);
  }
//+——————————————————————+
//| Check for open order conditions                                                                  |
//+——————————————————————+
void CheckForOpen()//檢查入場條件的情況並作處理
  {
    double ma;
    int      res;
//—- go trading only for first tiks of new bar
    if(Volume[0]>1) return;//如果當前K線持倉量大於1,說明不是K線的開盤時間點,則直接返回 否則是K線第一個價格,則繼續下面的過程
//—- get Moving Average
    ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);//獲得當前的均線數值
//—- sell conditions
    if(Open[1]>ma && Close[1]<ma)  //如當前K開盤價大於均線,而前一K收盤價小於均線,則發出入場多單
        {
          res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,0,””,MAGICMA,0,Red);
          return;
        }
//—- buy conditions
    if(Open[1]<ma && Close[1]>ma)  //如當前K開盤價小於均線,而前一K收盤價大於均線,則發出入場空單
        {
          res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,””,MAGICMA,0,Blue);
          return;
        }
//—-
  }
//+——————————————————————+
//| Check for close order conditions                                                                |
//+——————————————————————+
void CheckForClose()//檢查出場條件的情況並作處理
  {
    double ma;
//—- go trading only for first tiks of new bar
    if(Volume[0]>1) return;
//—- get Moving Average
    ma=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,0);
//—-
    for(int i=0;i<OrdersTotal();i++)
        {
          if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)              break;
          if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
          //—- check order type
      &nb
sp;   if(OrderType()==OP_BUY)
              {
                if(Open[1]>ma && Close[1]<ma) OrderClose(OrderTicket(),OrderLots(),Bid,3,White);//如果持倉是多單,則當當前K開盤價小於均 線,而前一K收盤價大於均線,則發出平倉指令
                break;
              }
          if(OrderType()==OP_SELL)
              {
                if(Open[1]<ma && Close[1]>ma) OrderClose(OrderTicket(),OrderLots(),Ask,3,White););//如果持倉是空單,則當當前K開盤價大於 均線,而前一K收盤價小於均線,則發出平倉指令

 

              break;
              }
        }
//—-
  }
//+——————————————————————+
//| Start function                                                                                                    |
//+——————————————————————+
void start()//主循環過程
  {
//—- check for history and trading
    if(Bars<100 || IsTradeAllowed()==false) return;
//—- calculate open orders by current symbol
    if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
    else                                                                      CheckForClose();
//—-
  }
//+——————————————————————+

快手免手續費$0美元買進美股暴漲股 美股券商Firstrade (第一證券)

(2021 最新優惠活動詳閱Firstrade官網)

【2021 美股投資】重磅!美股券商第一證券(Firstrade)推出0佣金優惠+ 225美元現金獎勵(Firstrade(第一證券)八大優勢!)

【2021 美股投資】重磅再出擊~美股券商Firstrade (第一證券)大幅下調交易傭金至$0 (2018.8.23 零傭金交易($ 0 美金)時代)

1.免佣金($0美元)超過2200支以上

2.獲晨星星級評分數量超過1100支以上

3.ETF供應商數量100家

【2021 外匯交易】英國最佳2大外匯經紀商實時點差比較(LMAX vs. Darwinex) 700+ 免傭金ETFs

Skrill電子錢包 免費轉賬

Skrill電子錢包 匯款至境外銀行賬戶時將免收轉賬手續費

Skrill電子錢包 線上交易加密貨幣

【2021 挖礦BTC實錄CryptoTab】利用部落格/網站.網頁.手機挖礦賺爆美金(Referrals介紹下線賺更快)

【2021 外匯交易】英國最佳2大外匯經紀商實時點差比較(LMAX vs. Darwinex)

【2021 外匯交易】五點理由,你為什麼應該與英國FCA監管的外匯經紀商進行交易

1527161489-2353636118.jpg

【2021 外匯交易】IC Markets,全球最大ECN/世界第一家真正ECN(什麼是真正的True ECN)

ICMarkets.jpg

aa3e7da9ca03cac7d7f7c020e678268b.jpg

最新老虎證券(Tiger Brokers)優惠請詳閱--->最新優惠活動

【2021 AMP Futures 介紹&開戶流程完整全攻略(含圖解)】/【美國(海)外期貨開戶操作交易】

amp-futures.png

【2021 DeepDiscountTrading開戶流程完整介紹全攻略】【圖解流程】/【史上最便宜海外期貨手續費.最低保證金】/【國外期貨選擇權開戶交易】

deepdiscounttrading(logo).jpg

發佈留言