主题：跨品种套利

老师帮忙编写一个套利公式，

追单用系统自带的

 

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