通达信我长期用的MACD指标

OO:0,COLORWHITE; DIF:(EMA(C,12)-EMA(C,26))COLORWHITE; DEA:EMA(DIF,9)COLORYELLOW; MACD:(DIF-DEA)*2,COLORSTICK;
   IF(DIF>=DEA,DIF,DRAWNULL),COLORRED;{变色};低位金叉:=CROSS(DIF,DEA) AND DIF<0; DRAWICON(低位金叉,DEA*0.97,1); STICKLINE(低位金叉,0,0.2,1,0)COLORRED; 金叉:= CROSS(DIF,DEA) AND DIF>0; DRAWICON(金叉,DEA*0.97,1); DRAWTEXT(金叉,DEA, '金叉')COLORYELLOW;
ZCJC:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
   再次金叉:=CROSS(DIF,DEA) AND DEA<0 AND ZCJC>1;
   DRAWTEXT(再次金叉,0, '再金叉')COLORYELLOW;A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
 DRAWLINE(A1=0,REF(DEA,1),底背离,DEA,0),COLORLIGREEN,POINTDOT;
 DRAWTEXT(底背离,DEA*1.2,'底背离'),COLORGREEN;
 STICKLINE(底背离,0,0.08,1,0)COLORBLUE;

 STICKLINE(再次金叉,0,0.14,1,0)COLORYELLOW;A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(C,A2+1)<C AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
 DRAWLINE(A2=0,REF(DEA,1),顶背离,DEA,0),COLORWHITE,POINTDOT;
 DRAWTEXT(顶背离, DEA,'顶背离'),COLORWHITE;