后台程序化,我把动态行情函数都去掉了,为什么还是不能测试
GLOBALVARIABLE:方向=0;
GLOBALVARIABLE:INJC=0;
GLOBALVARIABLE:COIN=0;
GLOBALVARIABLE:BBJC=0;
GLOBALVARIABLE:SSJC=0;
N:=1;
BBZY:=30;
BBZS:=20;
SSZY:=30;
SSZS:=20;
账户1:'';
//为空时是当前账户
//品种1:'HSI00';
品种2:'HHI00';
昨收:CallStock('', vtCLOSE, 6, -1);
最新:C;
差值:最新-昨收;
当前时间:=TIME();
开仓时间:(当前时间>=090000 and 当前时间<=110000);
平仓时间:(当前时间>=114500);
NEWJC : C-CallStock(品种2, vtCLOSE, -1, 0);
//主开多
if 差值>BBJC and 开仓时间 and COIN=0 then begin///////////0===BBJC
TBUY(1, N, MKT, 0, 0, 账户1);
TBUYSHORT(1, N, MKT, 0, 0, 账户1, 品种2);
方向:=1;
COIN:=1;
INJC:=C-CALLSTOCK(品种2, vtCLOSE, -1, 0);
end
//主平多
if COIN=1 and 方向=1 and (NEWJC>=(INJC+BBZY*MINDIFF) or NEWJC<=(INJC-BBZS*MINDIFF) or 平仓时间) then begin
TSELL(1, N, MKT, 0, 0, 账户1);
TSELLSHORT(1, N, MKT, 0, 0, 账户1, 品种2);
end
//主开空
if 差值<(SSJC*-1) and 开仓时间 and COIN=0 then begin//////0====SSJC
TBUYSHORT(1, N, MKT, 0, 0, 账户1);
TBUY(1, N, MKT, 0, 0, 账户1, 品种2);
方向:=0;
COIN:=1;
INJC:=C-CALLSTOCK(品种2, vtCLOSE, -1, 0);
end
//主平空
if COIN=1 and 方向=0 and (NEWJC<=(INJC-SSZY*MINDIFF) or NEWJC>=(INJC+SSZS*MINDIFF) or 平仓时间) then begin
TSELLSHORT(1, N, MKT, 0, 0, 账户1);
TSELL(1, N, MKT, 0, 0, 账户1, 品种2);
end