追单用系统自带的
c1:=callstock(a,vtclose,datatype);
c2:=callstock(b,vtclose,datatype);
if c1-c2>n1 then begin
tbuy(1,a-x,mkt,0,0,'',a);
tbuyshort(1,b-x,mkt,0,0,'',b);
end
if c1-c2>n2 then begin
tbuy(1,a-x,mkt,0,0,'',a);
tbuyshort(1,b-x,mkt,0,0,'',b);
end
if c1-c2>n3 then begin
tbuy(1,a-x,mkt,0,0,'',a);
tbuyshort(1,b-x,mkt,0,0'',b);
end
if c1-c2>n4 then begin
tsell(1,0,mkt,0,0,'',a);
tsellshort(1,0,mkt,0,0,'',b)
end