//MACD变色V4 +金叉买入指标公式 20150905

//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;

LL:=MAX(MAX(DIFF,DEA),MACD)*1.1+0.1;

//潜在高转送次新股：每股资本公积+每股未分配利润>5元，净资产收益率>10%，流通市值<50亿

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

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

利润:WFPLR/ZGB,2,colormagenta,NODRAW;

净资产:MGJZC,2,colorff7f00,NODRAW;

N:=IF(BARSCOUNT(C)<=5,EMA((C+L+H)/3,2),EMA((C+L+H)/3,5));

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

MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);MA60:=MA(C,60);

二线多头排列:= MA5>=MA10;

三线多头排列1:= MA5>=MA10 AND MA10>=MA20;

三线多头排列2:= MA5>=MA10 AND MA10>=MA30;

三线多头排列3:= MA10>=MA20 AND MA20>=MA30;

四线多头排列:= MA5>=MA10 AND MA10>=MA20 AND MA20>=MA30;

N:=0.2;

广义四线多头排列:=  四线多头排列 OR (三线多头排列1 AND MA30-MA20<N) OR (三线多头排列2 AND MA20-MA10<N) OR (三线多头排列3 AND MA10-MA5<N);

N:=0.6;

广义四线多头排列1:= 四线多头排列 OR (三线多头排列1 AND MA30-MA20<N) OR (三线多头排列2 AND MA20-MA10<N) OR (三线多头排列3 AND MA10-MA5<N);

//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);

//DRAWTEXT(贴近零轴金叉 AND 广义四线多头排列1,DIFF*1.1,'⊕'),colormagenta;

四线少头:=MA5<=MA10 AND MA10<=MA20 AND MA20<=MA30;

四线多头:=MA5>=MA10 AND MA10>=MA20 AND MA20>=MA30;

三线少头:=((MA5<=MA10 AND MA10<=MA20) OR (MA10<=MA20 AND MA20<=MA30)) AND NOT(四线少头);

三线多头:=((MA5>=MA10 AND MA10>=MA20) OR (MA10>=MA20 AND MA20>=MA30)) AND NOT(四线多头);

多头排列:=四线多头 OR 三线多头;

少头排列:=四线少头 OR (三线少头 AND MA30<MA60);

//LL:=IF(MACD>=0,IF(MACD<=0.5,1,MACD*1.1),DIFF*1.1);

A1:=CROSS(DIFF,DEA) AND MACD>0  AND BETWEEN(DIFF,-0.2,0.2);

A2:=(多头排列 OR 少头排列) AND (MA5>REF(MA5,1));

A3:=1;

贴近零轴金叉:=A1 AND A2 AND A3;

DRAWTEXT(贴近零轴金叉,LL,'⑧'),colormagenta;

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;

六次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AA=6,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;

DRAWTEXT(六次金叉,DIFF*1.1,'⑥'),color00aaff;

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

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;

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

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

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

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

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

MACD死叉后金叉:= A1 AND A2 AND A3;

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

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

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

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

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

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

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

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

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

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

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

//MACD多头二次翻红

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

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

A3:=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;

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

A5:=A1 AND A2 AND A3 AND A4;

A6:=A5 AND ABS((DIFF-DEA)/C)<0.018;

A7:=A5 AND MACD<0.10;

MACD多头二次翻红:=A5 OR A6 OR A7;

N:=MACD死叉后金叉 AND MACD多头二次翻红;

DRAWTEXT(N,LL,'③'),colorred;

DRAWTEXT(N AND 广义四线多头排列1,LL,'③'),colormagenta;

DRAWTEXT(MACD多头二次翻红 AND NOT(N),LL,'②'),colorred;

DRAWTEXT(MACD多头二次翻红 AND NOT(N) AND 广义四线多头排列1,LL,'②'),colormagenta;

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

DRAWTEXT(MACD死叉后金叉 AND NOT(N) AND 广义四线多头排列1,LL,'①'),colormagenta;