通达信【福利】公布我的各级别DELTA（三角洲/时空之门）彩线公式方便大家研究

以下是通达信【福利】公布我的各级别DELTA（三角洲/时空之门）彩线公式方便大家研究

由于DETLA的研究需要画彩线，最常用的是通达信软件，苦于没有农历函数，所以刚开始彩线都是手动画的，已经很累了。问题是研究到分钟级别，还要算上自然日的循环，那线画的实在是绝望。所以网上找别的软件里的公式，发现都不对（比较全的是百度DETLA理论贴吧吧主发的，但是也有不少细节没有考虑全，会造成彩线的混乱）。      

      最后无奈只能在网上公式的基础思路上自己研究，花了好几天时间，不过，最后终于完整的能让计算机画出正确位置的彩线。

      现在我把彩线公式分享出来，以免大家被网上错误的公式误导，也方便大家的自己研究。

     由于我现在快下班了，时间有限，就先更新最难的分时级别的。等我有时间在贴其他时间的。

     由于最常用的通达信缺少函数，所以我用的是金字塔软件（这里真不是给软件做广告。。。），可能其他软件也可以，细节就需要你们自己修改了。

----------------------DETLA彩线--------------短期彩线公式-------------------------------

    ①纯公式：（注意需要设置“原点时间”作为参数）

日:=date;

年:year;nodraw;

月:month;nodraw;

号:DAY;nodraw;

QD:=Date>=原点时间;

QQ:=barslast(cross(date,原点时间))+1;

JC:=日-ref(日,1);

isCulor:=if(日>ref(日,1) and Date>原点时间,1,0);

交易日总数:=count(ISCOLOR,QQ)+1;

PPP日:=if(JC<50 and JC>0,JC-1,0);

PPP大月:=if(月=2 or 月=4 or 月=6 or 月=8 or 月=9 or 月=11,JC-70,0);

PPP小月:=if(月=5 or 月=7 or 月=10 or 月=12,JC-71,0);

PPP跨年:=if(月=1,JC-8870,0);      

PPP二闰月:=if(月=3 and mod(年,4)=0,JC-72,0);

PPP二平月:=if(月=3 and mod(年,4)<>0,JC-73,0);

PPP二月:=PPP二闰月+PPP二平月;

PPP宗:=PPP大月+PPP小月+PPP跨年+PPP二月;

PPP月:=if(JC>50 and JC<10000,PPP宗,0);

PPP世:=if(JC>10000,JC-18870,0);

PPPX:=PPP日+PPP月+PPP世;

空白日总数:=SUM(IF(JC>0 AND QD,PPPX,0),QQ);

NUM:=交易日总数+空白日总数;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=0),colormagenta;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=1),coloryellow;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=2),colorblue;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=3),colorwhite;

VERTLINE(Barslast(日=原点时间)=0 and FILTER(日=原点时间,100)),coloryellow;

KLINE(O,H,L,C,0);

    ②说明

   之前也是只能编一些简单的公式，果然还是要不断的学习其它人，再加上自己思考才能慢慢提高。所以也是把我每一步所想的含义也与大家交流。万一我哪里想错了，或者表达错了，还能被大家及时纠正出来。以免自己或者大家误入歧途~~

    ③公式代码分解思路

日:=date;

年:year;nodraw;

月:month;nodraw;

号:DAY;nodraw;      {显示年、月、号没什么意义，就是方便读取当天时间，可以不显示}

QD:=Date>=原点时间;

QQ:=barslast(cross(date,原点时间))+1;    {从原点时间到目前的K线总数}

JC:=日-ref(日,1);                      {基础模型，为了方便以后书写}

                              {上一个交易日的自然日期减去下一个交易日自然日期}

isCulor:=if(日>ref(日,1) and Date>原点时间,1,0);      {如果日线变动了一天则返回1表示}

交易日总数:=count(ISCOLOR,QQ)+1;         {从原点到目前范围，一共有多少个交易日}

                                                            {多加的1，是为了算上原点时间当日}

{后面几个重要参数的说明，这里就是公式最难理解的地方，就是这里我卡了1整天-_-}

{由于日期转换为数字的时候，同月之间，日期顺序是同数字顺序一样，连续变化的}

{但是，不同月之间，数字不是连续增加，会有跳跃}

{如：2018.4.30到2018.5.1日，实际上他们的自然日只增加了1日}

{但是转变为代码的时候为：1180430和1180501，那么其数字之间相差会多出71}

{同时还需要考虑大小月之间会有细微的差别，换大月数字为70，换小月为71}

{如果牵扯到2月换3月，还需要考虑是否是为闰年，闰年为72，非闰年为73}

