追单撤单用系统自带的功能，在“交易”---“下单设置”---“程式化交易” 里设置
input:ss(1,1,100,10);
手数:=ss;
n:=barslast(date<>ref(date,1));
昨高:=callstock(stklabel,vthigh,6,-1);//昨高
昨低:=callstock(stklabel,vtlow,6,-1);//昨低
昨收:=callstock(stklabel,vtclose,6,-1);//昨收
a:=hhv(h,n+1);
b:=llv(l,n+1);
if N>=1 then begin
今高:=a;//今高
今低:=b;//今低
end
观察卖出价:昨高+0.35*(昨收-昨低);//ssetup
反转卖出价:(1.07/2)*(昨高+昨低)-0.07*昨低;//senter
反转买入价:(1.07/2)*(昨高+昨低)-0.07*昨高;//benter
观察买入价:昨低-0.35*(昨高-昨收);//bsetup
突破买入价:(观察卖出价+0.25*(观察卖出价-观察买入价));//bbreeak
突破卖出价:观察买入价-0.25*(观察卖出价-观察买入价);//sbreak
//条件
空仓做多条件:=c>突破买入价 ;
空仓做空条件:=c<突破卖出价 ;
多单反转条件:= 今高>观察卖出价 and c<反转卖出价;
空单反转条件:= 今低<观察买入价 and c>反转买入价;
//交易系统
if time>=092000 and time<151000 and tholding=0 then begin
空仓开多:tbuy(空仓做多条件,手数,mkt);
空仓开空:tbuyshort(空仓做空条件,手数,mkt);
//多单反转:
if 多单反转条件 then begin
平多:tsell(tholding>0,手数,mkt);
翻空:tbuyshort(tholding=0,手数,mkt);
end
//空单反转:
if 空单反转条件 then begin
平空:tsellshort(tholding<0,手数,mkt);
翻多:tbuy(tholding=0,手数,mkt);
end
end
//日内平仓
if time>=151000 then begin
收盘平多:tsell(1,手数,mkt);
收盘平空:tsellshort(1,手数,mkt);
end