同花顺MACD和KD划线副图指标 源码

本指标由MACD&KDJ金叉共振指标改编，隐去了有关线段，看的更直观些。

//macd
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,colorwhite;
DEA:EMA(DIF,9),coloryellow,LINETHICK1;
MACD:(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>0,0,MACD,2,0),colorred;
STICKLINE(MACD<0,0,MACD,2,0),colorgreen;
STICKLINE(MACD>REF(MACD,1) AND MACD<0 ,0,MACD,2,0),colorff00ff;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,2,0),colorliblue;
上翘:IF(DIF>REF(DIF,1),DIF,DRAWNULL),colorred,LINETHICK1;
下拐:IF(DIF<REF(DIF,1),DIF,DRAWNULL),colorliblue,LINETHICK1;
//DRAWICON(CROSS(DIF,DEA),DIF,1);
//DRAWICON(CROSS(DEA,DIF),DEA,2);
DRAWICON(CROSS(DIF,DEA),DEA,'buy');
DRAWICON(CROSS(DEA,DIF),DEA,'sell');
//macd背离
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
STICKLINE(底背离,DEA*1.09,DEA*0.86,6,0),Color00FF00;
DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,linethick1;
DRAWTEXT(底背离,DEA*1.09,' 底背离'),colorwhite;
B1:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,B1+1)<CLOSE AND REF(DIF,B1+1)>DIF AND CROSS(DEA,DIF);
DRAWLINE(B1=0,DEA,顶背离,DEA,0),colorgreen,linethick1;
DRAWTEXT(顶背离,DEA*1.2,' 顶背离'),Color00FF00;
//KDJ
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),colorwhite;
D:SMA(K,9,3),colorcyan;
J:3*K-2*D,colormagenta;
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
A3:=BARSLAST(REF(CROSS(D,K),1));
B3:=REF(C,A2+1)<C AND REF(K,A2+1)>K AND CROSS(D,K);
A22:=IF(ABS(D)<ABS(0.6*DEA),0.6*D*ABS(DEA/D),0.95*D);
DRAWTEXT(B2,A22,'KDJ底背'),colorwhite;
DRAWTEXT(B3,A22,'KDJ顶背'),colorwhite;
DRAWICON(B2,D,'buy');
DRAWICON(B3,D,'sell');
B4:=CROSS(DIF,DEA) AND CROSS(K,D);
DRAWTEXT(B4,dea*1.2,'★金叉共振'),COLOR0099FF;
B5:=CROSS(DEA,DIF) AND CROSS(D,K);
DRAWTEXT(B5,DEA*1.2,'★死叉共振'),COLOR0099FF;