设为首页收藏本站
切换到窄版

 找回密码
 注册
返回列表 发新帖
查看: 1466|回复: 8

最新策略。有肉吃！ [复制链接]

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2019-12-5 16:41:15 |显示全部楼层
本帖最后由 qsb588986 于 2019-12-5 16:57 编辑

//------------------------------------------------------------------------
// 简称: bukeee
// 名称: budeee
// 类别: 公式应用
// 类型: 用户应用
// 输出: Void
//------------------------------------------------------------------------
Params
       
        Numeric mku(21);
        Numeric mhu(0);
        Numeric ei(3);
        Numeric dksd(11);
        Numeric kfo(13);
        Numeric mini(4);

       

       
       
       

Vars
      
      Numeric jintian;
      Numeric zhegui;
      Numeric alvol;
      Numeric sum;
      Numeric loukevol;
      NumericSeries pp;
      NumericSeries abuy;
      NumericSeries asell;
      Numeric ahigh;
      Numeric alow;
      NumericSeries aclose;
      NumericSeries bclose;
      Numeric zz;
      Numeric zkz;
      Numeric n;
      Numeric m;
      Numeric f;
      Numeric w;
      Numeric bb;
      Numeric zhuotian;
      Numeric kk;
      Numeric mi;
      Numeric ni;
      
      

      

Begin
      
      For zhegui=0 to mku
      {
         sum=sum+vol[zhegui];
         loukevol=sum/zhegui;     
      }
      pp=loukevol*ei;
      
      
      ahigh=High;
      alow=Low;
     For zhuotian=0 to mhu
     {
       alvol=alvol+vol[zhuotian];
       ahigh=Max(ahigh,High[zhuotian]);
       alow=Min(alow,Low[zhuotian]);
       aclose=Abs(Close-alow);
       bclose=Abs(Close-ahigh);
       if(aclose>0)
       abuy=alvol*aclose;
       if(bclose>0)
       asell=alvol*bclose;
        }
     For zkz=1 to dksd
     {
        For zz=1 to dksd
        {
        if(abuy[zz]>pp[zkz])
          n=n+1;
        if(abuy[zz]>2*asell[zkz])
          m=m+1;
        if(asell[zz]>pp[zkz])
          f=f+1;
        if(asell[zz]>2*abuy[zkz])
          w=w+1;
        }
        }
     For kk=0 to kfo
     {
      if(aclose[kk]>mini)
      mi=mi+1;   
      if(bclose[kk]>mini)
      ni=ni+1;
     }
        if(f>1 && w>1 && f+w>n+m && power(mi,2)>power(ni,2) && MarketPosition!=1)
        Buy(0,Close);  
     if(n>1 && m>1 && n+m>f+w  && power(ni,2)>power(mi,2) && MarketPosition!=-1)
        SellShort(0,Close);
  
         Commentary("alvol="+Text(alvol));
         Commentary("pp="+text(pp));
         Commentary("loukevol="+text(loukevol));
         Commentary("zhegui="+text(zhegui));
         Commentary("sum="+text(sum));
         Commentary("abuy="+text(abuy));
         Commentary("asell="+text(asell));
         Commentary("ahigh="+text(ahigh));
         Commentary("alow="+text(alow));
         Commentary("MarketPosition="+text(MarketPosition));
         Commentary("Close="+Text(Close));
         Commentary("n="+Text(n));
         Commentary("m="+Text(m));
         Commentary("f="+Text(f));
         Commentary("w="+Text(w));
         Commentary("aclose="+Text(aclose));
         Commentary("bclose="+Text(bclose));
          Commentary("power(mi,2)="+Text(power(mi,2)));
           Commentary("power(ni,2)="+Text(power(ni,2)));
End


//------------------------------------------------------------------------
// 编译版本:        2019/11/30 125736
// 内核版本:        V2.8.2.14
// 版权所有        QSB588986
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具 举报

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2019-12-16 03:01:30 |显示全部楼层
//------------------------------------------------------------------------
// 简称: sofei
// 名称: sofei
// 类别: 公式应用
// 类型: 用户应用
// 输出: Void
//------------------------------------------------------------------------
Params
        Numeric tuer(20);
        Numeric bei(4);
        Numeric lp(0);

Vars
        Numeric tutu;
        Numeric roro;
        Numeric koko;
        Numeric guo;
        Numeric euo;

Begin
        For tutu=0 to tuer
        {
        For roro=0 to tuer
        {
        For koko=0 to tuer
        {
       
            if(High[tutu]-High[koko]>bei && Low[tutu]>Low[roro] && Low[roro]>Low[koko] && tutu>roro+lp && roro>koko+lp)
            guo=guo+1;
            if(Low[koko]-Low[tutu]>bei && High[tutu]<High[roro] && High[roro]<High[koko] && tutu>roro+lp && roro>koko+lp)
            euo=euo+1;
        }
        }
        }

        if(euo>guo)
        Buy(0,Close);
        if(guo>euo)
        SellShort(0,Close);
       
        Commentary("euo="+Text(euo));
        Commentary("guo="+Text(guo));
       
