DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:EMA(DIFF,9);

MACD:2*(DIFF-DEA),COLORSTICK;

JC:=CROSS(DIFF,DEA);

SC:=CROSSDOWN(DIFF,DEA);

N1:=BARSLAST(JC)+1;

N2:=BARSLAST(SC)+1;

HH:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,N1));//上次MACD紅柱期間合約最大值

HH2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH,1));//上上次MACD紅柱期間合約最大值

MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(DIFF,N1));//上次MACD紅柱期間MACD最大值

MHD2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(MHD,1));//上上次MACD紅柱期間MACD最大值

LL:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,N2));//上次MACD綠柱期間合約最小值

LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1));//上上次MACD綠柱期間合約最小值

MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(DIFF,N2));//上次MACD綠柱期間MACD最小值

MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));//上上次MACD綠柱期間MACD最小值

A:=CROSSDOWN(DIFF,DEA)&&HH>HH2&&MHD<MHD2&&NOT(CROSS(DEA,0)||CROSSDOWN(DEA,0));//頂背離

B:=CROSS(DIFF,DEA)&&LL<LL2&&MLD>MLD2&&NOT(CROSS(DEA,0)||CROSSDOWN(DEA,0));//底背離

DRAWICON(A,MACD,2);

DRAWICON(B,MACD,1);
A||B,SOUND('';

?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?