软件名称：[B]【福利】公布我的各级别DELTA（三角洲/时空之门）彩线公式方便大家研究[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2018-05-26 01:25:19
软件简介:
由于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); {如果日线变动了一天则返回