通达信MACD多周期确认副图指标公式源码.docxVIP

通达信MACD多周期确认副图指标公式源码

{MACD时间}

{3,7,3}{7,21,2}{12,52,9}

N:=3;

M:=9;

M1:=3;

DIF:EMA(CLOSE,N)-EMA(CLOSE,M),NODRAW;

DEA:EMA(DIF,M1),NODRAW;

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

{多周期统计}

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

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

{MACD周值}

周DIF:=MACD.DIF#WEEK;

周DEA:=MACD.DEA#WEEK;

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

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

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

{MACD月值}

月DIF:=MACD.DIF#MONTH;

月DEA:=MACD.DEA#MONTH;

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

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

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

STICKLINE(MACDREF(MACD,1)ANDMACD0,0,MACD,1,0),COLORRED;

STICKLINE(MACDREF(MACD,1)ANDMACD0,0,MACD,1,-1),COLORRED;

STICKLINE(MACDREF(MACD,1)ANDMACD0,0,MACD,1,0),COLORGREEN;

STICKLINE(MACDREF(MACD,1)ANDMACD0,0,MACD,1,-1),COLORGREEN;

ZM:=REF(MACD,BARSLAST(周红=1));

STICKLINE(MACDZMANDZM0,ZM,ZM,1,0),COLORWHITE;

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

DRAWBAND(IF(DIFDEA,DIF,DRAWNULL),RGB(250,0,0),DIF,RGB(0,0,0));

DRAWBAND(IF(周红1,DEA,DRAWNULL),RGB(0,250,0),DEA,RGB(0,0,0));

DRAWTEXT(周红=1,0,周),COLORYELLOW,DRAWABOVE;

低位金叉:=CROSS(DIF,DEA)ANDDIF-0.1;

JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA=0));

二次金叉:=CROSS(DIF,DEA)ANDDEA0ANDCOUNT(JCCOUNT=2,21)=1;

DRAWTEXT(二次金叉,DEA*0.2,二金),COLORWHITE;

三次金叉:=CROSS(DIF,DEA)ANDDEA0ANDCOUNT(JCCOUNT=3,60)=1;

DRAWTEXT(三次金叉,DEA*0.2,三金),COLORLIMAGENTA;

四次金叉:=CROSS(DIF,DEA)ANDDEA0ANDCOUNT(JCCOUNT=4,90)=1;

DRAWTEXT(四次金叉,DEA*0.2,四金),COLORYELLOW;

五次金叉:=CROSS(DIF,DEA)ANDDEA0ANDCOUNT(JCCOUNT=5,120)=1;

DRAWTEXT(五次金叉,DEA*0.2,五金),COLORBROWN;

六次金叉:=CROSS(DIF,DEA)ANDDEA0ANDCOUNT(JCCOUNT=6,150)=1;

DRAWTEXT(六次金叉,DEA*0.2,六金),COLORBLUE;

{MACD日线底背离}

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

底背离:=REF(CLOSE,A1+1)CLOSEANDDIFREF(DIF,A1+1)ANDCROSS(DIF,DEA);

DRAWTEXT(底背离,DIF*0.5,底背),COLORRED;

{日底背画线:DRAWLINE(A1=0,DEA,底背离,DEA,0),COL