MACD_COLA算法通达信公式 副图 源码附图

DIF:(2*EMA(CLOSE,12)-EMA(EMA(CLOSE,12),12)-(2*EMA(CLOSE,26)-EMA(EMA(CLOSE,26),26)))/2.2;
DEA:2.1*EMA(DIF,9)-EMA(EMA(DIF,9),9);
MACD:2.8*(DIF-DEA),COLORSTICK;
DRAWICON(REF(DIF,1)>REF(DIF,2) AND DIF<REF(DIF,1) AND DIF>0 AND DIF>DEA,DIF*1.1,2),COLORGREEN;
DRAWICON(CROSS(DEA,DIF) AND DIF>0,DIF,37),COLORGREEN;
DRAWICON(REF(DIF,1)<REF(DIF,2) AND DIF>REF(DIF,1) AND DIF<0 AND DIF<DEA,DIF*1.1,1),COLORRED;
DRAWICON(CROSS(DIF,DEA) AND DIF<0,DIF,36),COLORRED;
X_1:=MACD<0 AND MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4);
STICKLINE(X_1,0,MACD,0.3,0),COLORRED;
X_2:=MACD>0 AND MACD<REF(MACD,1) AND REF(MACD,1)>REF(MACD,2) AND REF(MACD,2)>REF(MACD,3) AND REF(MACD,3)>REF(MACD,4);
STICKLINE(X_2,0,MACD,0.3,0),COLORGREEN;
X_3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
X_4:=SMA(X_3,9,3);
X_5:=SMA(X_4,9,3);
X_6:=3*X_4-2*X_5;
X_7:=CROSS(X_4,X_5);
X_8:=CROSS(X_5,X_4);
X_9:=REF(CLOSE,1);
X_10:=SMA(MAX(CLOSE-X_9,0),6,1)/SMA(ABS(CLOSE-X_9),6,1)*100;
X_11:=CROSS(DIF,DEA) AND (X_7 OR (X_6<20 AND X_10<20));
X_12:=CROSS(DEA,DIF) AND (X_8 OR (X_6>80 AND X_10>80));
DRAWICON(X_11,DEA*1,25);
DRAWICON(X_12,DEA*1,24);
X_13:=100-100*(HHV(HIGH,40)-CLOSE)/(HHV(HIGH,40)-LLV(LOW,40))-50;
NOTEXTLU:IF(X_13>24.99,DIF,DRAWNULL),COLORRED,LINETHICK2;
NOTEXTLU2:IF(X_13<(-40.009998),DIF,DRAWNULL),COLORGREEN,LINETHICK2;
NOTEXT0:0,DOTLINE,COLORLIGRAY;
X_14:=IF(PERIOD=0,0.7,IF(PERIOD=1,1.2,IF(PERIOD=2,2,IF(PERIOD=3,2.5,IF(PERIOD=4,3,IF(PERIOD=5,5.5,IF(PERIOD=6,6,IF(PERIOD=7,7,IF(PERIOD=8,3.5,4)))))))));
X_15:=BARSLAST(CROSS(MACD,0));
X_16:=REF(X_15,1)>0 AND X_15=0;
X_17:=BARSLAST(X_16);
X_18:=REF(X_15,X_17+1);
X_19:=HHVBARS(MACD,X_17+X_18);
X_20:=IF(X_19>X_17,REF(MACD,X_19),0);
X_21:=IF(X_19>X_17,REF(HIGH,X_19),0);
X_22:=IF(REF(HIGH,1)=HHV(HIGH,X_17+X_18),REF(HIGH,1),0);
X_23:=(X_22-X_21)/X_21*100;
X_24:=COUNT(CROSS(0,MACD),X_17+X_18);
X_25:=MACD>0 AND MACD<X_20 AND HIGH=HHV(HIGH,X_17+X_18) AND X_20>0 AND X_24=1;
X_26:=REF(X_25,1) AND HIGH<REF(HIGH,1) AND MACD>0 AND X_20>0;
X_27:=LLVBARS(MACD,X_17+X_18);
X_28:=IF(X_27>X_17,REF(MACD,X_27),0);
X_29:=IF(X_27>X_17,REF(LOW,X_27),0);
X_30:=IF(REF(LOW,1)=LLV(LOW,X_17+X_18),REF(LOW,1),0);
X_31:=(X_29-X_30)/X_29*100;
X_32:=COUNT(CROSS(MACD,0),X_17+X_18);
X_33:=MACD<0 AND MACD>X_28 AND LOW=LLV(LOW,X_17+X_18) AND X_28<0 AND COUNT(CROSS(MACD,0),X_17+X_18)<=3;
X_34:=REF(X_33,1) AND LOW>REF(LOW,1) AND MACD<0 AND X_28<0;
前高:IF(X_26,X_21,DRAWNULL),NODRAW,COLOR7FFF00;
现高:IF(X_26,X_22,DRAWNULL),NODRAW,COLORGREEN;
幅度_顶:IF(X_26,X_23,DRAWNULL),NODRAW,COLORYELLOW;
原低:IF(X_34,X_29,DRAWNULL),NODRAW,COLORLIMAGENTA;
现低:IF(X_34,X_30,DRAWNULL),NODRAW,COLORRED;
幅度_底:IF(X_34,X_31,0),NODRAW,COLORYELLOW;
DRAWICON(X_34,MACD,26);
DRAWICON(X_26,MACD,27);
X_35:=BACKSET(X_26,X_19+1);
X_36:=BACKSET(X_34,X_27+1);
NOTEXTMACDL:DRAWLINE(REF(X_36,1)=0 AND X_36=1 AND MACD<0,MACD,X_34,MACD,0),COLORRED;
NOTEXTMACDH:DRAWLINE(REF(X_35,1)=0 AND X_35=1 AND MACD>0,MACD,X_26,MACD,0),COLORGREEN;
涨家数:INDEXADV,NODRAW,COLORRED;
跌家数:INDEXDEC,NODRAW,COLORGREEN;
正量能:涨家数/(涨家数+跌家数)*100,NODRAW,COLORMAGENTA;
负量能:跌家数/(涨家数+跌家数)*100,NODRAW,COLORYELLOW;
 

