公式网-网站导航


网站搜索:  

公式指标网 发表于2018/5/26 7:49:49

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

由于DETLA的研究需要画彩线,最常用的是通达信软件,苦于没有农历函数,所以刚开始彩线都是手动画的,已经很累了。问题是研究到分钟级别,还要算上自然日的循环,那线画的实在是绝望。所以网上找别的软件里的公式,发现都不对(比较全的是百度DETLA理论贴吧吧主发的,但是也有不少细节没有考虑全,会造成彩线的混乱)。     
       最后无奈只能在网上公式的基础思路上自己研究,花了好几天时间,不过,最后终于完整的能让计算机画出正确位置的彩线。
     
       现在我把彩线公式分享出来,以免大家被网上错误的公式误导,也方便大家的自己研究。

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

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

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

     ①纯公式:(注意需要设置“原点时间”作为参数)
日:=date;
年:year;nodraw;
月:month;nodraw;
号:DAY;nodraw;
 QD:=Date>=原点时间;
QQ:=barslast(cross(date,原点时间))+1;
 JC:=日-ref(日,1);
 isColor:=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);                      {基础模型,为了方便以后书写}
                               {上一个交易日的自然日期减去下一个交易日自然日期}


isColor:=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日为原点的效果是一样的)


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

 

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



网站搜索:  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved. 
公式网-www.gszx.com.cn-股票指标公式网