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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件策略编写求助区 → 简单的后台模型,麻烦帮忙修改

   

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


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

主题:简单的后台模型,麻烦帮忙修改

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


加好友 发短信
等级:论坛游民 帖子:271 积分:730 威望:0 精华:0 注册:2011/6/22 15:58:05
  发帖心情 Post By:2013/2/22 16:49:07 [只看该作者]

我按你的意思改了一下,你看看对不?

ss:=1; //手数
EXTGBDATASET('T1_POSITION',0);
//0表示没有仓位,1表示持有多头, -1表示持有空头
EXTGBDATASET('T1_holding',0);
//0表示没有仓位,>0表示持有多头, <0表示持有空头

MAA:MA(C,7);
BPK:=CROSS(C,MAA);
SPK:=CROSS(MAA ,C);
//没有持仓状态
if bpk and EXTGBDATA('T1_POSITION')=0  and EXTGBDATA('T1_holding')=0 then begin

      tbuy(1,ss,mkt);
      EXTGBDATASET('T1_POSITION',1);
      EXTGBDATASET('T1_holding',ss);
     
end

if spk and EXTGBDATA('T1_POSITION')=0 and EXTGBDATA('T1_holding')=0 then begin

       tbuyshort(1,ss,mkt);
       EXTGBDATASET('T1_POSITION',-1);
       EXTGBDATASET('T1_holding',-ss);
end
//持有仓位状态
   //持空头
IF BPK AND EXTGBDATA('T1_POSITION')=-1    AND TENTERBARS>=1 THEN BEGIN

       tsellshort(EXTGBDATA('T1_holding')<0,ss,mkt);
       TBUY(1,ss,MKT);
       EXTGBDATASET('T1_POSITION',1);
       EXTGBDATASET('T1_holding',ss);
      
END
    //持多头
IF SPK AND EXTGBDATA('T1_POSITION')=1  AND TENTERBARS>=1  THEN BEGIN

        tsell(EXTGBDATA('T1_holding')>0,ss,mkt);
        TBUYSHORT(1,ss,MKT);
        EXTGBDATASET('T1_POSITION',-1);
        EXTGBDATASET('T1_holding',-ss);
       
END

if  time>=151300 then begin

             tsell(EXTGBDATA('T1_holding')>0,ss,mkt);
             tsellshort(EXTGBDATA('T1_holding')>0,ss,mkt);
             EXTGBDATASET('T1_POSITION',0);
             EXTGBDATASET('T1_holding',0);
                     
end

Position:=EXTGBDATA('T1_POSITION');
T1Holding:=EXTGBDATA('T1_holding');

DEBUGFILE('D:\Debug\803555.TXT','Position=%.0f' ,Position) ;
DEBUGFILE('D:\Debug\803555.TXT','T1Holding=%.0f' ,T1Holding) ;



查看使用道具详细信息
悬赏金币帖,要悬赏 0 个金币
 回到顶部
总数 29 1 2 3 下一页