欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 我的程序不开仓,求帮助

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2501人关注过本帖平板打印复制链接

主题:我的程序不开仓,求帮助

帅哥哟,离线,有人找我吗?
kirahcj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:13 积分:0 威望:0 精华:0 注册:2014/6/11 13:06:41
我的程序不开仓,求帮助  发帖心情 Post By:2014/6/12 10:30:01    Post IP:140.206.116.110[只看该作者]

账户:'1000';
套利品种1:'IF06';
套利品种2:'IF07';
//*****************************
variable:A[200]=0,B=0,D=0,E=0;
JC:dynainfo2(7,套利品种2)-dynainfo2(7,套利品种1);
E=CLOSE*8/10000;
E=ROUNDS(E,0)+1;
IF JC>0 then begin
 D=MIN(DYNAINFO2(25,套利品种2),DYNAINFO2(31,套利品种1));
 D=MIN(D,2);
 IF TIME=093000 then begin
 A[200]=JC;
 B=MODE( A,1 );
 END
 IF TIME=130000 then begin
 A[200]=JC;
 B=MODE( A,1 );
 END
//开仓和平仓
 IF DYNAINFO2(20,套利品种2)-DYNAINFO2(21,套利品种1)-B=E AND HOLDING=0 AND TIME<145500 then begin
 BUY(1,D,LIMITR,DYNAINFO2(21,套利品种1));
 BUYSHORT(1,D,LIMITR,DYNAINFO2(20,套利品种2));
 END
 IF DYNAINFO2(21,套利品种2)-DYNAINFO2(20,套利品种1)=B then begin
 SELL(1,D,LIMITR,DYNAINFO2(20,套利品种1));
 SELLSHORT(1,D,LIMITR,DYNAINFO2(21,套利品种2));
 END
 IF TIME=145500 then begin
 tsell(1,0,mkt);
 tsellshort(1,0,mkt);
 END
END
IF JC<0 then begin
 D=MIN(DYNAINFO2(25,套利品种1),DYNAINFO2(31,套利品种2));
 D=MIN(D,2);
 IF TIME=093000 then begin
 A[2200]=-1*JC;
 B=MODE( A,1 );
 END
 IF TIME=130000 then begin
 A[2200]=-1*JC;
 B=MODE( A,1 );
 END
//开仓和平仓
 IF DYNAINFO2(20,套利品种1)-DYNAINFO2(21,套利品种2)-B=E AND HOLDING=0 AND TIME<145500 then begin
 BUY(1,D,LIMITR,DYNAINFO2(21,套利品种2));
 BUYSHORT(1,D,LIMITR,DYNAINFO2(20,套利品种1));
 END
 IF DYNAINFO2(21,套利品种1)-DYNAINFO2(20,套利品种2)=B then begin
 SELL(1,D,LIMITR,DYNAINFO2(20,套利品种2));
 SELLSHORT(1,D,LIMITR,DYNAINFO2(21,套利品种1));
 END
 IF TIME=145500 then begin
 tsell(1,0,mkt);
 tsellshort(1,0,mkt);
 END
END

 回到顶部
总数 15 1 2 下一页