接下來的時間，想花一些時間跟大家來報告一些國外有名的交易系統?；蛟S各位可以從這些系統裡面找到一些自己在開發系統的想法和靈感。我想就從很有名的一本書”Building Winning Trading Systems with TradeStation”裡面的交易系統開始報告起好了。





“Building Winning Trading Systems with TradeStation”是由George Pruitt & John Hill在2003年所寫的。這本算是TradeStation的教科書吧。因為這本書就是在教我們如何操作TradeStation和如何寫Easy Language的程式。同時裡面的第六章也列出了一些範例的交易系統。今天要報告的是裡面介紹的第一個系統，叫做凱特國王系統”King Keltner Trading Strategy”。





在交易系統設計的領域中，通道是常常被拿來使用的觀念之一。像是很有名的Bollinger Band就是採用通道的觀念所設計出來的系統。我們通常會先利用一條移動平均線來作為通道的中線，然後在這條移動平均線的上方加入一個數值，讓他變成上通道。然後在這條移動平均線的下方減去一個數值，讓他變成下通道。





而上下通道應該要加減多少數值，就各有巧妙不同了。最古老的方式是直接加減移動平均線的一個比率(比如說2%)，這種系統就叫做envelop trading system。如果是加減2個標準差形成上下通道的話，這種系統就叫做Bollinger Band。而Chester Keltner在1960年提出的觀念，則是在這條移動平均線上加減Average True Range，形成上下通道。





Chester Keltner的這個系統，是要在價格突破上通道的時候做多，跌破下通道的時候做空。而George Pruitt & John Hill在這本書裡面，則改進了這個系統，加入了移動平均線出場的觀念，所以他們提的進出場的方式會變成下面這樣：
{程序化交易 m.weiqiv.net.cn }




Setup：40天的移動平均線上揚只做多。40天的移動平均線下跌只做空。



Entry：價位突破上通道做多。價位跌破下通道做空。



Exit：當進場之後，等待價位回到移動平均線就出場。



觀念很簡單，程式碼也不複雜。書裡面的程式碼如下：





{King Keltner by George Pruitt—based on trading system presented by Chester Keltner}







Inputs: avgLength(40), atrLength(40);



Vars: upBand(0),dnBand(0),liquidPoint(0),movAvgVal(0);



movAvgVal = Average((High + Low + Close)/3,avgLength);



upBand = movAvgVal + AvgTrueRange(atrLength);



dnBand = movAvgVal - AvgTrueRange(atrLength);



if(movAvgVal > movAvgVal[1]) then Buy ("KKBuy") tomorrow at upBand stop;



if(movAvgVal < movAvgVal[1]) then Sell Short("KKSell") tomorrow at dnBand stop;



liquidPoint = movAvgVal;



If(MarketPosition = 1) then Sell tomorrow at liquidPoint stop;



If(MarketPosition = -1) then Buy To Cover tomorrow at liquidPoint stop;









而這個系統在 1982-2002年這20年的績效表現列出在下面這個表。

這個表在我看來，有一點特別引起我的興趣。就是績效表現特別好的商品就是日幣和天然氣這兩個商品。跟我這幾年的交易心得相同，看來容易操作的商品，用簡單的系統就可以得到很好的績效。
{程序化交易 m.weiqiv.net.cn }






雖然King Keltner交易系統的概念很簡單，但是有一個小小的缺點，就是上下通道的寬度是固定的，也就是固定在一倍的ATR寬度。所以如果我們想要改用intraday資料來做交易的話，會想要試試看不同通道寬度，對於整體績效的影響。所以小弟在這裡做了個小小的修正，將我們可以試試看不同的通道寬度，也就是加入atrRatio這個參數。修改後的程式碼會變成是下面這樣：









Inputs: avgLength(40), atrLength(40),atrRatio(2);



Vars: upBand(0),dnBand(0),liquidPoint(0),movAvgVal(0);



movAvgVal = Average((High + Low + Close)/3,avgLength);



upBand = movAvgVal + atrRatio * AvgTrueRange(atrLength);



dnBand = movAvgVal - atrRatio * AvgTrueRange(atrLength);



if(movAvgVal > movAvgVal[1]) then Buy ("KKBuy") tomorrow at upBand stop;



if(movAvgVal < movAvgVal[1]) then Sell Short("KKSell") tomorrow at dnBand stop;



liquidPoint = movAvgVal;



If(MarketPosition = 1) then Sell tomorrow at liquidPoint stop;



If(MarketPosition = -1) then Buy To Cover tomorrow at liquidPoint stop;