多年使用的MACD,直接上源码
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
partline(DIFF,DIFF>=ref(DIFF,1),rgb(255,0,0),DIFF<ref(DIFF,1),rgb(0,255,255)),linethick1;
低位金叉:CROSS(DIFF,DEA) AND DEA<0,LINETHICK0;
DRAWICON(低位金叉,DEA,7);
STICKLINE(低位金叉,0,0.2,5,0),COLORRED;
金叉:CROSS(DIFF,DEA) AND DIFF>0 AND "MACD.DIFF"<0.02,LINETHICK0;
DRAWTEXT(金叉,DEA, '金叉'),COLORYELLOW;
ZCJC:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
再次金叉:CROSS(DIFF,DEA) AND DEA<0 AND ZCJC>1,LINETHICK0;
DRAWTEXT(再次金叉,0, '再金叉'),COLORYELLOW;
STICKLINE(再次金叉,0,0.14,2,0),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA),LINETHICK0;
DRAWLINE(A1=0,REF(DEA,1),底背离,DEA,0),POINTDOT;
DRAWTEXT(底背离,DEA*1.2,'底背离'),COLORGREEN;
STICKLINE(底背离,0,0.08,1,0);
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(C,A2+1)<C AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,REF(DEA,1),顶背离,DEA,0),COLORWHITE,POINTDOT;
DRAWTEXT(顶背离, DEA,'顶背离'),COLORWHITE;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0),COLORGREEN,LINETHICK3;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,2,0),COLORFFCC33,LINETHICK3;
STICKLINE(MACD>REF(MACD,1)AND MACD,0,MACD,2,0),COLORYELLOW,LINETHICK3;
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,3,0),COLORMAGENTA,LINETHICK3;
强弱:0;
- 上一篇:CCTV证券量化 2014/9/30
- 下一篇:导弹发射,直接上源,有未来函数谨慎使用,可以选股 2014/9/30