日K周K线同图显示附图
为了看盘方便，今天从网上整理了一个日K线作主图、周K线作副图的日周K线同显副图。
这个指标非我原创。
论坛上有一个但是我的通达信不能用，费了点劲找到一个，自己又加了点小料整理而成，希望对大家有用。
周开盘1:="周K引用.O1#WEEK",LINETHICK0;
周收盘:"周K引用.C1#WEEK",LINETHICK0;
周最高:"周K引用.H1#WEEK",LINETHICK0;
周最低:"周K引用.L1#WEEK",LINETHICK0;
K1:=周开盘1=REF(周开盘1,1) AND 周收盘=REF(周收盘,1) AND 周最高=REF(周最高,1) AND 周最低=REF(周最低,1);
K3:=REF(C,1)=DYNAINFO(3) AND O=DYNAINFO(4) AND C=DYNAINFO(7) AND H=DYNAINFO(5) AND L=DYNAINFO(6);
DD:=REF(BARSLAST(K1=0)+1,1),LINETHICK0;
DD1:=CROSS(BACKSET((K1=0 OR K3) AND DD=5,4),0.5),LINETHICK0;
DD2:=CROSS(BACKSET((K1=0 OR K3) AND (DD=4 OR DD=3),3),0.5),LINETHICK0;
DD3:=CROSS(BACKSET((K1=0 OR K3) AND DD<=2,2),0.5),LINETHICK0;
BK1:=DD1 OR DD2 OR DD3;
BK2:=CROSS(BACKSET(K1=0,2),0.5);
BK3:=CROSS(BACKSET(K1=0 AND REF(K1=0,1),2),0.5);
周开盘:IF(BARSLAST(K1=0)=0,O,REF(O,BARSLAST(K1=0))),LINETHICK0;
K0:=周收盘>周开盘 OR (周收盘=周开盘 AND 周收盘>REF(周收盘,BARSLAST(K1=0)+1));
STICKLINE(K0 AND BK1,周最高,周收盘,0.1,0),COLORRED;
STICKLINE(K0 AND BK1,周开盘,周最低,0.1,0),COLORRED;
STICKLINE(K0 AND K1=0,周收盘,周开盘,0.1,0),COLORRED;
STICKLINE(K0 AND (BK2 OR K3),周收盘,周开盘,0.1,0),COLORRED;
STICKLINE(K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),周收盘,周收盘,8,1),COLORRED;
STICKLINE(K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),周开盘,周开盘,8,1),COLORRED;
STICKLINE(NOT(K0) AND BK1,周最高,周开盘,0.1,0),COLORCYAN;
STICKLINE(NOT(K0) AND BK1,周收盘,周最低,0.1,0),COLORCYAN;
STICKLINE(NOT(K0) AND K1=0,周收盘,周开盘,0.1,0),COLORCYAN;
STICKLINE(NOT(K0) AND (BK2 OR K3),周收盘,周开盘,0.1,0),COLORCYAN;
STICKLINE(NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),周收盘,周收盘,8,1),COLORCYAN;
STICKLINE(NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),周开盘,周开盘,8,1),COLORCYAN;
A:=WEEKDAY-REF(WEEKDAY,1);
B:=DATETODAY(DATE)-REF(DATETODAY(DATE),1);
周天数:=1+BARSLAST(BARSCOUNT(C)=0 OR A!=B),NODRAW;
本周已交易天数:周天数,NODRAW;
收盘价:C,NODRAW COLOR0000FF;
W5:"周K引用.MA5#WEEK" COLORFFFFFF;W9:"周K引用.MA9#WEEK" COLOR00FFFF;
来函数检测结果如下：
该公式没有未来函数
定制、编写公式指标请联系QQ或微信同号：88652583
周开盘1赋值:"周K引用.O1[取周线数据]",线宽为0
输出周收盘:"周K引用.C1[取周线数据]",线宽为0
输出周最高:"周K引用.H1[取周线数据]",线宽为0
输出周最低:"周K引用.L1[取周线数据]",线宽为0
K1赋值:周开盘1=1日前的周开盘1 AND 周收盘=1日前的周收盘 AND 周最高=1日前的周最高 AND 周最低=1日前的周最低
K3赋值:1日前的收盘价=昨收盘价 AND 开盘价=开盘价 AND 收盘价=现价 AND 最高价=最高价 AND 最低价=最低价
DD赋值:1日前的上次K1=0距今天数+1,线宽为0
DD1赋值:若(K1=0ORK3)ANDDD=5则将最近4周期置为1上穿0.5,线宽为0
DD2赋值:若(K1=0ORK3)AND(DD=4ORDD=3)则将最近3周期置为1上穿0.5,线宽为0
DD3赋值:若(K1=0ORK3)ANDDD<=2则将最近2周期置为1上穿0.5,线宽为0
BK1赋值:DD1 OR DD2 OR DD3
BK2赋值:若K1=0则将最近2周期置为1上穿0.5
BK3赋值:若K1=0ANDREF(K1=0,1)则将最近2周期置为1上穿0.5
输出周开盘:如果上次K1=0距今天数=0,返回开盘价,否则返回上次K1=0距今天数日前的开盘价,线宽为0
K0赋值:周收盘>周开盘 OR (周收盘=周开盘 AND 周收盘>上次K1=0距今天数+1日前的周收盘)
当满足条件K0ANDBK1时,在周最高和周收盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色
当满足条件K0ANDBK1时,在周开盘和周最低位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色
当满足条件K0ANDK1=0时,在周收盘和周开盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色
当满足条件K0AND(BK2ORK3)时,在周收盘和周开盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色
当满足条件K0AND((K1ANDBK2=0ANDK3=0)ORBK3)时,在周收盘和周收盘位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色
当满足条件K0AND((K1ANDBK2=0ANDK3=0)ORBK3)时,在周开盘和周开盘位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色
当满足条件取反ANDBK1时,在周最高和周开盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画青色
当满足条件取反ANDBK1时,在周收盘和周最低位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画青色
当满足条件取反ANDK1=0时,在周收盘和周开盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画青色
当满足条件取反AND(BK2ORK3)时,在周收盘和周开盘位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画青色
当满足条件取反AND((K1ANDBK2=0ANDK3=0)ORBK3)时,在周收盘和周收盘位置之间画柱状线,宽度为8,1不为0则画空心柱.,画青色
当满足条件取反AND((K1ANDBK2=0ANDK3=0)ORBK3)时,在周开盘和周开盘位置之间画柱状线,宽度为8,1不为0则画空心柱.,画青色
A赋值:星期-1日前的星期
B赋值:日期对应的转换天数-1日前的日期对应的转换天数
周天数赋值:1+上次收盘价的有效数据周期数=0ORA不等于B距今天数,NODRAW
输出本周已交易天数:周天数,NODRAW
输出收盘价:收盘价,NODRAW COLOR0000FF
输出W5:"周K引用.MA5[取周线数据]" COLORFFFFFF
输出W9:"周K引用.MA9[取周线数据]" COLOR00FFFF