{这个71或70和上面的1日，就是代码与实际之间的相差数字}

{上面是换月的时候出现的问题，同理，换年的时候也会出现这样的问题，相差为8870}

{同理，换世纪的时候也会出现这样的问题，相差为18870}

{当然在代码范围内，换世纪只用到1次，那就是1999年向2000年转变的时候}

{注意其中几个重要的数字：70、8870、18870}

{所以我们在判断是否有月份变化的时候，可以用差值介于什么位置之间，就能知道是同月的日期变化，还是有新的一个月转变，还是有新的一年转变，还是有新的是个世纪转变}

{所以我们取50、10000做为两个分割的标准数字}

PPP日:=if(JC<50 and JC>0,JC-1,0);          {同一个月内，没有参与交易的自然日有几天}

{每次空白了几天}

{数字为0就是正常连续，数字为1就是休息了1天，数字为2就是休息了2天}

{对应的，0就更新一条彩线顺序，1就更新2条彩线的顺序，2就是更新3个彩线的顺序}

PPP大月:=if(月=2 or 月=4 or 月=6 or 月=8 or 月=9 or 月=11,JC-70,0);   {如果是换大月}

PPP小月:=if(月=5 or 月=7 or 月=10 or 月=12,JC-71,0);                     {如果是换小月}

PPP跨年:=if(月=1,JC-8870,0);                                                  {如果是换年}

PPP二闰月:=if(月=3 and mod(年,4)=0,JC-72,0);                       {如果是闰年}

PPP二平月:=if(月=3 and mod(年,4)<>0,JC-73,0);                      {如果是平年}

PPP二月:=PPP二闰月+PPP二平月;                                    {如果是换二月}

PPP宗:=PPP大月+PPP小月+PPP跨年+PPP二月;

                                                              {换月时，没有参与交易的自然日有几天}

PPP月:=if(JC>50 and JC<10000,PPP宗,0);

                                                      {当换月的那天才计算换月没有参与交易的自然日有几天}

PPP世:=if(JC>10000,JC-18870,0);         {如果是世纪转换，没有参与交易的自然日有几天}

PPPX:=PPP日+PPP月+PPP世;                      {考虑了各种情况后的空白日数}

空白日总数:=SUM(IF(JC>0 AND QD,PPPX,0),QQ);

NUM:=交易日总数+空白日总数;      {所有自然日的总数,就是交易日总数+空白日总数}

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=0),colormagenta;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=1),coloryellow;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=2),colorblue;

VERTLINE(日>ref(日,1) and QD  and mod(Num,4)=3),colorwhite;

                                 {每4根线一个循环,按照：红--黄--蓝--白，的色彩顺序循环}

VERTLINE(Barslast(日=原点时间)=0 and FILTER(日=原点时间,100)),coloryellow;

{因为原点的竖线不显示，所以补画原点线，方便观察，以黄色表示}

{因为彩色循环的第一根都是从黄色开始}

KLINE(O,H,L,C,0);                 {绘制K线，以确保K线的上下影线不被彩线挡住}

   ④最后一些用法说明

设计“原点时间”的好处就是，由于分钟级别K线太多，不可能从上市第一根有效K线开始读取数据，所以随着数据选取的范围不同，可能造成彩线变化。

此外实际使用DETLA密码时，只要设置好原点彩线的颜色位置K线，就可以只调用最新的一些数据，保证数据量小，且彩线颜色不会发生变化。

该软件的时间参数书写规则：（举例你就明白了）

例子1:   2018年5月25日  -------------   1180525；

例子2:   2017年3月21日  -------------   1170321；

例子3:   2001年1月9日   -------------   1010109；

例子4:   1999年1月9日   -------------    990109；

例子5:   1991年12月19日 -------------    911219；

如果你还不明白，我也没办法了- -， 也方便各软件书写格式不同，你好自行修改公式里的一些数据。

原点数据的彩线一定是黄色，但“原点时间”假如你一不小心设置的原点时间是非交易日，那么这个原点彩线虽然不在K线图上显示，但是会计算原点为这个非交易日的前面一个交易日。（举例：假如3.31日是交易日，4.1日、4.2日是非交易日，4.3日是交易日；那么如果“原点时间”设置在4.1日，那么实际上系统会把3.31日作为黄色，和你设置3.31日为原点的效果是一样的）

设计“原点时间”的实际用处是什么呢？也就是当如果数据太多，打算后期移动彩色原点的时候，只要找到一个之前是黄色的彩线位置，修改“原点时间”参数为这个彩线位置的时间，就可以保证把彩线顺利移动到后面啦！

---------------------------------------------------下班了---------------------------其他级别我有空再发------------------