DIFF:EMA(C,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),NODRAW;
2*(DIFF-DEA),COLORSTICK;
JC:=CROSS(DIFF,DEA);
SC:=CROSSDOWN(DIFF,DEA);
N1:=BARSLAST(JC)+1;
N2:=BARSLAST(SC)+1;
HH3:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,N1));//上次MACD红柱期间合约最大值
HH4:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH3,1));//上上次MACD红柱期间合约最大值
MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(MACD,N1));//上次MACD红柱期间MACD最大值
MHD2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(MHD,1));//上上次MACD红柱期间MACD最大值
LL3:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,N2));//上次MACD绿柱期间合约最小值
LL4:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL3,1));//上上次MACD绿柱期间合约最小值
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,N2));//上次MACD绿柱期间MACD最小值
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));//上上次MACD绿柱期间MACD最小值
AA:=CROSSDOWN(DIFF,DEA)&&HH3>HH4&&MHD<MHD2,SOUND('A');//顶背离
BB:=CROSS(DIFF,DEA)&&LL3<LL4&&MLD>MLD2,SOUND('A');//底背离
DRAWTEXT(CROSS(AA=1,0.5),DIFF,'顶背'),VALIGN2,COLORCYAN,SOUND('A');
DRAWTEXT(CROSS(BB=1,0.5),DIFF,'底背'),VALIGN0,COLORMAGENTA,SOUND('A');
XN2:=SUMBARS(SC,2);
XM2:=SUMBARS(JC,2);
MACD3:=REF(LV(DIFF,N2),N1-1);
MACD4:=REF(LV(DIFF,N2),XM2-1);
MACD1:=REF(HV(DIFF,N1),N2-1);
MACD2:=REF(HV(DIFF,N1),XN2-1);
顶背离:=CROSS(0,MACD) && HH3>HH4 && MACD1<MACD2;
DRAWTEXT(顶背离,DIFF,'顶背'),VALIGN2,COLORCYAN;
Q:=BACKSET(CROSS(0,MACD),HHVBARS(DIFF,N1)+1);
QQ:=BACKSET(顶背离,SUMBARS(Q>REF(Q,1),2));
DRAWLINE1(QQ>REF(QQ,1),DIFF,Q>REF(Q,1),DIFF,0),COLORCYAN,LINETHICK3;
底背离:=CROSS(MACD,0) && LL3<LL4 && MACD3>MACD4;
DRAWTEXT(底背离,DIFF,'底背'),VALIGN0,COLORMAGENTA;
W:=BACKSET(CROSS(MACD,0),LLVBARS(DIFF,N2)+1);
WW:=BACKSET(底背离,SUMBARS(W>REF(W,1),2));
DRAWLINE1(WW>REF(WW,1),DIFF,W>REF(W,1),DIFF,0),COLORMAGENTA,LINETHICK3;
REF(CROSS(DIFF,DEA)&&DEA>0,1),SOUND('A');
REF(CROSSDOWN(DIFF,DEA)&&DEA<0,1),SOUND('A');
DRAWTEXT(CROSS(DIFF,DEA)&&DEA>0,DIFF,'多');
DRAWTEXT(CROSSDOWN(DIFF,DEA)&&DEA<0,DIFF,'空');
DRAWICON(JC,DIFF,4);
DRAWICON(SC,DIFF,5);

//QHQQW.COM