同花顺MACD柱变色副图源码

macd最经典的指标啦这指标会提醒顶底背离根据颜色还能够看红绿柱的力道

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA : EMA(DIFF,9);
 MACD=2*(DIFF-DEA);
 Zero : 0;
 gj:=MAX(C,O);
 STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),color0000ff;
 STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),colorffff00;
 STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),colorff00ff;
 STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),color00ff00;
 L4:=LLV(gj,4);
 jl:=(HHV(diff,55)-LLV(diff,55))/5;
 gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
 A1:=BARSLAST(REF(gt,1));
底背离:=REF(L4,A1+1)>CLOSE AND diff>REF(diff,A1+1) AND gt;
 DRAWLINE(A1=0,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;
 DRAWLINE(底背离,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;
 DRAWTEXT(底背离,REF(DEA,A1)*1.18,' 底背离'),COLORFF00FF;
 H4:=HHV(gj,4);
 gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
 A2:=BARSLAST(REF(gt2,1));
顶背离:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
 DRAWLINE(A2=0 ,DEA,顶背离,REF(DEA,A2),0),colorgreen,LINETHICK2;
 DRAWLINE(顶背离,DEA,顶背离,REF(DEA,A2),0),colorgreen,LINETHICK2;
 DRAWTEXT(顶背离,REF(DEA,A2)*1.18,' 顶背离'),colorgreen;
 A0:=DIFF<0 AND DEA<0;
 A11:=A0>REF(A0,1);
 A3:=BARSLAST(A11);
 A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
 A5:=CROSS(DIFF ,DEA);
 A6:=BARSLAST(A5);
 A7:=REF(A6,A6+1)+A6;
 A8:=(DIFF+DEA)/2;
 A9:=(HIGH+LOW)/2;
 A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
 DRAWTEXT(A10,DIFF*0.95,'★金叉买入'),coloryellow;