同花顺公式 MACD王中王自用 全面挖掘MACD的功能，可视化立体化全息化。 DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :EMA(DIFF,9);
MACD :2*(DIFF-DEA);
Zero :0;
落差:=DiFF-REF(DiFF,1);
落差2:=MACD-REF(MACD,1);
斜率:=落差/REF(落差,1);
斜率2:=落差2/REF(落差2,1);
STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,8,0),color0000ff;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,8,0),colorff0000;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,8,0),colorff00ff;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,8,0),color00ff00;
gj:=MAX(C,O);
L4:=LLV(gj,4);
gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,DEA*1.09,DEA*0.86,6,0),Color00FF00;
DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,linethick1;
DRAWTEXT(底背离,DEA*1.09,'底背离'),Color6600FF;
STICKLINE(底背离,DEA*1.09,DEA*0.86,8,0),coloryellow;
H4:=HHV(gj,4);
gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
A2:=BARSLAST(REF(gt2,1));
顶背离:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
DRAWLINE(A2=0 ,DEA,顶背离,REF(DEA,gt2),0),colorgreen,LINETHICK1;
DRAWTEXT(顶背离,REF(DEA,gt2)*1.07,'顶背离'),colorgreen;
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
DRAWTEXT(A10,DEA*1.05,'★'),coloryellow;
DRAWICON(CROSS(DEA,DIFF) AND DEA>0,DEA,2);
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,DEA*0.86,DEA*0.66,6,0),coloryellow;
DRAWTEXT(低位金叉,dea*0.86,' 低位金叉'),coloryellow;
突破零轴:=CROSS(DIFF,0) AND DEA <DIFF;
STICKLINE(突破零轴,DIFF*0.86,DIFF*0.66,6,0),coloryellow;
DRAWTEXT(突破零轴,dea*0.86,' 突破零轴'),coloryellow;
跌破零轴:=CROSS(0,DIFF) AND DEA >DIFF;
STICKLINE(跌破零轴,DIFF*0.86,DIFF*0.66,6,0),colorred;
DRAWTEXT(跌破零轴,dea*2.86,' 跌破零轴'),colorred;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,DEA*0.96,DEA*0.76,6,0),ColorFF00FF;
DRAWICON(二次金叉,dea*1.1,'Buy') ;
DRAWTEXT(二次金叉,DEA*0.96,' 二次金叉'),ColorFF00FF;
DRAWICON(MACD<0 AND (MACD>REF(MACD,1)) OR (MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2) AND diff>dea),MACD*0.66,5);
DRAWICON(MACD>REF(MACD,1) AND diff<dea AND 斜率>0 AND 斜率<0.7,DIFF*0.75,24);
///以下是跑路的信号;
DRAWICON(MACD<REF(MACD,1) AND REF(MACD,1)>REF(MACD,2) AND REF(MACD,2)>REF(MACD,3) AND DIFF>DEA AND MACD>0,MACD,15);
DRAWICON(DIFF>DEA AND DIFF>REF(DIFF,1) AND REF(DIFF,1)>REF(DIFF,2) AND 斜率>0 AND 斜率<0.7,DIFF,8);
DRAWICON(MACD>0 AND MACD>REF(MACD,1) AND REF(MACD,1)>REF(MACD,2) AND 斜率2>0 AND 斜率2<0.5,MACD,6);
|
