通达信MACD多彩

SHORT:=24;

LONG:=152;

MID:=18;

DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),NODRAW;

DEA:EMA(DIF,MID),NODRAW;

MACD:(DIF-DEA)*2,COLORSTICK;

{多周期统计}

当红:IF(BARSLAST(MACD<0),BARSLAST(MACD<0),0),NODRAW,COLORRED;

当绿:IF(BARSLAST(MACD>0),BARSLAST(MACD>0),0),NODRAW,COLORGREEN;

{MACD周值}{}

周DIF:="MACD.DIF#WEEK"; 

周DEA:="MACD.DEA#WEEK"; 

周MACD:=(周DIF-周DEA)*2;

周红天数:IF(周MACD>0,BARSLAST(CROSS(周MACD,0)),DRAWNULL)+1,COLORYELLOW,NODRAW;

周绿天数:IF(周MACD<0,BARSLAST(CROSS(0,周MACD)),DRAWNULL)+1,COLORCYAN,NODRAW;

{MACD月值}

月DIF:="MACD.DIF#MONTH"; 

月DEA:="MACD.DEA#MONTH"; 

月MACD:=(月DIF-月DEA)*2;

月红天数:IF(月MACD>0,BARSLAST(CROSS(月MACD,0)),DRAWNULL)+1,COLORRED,NODRAW;

月绿天数:IF(月MACD<0,BARSLAST(CROSS(0,月MACD)),DRAWNULL)+1,COLORGREEN,NODRAW;

A1:=LAST(MACD>=REF(MACD,1),3,1);

B1:=MACD<REF(MACD,1);

C1:=LAST(MACD<=REF(MACD,1),3,1);

D1:=MACD>REF(MACD,1);

GD:=MACD=HHV(MACD,30);

GJ:=BARSLAST(FILTER(CROSS(0.8,GD),2))+1;

E1:=REF(MACD,GJ),POINTDOT,COLORMAGENTA;

DA:=MACD=LLV(MACD,30);

DJ:=BARSLAST(FILTER(CROSS(0.8,DA),2))+1;

F1:=REF(MACD,DJ);{}

CS:=BARSLAST(MACD<REF(MACD,1));

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

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

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=3,0,MACD,2,1),COLOREEEEBB;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=4,0,MACD,2,1),COLORDDDDCC;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=5,0,MACD,2,1),COLORCCCCDD;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=6,0,MACD,2,1),COLORBBBBEE;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=7,0,MACD,2,1),COLORAAAAFF;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=8,0,MACD,2,1),COLOR9999FF;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS=9,0,MACD,2,1),COLOR8888FF;

STICKLINE(MACD>REF(MACD,1) AND MACD<0 AND CS>9,0,MACD,2,1),COLOR8888FF;

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

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

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=3,0,MACD,2,1),COLOR1100BB;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=4,0,MACD,2,1),COLOR1100CC;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=5,0,MACD,2,1),COLOR3300DD;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=6,0,MACD,2,1),COLOR3300EE;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=7,0,MACD,2,1),COLOR5500FF;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=8,0,MACD,2,1),COLOR5500FF;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS=9,0,MACD,2,1),COLOR7700FF;

STICKLINE(MACD>REF(MACD,1) AND MACD>0 AND CS>9,0,MACD,2,1),COLOR7700FF;

STICKLINE(MACD>E1 AND E1>0,E1,E1,2,0),COLORRED;

STICKLINE(MACD<F1 AND F1<0,MACD,F1,0,1),COLORBLUE;

STICKLINE(A1 AND B1 AND MACD>0,MACD,0,2,1),COLOR00DD00;

STICKLINE(C1 AND D1 AND MACD<0,MACD,0,2,0),COLOR000DDD;

DRAWBAND(DIF,RGB(250,250,250),DIF,RGB(0,0,0));

DRAWBAND(DEA,RGB(250,250,0),DEA,RGB(0,0,0));

原理解析：
SHORT赋值:24


