[PEL] 复制代码
GLOBALVARIABLE:a:=0;//用全局变量记录上次价差,但是需要注意,如果终止了程序,这个全局变量会初始化
账户:'';
套利品种1:'I01';
套利品种2:'I05';
//获得价差方法1
JC:dynainfo2(7,套利品种1)-dynainfo2(7,套利品种2);
//首次开仓
IF JC<=30*MINDIFF and a=0 THEN BEGIN
TBUY(1,1,MKT ,0,0,账户,套利品种1 );
TBUYSHORT(1,1,MKT ,0,0,账户,套利品种2 );
a:=JC;//记录下此时的价差
END
if jc>a+2*MINDIFF and a<>0 and TSELLHOLDINGEX(账户,套利品种2,1 )<>0 AND TBUYHOLDINGEX(账户,套利品种1,1 )<>0 then
begin
TSELL(1,1,MKT ,0,0,账户,套利品种1 );
TSELLSHORT(1,1,MKT ,0,0,账户,套利品种2 );
end
if jc<a-2*MINDIFF and a<>0 then
begin
TBUY(1,1,MKT ,0,0,账户,套利品种1 );
TBUYSHORT(1,1,MKT ,0,0,账户,套利品种2 );
a:=JC;//记录下此时的价差
end