原理解析：
输出DIF:(2*收盘价的12日指数移动平均-收盘价的12日指数移动平均的12日指数移动平均-(2*收盘价的26日指数移动平均-收盘价的26日指数移动平均的26日指数移动平均))/2.2
输出DEA:2.1*DIF的9日指数移动平均-DIF的9日指数移动平均的9日指数移动平均
输出MACD:2.8*(DIF-DEA),COLORSTICK
DRAWICON(1日前的DIF>2日前的DIF AND DIF<1日前的DIF AND DIF>0 AND DIF>DEA,DIF*1.1,2),画绿色
DRAWICON(DEA上穿DIF AND DIF>0,DIF,37),画绿色
DRAWICON(1日前的DIF<2日前的DIF AND DIF>1日前的DIF AND DIF<0 AND DIF DRAWICON(DIF上穿DEA AND DIF<0,DIF,36),画红色
X_1赋值:MACD<0 AND MACD>1日前的MACD AND 1日前的MACD<2日前的MACD AND 2日前的MACD<3日前的MACD AND 3日前的MACD<4日前的MACD
当满足条件X_1时,在0和MACD之间画柱状线
X_2赋值:MACD>0 AND MACD<1日前的MACD AND 1日前的MACD>2日前的MACD AND 2日前的MACD>3日前的MACD AND 3日前的MACD>4日前的MACD
当满足条件X_2时,在0和MACD之间画柱状线
X_3赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)
X_3的9日[3日权重]移动平均
X_4的9日[3日权重]移动平均
X_6赋值:3*X_4-2*X_5
X_7赋值:X_4上穿X_5
X_8赋值:X_5上穿X_4
X_9赋值:1日前的收盘价
X_10:=SMA(收盘价-X_9和0较大值,6,1)/SMA(收盘价-X_9的绝对值,6,1)*100
X_11:=DIF上穿DEA AND (X_7 OR (X_6<20 AND X_10<20))
X_12:=DEA上穿DIF AND (X_8 OR (X_6>80 AND X_10>80))
当满足条件X_11时,在DEA*1和25之间画图标
当满足条件X_12时,在DEA*1和24之间画图标
X_13:=100-100*(40日内最高价最高值-收盘价)/(40日内最高价最高值-40日内最低价最低值)-50
如果X_13>24.99返回DIF否则返回DRAWNULL
NOTEXTLU2:IF(X_13<(-40.009998),DIF,DRAWNULL),画绿色, 线宽为2
输出NOTEXT0:0,DOTLINE,COLORLIGRAY
X_14:=IF(PERIOD=0,0.7,IF(PERIOD=1,1.2,IF(PERIOD=2,2,IF(PERIOD=3,2.5,IF(PERIOD=4,3,IF(PERIOD=5,5.5,IF(PERIOD=6,6,IF(PERIOD=7,7,IF(PERIOD=8,3.5,4)))))))))
X_15:=上次MACD上穿0距今天数
X_16:=1日前的X_15>0 AND X_15=0
X_17:=上次X_16距今天数
X_18:=X_17+1日前的X_15
X_19:=HHVBARS(MACD,X_17+X_18)
X_20:=IF(X_19>X_17,X_19日前的MACD,0)
X_21:=IF(X_19>X_17,X_19日前的最高价,0)
X_22:=IF(1日前的最高价=X_17+X_18日内最高价最高值,1日前的最高价,0)
X_23:=(X_22-X_21)/X_21*100
X_24:=统计X_17+X_18日满足0上穿MACD的天数
X_25:=MACD>0 AND MACD0 AND X_24=1
X_26:=1日前的X_25 AND 最高价<1日前的最高价 AND MACD>0 AND X_20>0
X_27:=LLVBARS(MACD,X_17+X_18)
X_28:=IF(X_27>X_17,X_27日前的MACD,0)
X_29:=IF(X_27>X_17,X_27日前的最低价,0)
X_30:=IF(1日前的最低价=X_17+X_18日内最低价最低值,1日前的最低价,0)
X_31:=(X_29-X_30)/X_29*100
X_32:=统计X_17+X_18日满足MACD上穿0的天数
X_33:=MACD<0 AND MACD>X_28 AND 最低价=X_17+X_18日内最低价最低值 AND X_28<0 AND 统计X_17+X_18日满足MACD上穿0的天数<=3
X_34:=1日前的X_33 AND 最低价>1日前的最低价 AND MACD<0 AND X_28<0
如果X_26返回X_21否则返回DRAWNULL
如果X_26返回X_22否则返回DRAWNULL
如果X_26返回X_23否则返回DRAWNULL
如果X_34返回X_29否则返回DRAWNULL
如果X_34返回X_30否则返回DRAWNULL
如果X_34返回X_31否则返回0
当满足条件X_34时,在MACD和26之间画图标
当满足条件X_26时,在MACD和27之间画图标
X_35:=BACKSET(X_26,X_19+1)
X_36:=BACKSET(X_34,X_27+1)
NOTEXTMACDL:DRAWLINE(1日前的X_36=0 AND X_36=1 AND MACD<0,MACD,X_34,MACD,0),画红色
NOTEXTMACDH:DRAWLINE(1日前的X_35=0 AND X_35=1 AND MACD>0,MACD,X_26,MACD,0),画绿色
输出涨家数:INDEXADV,NODRAW,画红色
输出跌家数:INDEXDEC,NODRAW,画绿色
输出正量能:涨家数/(涨家数+跌家数)*100,NODRAW,画洋红色
输出负量能:跌家数/(涨家数+跌家数)*100,NODRAW,画黄色