咨詢內容： 想找一個MACD頂底背離的指標，在副圖顯示 想找一個MACD頂底背離的指標，在副圖顯示

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),PRECISION(2);
DEA:EMA(DIFF,9),PRECISION(2);
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2,PRECISION(2);{這三句是MACD系統源碼}
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;{定義低位金叉}
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;{低位金叉時MACD柱體黃色顯示}
DRAWTEXT(低位金叉,0.11,' 低位金叉'),COLORWHITE,ALIGN2,FONTSIZE9;{低位金叉時顯示白色字體，低位金叉}
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));{統計DEA大于0到現在金叉的周期}
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;{定義二次金叉}
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;{二次金叉滿足時，MACD粉色顯示}
DRAWICON(二次金叉,DEA*0.11,1);{二次金叉滿足時，下方顯示箭頭}
DRAWTEXT(二次金叉,0.33,' 二次金叉'),COLORYELLOW,ALIGN2,FONTSIZE9;{二次金叉滿足時，顯示黃色字，二次金叉}
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));{上一次金叉距離現在的周期}
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);{定義底背離}
STICKLINE(底背離,0,0.03,6,0),COLOR00FF00;{底背離時，顯示綠色柱體}
{底背:DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,LINETHICK4;{底背離畫，紅色線段}
DRAWTEXT(底背離,0.11,'? ? ?底背離多'),COLORFF00FF,FONTSIZE9;{底背離時，顯示粉色字，底背離}
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));{取得上次死叉距離現在的周期}
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);{定義頂背離}
{頂背:DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORGREEN,LINETHICK4; {頂背離畫綠色線，屬于未來函數}
STICKLINE(頂背離,0,0.03,6,0),COLOR00FF00;{底背離時，顯示綠色柱體}
DRAWTEXT(頂背離,0.11,'? ? ?頂背離空'),COLORFF00FF,FONTSIZE9;{底背離時，顯示粉色字，底背離}

DRAWTEXT(低位金叉 AND 二次金叉 AND 底背離,0.33,'三全項'),COLOR0000FF,ALIGN0,LINETHICK2,FONTSIZE9;{三個條件滿足時，顯示三全項}
DRAWICON(CROSS(DIFF,DEA),0,1);{1號圖標顯示紅箭頭};
DRAWICON(CROSS(DEA,DIFF),0,2);{2號圖標顯示綠箭頭};
DRAWICON(CROSS(DEA,DIFF),0,2);{2號圖標顯示綠箭頭}; 來源 程序化久久網