倉(cāng)位總數(shù)（2000），保留倉(cāng)位（100），開(kāi)始時(shí)間begintime(0945),結(jié)束時(shí)間end（1450）

?

加倉(cāng)策略：

倉(cāng)位總數(shù) ?\\不是從交易商取得的實(shí)際倉(cāng)位數(shù)量，是想買(mǎi)該股票的最大數(shù)量（2000）

可賣(mài)數(shù)量 ?\\昨日或以前買(mǎi)的數(shù)量（500）

今買(mǎi)數(shù)量 ?\\倉(cāng)位總數(shù) - 可賣(mài)數(shù)量（2000-500）

保留倉(cāng)位 ? \\便于計(jì)算盈虧（100）

?

if 可賣(mài)數(shù)量 >= 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 不等于 0 ?then 全部買(mǎi)入“今買(mǎi)數(shù)量”

?

?

賣(mài)出策略：

倉(cāng)位總數(shù) ?\\不是從交易商取得的實(shí)際倉(cāng)位數(shù)量，是想買(mǎi)該股票的最大數(shù)量（2000）

可賣(mài)數(shù)量 ?\\昨日或以前買(mǎi)的數(shù)量（500）

今買(mǎi)數(shù)量 ?\\倉(cāng)位總數(shù) - 可賣(mài)數(shù)量（2000-500）

保留倉(cāng)位 ? \\便于計(jì)算盈虧（100）

?

if 可賣(mài)數(shù)量 > 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 不等于 0{開(kāi)新倉(cāng)} ?then 全部賣(mài)出“可賣(mài)數(shù)量”

?

if 可賣(mài)數(shù)量 > 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 等于 0 {未開(kāi)新倉(cāng)} then 賣(mài)出數(shù)量“可賣(mài)數(shù)量 - 保留倉(cāng)位”

?

請(qǐng)將上述倉(cāng)位控制加入內(nèi)置策略信號(hào)“Keltner Channel LE、Keltner Channel SE”,此方法只要把保留倉(cāng)位設(shè)置為倉(cāng)位總數(shù)的一半，可以滾動(dòng)操作。

?

[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是兩個(gè)初始輸入?yún)?shù)，分別是倉(cāng)位總數(shù)和保留倉(cāng)位；變量var_sell和var_buy和可賣(mài)數(shù)量和今買(mǎi)數(shù)量}

var_sell=T_Plus_1_Extension;? //調(diào)用函數(shù)，返回可賣(mài)股數(shù)

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函數(shù)下載鏈接：
http://dl.icetech.com.cn/download/forums/T_Plus_1_Extension.rar

?

謝謝Alex

?

導(dǎo)入函數(shù)，編譯公式，無(wú)主圖買(mǎi)賣(mài)信號(hào)，無(wú)策略績(jī)效報(bào)告，請(qǐng)Alex老師修改。

?

導(dǎo)入函數(shù)，編譯公式，無(wú)主圖買(mǎi)賣(mài)信號(hào)，無(wú)策略績(jī)效報(bào)告，請(qǐng)Alex老師修改。