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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 编译出现问题求助

   

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


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

主题:编译出现问题求助

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


加好友 发短信
等级:新手上路 帖子:7 积分:0 威望:0 精华:0 注册:2016/3/23 20:11:52
编译出现问题求助  发帖心情 Post By:2016/5/13 10:44:15    Post IP:113.66.230.201[只看该作者]

//本策略的意图是  买多一手,卖空一手,同步慢慢增加到买多持仓10手,卖空持仓10手
//然后再平多一手,平空一手,直到没有持仓为止
//过程中必须保证买多持仓和卖空持仓的敞口最多为1手

VARIABLE:HOLDINGMAX=10;   //定义最大手数
VARIABLE:TBUYNUM=0;   //定义买多持仓数
VARIABLE:TSELLNUM=0; //定义卖空持仓数

IF TIME>093500 AND TIME<143000 THEN
BEGIN
REPEAT                                        //重复开仓,追仓的动作
BEGIN
TBUY(1,1,LMT,DYNAINFO(28));        //同时开多,开空
TSELL(1,1,LMT,DYNAINFO(34));
TCANCEL(1 ,0 ); //无条件撤销所有方向的未成交合约
TBUYNUM:=TBUYHOLDING(1);   //查看现有持仓
TSELLNUM:=TSELLHOLDING(1);
REPEAT                     //如果缺退,一直追仓,直到多空仓位相等未知
BEGIN
IF TBUYNUM<>TSELLNUM THEN     //如果买多持仓数不等于卖空持仓数,追单
BEGIN
IF TBUYNUM<TSELLNUM THEN 
BEGIN
TBUY(1,1,LMT,DYNAINFO(28));
END
ELSE
BEGIN
TSELL(1,1,LMT,DYNAINFO(34));
END
END
TCANCEL(1 ,0 );   //无条件撤销所有方向的未成交合约
END
UNTIL TBUYNUM=TSELLNUM
TCANCEL(1 ,0 ); //无条件撤销所有方向的未成交合约
END
UNTIL TBUYNUM=TSELLNUM AND TBUYNUM=HOLDINGMAX //直到多头持仓和空头持仓都等于最大允许持仓数
REPEAT                                        //重复平仓,追平仓的动作
BEGIN
TBUYSHORT(1,1,LMT,DYNAINFO(28));        //同时平多,平空
TSELLSHORT(1,1,LMT,DYNAINFO(34));
TCANCEL(1 ,0 ); //无条件撤销所有方向的未成交合约
TBUYNUM:=TBUYHOLDING(1);   //查看现有持仓
TSELLNUM:=TSELLHOLDING(1);
REPEAT                     //如果缺退,一直追平仓,直到多空仓位相等未知
BEGIN
IF TBUYNUM<>TSELLNUM THEN     //如果买多持仓数不等于卖空持仓数,追平单
BEGIN
IF TBUYNUM<TSELLNUM THEN 
BEGIN
TBUYSHORT(1,1,LMT,DYNAINFO(28));
END
ELSE
BEGIN
TSELLSHORT(1,1,LMT,DYNAINFO(34));
END
END
TCANCEL(1 ,0 ); //无条件撤销所有方向的未成交合约
END
UNTIL TBUYNUM=TSELLNUM
TCANCEL(1 ,0 ); //无条件撤销所有方向的未成交合约
END
UNTIL TBUYNUM=TSELLNUM AND TBUYNUM=0 //直到多头持仓和空头持仓都等于最大允许持仓数

END

 回到顶部