MACD柱变色副图指标公式源码[同花顺公式]

相关标签:

MACD最经典的指标啦这指标会提醒顶底背离根据颜色还能够看红绿柱的力道

原理解析：
输出DIFF : 收盘价的12日指数移动平均 - 收盘价的26日指数移动平均 输出DEA : DIFF的9日指数移动平均 平滑异同平均=2*(DIFF-DEA) 输出ZERO : 0 GJ赋值:收盘价和开盘价的较大值 当满足条件平滑异同平均>0ANDMACD>=1日前的平滑异同平均时,在0和平滑异同平均位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0000FF 当满足条件平滑异同平均>0ANDMACD<1日前的平滑异同平均时,在0和平滑异同平均位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFFF00 当满足条件平滑异同平均<0ANDMACD>=1日前的平滑异同平均时,在0和平滑异同平均位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFF00FF 当满足条件平滑异同平均<0ANDMACD<1日前的平滑异同平均时,在0和平滑异同平均位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00FF00 L4赋值:4日内GJ的最低值 JL赋值:(55日内DIFF的最高值-55日内DIFF的最低值)/5 GT赋值:DEA>1日前的DEA AND 1日前的DEA<2日前的DEA A1赋值:上次1日前的GT距今天数 底背离赋值:A1+1日前的L4>收盘价 AND DIFF>A1+1日前的DIFF AND GT 当满足条件A1=0时,在DEA位置画直线起点，当满足条件底背离时,在A1日前的DEA位置画直线终点,0表示是否延长.,画红色,线宽为2 当满足条件底背离时,在DEA位置画直线起点，当满足条件底背离时,在A1日前的DEA位置画直线终点,0表示是否延长.,画红色,线宽为2 当满足条件底背离时,在A1日前的DEA*1.18位置书写文字,COLORFF00FF H4赋值:4日内GJ的最高值 GT2赋值:DEA<1日前的DEA AND 1日前的DEA>2日前的DEA A2赋值:上次1日前的GT2距今天数 顶背离赋值: A2+1日前的H4<H4 AND DIFF<A2+1日前的DIFF AND GT2 当满足条件A2=0时,在DEA位置画直线起点，当满足条件顶背离时,在A2日前的DEA位置画直线终点,0表示是否延长.,画绿色,线宽为2 当满足条件顶背离时,在DEA位置画直线起点，当满足条件顶背离时,在A2日前的DEA位置画直线终点,0表示是否延长.,画绿色,线宽为2 当满足条件顶背离时,在A2日前的DEA*1.18位置书写文字,画绿色 A0赋值:DIFF<0 AND DEA<0 A11赋值:A0>1日前的A0 A3赋值:上次A11距今天数 A4赋值:统计A3日中满足DEA>0ANDDIFF>0的天数=0 A5赋值:DIFF上穿DEA A6赋值:上次A5距今天数 A7赋值:A6+1日前的A6+A6 A8赋值:(DIFF+DEA)/2 A9赋值:(最高价+最低价)/2 A10赋值:A5 AND A7<A3 AND A4 AND A8>A7日前的A8 AND A9<A7日前的A9 AND 平滑异同平均>0 当满足条件A10时,在DIFF*0.95位置书写文字,画黄色 TIPTEXT(ISNULL(1日后的&收盘价),0,' WWW.CXH99.COM '),画红色 TIPTEXT(ISNULL(1日前的收盘价),0,'同花顺程序化交易')

 来源:程序化99（ WWW.CXH99.COM ）

源码：

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD=2*(DIFF-DEA);
Zero : 0;
gj:=MAX(C,O);
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;
L4:=LLV(gj,4);
jl:=(HHV(diff,55)-LLV(diff,55))/5;
gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
A1:=BARSLAST(REF(gt,1));
底背离:=REF(L4,A1+1)>CLOSE AND diff>REF(diff,A1+1) AND gt;
DRAWLINE(A1=0,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWLINE(底背离,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWTEXT(底背离,REF(DEA,A1)*1.18,' 底背离'),COLORFF00FF;
H4:=HHV(gj,4);
gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
A2:=BARSLAST(REF(gt2,1));
顶背离:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
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;
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
DRAWTEXT(A10,DIFF*0.95,'金叉买入'),coloryellow;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' WWW.CXH99.COM '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花顺程序化交易');

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】