打印本文
關(guān)閉窗口
倉(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）
可賣數(shù)量 ?\\昨日或以前買(mǎi)的數(shù)量（500）
今買(mǎi)數(shù)量 ?\\倉(cāng)位總數(shù) - 可賣數(shù)量（2000-500）
保留倉(cāng)位 ? \\便于計(jì)算盈虧（100）
?
if 可賣數(shù)量 >= 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 不等于 0 ?then 全部買(mǎi)入“今買(mǎi)數(shù)量”
?
?
賣出策略：
倉(cāng)位總數(shù) ?\\不是從交易商取得的實(shí)際倉(cāng)位數(shù)量，是想買(mǎi)該股票的最大數(shù)量（2000）
可賣數(shù)量 ?\\昨日或以前買(mǎi)的數(shù)量（500）
今買(mǎi)數(shù)量 ?\\倉(cāng)位總數(shù) - 可賣數(shù)量（2000-500）
保留倉(cāng)位 ? \\便于計(jì)算盈虧（100）
?
if 可賣數(shù)量 > 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 不等于 0{開(kāi)新倉(cāng)} ?then 全部賣出“可賣數(shù)量”
?
if 可賣數(shù)量 > 保留倉(cāng)位 ?and 今買(mǎi)數(shù)量 等于 0 {未開(kāi)新倉(cāng)} then 賣出數(shù)量“可賣數(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和可賣數(shù)量和今買(mǎi)數(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ù)，編譯公式，無(wú)主圖買(mǎi)賣信號(hào)，無(wú)策略績(jī)效報(bào)告，請(qǐng)Alex老師修改。
?
導(dǎo)入函數(shù)，編譯公式，無(wú)主圖買(mǎi)賣信號(hào)，無(wú)策略績(jī)效報(bào)告，請(qǐng)Alex老師修改。