End


//------------------------------------------------------------------------
// 编译版本:        2019/12/15 233948
// 内核版本:        V2.8.2.14
// 版权所有        QSB588986
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具 举报

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2019-12-28 18:20:21 |显示全部楼层
本帖最后由 qsb588986 于 2020-1-16 00:41 编辑

//------------------------------------------------------------------------
// 简称: tobute
// 名称: tobute
// 类别: 公式应用
// 类型: 用户应用
// 输出: Void
//------------------------------------------------------------------------
Params
       Numeric plt(22);
       Numeric tt(10);
      
       
       
Vars
      
      NumericSeries countl;
      NumericSeries counth;
      Numeric batu;
      Numeric gohu;
      Numeric bato;
      Numeric gofo;
      Numeric tutu;
      Numeric hlbu;
      Numeric toto;
      Numeric tata;
      Numeric tbtb;
      Numeric loge;
      Numeric loti;
      Numeric m;
      Numeric n;
      
      
       

Begin
     if(GetGlobalVar(13)!=10)
     {
     SetGlobalVar(0,0);
     SetGlobalVar(13,10);
     }

     if(GetGlobalVar(0)==0)
     counth=counth+1;
     Else if(GetGlobalVar(0)==1)
     {
     counth=0;
     SetGlobalVar(0,2);
     }
         
     Else if(GetGlobalVar(0)==2)
     counth=counth+1;
     
     Else if(GetGlobalVar(0)==3)
     {
     counth=0;
     SetGlobalVar(0,4);
     }
     Else if(GetGlobalVar(0)==4)
     counth=counth+1;  
     batu=0;
     For gohu=counth DownTo batu
     {
     For loge=counth DownTo batu
     {
     For gofo=counth DownTo batu
     {
     For loti=counth DownTo batu
     {
          tutu=High[loge]-Low[gohu];
          tbtb=Close[loge]-Open[gohu];
          toto=High[loti]-Low[gofo];
          tata=Close[loti]-Open[gofo];
          if(toto>tutu && gofo-loti>gohu-loge+tt && tata>0 && tbtb>0 && loti<gofo && loge<gohu)
          m=m+1;
          if(toto>tutu && gofo-loti>gohu-loge+tt && tbtb<0 && tata<0 && loti<gofo && loge<gohu)
          n=n+1;
      
     }
     }
     }
     }
     

       

       
     if(m>plt && m>n)
     {
     SetGlobalVar(0,1);
      buy(0,Close);
   
     }
     Else if(n>plt && n>m)
     {
     SetGlobalVar(0,3);
   
     SellShort(0,Close);       
     }
       
       
       
       
       
        Commentary("tutu="+Text(tutu));
        Commentary("toto="+Text(toto));
        Commentary("gohu="+Text(gohu));
        Commentary("gofo="+Text(gofo));
        Commentary("Close="+Text(Close));
        Commentary("GetGlobalVar(0)="+Text(GetGlobalVar(0)));
        Commentary("counth="+Text(counth));
        Commentary("m="+Text(m));
        Commentary("n="+Text(n));
End


//------------------------------------------------------------------------
// 编译版本:        2019/12/22 213139
// 内核版本:        V2.8.2.14
// 版权所有        QSB588986
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具 举报

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2020-1-3 01:14:21 |显示全部楼层
策略回测
附件: 你需要登录才可以下载或查看附件。没有帐号？注册

使用道具 举报

jiaotianlong

Rank: 1

精华
0
UID
269749
积分
12
帖子
7
主题
1
阅读权限
10
注册时间
2018-9-8
最后登录
2024-2-15
发表于 2020-1-13 22:47:44 |显示全部楼层
谢谢楼主，最后一个编译提示有错误，辛苦了！

使用道具 举报

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2020-1-16 00:42:04 |显示全部楼层
改了

使用道具 举报

win5ms

Rank: 3Rank: 3

精华
0
UID
12849
积分
230
帖子
109
主题
13
阅读权限
40
注册时间
2010-6-23
最后登录
2024-2-2
发表于 2020-1-16 22:15:47 |显示全部楼层
这么小周期能盈利？

使用道具 举报

qsb588986

Rank: 3Rank: 3

精华
0
UID
213396
积分
187
帖子
140
主题
26
阅读权限
40
注册时间
2015-7-10
最后登录
2023-4-14
发表于 2020-1-17 18:59:42 |显示全部楼层
盈利绝对没问题

使用道具 举报

chenzhifeng

Rank: 1

精华
0
UID
287685
积分
2
帖子
2
主题
0
阅读权限
10
注册时间
2020-1-10
最后登录
1970-1-1
发表于 2020-1-18 11:46:09 |显示全部楼层
谢谢分享

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698 )    

GMT+8, 2024-4-19 04:26

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部