程序产生了背离概念,但是缺少线段指示:
DIFF:EMA(C,12) - EMA(C,26),NOTEXT,COLORWHITE;
DEA:EMA(DIFF,9),DOT,NOTEXT,COLORYELLOW;
MACD:2*(DIFF-DEA),NOTEXT,COLORSTICK;
JC:=CROSS(DIFF,DEA);//定义上穿
SC:=CROSSDOWN(DIFF,DEA);//定义下穿
N1:BARSLAST(JC)+1,PRECIS0,NODRAW;//
N2:=BARSLAST(SC)+1;//
HH:VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,N1)),PRECIS0,NODRAW;//上次MACD红柱期间合约最大值
//HHB:BARSLAST(HH),PRECIS0,NODRAW;//上一次条件COND成立到当前的周期数
HH2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH,1));//上上次MACD红柱期间合约最大值
MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(MACD,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(MACD,N2));//上次MACD绿柱期间MACD最小值
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));//上上次MACD绿柱期间MACD最小值
A:=CROSSDOWN(DIFF,DEA)&&HH>HH2&&MHD<MHD2;//顶背离
B:=CROSS(DIFF,DEA)&&LL<LL2&&MLD>MLD2;//底背离
DRAWICON(A,MACD,5);
DRAWICON(B,MACD,4);
MACD画出 DIFF(快线)峰谷点线段
K线图上,顶背离、底背离都使用收盘价C画出线段。
