通达信三周期KDJ MACD副图指标 源码

A1:=KD.K#DAY(9,3,3);
 A2:=KD.D#DAY(9,3,3);
 AA1:=(A1+A2)/2;
 A3:=KD.K#WEEK(9,3,3);
 A4:=KD.D#WEEK(9,3,3);
 A5:=KD.K#MONTH(9,3,3);
 A6:=KD.D#MONTH(9,3,3);
 A7:=KDJ.J#WEEK(9,3,3);
 A8:=KD.K(9,3,3);
 A9:=KD.D(9,3,3);
第一上面日Ｋ:A1,NODRAW,COLORYELLOW;
日Ｄ:A2,NODRAW,COLORYELLOW;
第二中间周Ｋ:A3,NODRAW,COLORWHITE;
周Ｄ:A4,NODRAW,COLORWHITE;
第三下面月Ｋ:A5,NODRAW,COLORGREEN;
月Ｄ:A6,NODRAW,COLORGREEN;
 ◎周Ｊ:A7,NODRAW,COLORWHITE;
 TDXSTEP3236:STICKLINE(A1>A2,2.5,3,3,0),COLOR000085;
 TDXSTEP3237:STICKLINE(A1<A2,2.5,3,3,0),COLOR008500;
 TDXSTEP3238:STICKLINE(A3>A4,2,2.5,3,0),COLOR000085;
 TDXSTEP3239:STICKLINE(A3<A4,2,2.5,3,0),COLOR008500;
 TDXSTEP3240:STICKLINE(A5>A6,1.5,2,3,0),COLOR000085;
 TDXSTEP3241:STICKLINE(A5<A6,1.5,2,3,0),COLOR008500;
月DIF:=MACD.DIF#MONTH;
月DEA:=MACD.DEA#MONTH;
周DIF:=MACD.DIF#WEEK(12,26,9);
周DEA:=MACD.DEA#WEEK(12,26,9);
日DIF:=MACD.DIF(12,26,9);
日DEA:=MACD.DEA(12,26,9);
 TDXSTEP3242:STICKLINE(月DIF>月DEA,1.5,1,2,0),COLOR000085;
 TDXSTEP3243:STICKLINE(月DIF<月DEA,1.5,1,2,0),COLORFFFF80;
 TDXSTEP3244:STICKLINE(周DIF>周DEA,1,0.5,2.5,0),COLORLIMAGENTA;
 TDXSTEP3245:STICKLINE(周DIF<周DEA,1,0.5,2.5,0),COLOR80FF00;
 TDXSTEP3246:STICKLINE(日DIF>日DEA,0.5,0,3,0),COLOR000085;
 TDXSTEP3247:STICKLINE(日DIF<日DEA,0.5,0,3,0),COLORGRAY;
第四上面月MACD:月DIF,NODRAW,COLORYELLOW;
月MACD:月DEA,NODRAW,COLORYELLOW;
第五中间周MACD:周DIF,NODRAW,COLORWHITE;
周MACD:周DEA,NODRAW,COLORWHITE;
最下面日MACD:日DIF,NODRAW,COLORGREEN;
日MACD:日DEA,NODRAW,COLORGREEN;
 TDXSTEP3248:STICKLINE(CLOSE>0,1.5,1.5,5,0),COLORBLACK;
 TDXSTEP3249:STICKLINE(CLOSE>0,2,2,10,0),COLORBLACK;
 TDXSTEP3250:STICKLINE(CLOSE>0,2.5,2.5,10,0),COLORBLACK;
 K:=A8*3/120;
 D:=A9*3/120;
 J:=A7*3/120;
 AA2:=AA1*3/120;
 TDXSTEP3251:DRAWTEXT(A3>=A4,J,566),COLORWHITE;
 TDXSTEP3252:DRAWTEXT(A3<A4,J,566),COLORYELLOW;
 TDXSTEP3253:STICKLINE(K>D,K,D,5,1),COLORRED;
 TDXSTEP3254:STICKLINE(K<=D,K,D,5,1),COLORYELLOW;
 TDXSTEP3255:STICKLINE(CLOSE>0,1,1,3,0),COLORBLACK;
 TDXSTEP3256:STICKLINE(CLOSE>0,AA2,AA2,2,0),COLORYELLOW;