联系方式 Contact

云指标公式网

淘宝:zb-mart.taobao.com

电话:18020657357

Q Q:396950280

网址:www.yzhibiao.com

搜索 Search

多年使用的MACD,直接上源码

2014-9-30 10:57:02点击:

         

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;