设为首页收藏本站

 找回密码
 注册
查看: 5749|回复: 14

我将缠论笔代码完成了,想要的自取吧 [复制链接]

Rank: 1

精华
0
UID
1263621
积分
6
帖子
3
主题
1
阅读权限
10
注册时间
2021-6-29
最后登录
2021-9-14
发表于 2021-9-4 10:52:47 |显示全部楼层
//------------------------------------------------------------------------
// 简称: K_topbottom
// 名称:
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//输出顶底分型的索引值和它是顶底的类型
//------------------------------------------------------------------------
Params
        //此处添加参数
        NumericRef TB;//顶底1为顶,-1为低
        NumericRef offset;//偏移量
Vars
        //此处添加变量
        Series<Numeric> IsMerged;//被包含0:无包含,-1被前根包含,1包含前根
        Series<Numeric> FontIsTop;
        Series<Numeric> FontIsBottom;
        Series<Numeric> TB_Interval(0);
        Series<Numeric> IsRiseOrDecrease;
        Series<Numeric> MergeHigh(0);
        Series<Numeric> MergeLow(0);
        Series<Numeric> NotMergeFontHigh(0);
        Series<Numeric> NotMergeFontLow(0);
        Numeric i(0);
        Numeric tbnum(0);//顶底分型个数
Begin
    //此处开始合并K线
   
        If (High>MergeHigh[1] And Low>MergeLow[1]) //不包含上涨
        {
                IsMerged=0;
                MergeHigh=High;
                MergeLow=Low;
                IsRiseOrDecrease=1;
                NotMergeFontHigh=MergeHigh[1];
                NotMergeFontLow=MergeLow[1];
        }
       
        Else If(High<MergeHigh[1] And Low<MergeLow[1]) //不包含下跌
        {
                IsMerged=0;
                MergeHigh=High;
                MergeLow=Low;
                IsRiseOrDecrease=-1;
                NotMergeFontHigh=MergeHigh[1];
                NotMergeFontLow=MergeLow[1];
        }
       
        Else If(High>=MergeHigh[1] And Low<=MergeLow[1])//包含前K线
        {
                IsMerged=1;
                IsRiseOrDecrease=1;
                NotMergeFontHigh=NotMergeFontHigh[1];
                NotMergeFontLow=NotMergeFontLow[1];
                If (MergeHigh[1]>=MergeHigh[2] And MergeHigh[1]>=MergeHigh[3]) //上涨
                {
                        MergeHigh=Max(High,MergeHigh[1]);
                        MergeLow=Max(Low,MergeLow[1]);
                }
                Else If(MergeHigh[1]<MergeHigh[2] And MergeHigh[1]<MergeHigh[3])//下跌
                {
                        MergeHigh=Min(High,MergeHigh[1]);
                        MergeLow=Min(Low,MergeLow[1]);
                }
        }
       
        Else If(High<MergeHigh[1] And Low>MergeLow[1])//被前K线包含
        {
               
                IsMerged=-1;
                IsRiseOrDecrease=0;
                NotMergeFontHigh=NotMergeFontHigh[1];
                NotMergeFontLow=NotMergeFontLow[1];
                If ((MergeHigh[1]>=MergeHigh[2] And (MergeHigh[1]>MergeHigh[3] Or MergeHigh[1]>MergeHigh[4])) Or (MergeHigh[1]>MergeHigh[2] And MergeLow[1]>MergeLow[2])) //上涨
                {
                       
                        MergeHigh=Max(High,MergeHigh[1]);
                        MergeLow=Max(Low,MergeLow[1]);
                }
                Else If((MergeHigh[1]<=MergeHigh[2] And (MergeHigh[1]<MergeHigh[3] Or MergeHigh[1]<MergeHigh[4]))Or(MergeHigh[1]<MergeHigh[2] And MergeLow[1]<MergeLow[2]))//下跌
                {
                       
                        MergeHigh=Min(High,MergeHigh[1]);
                        MergeLow=Min(Low,MergeLow[1]);
                }
        }
       
       
        //此处开始分顶底分型
        If(MergeHigh<MergeHigh[1] And NotMergeFontHigh[1]<=MergeHigh[1] And MergeLow<MergeLow[1])
        {
                FontIsTop=1;
                FontIsBottom=0;
                TB=1;
                offset=1;
                While(IsMerged[offset]==-1)
                {
                        offset=offset+1;
                }
/*                Commentary("MergeHigh:"+Text(MergeHigh));
                Commentary("MergeLow:"+Text(MergeLow));
                Commentary("NotMergeFontHigh:"+Text(NotMergeFontHigh));
                Commentary("NotMergeFontLow:"+Text(NotMergeFontLow));*/
                return CurrentBar;
        }
       
        Else If(MergeLow>MergeLow[1] And NotMergeFontLow[1]>=MergeLow[1] And MergeHigh>MergeHigh[1])
        {
                FontIsTop=0;
                FontIsBottom=1;
                TB=-1;
                offset=1;
                While(IsMerged[offset]==-1)
                {
                        offset=offset+1;
                }
/*                Commentary("MergeHigh:"+Text(MergeHigh));
                Commentary("MergeLow:"+Text(MergeLow));
                Commentary("NotMergeFontHigh:"+Text(NotMergeFontHigh));
                Commentary("NotMergeFontLow:"+Text(NotMergeFontLow));*/
                return CurrentBar;
        }
        Else
        {
                FontIsTop=0;
                FontIsBottom=0;
        }
       
    //此处开始画图       