LONG赋值:152


MID赋值:18
输出

DIF:收盘价的SHORT日指数移动平均-收盘价的LONG日指数移动平均,NODRAW
输出

DEA:DIF的MID日指数移动平均,NODRAW
输出

MACD:(DIF-DEA)*2,COLORSTICK
输出

{多周期统计}

当红:IF(上次MACD<0距今天数,上次MACD<0距今天数,0),NODRAW,画红色
输出

当绿:IF(上次MACD>0距今天数,上次MACD>0距今天数,0),NODRAW,画绿色


{MACD周值}{}

周DIF赋值:"MACD.DIF#WEEK"


周DEA赋值:"MACD.DEA#WEEK"


周MACD赋值:(周DIF-周DEA)*2
输出

周红天数:IF(周MACD>0,上次周MACD上穿0距今天数,DRAWNULL)+1,画黄色,NODRAW
输出

周绿天数:IF(周MACD<0,上次0上穿周MACD距今天数,DRAWNULL)+1,画青色,NODRAW


{MACD月值}

月DIF赋值:"MACD.DIF#MONTH"


月DEA赋值:"MACD.DEA#MONTH"


月MACD赋值:(月DIF-月DEA)*2
输出

月红天数:IF(月MACD>0,上次月MACD上穿0距今天数,DRAWNULL)+1,画红色,NODRAW
输出

月绿天数:IF(月MACD<0,上次0上穿月MACD距今天数,DRAWNULL)+1,画绿色,NODRAW


A1赋值:LAST(MACD>=1日前的MACD,3,1)


B1赋值:MACD<1日前的MACD


C1赋值:LAST(MACD<=1日前的MACD,3,1)


D1赋值:MACD>1日前的MACD


GD赋值:MACD=30日内MACD最高值


GJ赋值:上次FILTER(0.8上穿GD,2距今天数)+1


E1赋值:GJ日前的MACD,POINTDOT,画洋红色


DA赋值:MACD=30日内MACD最低值


DJ赋值:上次FILTER(0.8上穿DA,2距今天数)+1


F1赋值:DJ日前的MACD
{}

CS赋值:上次MACD<1日前的MACD距今天数


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=1,0,MACD,2,1),COLORFFFF99


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=2,0,MACD,2,1),COLORFFFFAA


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=3,0,MACD,2,1),COLOREEEEBB


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=4,0,MACD,2,1),COLORDDDDCC


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=5,0,MACD,2,1),COLORCCCCDD


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=6,0,MACD,2,1),COLORBBBBEE


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=7,0,MACD,2,1),COLORAAAAFF


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=8,0,MACD,2,1),COLOR9999FF


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS=9,0,MACD,2,1),COLOR8888FF


STICKLINE(MACD>1日前的MACD AND MACD<0 AND CS>9,0,MACD,2,1),COLOR8888FF


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=2,0,MACD,1,1),COLOR000099


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=2,0,MACD,2,1),COLOR0000AA


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=3,0,MACD,2,1),COLOR1100BB


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=4,0,MACD,2,1),COLOR1100CC


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=5,0,MACD,2,1),COLOR3300DD


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=6,0,MACD,2,1),COLOR3300EE


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=7,0,MACD,2,1),COLOR5500FF


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=8,0,MACD,2,1),COLOR5500FF


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS=9,0,MACD,2,1),COLOR7700FF


STICKLINE(MACD>1日前的MACD AND MACD>0 AND CS>9,0,MACD,2,1),COLOR7700FF
当满足条件MACD>E1 AND E1>0时,在E1和E1之间画柱状线
当满足条件MACD当满足条件A1 AND B1 AND MACD>0时,在MACD和0之间画柱状线
当满足条件C1 AND D1 AND MACD<0时,在MACD和0之间画柱状线


DRAWBAND(DIF,RGB(250,250,250),DIF,RGB(0,0,0))


DRAWBAND(DEA,RGB(250,250,0),DEA,RGB(0,0,0))