【求助】突破买入的系统 [复制链接]

lemonddr

高级大户

Rank: 7 Rank: 7 Rank: 7

精华: 0
UID: 13206
积分: 3864
帖子: 60
主题: 26
阅读权限: 80
注册时间: 2010-6-28
最后登录: 2014-10-13

电梯直达

1^#

发表于 2010-8-31 13:17:17 |只看该作者 |倒序浏览

刚开始学写TB，想一个个思路实现
设定突破前13根K线收盘价的最高值或者最低值买入开仓或卖出开仓
开仓后连续5根K线不创新高或者新低离场
经过论坛大大修改后如下
Vars
Numeric highestValue;
Numeric highestX;
Numeric lowestValue;
Numeric lowestX;
Bool DK;
      Bool DPC;
      Bool KK;
      Bool KPC;

Begin

            highestValue=Highest(High[1],13);
      lowestValue=Lowest(Low[1],13);
            highestX=Highest(High[1],5);
      lowestX=Lowest(Low[1],5);

            DK=Close>=highestValue;
            Kk=Close<lowestValue;

            DPC=Close<=highestX;
            KPC=Close>lowestX;

            if(DK && MarketPosition==0)
                     Buy(0,NextOpen,True);
            if(KK && MarketPosition==0)
                     SellShort(0,NextOpen,True);

            if(DPC && MarketPosition==1)
                     Sell(0,NextOpen,True);
            if(KPC && MarketPosition==-1)
                     BuyToCover(0,NextOpen,True);


End

但是我观察了下，跟预期的严重不同，
估计我原来的语句有关系

highestValue=Highest(High[1],13);
前13根K线的最高值是这样取的么？

而且平仓条件是开仓后创了新高，然后连续5根K线没破这个新高，然后第6跟平仓
是不是要先赋值下这个新高，再重新数5根判断

想再加入一个回撤平仓条件，请各位高人帮忙！

收藏1

使用道具举报

putilb

初级大户

Rank: 5 Rank: 5

精华: 0
UID: 8542
积分: 706
帖子: 25
主题: 5
阅读权限: 60
注册时间: 2010-4-13
最后登录: 2021-7-11

2^#

发表于 2010-8-31 19:16:23 |只看该作者

Params
Numeric jinchang(50);
Numeric chuchang(20);
Vars
Numericseries highestValue;
Numericseries highestX;
Numericseries lowestValue;
Numericseries lowestX;
Bool DK;
      Bool DPC;
      Bool KK;
      Bool KPC;

Begin

            highestValue=Highest(High[1],jinchang);
      lowestValue=Lowest(Low[1],jinchang);
            highestX=Highest(High[1],chuchang);
      lowestX=Lowest(Low[1],chuchang);

            DK=Close>=highestValue;
            Kk=Close<lowestValue;

            DPC=Close<=lowestX;
            KPC=Close>highestX;

            if(MarketPosition==0&&DK)
                     Buy(1,close);
            else if(MarketPosition==0&&KK)
                     SellShort(1,close);

            else if(MarketPosition==1&&DPC)
                     Sell(1,close);

            else if(MarketPosition==-1&&KPC)
                     BuyToCover(1,close);


End

使用道具举报