打印本文
關(guān)閉窗口
倉位總數(shù)（2000），保留倉位（100），開始時間begintime(0945),結(jié)束時間end（1450）
?
加倉策略：
倉位總數(shù) ?\\不是從交易商取得的實際倉位數(shù)量，是想買該股票的最大數(shù)量（2000）
可賣數(shù)量 ?\\昨日或以前買的數(shù)量（500）
今買數(shù)量 ?\\倉位總數(shù) - 可賣數(shù)量（2000-500）
保留倉位 ? \\便于計算盈虧（100）
?
if 可賣數(shù)量 >= 保留倉位 ?and 今買數(shù)量 不等于 0 ?then 全部買入“今買數(shù)量”
?
?
賣出策略：
倉位總數(shù) ?\\不是從交易商取得的實際倉位數(shù)量，是想買該股票的最大數(shù)量（2000）
可賣數(shù)量 ?\\昨日或以前買的數(shù)量（500）
今買數(shù)量 ?\\倉位總數(shù) - 可賣數(shù)量（2000-500）
保留倉位 ? \\便于計算盈虧（100）
?
if 可賣數(shù)量 > 保留倉位 ?and 今買數(shù)量 不等于 0{開新倉} ?then 全部賣出“可賣數(shù)量”
?
if 可賣數(shù)量 > 保留倉位 ?and 今買數(shù)量 等于 0 {未開新倉} then 賣出數(shù)量“可賣數(shù)量 - 保留倉位”
?
請將上述倉位控制加入內(nèi)置策略信號“Keltner Channel LE、Keltner Channel SE”,此方法只要把保留倉位設(shè)置為倉位總數(shù)的一半，可以滾動操作。
?
[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是兩個初始輸入?yún)?shù)，分別是倉位總數(shù)和保留倉位；變量var_sell和var_buy和可賣數(shù)量和今買數(shù)量}
var_sell=T_Plus_1_Extension;? //調(diào)用函數(shù)，返回可賣股數(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ù)，編譯公式，無主圖買賣信號，無策略績效報告，請Alex老師修改。
?
導(dǎo)入函數(shù)，編譯公式，無主圖買賣信號，無策略績效報告，請Alex老師修改。