通达信自用KDJ月周日共振副图、源码

通达信自用KDJ月周日共振副图、源码

感觉都不十分适合我用。就自己加工了一个，拿出来与大家共享。用法嘛，你懂的。
白虚线为日K线、白实线为日D线；红虚线为周K线、红实线为周D线；橙虚线为月K线、橙实线为月D线。白三角为日金叉、红三角为周金叉、橙三角为月金叉（都是D值40以下或60以上的金叉，40-60之间的金叉不显示）。0之下和100之上的橙虚柱为月J值、红虚柱为周J值、白柱为日J值（0-100之间的J值不显示）。月周日任意两个金叉共振时，在共振处显示一根黄色柱线。
{KDJ月周日共振副图源码}
月K:"KDJ.K#MONTH"(9,3,3),COLOR0080FF,DOTLINE;
月D:"KDJ.D#MONTH"(9,3,3),COLOR0080FF,LINETHICK3;
月J:="KDJ.J#MONTH"(9,3,3);
周K:"KDJ.K#WEEK"(9,3,3),COLORRED,DOTLINE;
周D:"KDJ.D#WEEK"(9,3,3),COLORRED,LINETHICK3;
周J:="KDJ.J#WEEK"(9,3,3);
日K:"KDJ.K"(9,3,3),COLORWHITE,DOTLINE;
日D:"KDJ.D"(9,3,3),COLORWHITE,LINETHICK3;
日J:="KDJ.J"(9,3,3);
日金叉:IF(CROSS(日K,日D) AND (日D<40 OR 日D>60),20,0),COLORWHITE;
周金叉:IF(CROSS(周K,周D) AND (周D<40 OR 周D>60),30,0),COLORRED;
月金叉:IF(CROSS(月K,月D) AND (月D<40 OR 月D>60),40,0),COLOR0080FF;
共振:(周金叉 AND 日金叉) OR (周金叉 AND 月金叉) OR (日金叉 AND 月金叉),COLORYELLOW,NODRAW;
STICKLINE(共振,0,50,1,0),COLORYELLOW;
STICKLINE(月J<0,0,月J,2,-1),COLOR0080FF;
STICKLINE(月J>100,100,月J,2,-1),COLOR0080FF;
STICKLINE(周J<0,0,周J,1,-1),COLORRED;
STICKLINE(周J>100,100,周J,1,-1),COLORRED;
STICKLINE(日J<0,0,日J,0,0),COLORWHITE;