2014年3月12日 星期三

布林帶寬度的交易模型 [程式碼]

EasyTrader ArtNo 120
布林線是由上限和下限兩條線構成的路徑型指標。當股價向上突破上限時視為超買,有回檔調整的可能,發出賣出信號;當股價向下突破下限時視為超賣,有反彈的要求,發出買入信號。但運用過程中我們發現,在爆發性行情中會突破上限後繼續揚升,在急挫行情中會突破下限後持續下跌,有時股價會緊貼上限(或下限)忽起忽落,單憑布林線要準確把握買賣時機有很大的難度。

單獨使用布林線時,其應用上的盲點,布林帶寬度(Band width)的發展,適時解決了這方面的困擾。布林帶寬度(Band width)是由布林線所衍生出來的指標,被用來測量帶狀布林線的上限和下限,距離中間平均線的寬度。布林帶寬度主要的作用在於輔助布林線辨別買賣點的真偽。
統計上的基礎 :
股價落在正負1個標準差內的機率約有 68%
落在兩個標準差內的機率約有95%


選定了標準差的參數之後,我們就可以在K線圖上看到三條線,一是中線也就是平均線,一是均線上面的標準差線,一是均線下面的標準差線.

股價夾在兩條標準差線之間的區間就是所謂的「布林通道」

依據此原理 ,我們也可以將上下各2個標準差範圍的通道寬度的變化作為策略元素的參考

布林帶寬度 = StdDev(Close,20) * 4 ( 4 = 上下各 2個標準差 )

通道寬度的五根K棒內變化 = StdDev(布林帶寬度,5)



測試程式碼 [ 台指期 30 分K , 2004/1 ~2014/2 ,交易成本 1200 ]
Inputs: NL1(58),XL1(120),XS1(312),NBar_LE(41),Frac_LE(3),NBar_LM(41),Frac_LMM(3.26),NBar_SX(92);
Var: LE_ATR(0),LMM_ATR(0);
Var:UBuy(0),USell(0),BuyStop(0);
Var:VarL1(0),VarL2(0),VarS1(0),Cond_LE(false),Cond_SE(false),Cond_LX(false);

{ Average true range }
LE_ATR = Average(TrueRange, NBar_LE);
LMM_ATR = Average(TrueRange, NBar_LM);

{ Entry prices }
UBuy = CloseD(1) + Frac_LE * LE_ATR;
USell = LowD(0);

{ Entry and exit conditions }
VarL1 = XAverage(Open, NL1);
VarL2 = StdDev(StdDev(Close,20)*4,5);
VarS1 = StdDev(Close,20)*4;

Cond_LE = Low >= VarL1;
Cond_SE = VarS1 > XS1;
Cond_LX = VarL2 >= XL1;

If Cond_LE then begin
   Buy next bar at UBuy stop;
end;

If Cond_SE then begin
   Sell next bar at USell stop;
end;

If MarketPosition > 0 then begin
   If BarsSinceEntry = 0 then begin
       BuyStop = EntryPrice - Frac_LMM * LMM_ATR;
   end;
   If Cond_LX then ExitLong next bar at market;
   ExitLong next bar at BuyStop stop;
end;

If MarketPosition < 0 then begin
   If BarsSinceEntry >= NBar_SX then ExitShort next bar at market;
end;



測試程式碼 [ 台指期 60 分K , 2004/1 ~2014/2 ,交易成本 1200 ]

Inputs: XS1(19.1),Bar_L1(43),NBar_LE(15),Frac_LE(2.2),NBar_LM(20),Frac_LMM(4.3),
NBar_LX(82),NBar_SE(64),Frac_SE(2.38),NBar_SX(30);

Var:LE_ATR(0),LMM_ATR(0),SE_ATR(0);
Var:UBuy(0),USell(0),BuyStop(0);
Var:VarS1(0),Cond_LE(false),Cond_SE(false);

LE_ATR = Average(TrueRange, NBar_LE);
LMM_ATR = Average(TrueRange, NBar_LM);
SE_ATR = Average(TrueRange, NBar_SE);

{ Entry prices }
UBuy = XAverage(L, Bar_L1) + Frac_LE * LE_ATR;
USell = CloseD(1) - Frac_SE * SE_ATR;

{ Entry and exit conditions }
VarS1 = StdDev(StdDev(Close,20)*4,5);
Cond_LE = true;
Cond_SE = VarS1 >= XS1;

If Cond_LE then begin
   Buy next bar at UBuy stop;
end;

If Cond_SE then begin
   Sell next bar at USell stop;
end;

If MarketPosition > 0 then begin
   If BarsSinceEntry = 0 then begin
       BuyStop = EntryPrice - Frac_LMM * LMM_ATR;
  end;
  If BarsSinceEntry >= NBar_LX then ExitLong next bar at market;
  ExitLong next bar at BuyStop stop;
end;

If MarketPosition < 0 then begin
   If BarsSinceEntry >= NBar_SX then  ExitShort next bar at market;
end;



MagicQS046_1

沒有留言:

張貼留言