大智慧版本自用MACD顶底指标公式

本来是通达信版本，有朋友需要，就转换为大智慧版本

 机构和黑嘴都说有吃饭行情，看看60天线是不是一层纸，发个自用的MACD,对大家有没有用（论坛中的高手们只是说说昨天，今天。明天是两可的话。。。。说说大趋势如何，不要让小散户们天天担惊受怕）这个星期涨跌多少点都已经无所谓了（5周线已经穿13周线），下个星期5周线穿20周线，不知道如何走法。本人的看法，请勿拍砖，

{自用MACD顶底}

DIFF1:(EMA(CLOSE,12)-EMA(CLOSE,26))*10,COLORFFFFFF;

DEA1:EMA(DIFF1,9),COLORYELLOW;

JD:3*DIFF1-2*DEA1,COLORWHITE,LINETHICK2;

{DRAWBAND(DIFF1,RGB(250,50,0),DEA1,RGB(50,250,0)); }

MACD1:=2*(DIFF1-DEA1);

MACD2:=SMA(MACD1,5,1);

STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,3,0),COLOR000055;

STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2.5,0),COLOR000077;

STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1.5,0),COLOR000099;

STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLOR0000FF;

STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,3,0),COLOR222222;

STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2.5,0),COLOR444444;

STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1.5,0),COLOR666666;

STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,0,0),COLOR999999;

STICKLINE(MACD1<MACD2,0,MACD1,3,0),COLORA80000;

STICKLINE(MACD1<MACD2,0,MACD1,2.5,0),COLORB80000;

STICKLINE(MACD1<MACD2,0,MACD1,1.5,0),COLOREC1000;

STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORFF4600;

STICKLINE(MACD1<MACD2,0,MACD1,0,0),COLORFFAA00;

低位金叉:=CROSS(DIFF1,DEA1) AND DIFF1<-0.1;

STICKLINE(低位金叉,0,DIFF1,3,0),COLOR002222;

STICKLINE(低位金叉,0,DIFF1,2.5,0),COLOR006666;

STICKLINE(低位金叉,0,DIFF1,1.5,0),COLOR009999;

STICKLINE(低位金叉,0,DIFF1,1,0),COLOR00FFFF;

DRAWTEXT(低位金叉,0.1,' 低位金叉'),COLOR00FF88;

JCCOUNT:=COUNT(CROSS(DIFF1,DEA1),BARSLAST(DEA1>=0));

二次金叉:=CROSS(DIFF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;

STICKLINE(二次金叉,MACD1,-0.01,3,0),COLOR440044;

STICKLINE(二次金叉,MACD1,-0.01,2.5,0),COLOR660066;

STICKLINE(二次金叉,MACD1,-0.01,1.5,0),COLOR990099;

STICKLINE(二次金叉,MACD1,-0.01,1,0),COLORFF00FF;

DRAWTEXT(二次金叉,DEA1*1.3,' 二次金叉'),COLORYELLOW;

A1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1));

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF1>REF(DIFF1,A1+1) AND CROSS(DIFF1,DEA1);

STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;

DRAWLINE(A1=0,DEA1,底背离,DEA1,0),COLORRED;

DRAWTEXT(底背离,DEA1,' 底背离'),COLORFF00FF;

A2:=BARSLAST(REF(CROSS(DEA1,DIFF1),1));

顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF1,A2+1)>DIFF1 AND CROSS(DEA1,DIFF1);

DRAWLINE(A2=0,DEA1,顶背离,DEA1,0),COLORFF8800;

DRAWTEXT(顶背离,DEA1,' 顶背离'),COLORFFFF00;

DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,DEA1*1.1,'三全项'),COLOR0000FF;

微分:=SMA(MACD1,5,1);

力度:(MACD1-MACD2)*2,COLORYELLOW,LINETHICK2;

力10:EMA(力度,5),COLORCYAN,LINETHICK2;

力55:EMA(力度,55),COLORRED,LINETHICK2;

VAR14:=ZIG(3,13);

小苹果:IF((REF(VAR14,2)>REF(VAR14,1)) AND (VAR14>REF(VAR14,1)),1,0),linethick0;

DRAWICON ((REF(VAR14,2)>REF(VAR14,1)) AND (VAR14>REF(VAR14,1)),MACD1,16);{小苹果}

金手指:ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2),linethick0;

DRAWICON (金手指=1,MACD1*0.96,11);{金手指};