通达信日周月共振副图指标 源码 附图

20;80;
N:=1;
月K:KDJ.K#MONTH,NODRAW,COLORWHITE;
月D:KDJ.D#MONTH,NODRAW,COLORYELLOW;
月J:KDJ.J#MONTH,NODRAW,COLORMAGENTA;
周K:KDJ.K#WEEK,NODRAW,COLORWHITE;
周D:KDJ.D#WEEK,NODRAW,COLORYELLOW;
周J:KDJ.J#WEEK,NODRAW,COLORMAGENTA;
日K:KDJ.K,NODRAW,COLORWHITE;
日D:KDJ.D,NODRAW,COLORYELLOW;
日J:KDJ.J,NODRAW,COLORMAGENTA;
日金叉:=CROSS(日K,日D) AND (日D<40 OR 日D>60);
周金叉:=CROSS(周K,周D) AND (周D<40 OR 周D>60);
月金叉:=CROSS(月K,月D) AND (月D<40 OR 月D>60);
共振:=(周金叉 AND 日金叉) OR (周金叉 AND 月金叉) OR (日金叉 AND 月金叉)
OR (日金叉 AND 周金叉 AND 月金叉);
STICKLINE(共振,0,100,1,0),COLORRED;
NOTEXT月K:IF(N=3,月K,DRAWNULL),COLORWHITE,NODRAW;
NOTEXT月D:IF(N=3,月D,DRAWNULL),COLORYELLOW,NODRAW;
NOTEXT月J:IF(N=3,月J,DRAWNULL),COLORMAGENTA,NODRAW;
NOTEXT周K:IF(N=2,周K,DRAWNULL),COLORWHITE,NODRAW;
NOTEXT周D:IF(N=2,周D,DRAWNULL),COLORYELLOW,NODRAW;
NOTEXT周J:IF(N=2,周J,DRAWNULL),COLORMAGENTA,NODRAW;
NOTEXT日K:IF(N=1,日K,DRAWNULL),COLORWHITE;
NOTEXT日D:IF(N=1,日D,DRAWNULL),COLORYELLOW;
NOTEXT日J:IF(N=1,日J,DRAWNULL),COLORMAGENTA;
STICKLINE(日K>=日D,-10,-15,3,0),COLORMAGENTA;
STICKLINE(日K< 日D,-10,-15,3,0),COLORCYAN;
STICKLINE(周K>=周D,-20,-25,3,0),COLORLIRED;
STICKLINE(周K< 周D,-20,-25,3,0),COLORLIGREEN;
STICKLINE(月K>=月D,-30,-35,3,0),COLORMAGENTA;
STICKLINE(月K< 月D,-30,-35,3,0),COLORLICYAN;