同花顺MACD变色V4公式

源码

//20150328 DIFF上穿0轴后在0轴上第一次死叉后又金叉

//20150329 MACD多头二次翻红

DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),colorwhite,LINETHICK1;

DEA: EMA(DIFF,9),coloryellow,LINETHICK1;

MACD: 2*(DIFF-DEA),colorred,NODRAW;

Zero: 0,colorff7f00,LINETHICK1;

N:=IF(BARSCOUNT(C)<=5,MA(C,2),MA(C,5));

角度:((ATAN((N - REF(N,1))) * 3.1416) * 10),NODRAW,colorcyan;

//角度:((ATAN((MA(C,5) - REF(MA(C,5) ,1))) * 3.1416) * 10),NODRAW;

流通股:SHGZG/10000/10000,NODRAW,colorgreen;

资本公积:GJJ/ZGB,NODRAW,colormagenta;

//CCI抄底

N:=14;

TYP := (IF(ISNULL(HIGH),CLOSE,HIGH) + IF(ISNULL(LOW),CLOSE,LOW) + CLOSE)/3;

CCI: (TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),colorffff00,NODRAW;

//红色

STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),color0000ff;

//墨绿

STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),colorffff00;

//洋红

STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),colorff00ff;

//绿色

STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),color00ff00;

低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.2;

贴近零轴金叉:=CROSS(DIFF,DEA) AND MACD>0 AND BETWEEN(DIFF,-0.03,0.03);

//VERLINE(水上低位金叉,1),colorwhite;

//DRAWTEXT(低位金叉,DIFF*1.1,'低位'),color00aaff;

AA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));

一次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=1,21)=1;

二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=2,21)=1;

三次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=3,21)=1;

四次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=4,21)=1;

五次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=5,21)=1;

//VERLINE(二次金叉,1),colorwhite;

DRAWTEXT(一次金叉,DIFF*1.1,'①'),color00aaff;

DRAWTEXT(一次金叉 AND 低位金叉,DIFF*1.1,'①低位'),color00aaff;

DRAWTEXT(二次金叉,DIFF*1.1,'②'),color00aaff;

DRAWTEXT(二次金叉 AND 低位金叉,DIFF*1.1,'②低位'),color00aaff;

DRAWTEXT(三次金叉,DIFF*1.1,'③'),color00aaff;

DRAWTEXT(三次金叉 AND 低位金叉,DIFF*1.1,'③低位'),color00aaff;

DRAWTEXT(四次金叉,DIFF*1.1,'④'),color00aaff;

DRAWTEXT(四次金叉 AND 低位金叉,DIFF*1.1,'④低位'),color00aaff;

DRAWTEXT(五次金叉,DIFF*1.1,'⑤'),color00aaff;

DRAWTEXT(五次金叉 AND 低位金叉,DIFF*1.1,'⑤低位'),color00aaff;

//DIFF上穿0轴后在0轴上第一次死叉后又金叉

AA:= CROSS(DIFF,DEA) AND DEA>0 ;

BB:=BARSLAST(CROSS(DEA,DIFF)) AND DEA>0;

CC:=REF(BARSLAST(CROSS(DIFF,0))<20,BARSLAST(CROSS(DEA,DIFF))+1);

N:= ABS(MAX(DIFF,DEA))+1;

MACD死叉后金叉:= AA AND BB AND CC;

DRAWTEXT(MACD死叉后金叉,N,'①'),colorred;

//MACD多头二次翻红

FH1:=REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4);

FH2:=MACD>=0 AND COUNT(MACD>REF(MACD,1),1)=1;

FH3:=EMA(C,30)>=REF(EMA(C,30),1) AND COUNT(EMA(C,5)>EMA(C,10) AND EMA(C,10)>EMA(C,30),1)=1;

FH4:=CROSS(C,EMA(C,30)) OR C>EMA(C,30);

FH5:=FH1 AND FH2 AND FH3 AND FH4;

FH6:=FH1 AND FH2 AND FH3 AND FH4 AND ABS((DIFF-DEA)/C)<0.018;

FH7:=FH1 AND FH2 AND FH3 AND FH4 AND MACD<0.10;

MACD多头二次翻红:=FH5 OR FH6 OR FH7;

N:=IF(MACD死叉后金叉 AND MACD多头二次翻红,N+1,N);

DRAWTEXT(MACD多头二次翻红 AND REF(CCI,1)<50,N,'②'),colorred;

//这个“二次翻红”指标除了满足原有的四个条件外,即：

//一是MACD在零轴以上并且第二次收红柱；

//二是MACD红柱大于等于零轴并且红柱缩短小于0.10以下；(实战0.111也行)

//三是DIFF与DEA两线的粘合度小于0.018；

//四是红柱连续缩短三天以上。

//还基本满足了所描述的四个条件（即：

//1、30日移动平均线由下跌变为走平或翘头向上，5日、10、30日移动平均线刚刚形成多头排列；

//2、日K线刚刚上穿30日移动平均线或在30日移动平均线上方运行；

//3、DIF在零轴下方与MACD金叉后可靠意义将会更大，在第一次翻红后，红柱开始缩短，越短越好，最好不要超过0轴的第一横线；

//4、成交量由萎缩逐渐放大，特别是在二次翻红后，若能得到成交量的配合，该股后市向上冲击的力量会更大。）

//该指标没有设计成交量这个条件。只要符合所涉及到的条件，就能在“二次翻红”起涨点选出股票。

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

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

A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));

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

DRAWLINE(A1=0,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;

DRAWLINE(底背离,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;

DRAWTEXT(底背离,REF(DEA,A1)*1.28,'+底背离'),COLORFF00FF;

DRAWLINE(A2=0 ,DEA,顶背离,REF(DEA,A2),0),colorgreen,LINETHICK2;

DRAWLINE(顶背离,DEA,顶背离,REF(DEA,A2),0),colorgreen,LINETHICK2;

DRAWTEXT(顶背离,REF(DEA,A2)*1.18,'-顶背离'),colorgreen,LINETHICK2;

//5日均线上穿24日均线

MA5:=MA(C,5);

MA24:=MA(C,24);

LL:=IF(MACD<=0,MACD,-MACD);

A1:=CROSS(MA5,MA24) OR (MA5>MA24 AND REF(MA5,1)<REF(MA24,1));

A2:=MA(V,10)<V;

A3:=IF(MACD<0,MACD>=REF(MACD,1),MACD<3);

//五日内最大涨幅小于8%

A4:=C>=O AND 角度<8 AND COUNT(C/O>1.08,5)<1;

//日线买点:= MA5>MA24 AND REF(MA5,1)<REF(MA24,1) AND CCI<100;

日线买点:= A1 AND A2 AND A3 AND A4;

DRAWICON(日线买点,LL,"BUY");