|
首先声明一下：本帖指标需要引用到上一帖的农历指标！
三角洲理论指标系列之农历（指标/源码 主图 通达信 贴图）
如果没有下载安装农历指标的，请先移步并安装！
接上一帖，发表后一周无人来提供：上证指数的ITD位置序列（准确度尽量高，最好是统计计算过的），可以公开的！
那我就搜索一下，找到http://blog.sina.com.cn/s/blog_8791dd680101826l.html上面提供的ITD、MTD和LTD的序列位置，
（特别说明：有人问我为什么不公开我统计过的上证指数的ITD序列位置？我手上有几十个国内股票的序列，有的是自己做出来的，有的是朋友提供的，朋友提供的，当时要求我保密，几十个里面哪些是朋友给的，哪些是我自己做的，3年时间过去已经忘记了，所以我手上的序列不会公开！）
749599319.jpg
（题外话：国内三角洲理论的序列指标，估计都没有我多吧。已经2-3年不用了，部分留给需要的吧！）
继续上面的话题、本帖的内容！
博客上《时空之门---月线，周线，日线图》的图，我这帖贴出2张用到的：
750111515.jpg
750188695.jpg
根据大盘日线密码和对应的图，我们可以找出1949.46低位时间在2012年14月4日。再看几条彩色线位置在月底，可以对照第三页我仿照定位图：几条彩色线位置完全一致。这个序列位置应该是弘历公司的预测大师上面的。
750333649.jpg
大智慧新一代DELTA主图公式：
农历:=lday;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=if(lday=15or isFirst,1,0); {判断是否绘制彩线的位置：农历15，或者农历15后的第一个交易日}
Num:=count(isColor,0);
VERTLINE(isColorand mod(Num,4)=0,1),colorred,pointdot;
VERTLINE(isColorand mod(Num,4)=1,1),coloryellow,pointdot;
VERTLINE(isColorand mod(Num,4)=2,1),colorblue,pointdot;
VERTLINE(isColorand mod(Num,4)=3,1),colorgreen,pointdot;
这段代码首先是定义农历、引用农历日函数，然后定位彩色线位置在农历十五，再和基准日计算阴历月周期，然后对周期进行求模画彩色线。
如果只是画彩色线的话，本帖到此也可以结束了。我们国内现在的软件要做成Delta Society Graphic Directors 3.39 或者 Advanced GET EOD 9.1那样的效果是不现实的，但是至少也要画几条序列位置的线吧、追求的目标稍微高一点总是可以的！这也是我发此帖的目的之一！
前面找ITD序列位置（或者按照弘历说的序列密码），就是为了在求模画彩色线的后面添加序列位置画线自动标记序列编号。
750544571.jpg
这是按照弘历的序列位置仿照编写的最终效果，公布一下源码：
农历年:"农历.LLYEAR#DAY",NODRAW;
农历月:"农历.LLMONTH#DAY",NODRAW;
农历:"农历.LLDAY#DAY",NODRAW;
闰月:"农历.LLEAPF#DAY",NODRAW;
本月天数:"农历.LMBS#DAY",NODRAW;
朔望月:=29.53058782;
基准:=(DATETODAY(DATE)+2)/朔望月+0.0016,COLORYELLOW,NODRAW;
ISFIRSTA:=INTPART(基准);
SCOLORA:=IF((REF(基准,1)<ISFIRSTA AND (基准+0.1)>=ISFIRSTA)OR 基准=ISFIRSTA,1,0);
ISCOLOR:=IF(REF(农历,1)>农历 AND 农历>=1,1,0);
距离彩线:BARSLAST(ISCOLOR),COLORYELLOW,NODRAW;
A0:=ISCOLOR AND MOD(INTPART(基准+0.1),4)=1;
A1:=ISCOLOR AND MOD(INTPART(基准+0.1),4)=2;
A2:=ISCOLOR AND MOD(INTPART(基准+0.1),4)=3;
A3:=ISCOLOR AND MOD(INTPART(基准+0.1),4)=0;
STICKLINE(A0,H*5,0,0,0),COLORRED,LINETHICK1;
STICKLINE(A1,H*5,0,0,0),COLORMAGENTA,LINETHICK1;
STICKLINE(A2,H*5,0,0,0),COLORYELLOW,LINETHICK1;
STICKLINE(A3,H*5,0,0,0),COLORBLUE,LINETHICK1;
STICKLINE(BARSLAST(A0)=5,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A0)=13,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=0,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=7,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=10,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=14,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=3 ,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=7,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=14,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=5,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=9 ,L*0.98,0,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=15,H*1.02,H*5,0,-1),COLORCYAN,LINETHICK1;
DRAWTEXT(BARSLAST(A0)=5,L*0.98,'1'),COLORCYAN;
DRAWTEXT(BARSLAST(A0)=13,H*1.02,'2'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=0,L*0.98,'3'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=7,H*1.02,'4'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=10,L*0.98,'5'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=14,H*1.02,'6'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=3,L*0.98,'7'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=7 ,H*1.02,'8'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=14,L*0.98,'9'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=5,H*1.02,'10'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=9,L*0.98,'11'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=15,H*1.02,'12'),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.14,0.0,0,'概念板块：'),COLORFF00FF;
DRAWTEXT_FIX(1,0.20,0.0,0,GNBLOCK),COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.04,0,'风格板块：'),COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.04,0,FGBLOCK),COLOR0000FF;
STICKLINE(C>0,L*0.99,H*1.01,8,0),COLORBLACK;
DRAWKLINE(H,O,L,C);
这是通达信上面的，原来是在金魔方和交易师软件上的，16年移植到通达信上面来的（当时的代码比这个要短5行点，只是不用农历函数，前面引用农历函数的那5行不用，也可以编写出来的。利用基准日期计算农历日期再修正误差，懂代码的，直接在上面就能够知道我是怎么做到的了。）
|
