請在內置策略上添加倉位控制　[MC]

倉位總數（2000），保留倉位（100），開始時間begintime(0945),結束時間end（1450）

?

加倉策略：

倉位總數 ?\\不是從交易商取得的實際倉位數量，是想買該股票的最大數量（2000）

可賣數量 ?\\昨日或以前買的數量（500）

今買數量 ?\\倉位總數 - 可賣數量（2000-500）

保留倉位 ? \\便于計算盈虧（100）

?

if 可賣數量 >= 保留倉位 ?and 今買數量 不等于 0 ?then 全部買入“今買數量”

?

?

賣出策略：

倉位總數 ?\\不是從交易商取得的實際倉位數量，是想買該股票的最大數量（2000）

可賣數量 ?\\昨日或以前買的數量（500）

今買數量 ?\\倉位總數 - 可賣數量（2000-500）

保留倉位 ? \\便于計算盈虧（100）

?

if 可賣數量 > 保留倉位 ?and 今買數量 不等于 0{開新倉} ?then 全部賣出“可賣數量”

?

if 可賣數量 > 保留倉位 ?and 今買數量 等于 0 {未開新倉} then 賣出數量“可賣數量 - 保留倉位”

?

請將上述倉位控制加入內置策略信號“Keltner Channel LE、Keltner Channel SE”,此方法只要把保留倉位設置為倉位總數的一半，可以滾動操作。

?

[IntrabarOrderGeneration = false]

inputs:? Price( Close ), Length( 20 ), NumATRs( 1.5 ), total_lot(2000), keep_lot(100);

variables:? var0( 0 ), var1( 0 ), var21( 0 ), var22(0), var3( false ), var4( 0 ), var_sell(0), var_buy(0);

{total_lot和keep_lot是兩個初始輸入參數，分別是倉位總數和保留倉位；變量var_sell和var_buy和可賣數量和今買數量}

var_sell=T_Plus_1_Extension;? //調用函數，返回可賣股數

var_buy=total_lot-var_sell;

var0 = AverageFC( Price, Length ) ;

var1 = NumATRs * AvgTrueRange( Length ) ;

var21 = var0 + var1 ;

var22 = var0 - var1 ;

condition1 = CurrentBar > 1 and Price crosses over var21 ;

if condition1 then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

begin

var3 = true ;

var4 = High ;

end?

else

begin

condition1 = var3 and ( Price < var0 or High >= var4 + 1 point ) ;

?if condition1 then

var3 = false ;

end; ? ? ? ? ? ? ? ? ? ? ? ? ? ??

if var3 and var_sell>=keep_lot and var_buy<>0 then?

Buy ( "KltChLE" ) var_buy shares next bar at var4 + 1 point stop ;

condition1 = CurrentBar > 1 and Price crosses under var22 ;

if condition1 then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

begin

var3 = true ;

var4 = Low ;

end?

else

begin?

condition1 = var3 and ( Price > var0 or Low <= var4 - 1 point ) ;

if condition1 then

var3 = false ;

end;

if var_sell>keep_lot and var_buy<>0 then

value1=var_sell

else if var_sell>keep_lot and var_buy=0 then

value1=var_sell-keep_lot

else value1=0;

if var3 then?

Sell( "KltChSE" ) value1 shares next bar at var4 - 1 point stop ;

T_Plus_1_Extension函數下載鏈接：
http://dl.icetech.com.cn/download/forums/T_Plus_1_Extension.rar

?

謝謝Alex

?

導入函數，編譯公式，無主圖買賣信號，無策略績效報告，請Alex老師修改。

?

導入函數，編譯公式，無主圖買賣信號，無策略績效報告，請Alex老師修改。