DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:(DIFF-DEA)*2,COLORSTICK;
CDA:=MACD<REF(MACD,1) AND MACD>0;
CDB:=MACD>=REF(MACD,1) AND MACD>0;
CDD:=MACD<=REF(MACD,1) AND MACD<0;
STICKLINE(CDB,0,MACD,1,0),COLOREE00EE;
STICKLINE(CDA,0,MACD,1,0),COLOR00DDDD;
STICKLINE(CDC,0,MACD,1,0),COLORAA11BB;
STICKLINE(CDD,0,MACD,1,0),COLORBLUE;
底背離:=REF(CLOSE,AA1+1)>CLOSE AND DIFF>REF(DIFF,AA1+1) AND CROSS(DIFF,DEA);
AA2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,AA2+1)<CLOSE AND REF(DIFF,AA2+1)>DIFF AND CROSS(DEA,DIFF);
{DRAWLINE(AA2=0,DEAA,頂背離,DEAA,0),COLORFFFFFF,LINETHICK2;
DRAWTEXT(FILTER(頂背離,5),DEA+4,'DIF頂背離'),COLOR00FF;}
DRAWTEXT(底背離 OR FILTER(頂背離,5),DIFF,IF(底背離,'DIFF底背離','DIF頂背離')),COLOR0099FF;
{月金叉,死叉}
月DIFF:='MACD.DIF#MONTH';
月DEA:='MACD.DEA#MONTH';
月DIF金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(周DIF金叉 OR 月DIF金叉,周DIFF*0.98,IF(月DIF金叉=1,'DIFF月金叉','DIFF周金叉')),COLORFF00FF;
DRAWTEXT(CROSS(周DEA,周DIFF) OR CROSS(月DEA,月DIFF),周DIFF*1.02,IF(CROSS(月DEA,月DIFF),'DIF月死叉','DIFF周死叉')),COLORCDFFBB;
{DRAWTEXT(月DIF金叉,DEA*0.92,'DIF月金叉'),COLOR00FFCC;
DRAWTEXT(CROSS(月DEA,月DIFF),DEA*1.02,'DIF月死叉'),ALIGN0,COLORA52A2A;};
