DIFF?:(EMA(CLOSE,12)-EMA(CLOSE,26))*100/EMA(CLOSE,26),?COLORYELLOW;
DEA?:?EMA(DIFF,9),COLORRED,LINETHICK2;
?DIF:IF(DIFF<REF(DIFF,1),DIFF,DRAWNULL),?COLORGRAY;
??ADEA:IF(DEA<REF(DEA,1),DEA,DRAWNULL),?COLORCYAN,LINETHICK2;
?MACD:2*(DIFF-DEA),?COLORSTICK,LINETHICK2;?

低位金叉:=CROSS(DIFF,DEA)?AND?DIFF<-0.1;
STICKLINE(低位金叉,0,0.30,3,0),COLORMAGENTA;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA)?AND?DEA<0?AND?COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.80,3,0),COLORYELLOW;
DRAWICON(二次金叉,DEA*0.9,1)?;
DRAWICON(CROSS(DIFF,DEA),DEA*1.02,1);
DRAWICON(CROSS(DEA,DIFF),DIFF*0.98,2);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE?AND?DIFF>REF(DIFF,A1+1)?AND?CROSS(DIFF,DEA)?AND?DIFF<0;
STICKLINE(底背離,0,0.40,3,0), COLORBROWN;　　

DRAWTEXT(二次金叉,0.1,'nbsp;二次金叉',COLORYELLOW;

底背:DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORWHITE,LINETHICK1;
DRAWTEXT(底背離,DIFF,'nbsp;底背離',COLORWHITE;
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),COLORLIGRAY,LINETHICK1;　　

?

?來源:程序化99