/*        Commentary("MergeHigh:"+Text(MergeHigh));
        Commentary("MergeLow:"+Text(MergeLow));
        Commentary("NotMergeFontHigh:"+Text(NotMergeFontHigh));
        Commentary("NotMergeFontLow:"+Text(NotMergeFontLow));
*/
        Return 0;
End


//------------------------------------------------------------------------
// 编译版本:        2021/09/03 143827
// 版权所有        zt13861755006
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

Rank: 1

精华
0
UID
1263621
积分
6
帖子
3
主题
1
阅读权限
10
注册时间
2021-6-29
最后登录
2021-9-14
发表于 2021-9-4 10:54:59 |显示全部楼层
画出来效果还行
附件: 你需要登录才可以下载或查看附件。没有帐号?注册

使用道具 举报

Rank: 1

精华
0
UID
1263621
积分
6
帖子
3
主题
1
阅读权限
10
注册时间
2021-6-29
最后登录
2021-9-14
发表于 2021-9-4 11:12:12 |显示全部楼层
还有一部分太大,想要的留个言啊

使用道具 举报

Rank: 1

精华
0
UID
104233
积分
37
帖子
10
主题
6
阅读权限
10
注册时间
2012-3-12
最后登录
2021-9-9
发表于 2021-9-9 21:14:31 |显示全部楼层
求公式

使用道具 举报

Rank: 1

精华
0
UID
1636024
积分
9
帖子
5
主题
4
阅读权限
10
注册时间
2021-9-23
最后登录
2022-2-24
发表于 2021-9-24 22:51:18 |显示全部楼层
求全部啊,谢谢

使用道具 举报

Rank: 1

精华
0
UID
1501967
积分
1
帖子
1
主题
0
阅读权限
10
注册时间
2021-8-23
最后登录
2021-10-15
发表于 2021-9-26 11:10:56 |显示全部楼层

求公式

使用道具 举报

Rank: 1

精华
0
UID
241151
积分
1
帖子
1
主题
0
阅读权限
10
注册时间
2016-9-29
最后登录
2022-11-2
发表于 2021-9-30 21:07:27 |显示全部楼层

求全部啊,谢谢

使用道具 举报

Rank: 1

精华
0
UID
1301973
积分
1
帖子
1
主题
0
阅读权限
10
注册时间
2021-7-8
最后登录
2021-12-8
发表于 2021-10-1 06:41:39 |显示全部楼层
求完整版  165069841@qq.com

使用道具 举报

Rank: 1

精华
0
UID
255004
积分
7
帖子
6
主题
1
阅读权限
10
注册时间
2017-8-4
最后登录
2021-10-4
发表于 2021-10-3 10:50:14 |显示全部楼层
发出来看看

使用道具 举报

Rank: 1

精华
0
UID
291474
积分
11
帖子
8
主题
3
阅读权限
10
注册时间
2020-5-1
最后登录
2022-11-15
发表于 2021-10-5 10:29:10 |显示全部楼层
求完整版。512881548@QQ。com,谢谢了!

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

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

GMT+8, 2024-3-29 18:43

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部