等级: 免费版
- 注册:
- 2021-9-30
- 曾用名:
|

楼主 |
发表于 2021-10-12 13:59
|
显示全部楼层
账户:'';
套利品种1:'I01';
套利品种2:'I05';
S1:= 30;//开始建仓点位
J:= 1;//建仓的价格间隔
K:= 1;//比最后一次开仓价格上涨k个点,就平掉最后一次开仓
N1:= 1;//每次建仓的手数/会变动可能为2
F:= 10;//价差低于这个值后,改变开仓手数
//M:= 10;//允许的最大持仓数量
X:= 1;//平仓时的价差,比如价格高于上次开仓价X个点时,则平仓
//*****************************
GLOBALVARIABLE:a:=0;//用全局变量记录上次价差,但是需要注意,如果终止了程序,这个全局变量会初始化
//获得价差方法1
JC:dynainfo2(7,套利品种1)-dynainfo2(7,套利品种2);
DEBUGFILE('D:\test.txt', '当前价差:%.0f',JC );
DEBUGFILE('D:\test.txt', '1全局变量a===:%.0f',a );
//首次开仓
IF JC<=30 and a=0 and TSELLHOLDINGEX(账户,套利品种2,1 )= 0 AND TBUYHOLDINGEX(账户,套利品种1,1 )= 0 THEN BEGIN
DEBUGFILE('D:\test.txt', '首次开仓%.0f',JC );
TBUY(1,N1,MKT ,0,0,账户,套利品种1 );
TBUYSHORT(1,N1,MKT ,0,0,账户,套利品种2 );
a:=JC;//记录下此时的价差
SLEEP(3000);
END
if JC>a+K and a<>0 and TSELLHOLDINGEX(账户,套利品种2,1 )<>0 AND TBUYHOLDINGEX(账户,套利品种1,1 )<>0 then
begin
DEBUGFILE('D:\test.txt', '差价上涨,平仓%.0f',JC );
TSELL(1,0,MKT ,0,0,账户,套利品种1 );
TSELLSHORT(1,0,MKT ,0,0,账户,套利品种2 );
SLEEP(3000);
end
if JC<a-J and a<>0 then
begin
DEBUGFILE('D:\test.txt', '价差下跌,加仓%.0f',JC );
TBUY(1,N1,MKT ,0,0,账户,套利品种1 );
TBUYSHORT(1,N1,MKT ,0,0,账户,套利品种2 );
a:=JC;//记录下此时的价差
SLEEP(3000);
end
DEBUGFILE('D:\test.txt', '2全局变量a===:%.0f',a );
DEBUGFILE('D:\test.txt', '1交易次数为:%.0f',TTOTALTRADE );
DEBUGFILE( 'D:\test.txt','当前工作模式为:%.0f',WORKMODE ); |
-
|