以下代码在序列计算中加载没有问题,但是改成逐K计算后再加载就一点反应没有。
//主合约开多时
VARIABLE:BBZY=0;
//止盈
VARIABLE:BBZS=0;
//止损
//主合约开空时
VARIABLE:SSZY=0;
//止盈
VARIABLE:SSZS=0;
//止损
VARIABLE:主合约方向 := 0;
VARIABLE:N := 0;
VARIABLE:开仓时间 := 094500;
VARIABLE:平仓时间 := 114500;
VARIABLE:账户 := '';
VARIABLE:主合约 := 'HSI00';
VARIABLE:副合约 := 'HHI00';
昨收 := CallStock(主合约, VTCLOSE, 6, -1);
//最新 := CallStock(主合约, VTCLOSE);
最新 := dynainfo2(7, 主合约);
涨跌值 := 最新 - 昨收;
//NEWJC := ABS(CallStock(主合约, VTCLOSE, -1, 0) - CallStock(副合约, VTCLOSE, -1, 0));
NEWJC := dynainfo2(7, 主合约)-dynainfo2(7, 副合约);
// CurrentTime()<=095000) and
if CurrentTime()>=开仓时间 and N=0 then begin
if (涨跌值 > 0) then begin
//主开多,副开空
TBUY(1, 1, MKT, 0, 0, 账户, 主合约);
TBUYSHORT(1, 1, MKT, 0, 0, 账户, 副合约);
主合约方向 := 1;
//INJC := ABS(CallStock(主合约, VTCLOSE, -1, 0) - CallStock(副合约, VTCLOSE, -1, 0));
INJC := dynainfo2(7, 主合约)-dynainfo2(7, 副合约);
BBZY := INJC + 10;
BBZS := INJC -10;
N := 1;
end
else if (涨跌值 < 0) then begin
//主开空,副开多
TBUYSHORT(1, 1, MKT, 0, 0, 账户, 主合约);
TBUY(1, 1, MKT, 0, 0, 账户, 副合约);
主合约方向 := 0;
//INJC := ABS(CallStock(主合约, VTCLOSE, -1, 0) - CallStock(副合约, VTCLOSE, -1, 0));
INJC := dynainfo2(7, 主合约)-dynainfo2(7, 副合约);
SSZY := INJC - 10;
SSZS := INJC + 10;
N := 1;
end
end
//===============主开多止盈===============
if 主合约方向=1 and NEWJC>=BBZY then begin
//主平多
TSELL(1, 1, MKT, 0, 0, 账户, 主合约);
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 副合约);
N := 0;
end
//===============主开多止损===============
if 主合约方向=1 and NEWJC<=BBZS then begin
//主平多
TSELL(1, 1, MKT, 0, 0, 账户, 主合约);
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 副合约);
N := 0;
end
//===============主开空止盈===============
if 主合约方向=0 and NEWJC<=SSZY then begin
//主平空
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 主合约);
TSELL(1, 1, MKT, 0, 0, 账户, 副合约);
N := 0;
end
//===============主开空止损===============
if 主合约方向=0 and NEWJC>=SSZS then begin
//主平空
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 主合约);
TSELL(1, 1, MKT, 0, 0, 账户, 副合约);
N := 0;
end
//================到点全平================
//if CurrentTime()>=平仓时间 then begin
//
//到点平仓
//
//全部平仓
//
if 主合约方向=1 and N=1 then begin
//
//主平多
//
TSELL(1, 1, MKT, 0, 0, 账户, 主合约);
//
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 副合约);
//
N := 0;
//
end
//
else if 主合约方向=0 and N=1 then begin
//
//主平空
//
TSELLSHORT(1, 1, MKT, 0, 0, 账户, 主合约);
//
TSELL(1, 1, MKT, 0, 0, 账户, 副合约);
//
N := 0;
//
end
//end